mirror of
https://github.com/github/semantic.git
synced 2025-01-06 23:46:21 +03:00
Spacing.
This commit is contained in:
parent
1d4421e512
commit
49785f1718
@ -184,7 +184,6 @@ data While value m k
|
|||||||
instance HFunctor (While value) where
|
instance HFunctor (While value) where
|
||||||
hmap f (While cond body k) = While (f cond) (f body) k
|
hmap f (While cond body k) = While (f cond) (f body) k
|
||||||
|
|
||||||
|
|
||||||
runWhile :: Carrier (While value :+: sig) (WhileC value (Eff m))
|
runWhile :: Carrier (While value :+: sig) (WhileC value (Eff m))
|
||||||
=> Evaluator term address value (WhileC value (Eff m)) a
|
=> Evaluator term address value (WhileC value (Eff m)) a
|
||||||
-> Evaluator term address value m a
|
-> Evaluator term address value m a
|
||||||
|
Loading…
Reference in New Issue
Block a user