From ab9dd6209e26ad9856e8cf41c1597a01073d4053 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 16 Mar 2017 14:36:27 +0100 Subject: More colourcoding --- Handler/Common.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Handler') 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) import Data.Semigroup hiding (First(..)) import Data.Monoid (First(..)) +import Data.Time.Calendar + humanId :: ItemId -> Text humanId = Text.pack . CBS.unpack . HID.encode ctx . fromIntegral . fromSqlKey where -- cgit v1.2.3