From: simonpj <unknown>
Date: Wed, 9 Apr 2003 10:21:09 +0000 (+0000)
Subject: [project @ 2003-04-09 10:21:09 by simonpj]
X-Git-Tag: nhc98-1-18-release~697
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e831a7c5106c09767a93209ac278edbe5291b153;p=haskell-directory.git

[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
--- 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 =