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