boolInput :: Text -> AForm Handler (Text,Maybe Text)
boolInput n = (,) n . fmap (pack . show) <$> aopt boolField (bfs n) Nothing
boolInput :: Text -> AForm Handler (Text,Maybe Text)
boolInput n = (,) n . fmap (pack . show) <$> aopt boolField (bfs n) Nothing
boolInput n = (,) n . fmap (pack . show) <$> aopt boolField (bfs n) Nothing