diff --git a/net.sf.eclipsefp.haskell.core/hs-src/MakePointFree.hs b/net.sf.eclipsefp.haskell.core/hs-src/MakePointFree.hs index 02608f2a9..f9d282f74 100644 --- 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 \ No newline at end of file + Left msg -> error msg diff --git a/net.sf.eclipsefp.haskell.core/hs-src/Plugin/Pl/Optimize.hs b/net.sf.eclipsefp.haskell.core/hs-src/Plugin/Pl/Op.hs similarity index 99% rename from net.sf.eclipsefp.haskell.core/hs-src/Plugin/Pl/Optimize.hs rename to net.sf.eclipsefp.haskell.core/hs-src/Plugin/Pl/Op.hs index ee0eda718..d06028839 100644 --- a/net.sf.eclipsefp.haskell.core/hs-src/Plugin/Pl/Optimize.hs +++ b/net.sf.eclipsefp.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 index cbd0b8e2e..6c0c8d19e 100644 --- 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 index 6c576050d..c107c6c35 100644 --- 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