diff options
-rw-r--r-- | Handler/Common.hs | 3 |
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") |