Refine unit requirement
This commit is contained in:
		@@ -104,7 +104,7 @@ runFunction f input = genDependency (makeDependency input (Function f))
 | 
				
			|||||||
runFunctionIO :: IsFunctionIO f a b => f -> Token a -> DepGenM' b
 | 
					runFunctionIO :: IsFunctionIO f a b => f -> Token a -> DepGenM' b
 | 
				
			||||||
runFunctionIO f input = genDependency (makeDependency input (FunctionIO f))
 | 
					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
 | 
					runFunctionIO_ f input = tellDep $ makeDependency input (FunctionIO f) NoToken
 | 
				
			||||||
 | 
					
 | 
				
			||||||
class TokenableTo t s | s -> t where
 | 
					class TokenableTo t s | s -> t where
 | 
				
			||||||
 
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user