diff options
Diffstat (limited to 'Handler')
| -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 |
