1
1
mirror of https://github.com/github/semantic.git synced 2025-01-02 04:10:29 +03:00

Eval Module using [] to print the last value.

This commit is contained in:
Rob Rix 2018-03-13 15:36:02 -04:00
parent e846675b5b
commit 2ee1c7d472

View File

@ -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 }