diff options
author | Eduardo Julian | 2017-07-22 19:05:22 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-07-22 19:05:22 -0400 |
commit | 17aec08b4bc4764f81693808987f1d54dc056ede (patch) | |
tree | 3aa8ca1cf0fe2c40d8a677f87a4baef6b9442ac6 /stdlib/source/lux/test.lux | |
parent | be51cd8fdbcb7a71bdb451ea5c67ff93da84eb76 (diff) |
- Removed the "M" suffix from monadic functions.
Diffstat (limited to 'stdlib/source/lux/test.lux')
-rw-r--r-- | stdlib/source/lux/test.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/test.lux b/stdlib/source/lux/test.lux index f8e0425aa..1fa9b8b71 100644 --- a/stdlib/source/lux/test.lux +++ b/stdlib/source/lux/test.lux @@ -5,7 +5,7 @@ [code]) (control functor applicative - monad + ["M" monad #+ do Monad] ["p" parser]) (concurrency [promise #+ Promise Monad<Promise>]) (data (coll [list "L/" Monad<List> Fold<List>]) @@ -71,7 +71,7 @@ " in " (%i (i.- pre post)) "ms" "\n" documentation "\n"))]] (wrap counters))))) - (seqM @))] + (M;seq @))] (wrap (L/fold add-counters start test-runs)))) (def: pcg-32-magic-inc Nat +12345) @@ -280,7 +280,7 @@ tests (: (Lux (List [Text Text Text])) (|> (#;Cons current-module modules) list;reverse - (mapM @ exported-tests) + (M;map @ exported-tests) (:: @ map L/join))) #let [tests+ (L/map (function [[module-name test desc]] (` [(~ (code;text module-name)) (~ (code;symbol [module-name test])) (~ (code;text desc))])) |