Refine unit requirement

This commit is contained in:
Niels G. W. Serup 2024-10-06 13:44:19 +02:00
parent 381ecd5f03
commit 1fce00e531
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
1 changed files with 1 additions and 1 deletions

View File

@ -104,7 +104,7 @@ runFunction f input = genDependency (makeDependency input (Function f))
runFunctionIO :: IsFunctionIO f a b => f -> Token a -> DepGenM' b
runFunctionIO f input = genDependency (makeDependency input (FunctionIO f))
runFunctionIO_ :: IsFunctionIO f a b => f -> Token a -> DepGenM ()
runFunctionIO_ :: IsFunctionIO f a () => f -> Token a -> DepGenM ()
runFunctionIO_ f input = tellDep $ makeDependency input (FunctionIO f) NoToken
class TokenableTo t s | s -> t where