From 22cf2d54da8ee641c618ef03beb691a49feda046 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 19 Dec 2014 22:01:02 +0100 Subject: [PATCH] removing unused code --- Helper.hs | 8 -------- 1 file changed, 8 deletions(-) diff --git a/Helper.hs b/Helper.hs index e4e24ac..2cad529 100644 --- a/Helper.hs +++ b/Helper.hs @@ -57,14 +57,6 @@ extractKey = extractKey' . unKey extractKey' (PersistInt64 k) = T.pack $ show k extractKey' _ = "" ---getUserNameById :: UserId -> Text ---getUserNameById userId = --- let --- user = runDB $ getJust $ userId --- in --- userName user - -fromHex :: String -> BL.ByteString fromHex = BL.pack . hexToWords where hexToWords (c:c':text) = let hex = [c, c']