From 56c2cd7e855f07ac273295f6b3e02865590004ec Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 8 Jul 2016 16:34:24 +0200 Subject: minor code cleanup --- ymir/mlmmj-expose.nix | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix index b07396aa..077f6c81 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix @@ -19,17 +19,11 @@ let import Control.Monad - -- import Codec.Crypto.SimpleAES - import Crypto.Hash import qualified Data.ByteString.Lazy as LBS - import qualified Data.ByteString.Lazy.Char8 as CLBS - import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as CBS - -- import Data.Hex - import qualified Data.UUID as UUID (toString) import qualified Data.UUID.V4 as UUID (nextRandom) @@ -88,7 +82,7 @@ let readDir dir = concat <$> (mapM (fmap lines . readFile) . map (dir ) . filter (not . (`elem` [".", ".."]))=<< (getDirectoryContents dir)) hash' :: Show a => a -> String - hash' = take len . map toLower . show . (hash :: BS.ByteString -> Digest SHA256) . CBS.pack . map toLower . show + hash' = take len . map toLower . show . (hash :: CBS.ByteString -> Digest SHA256) . CBS.pack . map toLower . show len :: Int len = 32 -- cgit v1.2.3