diff options
Diffstat (limited to '')
-rw-r--r-- | new-luxc/test/test/luxc/lang/analysis/case.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/new-luxc/test/test/luxc/lang/analysis/case.lux b/new-luxc/test/test/luxc/lang/analysis/case.lux index 50d31a86e..bcb9943bb 100644 --- a/new-luxc/test/test/luxc/lang/analysis/case.lux +++ b/new-luxc/test/test/luxc/lang/analysis/case.lux @@ -92,10 +92,10 @@ (^ [_ (#.Form (list [_ (#.Tag _)] _))]) (do r.Monad<Random> [bundles (monad.map @ - (function [[_tag _code]] + (function (_ [_tag _code]) (do @ [v-branches (exhaustive-branches allow-literals? variantTC _code)] - (wrap (L/map (function [pattern] (` ((~ _tag) (~ pattern)))) + (wrap (L/map (function (_ pattern) (` ((~ _tag) (~ pattern)))) v-branches)))) variantTC)] (wrap (L/join bundles))) @@ -107,7 +107,7 @@ (def: #export (input variant-tags record-tags primitivesC) (-> (List Code) (List Code) (List Code) (r.Random Code)) (r.rec - (function [input] + (function (_ input) ($_ r.either (r/map product.right gen-primitive) (do r.Monad<Random> |