src/IHaskell/Eval/Parser.hs: update DynFlags to reflect changes

src/IHaskell/Eval/Parser.hs

@@ -79,6 +79,7 @@ parseString codeString = do
   flags <- do
     result <- liftIO $ parsePragmasIntoDynFlags flags' "<interactive>" codeString
     return $ fromMaybe flags' result
+  _ <- setSessionDynFlags flags
   let output = runParser flags parserModule codeString
   case output of
     Parsed mdl

src/tests/IHaskell/Test/Eval.hs

@@ -176,10 +176,10 @@ testEval =
         trace "test" 5
       |] `becomes` ["test\n5"]
 
-    -- it "immediately applies language extensions" $ do
-    --   [hereLit|
-    --     {-# LANGUAGE RankNTypes #-}
+    it "immediately applies language extensions" $ do
+      [hereLit|
+        {-# LANGUAGE RankNTypes #-}
 
-    --     identity :: forall a. a -> a
-    --     identity a = a
-    --   |] `becomes` []
+        identity :: forall a. a -> a
+        identity a = a
+      |] `becomes` []