From a1c4553928369068e019f350a6736c62effb9fc6 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sun, 30 Jul 2017 00:39:35 +0200
Subject: use Yesod idents

---
 Handler/Common.hs | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'Handler')

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")
-- 
cgit v1.2.3