Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

function rename

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

0 notes on commit 47ac375

Please sign in to comment.
Something went wrong with that request. Please try again.