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") |
