The appended file used with hugs98-980121 under Windows95 or NT4
(where I've used the suggested hugs.reg but not hugsopts.reg)
loads satisfactorily but runhugs gives the following message
runhugs: lookupName: invalid module
BTW I use PFE as editor with Hugs and find that under NT4 but not
NT4 I have to exit the editor for Hugs to regain control and have
the prompt reappear. Does anyone know how to cure this?
---
module Test where
getAccLn :: String -> IO String
getAccLn s = do
c <- getChar
case c of
'\n' ->
return (reverse s)
'\BS' ->
if null s then
do
putChar '\^G'
getLn
else
do
putStr " \BS"
getAccLn (tail s)
_ ->
getAccLn (c : s)
getLn :: IO String
getLn = getAccLn ""
processLines f = do
s <- getLn
f s
processLines f
main :: IO ( )
main = processLines
(\s -> putStrLn (replicate (length s) 'z'))
---
Stephen Eldridge
Stephen Eldridge
phone: 0161-200-3352 email: [EMAIL PROTECTED]
Department of Computation, UMIST, Manchester M60 1QD
