Changeset 2782 for src/Main.hs

Timestamp:

05/06/05 20:50:08 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4340

Message:

* fix signature

Files:

• src/Main.hs (modified) (2 diffs)

src/Main.hs

@@ -140 +140 @@
     putStrLn str
 
-doCompile :: [Char] -> FilePath -> String -> IO String
+doCompile :: String -> FilePath -> String -> IO String
 doCompile backend = doParseWith $ \env _ -> do
     globRef <- liftSTM $ do
@@ -147 +147 @@
     compile backend env{ envGlobal = globRef }
 
-doCompileDump :: [Char] -> FilePath -> String -> IO ()
+doCompileDump :: String -> FilePath -> String -> IO ()
 doCompileDump backend file prog = do
     str <- doCompile backend file prog
     writeFile "dump.ast" str
 
-doCompileRun :: [Char] -> FilePath -> String -> IO ()
+doCompileRun :: String -> FilePath -> String -> IO ()
 doCompileRun backend file prog = do
     str <- doCompile backend file prog