/usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeIO/ReadIO.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeIO/ReadIO.hs


module Prelude where

readIO :: Read a => String -> IO a
readIO s = case [x | (x,t) <- reads s, ("","") <- lex t] of
	     [x] -> return x
	     []  -> fail ("Prelude.readIO: no parse")
	     _   -> fail ("Prelude.readIO: ambiguous parse")

(Return to Plan 9 Home Page)