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!" ...@@ -293,7 +293,11 @@ parseDirective _ _ = error "Directive must start with colon!"
-- piece by piece. -- piece by piece.
getModuleName :: GhcMonad m => String -> m [String] getModuleName :: GhcMonad m => String -> m [String]
getModuleName moduleSrc = do 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 let output = runParser flags parserModule moduleSrc
case output of case output of
Failure{} -> error "Module parsing failed." 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