renamed module to work around a strange bug

darcs-hash:20080314191906-34f1c-70aa436c3b56c76a58d8e17f9577a123db57c891.gz
JPMoresmau · Mar 14, 2008 · d033930 · d033930
1 parent c83b596
commit d033930
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 5 deletions.
diff --git a/net.sf.eclipsefp.haskell.core/hs-src/MakePointFree.hs b/net.sf.eclipsefp.haskell.core/hs-src/MakePointFree.hs
@@ -12,10 +12,11 @@ module MakePointFree where
 import Cohatoe.API
 
 import Plugin.Pl.Common
-import Plugin.Pl.Optimize
+import Plugin.Pl.Op
 import Plugin.Pl.Parser
 import Plugin.Pl.Transform
 
+resource :: Interface
 resource = plugin {
   pluginMain = performMakePointFree
 }
@@ -27,4 +28,4 @@ performMakePointFree _     = error "Bogus selection"
 makePointFree :: String -> String
 makePointFree input = case parsePF input of
   Right d -> show $ last $ mapTopLevel' optimize $ mapTopLevel transform d
-  Left msg -> error msg
+  Left msg -> error msg
diff --git a/...haskell.core/hs-src/Plugin/Pl/Optimize.hs → ...psefp.haskell.core/hs-src/Plugin/Pl/Op.hs b/...haskell.core/hs-src/Plugin/Pl/Optimize.hs → ...psefp.haskell.core/hs-src/Plugin/Pl/Op.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS_GHC -fglasgow-exts #-}
 {-# OPTIONS -fvia-C -O2 -optc-O3 #-}
-module Plugin.Pl.Optimize (
+module Plugin.Pl.Op (
     optimize,
   ) where
 

diff --git a/net.sf.eclipsefp.haskell.core/hs-src/Plugin/Pl/PrettyPrinter.hs b/net.sf.eclipsefp.haskell.core/hs-src/Plugin/Pl/PrettyPrinter.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -fvia-C -fno-warn-orphans #-}
+{-# OPTIONS -fvia-C -fno-warn-orphans -XPatternGuards #-}
 module Plugin.Pl.PrettyPrinter (Expr) where
 
 -- Dummy export to make ghc -Wall happy

diff --git a/net.sf.eclipsefp.haskell.core/hs-src/Plugin/Pl/Transform.hs b/net.sf.eclipsefp.haskell.core/hs-src/Plugin/Pl/Transform.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -fvia-C -O2 -optc-O3 #-}
+{-# OPTIONS -fvia-C -O2 -optc-O3 -XPatternGuards #-}
 module Plugin.Pl.Transform (
     transform,
   ) where