Browse files

Reorderd Function members, constructors first!

  • Loading branch information...
1 parent 96a4315 commit 87f1fe61de426af302d6886ac3c5a297bea14650 @tomlokhorst committed Jan 22, 2010
Showing with 2 additions and 2 deletions.
  1. +1 −1 src/Generic/Control/Function.hs
  2. +1 −1 src/Lang/JavaScript.hs
View
2 src/Generic/Control/Function.hs
@@ -13,8 +13,8 @@ class NameC j where
class NameC j => FunC j where
lam :: (j a -> j b) -> j (a -> b)
+ fix :: (j (a -> b) -> j (a -> b)) -> j (a -> b)
app :: j (a -> b) -> j a -> j b
- fix :: (j a -> j a) -> j a
instance FunC j => Category j (->) where
id a = "id" `named` (lam (\i -> i) `app` a)
View
2 src/Lang/JavaScript.hs
@@ -17,8 +17,8 @@ instance NameC (Val JS) where
instance FunC (Val JS) where
lam f = Lam f
- app f g = App f g
fix f = fun1 "fix" (\[v] -> "fix = arguments.callee, " ++ v ++ "(function (i) { return fix(" ++ v ++ ")(i) })") (lam f)
+ app f g = App f g
instance BoolC (Val JS) where
true = Con "true"

0 comments on commit 87f1fe6

Please sign in to comment.