itemForm :: AForm LollerSite LollerSite ItemParams
itemForm = ItemParams
    <$> areq (selectField itemChoices) "Item" (Just RubyCrystal)
itemForm :: AForm LollerSite LollerSite ItemParams
itemForm = ItemParams
    <$> areq (selectField itemChoices) "Item" (Just RubyCrystal)
itemForm = ItemParams
    <$> areq (selectField itemChoices) "Item" (Just RubyCrystal)