Hopefully fix ghc<8.2 (squash me)

haskell · Jun 8, 2019 · f88a8ad · f88a8ad
1 parent fcbe835
commit f88a8ad
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Cabal/Distribution/Types/InstalledPackageInfo/FieldGrammar.hs b/Cabal/Distribution/Types/InstalledPackageInfo/FieldGrammar.hs
@@ -288,6 +288,10 @@ basicFieldGrammar = mkBasic
         -- This can be removed once we stop supporting GHC<8.8, at the
         -- condition that we keep marking main libraries as public when
         -- registering them.
-        lv' = if ln' == LMainLibName
+        MungedPackageName _ mln = n
+        lv' = if
+                -- We need to check both because on ghc<8.2 ln' will always
+                -- be LMainLibName
+                ln' == LMainLibName && mln == LMainLibName
               then LibraryVisibilityPublic
               else lv