Fix unused param warning
This commit is contained in:
parent
5c72d9530c
commit
2af45ba385
|
@ -297,7 +297,7 @@ callFunc fun arg = demand fun $ \fun' -> do
|
||||||
when (length frames > 2000) $ throwError $ ErrorCall
|
when (length frames > 2000) $ throwError $ ErrorCall
|
||||||
"Function call stack exhausted"
|
"Function call stack exhausted"
|
||||||
case fun' of
|
case fun' of
|
||||||
NVClosure params f -> do
|
NVClosure _params f -> do
|
||||||
f arg
|
f arg
|
||||||
NVBuiltin name f -> do
|
NVBuiltin name f -> do
|
||||||
span <- currentPos
|
span <- currentPos
|
||||||
|
|
Loading…
Reference in New Issue