github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-15 10:02:27 +03:00
Code Issues Projects Releases Wiki Activity

s/Module/InternalModule

Browse Source
This commit is contained in:
joshvera 2018-12-06 10:49:04 -05:00
parent 4a7fa7b18a
commit c7c9aafa2b
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Language/TypeScript/Syntax/TypeScript.hs
View File

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