From 5575f6948c78ae265304aa4dccb6ee36e17b5710 Mon Sep 17 00:00:00 2001 From: simonpj Date: Fri, 30 Aug 2002 14:19:18 +0000 Subject: [PATCH 1/1] [project @ 2002-08-30 14:19:18 by simonpj] Extra space after $ to avoid conflict with Template Haskell --- Text/ParserCombinators/Parsec/Perm.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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') -- 1.7.10.4