fileContent :: FilePath -> IO String
fileContent filename = do
    (c, h) <- contentHandle filename
    return c
fileContent :: FilePath -> IO String
fileContent filename = do
    (c, h) <- contentHandle filename
    return c
fileContent filename = do
    (c, h) <- contentHandle filename
    return c