@@ -154,7 +154,9 @@ withGhciScript pkgs f = do
154 putLog Warning $ T.pack $ "Failed to find pkgs in " <> intercalate ", " pkgDirErrs
154 putLog Warning $ T.pack $ "Failed to find pkgs in " <> intercalate ", " pkgDirErrs
156 let extensions = packageInfos >>= _cabalPackageInfo_defaultExtensions
156 let extensions = packageInfos >>= _cabalPackageInfo_defaultExtensions
157− language = L.nub $ mapMaybe _cabalPackageInfo_defaultLanguage packageInfos
157+ languageFromPkgs = L.nub $ mapMaybe _cabalPackageInfo_defaultLanguage packageInfos
158+ -- NOTE when no default-language is present cabal sets Haskell98
159+ language = NE.toList $ fromMaybe (Haskell98 NE.:| []) $ NE.nonEmpty languageFromPkgs
158 extensionsLine = if extensions == mempty
160 extensionsLine = if extensions == mempty
160 else ":set " <> intercalate " " ((("-X" <>) . prettyShow) <$> extensions)
162 else ":set " <> intercalate " " ((("-X" <>) . prettyShow) <$> extensions)