summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Handler/Common.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Handler/Common.hs b/Handler/Common.hs
index 3a31883..776d6ff 100644
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@@ -64,7 +64,7 @@ itemForm proto identView = do
64 let kt kWidget tWidget = 64 let kt kWidget tWidget =
65 [whamlet| 65 [whamlet|
66 <div .td>^{kWidget} 66 <div .td>^{kWidget}
67 <div .td>^{tWidget} 67 <div .td>^{tWidget}
68 |] 68 |]
69 ((kindRes, typeRes), typedKindWidget) <- typedKindField kt ((itemKind <$> proto), t) 69 ((kindRes, typeRes), typedKindWidget) <- typedKindField kt ((itemKind <$> proto), t)
70 (boughtRes, boughtWidget) <- dayForm (Just . fromMaybe (DateKnown today) $ itemBought <$> proto) $ DayFormConfig False True True 70 (boughtRes, boughtWidget) <- dayForm (Just . fromMaybe (DateKnown today) $ itemBought <$> proto) $ DayFormConfig False True True
@@ -208,7 +208,6 @@ typedKindField collate (kindProto, typeProto) = do
208 , ("autocomplete", "off") 208 , ("autocomplete", "off")
209 ] 209 ]
210 kOptionId <- ("options" <>) . tshow . hashUnique <$> liftIO newUnique 210 kOptionId <- ("options" <>) . tshow . hashUnique <$> liftIO newUnique
211
212 let 211 let
213 kAttrs = [ ("list", kOptionId) 212 kAttrs = [ ("list", kOptionId)
214 , ("autocomplete", "off") 213 , ("autocomplete", "off")