Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
curry
kics
Commits
a8ddc663
Commit
a8ddc663
authored
Jun 26, 2009
by
Bernd Brassel
Browse files
readline better than editline
parent
503ec099
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/WithReadline.make
View file @
a8ddc663
...
...
@@ -2,8 +2,5 @@
module
MyReadline
(readline,
addHistory)
where
#if __GLASGOW_HASKELL__ >= 610
import
System.Console.Editline.Readline
#else
import
System.Console.Readline
#endif
src/oracle/Make.curry
View file @
a8ddc663
...
...
@@ -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 ()
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment