Commit a8ddc663 authored by Bernd Brassel's avatar Bernd Brassel
Browse files

readline better than editline

parent 503ec099
......@@ -2,8 +2,5 @@
module MyReadline (readline, addHistory) where
#if __GLASGOW_HASKELL__ >= 610
import System.Console.Editline.Readline
#else
import System.Console.Readline
#endif
......@@ -34,11 +34,9 @@ type Done a = IORef (FM String a)
--- if test returns Nothing.
make :: Bool -> ModuleName -> TestAct a -> ProgAct a -> IO ()
make quiet modu test act = do
print 1
unless quiet $ putStrLn "ensuring existence of fcy/fint files..."
callFrontendWithParams FCY (setQuiet True defaultParams) modu
unless quiet $ putStrLn "...ensured"
print 2
done <- newIORef (emptyFM (\ x y -> not (leqString x y)))
workUpDependence done test act modu
return ()
......
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