Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeText/_ReadCon.hs
module Prelude where import TReadS _readCon :: a -> String -> ReadS a _readCon con str = (\ r -> [(con,s) | (tok,s) <- lex r ,tok == str])
