contentHandle :: FilePath -> IO (String, [Handle])
contentHandle filename =
    handle (fileErrorHandler) $ do
    handle <- openFile filename ReadMode
    hSetBinaryMode handle True
    hSetBuffering handle NoBuffering
    contents <- hGetContents handle
    return (contents, [handle])


-- no longer used
contentHandle :: FilePath -> IO (String, [Handle])
contentHandle filename =
    handle (fileErrorHandler) $ do
    handle <- openFile filename ReadMode
    hSetBinaryMode handle True
    hSetBuffering handle NoBuffering
    contents <- hGetContents handle
    return (contents, [handle])


-- no longer used
contentHandle filename =
    handle (fileErrorHandler) $ do
    handle <- openFile filename ReadMode
    hSetBinaryMode handle True
    hSetBuffering handle NoBuffering
    contents <- hGetContents handle
    return (contents, [handle])


-- no longer used