- = let hash = SHA1.hash (UTF8.encode pass)
- in
- atomically $ do m <- readTVar (adbUserMap adb)
- return (M.lookup name m == Just hash)
+ = liftIO $ do sha1 <- return . fromJust =<< getDigestByName "SHA1"
+ let hash = digestBS sha1 $ B.pack $ UTF8.encode pass
+ atomically $ do m <- readTVar (adbUserMap adb)
+ return (M.lookup name m == Just hash)