[added new funtion srcToAST to driver
mail@stefanwehr.de**20051001130653] {
hunk ./Phrac/Driver.hs 25
+      srcToAST,             -- transforms a piece of source code into an AST
hunk ./Phrac/Driver.hs 55
+srcToAST :: [Flag]             -- configuration flags
+         -> String             -- source code
+         -> IO (Either String  -- error message
+                PS.Program)    -- the AST
+
hunk ./Phrac/Driver.hs 125
-   
-startFromSrc flags file = 
+
+srcToAST flags src =    
hunk ./Phrac/Driver.hs 134
-       res <- myCatch flags $ do
-         src <- case file of
-                  Nothing -> getSrcFromStdin
-                  Just f -> readFile f
+       myCatch flags $ do
hunk ./Phrac/Driver.hs 149
+
+startFromSrc flags file = 
+    do src <- case file of
+                Nothing -> getSrcFromStdin
+                Just f -> readFile f
+       res <- srcToAST flags src
}