Use Value for evaluating functions

This commit is contained in:
Niels G. W. Serup 2024-09-24 21:03:54 +02:00
parent e7e767c007
commit 9376ede653
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
2 changed files with 4 additions and 4 deletions

View File

@ -2,7 +2,7 @@ module Evaluation.Function
( evalFunction ( evalFunction
) where ) where
import Types (Function(..)) import Types (Function(..), Value(..))
evalFunction :: Function -> a -> b evalFunction :: Function -> Value -> Value
evalFunction = undefined evalFunction = undefined

View File

@ -2,7 +2,7 @@ module Evaluation.FunctionIO
( evalFunctionIO ( evalFunctionIO
) where ) where
import Types (FunctionIO(..)) import Types (FunctionIO(..), Value(..))
evalFunctionIO :: FunctionIO -> a -> b evalFunctionIO :: FunctionIO -> Value -> IO Value
evalFunctionIO = undefined evalFunctionIO = undefined