Commit 21a73f96 authored by bbr's avatar bbr
Browse files

reading fcy instead of fint for imports

the information about imports in fint file is not enough.
I wonder why that is...
parent 3996b7cc
...@@ -46,13 +46,13 @@ workUpDependence done test act modu = do ...@@ -46,13 +46,13 @@ workUpDependence done test act modu = do
process :: FM String () -> Done -> TestAct -> ProgAct -> ModuleName -> IO () process :: FM String () -> Done -> TestAct -> ProgAct -> ModuleName -> IO ()
process fm done test act modu = do process fm done test act modu = do
fn <- findFileInLoadPath (modu++".fint") fn <- findFileInLoadPath (modu++".fcy")
writeIORef done (addToFM fm modu ()) writeIORef done (addToFM fm modu ())
imps <- fastReadImports fn imps <- fastReadImports fn
mapIO_ (workUpDependence done test act) imps mapIO_ (workUpDependence done test act) imps
let dir = dirName fn++"/" let dir = dirName fn++"/"
mk <- test dir modu mk <- test dir modu
if mk then (readFlatCurryFile (dir++modu++".fcy") >>= act dir) else return () if mk then (readFlatCurryFile fn >>= act dir) else return ()
--- a standard test if a given filename is newer than another --- a standard test if a given filename is newer than another
obsolete :: (String -> String) -> (String -> String) -> TestAct obsolete :: (String -> String) -> (String -> String) -> TestAct
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment