Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeText/Read_Bool.hs
module Prelude(Read(..)) where instance Read Bool where readsPrec p = readParen False ( \r -> [(False,s) | ("False",s) <- lex r] ++ [(True,s) | ("True",s) <- lex r])
