Merge pull request #322 from pepeiborra/eval-pragmas

Apply the module pragmas for evaluation

Author: lukel97

src/Ide/Plugin/Eval.hs

@@ -214,9 +214,8 @@ done, we want to switch back to GhcSessionDeps:
 
     hscEnv' <- ExceptT $
       evalGhcEnv (hscEnv session) $ do
-        df <- getSessionDynFlags
         env <- getSession
-        df <- liftIO $ setupDynFlagsForGHCiLike env df
+        df <- liftIO $ setupDynFlagsForGHCiLike env $ ms_hspp_opts ms
         _lp <- setSessionDynFlags df
 
         -- copy the package state to the interactive DynFlags

test/functional/Eval.hs

@@ -63,6 +63,7 @@ tests = testGroup
   , testCase "Refresh an evaluation w/ lets" $ goldenTest "T6.hs"
   , testCase "Refresh a multiline evaluation" $ goldenTest "T7.hs"
   , testCase "Evaluate incorrect expressions" $ goldenTest "T8.hs"
+  , testCase "Applies file LANGUAGE extensions" $ goldenTest "T9.hs"
   ]
 
 goldenTest :: FilePath -> IO ()

test/testdata/eval/T9.hs

@@ -0,0 +1,5 @@
+{-# LANGUAGE DataKinds #-}
+module T9 where
+import Data.Proxy
+
+-- >>> Proxy :: Proxy 3

test/testdata/eval/T9.hs.expected

@@ -0,0 +1,6 @@
+{-# LANGUAGE DataKinds #-}
+module T9 where
+import Data.Proxy
+
+-- >>> Proxy :: Proxy 3
+-- Proxy