diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/control/writer.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/control/writer.lux b/stdlib/source/lux/control/writer.lux index 1b82bf0c7..e92748aa5 100644 --- a/stdlib/source/lux/control/writer.lux +++ b/stdlib/source/lux/control/writer.lux @@ -60,11 +60,11 @@ (def: (join MlMla) (do monad - [[l1 Mla] (`` (for {(~~ (static @.old)) - (: (($ 1) (Writer ($ 0) (($ 1) (Writer ($ 0) ($ 2))))) - MlMla)} - ## On new compiler - MlMla)) + [[l1 Mla] (for {@.old + (: (($ 1) (Writer ($ 0) (($ 1) (Writer ($ 0) ($ 2))))) + MlMla)} + ## On new compiler + MlMla) [l2 a] Mla] (wrap [(:: monoid compose l1 l2) a])))) |