Fix for ghc 9.0

wz1000 · Feb 15, 2024 · 3727367 · 3727367
1 parent af3cd7e
commit 3727367
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 5 deletions.
diff --git a/src/HieDb/Compat.hs b/src/HieDb/Compat.hs
@@ -1,5 +1,6 @@
 
 {-# LANGUAGE CPP, PatternSynonyms, ViewPatterns, TupleSections #-}
+{-# OPTIONS_GHC -Wno-orphans #-} -- ghc 9.0 doesn't have Show instance for ModuleName
 module HieDb.Compat (
     nodeInfo'
     , Unit
@@ -216,3 +217,8 @@ fieldNameSpace_maybe _ = Nothing
 fieldName :: FastString -> NameSpace
 fieldName _ = varName
 #endif
+
+#if __GLASGOW_HASKELL__ < 902
+instance Show ModuleName where
+    show = moduleNameString
+#endif
diff --git a/test/Test/Orphans.hs b/test/Test/Orphans.hs
@@ -1,13 +1,10 @@
-{-# LANGUAGE StandaloneDeriving, CPP #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
+{-# LANGUAGE StandaloneDeriving #-}
+{-# OPTIONS_GHC -Wno-orphans #-}
 module Test.Orphans where
 
 import HieDb.Compat
 import HieDb.Types
 
-#if __GLASGOW_HASKELL__ < 902
-instance Show ModuleName where show = moduleNameString
-#endif
 instance Show OccName where show = occNameString
 instance Show Name where
   show n =