Implement inventory ids

1 files changed, 7 insertions, 0 deletions

diff --git a/Handler/Common.hs b/Handler/Common.hs
index a1ae34b..aacab92 100644
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@@ -11,6 +11,7 @@ module Handler.Common
   , FormState(..)
   , HasFormState(..)
   , stockSort, referenceSort
+  , humanId
   ) where
 
 import Import
@@ -28,6 +29,12 @@ import Handler.Common.Types
 
 import Text.Julius (RawJS(..))
 
+import qualified Codec.Crockford as Crockford (encode)
+import Database.Persist.Sql (fromSqlKey)
+
+humanId :: ItemId -> String
+humanId = Crockford.encode . fromSqlKey
+
 dayFormat :: Day -> String
 dayFormat = formatTime defaultTimeLocale "%e. %b %y"