Better ids & warnings

1 files changed, 8 insertions, 4 deletions

diff --git a/Handler/Common.hs b/Handler/Common.hs
index aacab92..c2788e8 100644
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@@ -14,11 +14,12 @@ module Handler.Common
   , humanId
   ) where
 
-import Import
+import Import hiding ((\\))
 
 import Data.Unique
 
 import qualified Data.Text as Text
+import qualified Data.ByteString.Char8 as CBS
 
 import Data.Set (Set)
 import qualified Data.Set as Set
@@ -29,11 +30,14 @@ import Handler.Common.Types
 
 import Text.Julius (RawJS(..))
 
-import qualified Codec.Crockford as Crockford (encode)
 import Database.Persist.Sql (fromSqlKey)
+import qualified Web.Hashids as HID
+import Data.List ((\\))
 
-humanId :: ItemId -> String
-humanId = Crockford.encode . fromSqlKey
+humanId :: ItemId -> Text
+humanId = Text.pack . CBS.unpack . HID.encode ctx . fromIntegral . fromSqlKey
+  where
+    ctx = HID.createHashidsContext "ItemId" 3 $ (['0'..'9'] ++ ['a'..'z']) \\ ['0', 'l', 'v', '2']
 
 dayFormat :: Day -> String
 dayFormat = formatTime defaultTimeLocale "%e. %b %y"