Fix getLanguages

Author: zlonast

Cabal/src/Distribution/Simple/GHC.hs

@@ -200,7 +200,7 @@ configureCompiler verbosity hcPath conf0 = do
         ++ prettyShow ghcVersion
 
   let implInfo = ghcVersionImplInfo ghcVersion
-  languages <- Internal.getLanguages verbosity implInfo ghcProg
+  languages <- Internal.getLanguages implInfo
   extensions0 <- Internal.getExtensions verbosity ghcProg
 
   ghcInfo <- Internal.getGhcInfo verbosity implInfo ghcProg

Cabal/src/Distribution/Simple/GHC/Internal.hs

@@ -271,11 +271,9 @@ configureToolchain _implInfo ghcProg ghcInfo =
         else return ldProg
 
 getLanguages
-  :: Verbosity
-  -> GhcImplInfo
-  -> ConfiguredProgram
+  :: GhcImplInfo
   -> IO [(Language, String)]
-getLanguages _ implInfo _
+getLanguages implInfo
   -- TODO: should be using --supported-languages rather than hard coding
   | supportsGHC2024 implInfo =
       return
@@ -290,7 +288,11 @@ getLanguages _ implInfo _
         , (Haskell2010, "-XHaskell2010")
         , (Haskell98, "-XHaskell98")
         ]
-  | otherwise = return [(Haskell98, "")]
+  | otherwise =
+      return
+        [ (Haskell98, "-XHaskell98")
+        , (Haskell2010, "-XHaskell2010")
+        ]
 
 getGhcInfo
   :: Verbosity

Cabal/src/Distribution/Simple/GHCJS.hs

@@ -153,7 +153,7 @@ configureCompiler verbosity hcPath conf0 = do
 
   let implInfo = ghcjsVersionImplInfo ghcjsVersion ghcjsGhcVersion
 
-  languages <- Internal.getLanguages verbosity implInfo ghcjsProg
+  languages <- Internal.getLanguages implInfo
   extensions <- Internal.getExtensions verbosity ghcjsProg
 
   ghcjsInfo <- Internal.getGhcInfo verbosity implInfo ghcjsProg