Permalink
Browse files

Cse module.

  • Loading branch information...
1 parent 5021339 commit a07bd06b8845af671a4ce01b9f6aafc433584c80 Sebastiaan Visser committed Dec 14, 2009
Showing with 2 additions and 4 deletions.
  1. +2 −4 src/Compiler/Compiler.hs
View
@@ -4,21 +4,19 @@ import Compiler.CodeGen
import Compiler.Instantiate
import Compiler.LambdaLifting
import Compiler.Renamer
+import Compiler.CSE
import Control.Arrow
import Control.Category
-import Data.Reify
import Lang.JavaScript
import Prelude hiding ((.), id)
-type Step a b = Kleisli IO a b
-
compiler :: Js a -> IO String
compiler =
runKleisli
$ concatDefinitions
. generateCodeDefinitions
. renameNamedDefinitions
- . Kleisli reifyGraph
+ . commonSubExpressionElimination
. liftLambdas
. instantiateLambas

0 comments on commit a07bd06

Please sign in to comment.