minor code cleanup

1 files changed, 1 insertions, 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