loadUserMap path
= do exist <- doesFileExist path
m <- if exist then
- readFile path
- >>=
- return . M.fromList . map decodePair . fromJust . deserializeStringPairs
+ liftM (M.fromList . map decodePair . fromJust . deserializeStringPairs)
+ (readFile path)
else
return M.empty
sha1 <- return . fromJust =<< getDigestByName "SHA1"