1 files changed, 5 insertions, 7 deletions

diff --git a/Handler/Common.hs b/Handler/Common.hs
index 776d6ff..87496cb 100644
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@@ -16,8 +16,6 @@ module Handler.Common
 
 import Import hiding ((\\))
 
-import Data.Unique
-
 import qualified Data.Text as Text
 import qualified Data.ByteString.Char8 as CBS
 
@@ -102,9 +100,9 @@ itemForm proto identView = do
 
       let mWhen = bool (Nothing <$) (fmap Just)
 
-      neverBoxId <- ("check" <>) . show . hashUnique <$> liftIO newUnique
-      unknownBoxId <- ("check" <>) . show . hashUnique <$> liftIO newUnique
-      groupId <- ("dateGroup" <>) . show . hashUnique <$> liftIO newUnique
+      neverBoxId <- newIdent
+      unknownBoxId <- newIdent
+      groupId <- newIdent
       
       dNever <- mWhen dfNever $
         mopt checkBoxField ("" { fsId = Just $ Text.pack neverBoxId }) . Just . Just . fromMaybe True $ fmap isNever proto
@@ -202,12 +200,12 @@ typedKindField :: (Widget -> Widget -> Widget) -- ^ `\kindWidget typeWidget -> _
                -> (Maybe Text, Maybe Text) -- ^ `(kindProto, typeProto)`
                -> MForm Handler ((FormResult Text, FormResult Text), Widget) -- ^ `((kindRes, typeRes), typedKindWidget)`
 typedKindField collate (kindProto, typeProto) = do
-  tOptionId <- ("options" <>) . tshow . hashUnique <$> liftIO newUnique
+  tOptionId <- newIdent
   let
     tAttrs = [ ("list", tOptionId)
              , ("autocomplete", "off")
              ]
-  kOptionId <- ("options" <>) . tshow . hashUnique <$> liftIO newUnique
+  kOptionId <- newIdent
   let
     kAttrs = [ ("list", kOptionId)
              , ("autocomplete", "off")