Permalink
Browse files

function rename

  • Loading branch information...
1 parent 28ad59a commit 47ac375244d503b8966e545445876fd577f6eebe Sebastiaan Visser committed Dec 20, 2009
Showing with 4 additions and 3 deletions.
  1. +3 −3 src/Compiler/Instantiate.hs
  2. +1 −0 src/Compiler/Pipeline.hs
@@ -1,4 +1,4 @@
-module Compiler.Instantiate (instantiateLambas, anonymousExprPrinter) where
+module Compiler.Instantiate (instantiateLambas, printAnonymousExpression) where
import Compiler.Generics
import Compiler.Raw
@@ -19,8 +19,8 @@ instantiateLambas = arr (flip runReader 0 . tr)
tr (V.Var v) = pure (var v)
tr (V.Name n e) = def n <$> tr e
-anonymousExprPrinter :: Arrow (~>) => Expr ~> String
-anonymousExprPrinter = arr tr
+printAnonymousExpression :: Arrow (~>) => Expr ~> String
+printAnonymousExpression = arr tr
where
tr (In (Id (App f e))) = tr f ++ "(\n" ++ indent (tr e) ++ ")"
tr (In (Id (Con c))) = c
View
@@ -18,5 +18,6 @@ compiler = runKleisli
-- >>> addLambdaAbstractions
-- >>> collectSuperCombinators
-- >>> printDefinitionsWithFreeVariables
+-- >>> printAnonymousExpression
>>> printDefinitions

0 comments on commit 47ac375

Please sign in to comment.