From 65fd24dcca71c6ea6332df618fdf43b60705778b Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sun, 30 Jul 2017 00:37:14 +0200
Subject: ditto

---
 Handler/Common.hs | 3 +--
 1 file changed, 1 insertion(+), 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
   let kt kWidget tWidget =
         [whamlet|
                 <div .td>^{kWidget}
-               <div .td>^{tWidget}
+                <div .td>^{tWidget}
                 |]
   ((kindRes, typeRes), typedKindWidget) <- typedKindField kt ((itemKind <$> proto), t)
   (boughtRes, boughtWidget) <- dayForm (Just . fromMaybe (DateKnown today) $ itemBought <$> proto) $ DayFormConfig False True True
@@ -208,7 +208,6 @@ typedKindField collate (kindProto, typeProto) = do
              , ("autocomplete", "off")
              ]
   kOptionId <- ("options" <>) . tshow . hashUnique <$> liftIO newUnique
-
   let
     kAttrs = [ ("list", kOptionId)
              , ("autocomplete", "off")
-- 
cgit v1.2.3