Changeset 12324 for src/Pugs/AST.hs

Timestamp:

08/16/06 20:03:31 (2 years ago)

Author:

gaal

Message:

* Bring the glory to 6.4.2

Files:

• src/Pugs/AST.hs (modified) (2 diffs)

src/Pugs/AST.hs

@@ -1 @@
-{-# OPTIONS_GHC -cpp -fglasgow-exts -fno-warn-orphans -funbox-strict-fields #-}
+{-# OPTIONS_GHC -cpp -fglasgow-exts -fno-warn-orphans -funbox-strict-fields -fallow-overlapping-instances #-}
 
 {-|
@@ -313 +313 @@
 filterUserDefinedPad (MkPad pad) = MkPad $ Map.filterWithKey doFilter pad
     where
-    doFilter key _ = key `Set.notMember` _reserved
+    doFilter key _ = (not . Set.member key) _reserved
 
 _reserved :: Set Var