nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

removing unused code

Browse source
This commit is contained in:
nek0 2014-12-19 22:01:02 +01:00
parent 007275dbf3
commit 22cf2d54da
1 changed files with 0 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Helper.hs
View file

@ -57,14 +57,6 @@ extractKey = extractKey' . unKey
extractKey' (PersistInt64 k) = T.pack $ show k extractKey' (PersistInt64 k) = T.pack $ show k
extractKey' _ = "" extractKey' _ = ""
--getUserNameById :: UserId -> Text
--getUserNameById userId =
-- let
-- user = runDB $ getJust $ userId
-- in
-- userName user
fromHex :: String -> BL.ByteString
fromHex = BL.pack . hexToWords fromHex = BL.pack . hexToWords
where hexToWords (c:c':text) = where hexToWords (c:c':text) =
let hex = [c, c'] let hex = [c, c']