Extra space after $ to avoid conflict with Template Haskell
addopt :: PermParser tok st (a -> b) -> a -> GenParser tok st a -> PermParser tok st b
addopt perm@(Perm mf fs) x 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')
where
first = Branch perm p
insert (Branch perm' p')