Commit afa0de07 authored by Vaibhav Sagar's avatar Vaibhav Sagar

IHaskell.Eval.Parser: enable language extensions when loading modules

parent 717651ae
......@@ -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."
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment