mirror of
https://github.com/IHaskell/IHaskell.git
synced 2025-04-16 11:26:08 +00:00
IHaskell.Eval.Parser: enable language extensions when loading modules
This commit is contained in:
parent
717651ae39
commit
afa0de07b8
@ -293,7 +293,11 @@ parseDirective _ _ = error "Directive must start with colon!"
|
||||
-- piece by piece.
|
||||
getModuleName :: GhcMonad m => String -> m [String]
|
||||
getModuleName moduleSrc = do
|
||||
flags <- getSessionDynFlags
|
||||
flags' <- getSessionDynFlags
|
||||
flags <- do
|
||||
result <- liftIO $ parsePragmasIntoDynFlags flags' "<interactive>" moduleSrc
|
||||
return $ fromMaybe flags' result
|
||||
_ <- setSessionDynFlags flags
|
||||
let output = runParser flags parserModule moduleSrc
|
||||
case output of
|
||||
Failure{} -> error "Module parsing failed."
|
||||
|
Loading…
x
Reference in New Issue
Block a user