fix non-variadic repeated param in variadic function

2020-10-30 10:06:53 -05:00
parent 8618ffa5fc
commit 4b4a622a17
3 changed files with 14 additions and 3 deletions
@@ -94,7 +94,7 @@ jsonRpcParams proc prms =
  where
    mergeParams :: RpcParamValue -> RpcParamValue -> RpcParamValue
    mergeParams (Variadic a) (Variadic b) = Variadic $ b ++ a
-    mergeParams _ v                       = v -- repeated params for non-variadic arguments are not merged
+    mergeParams v _                       = v -- repeated params for non-variadic arguments are not merged

 {-|
  Describes what the user wants to do. This data type is a