From: simonpj <unknown>
Date: Fri, 30 Aug 2002 14:19:18 +0000 (+0000)
Subject: [project @ 2002-08-30 14:19:18 by simonpj]
X-Git-Tag: nhc98-1-18-release~885
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5575f6948c78ae265304aa4dccb6ee36e17b5710;hp=69e0b590ee4ff73b611fb18a49f0abbb904de6cc;p=ghc-base.git

[project @ 2002-08-30 14:19:18 by simonpj]
Extra space after $ to avoid conflict with Template Haskell
---

diff --git a/Text/ParserCombinators/Parsec/Perm.hs b/Text/ParserCombinators/Parsec/Perm.hs
index 6ccbec3..cbdbfe0 100644
--- a/Text/ParserCombinators/Parsec/Perm.hs
+++ b/Text/ParserCombinators/Parsec/Perm.hs
@@ -102,7 +102,7 @@ add perm@(Perm mf fs) p
 
 addopt :: PermParser tok st (a -> b) -> a -> GenParser tok st a -> PermParser tok st b
 addopt perm@(Perm mf fs) x p
-  = Perm (fmap ($x) mf) (first:map insert fs)
+  = Perm (fmap ($ x) mf) (first:map insert fs)
   where
     first   = Branch perm p
     insert (Branch perm' p')