Calculate File Checksums

filechecks.hs

import qualified Data.ByteString.Lazy as BL 
import Data.Digest.Pure.MD5
import Data.Digest.Pure.SHA
import System.Environment

main = do
    args    <- getArgs
    content <- BL.readFile $ args !! 0
    putStrLn $ "SHA-1:\t\t" ++ (showDigest $ sha1   content)
    putStrLn $ "SHA-256:\t" ++ (showDigest $ sha256 content)
    putStrLn $ "MD5:\t\t"   ++ (show       $ md5    content)