[project @ 2003-04-09 10:21:09 by simonpj]

Typo

diff --git a/Text/ParserCombinators/ReadP.hs b/Text/ParserCombinators/ReadP.hs
index 7b64185..67065c4 100644 (file)
--- a/Text/ParserCombinators/ReadP.hs
+++ b/Text/ParserCombinators/ReadP.hs
@@ -222,7 +222,7 @@ munch1 p =
 choice :: [ReadP a] -> ReadP a
 choice []     = pfail
 choice [p]    = p
-choide (p:ps) = p +++ choice ps
+choice (p:ps) = p +++ choice ps
 
 skipSpaces :: ReadP ()
 skipSpaces =