diff --git a/src/Data/Syntax/Declaration.hs b/src/Data/Syntax/Declaration.hs index 261d5adc4..1b00c4401 100644 --- a/src/Data/Syntax/Declaration.hs +++ b/src/Data/Syntax/Declaration.hs @@ -161,7 +161,7 @@ instance Show1 Module where liftShowsPrec = genericLiftShowsPrec -- We need to ensure that all input files have aggregated their content into -- a coherent module before we begin evaluating a module. instance Evaluatable Module where - eval (Module _ xs) = runImperative $ foldMap (Imperative . subtermValue) xs + eval (Module _ xs) = eval xs -- | A decorator in Python data Decorator a = Decorator { decoratorIdentifier :: !a, decoratorParamaters :: ![a], decoratorBody :: !a }