readFileHash :: FilePath -> IO (Digest MD5)
readFileHash path = do
    fileContent <- BStr.readFile path
    let h = (hashlazy fileContent) in do
        putStrLn (path ++ ":\t" ++ (show h))
        return h
readFileHash :: FilePath -> IO (Digest MD5)
readFileHash path = do
    fileContent <- BStr.readFile path
    let h = (hashlazy fileContent) in do
        putStrLn (path ++ ":\t" ++ (show h))
        return h
readFileHash path = do
    fileContent <- BStr.readFile path
    let h = (hashlazy fileContent) in do
        putStrLn (path ++ ":\t" ++ (show h))
        return h