parseFile :: FilePath -> IO (Either String [Expr])
parseFile fname = do
    contents <- readWithIncludes fname
    return $ parseText fname contents
parseFile :: FilePath -> IO (Either String [Expr])
parseFile fname = do
    contents <- readWithIncludes fname
    return $ parseText fname contents
parseFile fname = do
    contents <- readWithIncludes fname
    return $ parseText fname contents