diff options
Diffstat (limited to 'Handler/Common.hs')
-rw-r--r-- | Handler/Common.hs | 2 |
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) | |||
38 | import Data.Semigroup hiding (First(..)) | 38 | import Data.Semigroup hiding (First(..)) |
39 | import Data.Monoid (First(..)) | 39 | import Data.Monoid (First(..)) |
40 | 40 | ||
41 | import Data.Time.Calendar | ||
42 | |||
41 | humanId :: ItemId -> Text | 43 | humanId :: ItemId -> Text |
42 | humanId = Text.pack . CBS.unpack . HID.encode ctx . fromIntegral . fromSqlKey | 44 | humanId = Text.pack . CBS.unpack . HID.encode ctx . fromIntegral . fromSqlKey |
43 | where | 45 | where |