itemChoices :: [(Text, Item)]
itemChoices = let itemList = [Empty ..]
    in zip (map (T.pack . show) itemList) itemList
itemChoices :: [(Text, Item)]
itemChoices = let itemList = [Empty ..]
    in zip (map (T.pack . show) itemList) itemList
itemChoices = let itemList = [Empty ..]
    in zip (map (T.pack . show) itemList) itemList