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

cosmetic

parent 9eafce85
......@@ -58,9 +58,9 @@ where
| One TaskExpr TaskExpr
:: TaskFunc
= ViewF String Func
= ThenF TaskFunc TaskFunc
| ViewF String Func
| UpdateF String
| ThenF TaskFunc TaskFunc
:: Expr
= Int Int
......@@ -240,7 +240,7 @@ taskEditor = DynamicEditor
]
, DynamicConsGroup "Arithmetic"
[ 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
, functionConsDyn "Sub" "sub"
(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