Commit 812459c0 authored by Tim Steenvoorden's avatar Tim Steenvoorden

cosmetic

parent 9eafce85
...@@ -58,9 +58,9 @@ where ...@@ -58,9 +58,9 @@ where
| One TaskExpr TaskExpr | One TaskExpr TaskExpr
:: TaskFunc :: TaskFunc
= ViewF String Func = ThenF TaskFunc TaskFunc
| ViewF String Func
| UpdateF String | UpdateF String
| ThenF TaskFunc TaskFunc
:: Expr :: Expr
= Int Int = Int Int
...@@ -240,7 +240,7 @@ taskEditor = DynamicEditor ...@@ -240,7 +240,7 @@ taskEditor = DynamicEditor
] ]
, DynamicConsGroup "Arithmetic" , DynamicConsGroup "Arithmetic"
[ functionConsDyn "Add" "add" [ functionConsDyn "Add" "add"
(dynamic \(Typed i) -> Typed (Add i) :: (Typed Expr Int) -> Typed Func (Int -> Int)) //XXX (Typed Expr Int) -> Typed Func (Int -> Int) (dynamic \(Typed i) -> Typed (Add i) :: (Typed Expr Int) -> Typed Func (Int -> Int))
<<@@@ applyHorizontalClasses <<@@@ applyHorizontalClasses
, functionConsDyn "Sub" "sub" , functionConsDyn "Sub" "sub"
(dynamic \(Typed i) -> Typed (Sub i) :: (Typed Expr Int) -> Typed Func (Int -> Int)) (dynamic \(Typed i) -> Typed (Sub i) :: (Typed Expr Int) -> Typed Func (Int -> Int))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment