diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-16 14:36:27 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-16 14:36:27 +0100 |
| commit | ab9dd6209e26ad9856e8cf41c1597a01073d4053 (patch) | |
| tree | 4b711928aa1e5a454a3b0a3190ef24962f9199d6 /Handler | |
| parent | c6e2f270644f6f4246aaffeff705d6f2269f3668 (diff) | |
| download | bar-ab9dd6209e26ad9856e8cf41c1597a01073d4053.tar bar-ab9dd6209e26ad9856e8cf41c1597a01073d4053.tar.gz bar-ab9dd6209e26ad9856e8cf41c1597a01073d4053.tar.bz2 bar-ab9dd6209e26ad9856e8cf41c1597a01073d4053.tar.xz bar-ab9dd6209e26ad9856e8cf41c1597a01073d4053.zip | |
More colourcoding
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 |