1
1
mirror of https://github.com/github/semantic.git synced 2024-12-14 17:31:48 +03:00

s/Module/InternalModule

This commit is contained in:
joshvera 2018-12-06 10:49:04 -05:00
parent 4a7fa7b18a
commit c7c9aafa2b

View File

@ -601,8 +601,7 @@ instance Ord1 InternalModule where liftCompare = genericLiftCompare
instance Show1 InternalModule where liftShowsPrec = genericLiftShowsPrec
instance Evaluatable InternalModule where
eval _ InternalModule = do
eval eval Module{..} = do
eval eval InternalModule{..} = do
name <- maybeM (throwEvalError NoNameError) (declaredName internalModuleIdentifier)
span <- ask @Span
currentScope' <- currentScope