removing unused code

This commit is contained in:
nek0 2014-12-19 22:01:02 +01:00
parent 007275dbf3
commit 22cf2d54da

View file

@ -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']