checkFile :: FilePath -> IO Bool
checkFile filename =
    putStrLn ("Checking file \'"++filename++"\'...") >>
    fmap lines (readFile filename) >>=
    checkText >>= \result ->
    renderResult filename result >>
    return result
checkFile :: FilePath -> IO Bool
checkFile filename =
    putStrLn ("Checking file \'"++filename++"\'...") >>
    fmap lines (readFile filename) >>=
    checkText >>= \result ->
    renderResult filename result >>
    return result
checkFile filename =
    putStrLn ("Checking file \'"++filename++"\'...") >>
    fmap lines (readFile filename) >>=
    checkText >>= \result ->
    renderResult filename result >>
    return result