summaryrefslogtreecommitdiff
path: root/Handler/Common.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Handler/Common.hs')
-rw-r--r--Handler/Common.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Handler/Common.hs b/Handler/Common.hs
index 65e6ce1..f40375a 100644
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@@ -38,6 +38,8 @@ import Data.List.NonEmpty (NonEmpty)
38import Data.Semigroup hiding (First(..)) 38import Data.Semigroup hiding (First(..))
39import Data.Monoid (First(..)) 39import Data.Monoid (First(..))
40 40
41import Data.Time.Calendar
42
41humanId :: ItemId -> Text 43humanId :: ItemId -> Text
42humanId = Text.pack . CBS.unpack . HID.encode ctx . fromIntegral . fromSqlKey 44humanId = Text.pack . CBS.unpack . HID.encode ctx . fromIntegral . fromSqlKey
43 where 45 where