Skip to content

Commit 4e61fcf

Browse files
committed
Revert "Fix for ghc 9.0"
This reverts commit 2882a97.
1 parent 2882a97 commit 4e61fcf

2 files changed

Lines changed: 5 additions & 8 deletions

File tree

src/HieDb/Compat.hs

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11

22
{-# LANGUAGE CPP, PatternSynonyms, ViewPatterns, TupleSections #-}
3-
{-# OPTIONS_GHC -Wno-orphans #-} -- ghc 9.0 doesn't have Show instance for ModuleName
43
module HieDb.Compat (
54
nodeInfo'
65
, Unit
@@ -217,8 +216,3 @@ fieldNameSpace_maybe _ = Nothing
217216
fieldName :: FastString -> NameSpace
218217
fieldName _ = varName
219218
#endif
220-
221-
#if __GLASGOW_HASKELL__ < 902
222-
instance Show ModuleName where
223-
show = moduleNameString
224-
#endif

test/Test/Orphans.hs

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,13 @@
1-
{-# LANGUAGE StandaloneDeriving #-}
2-
{-# OPTIONS_GHC -Wno-orphans #-}
1+
{-# LANGUAGE StandaloneDeriving, CPP #-}
2+
{-# OPTIONS_GHC -fno-warn-orphans #-}
33
module Test.Orphans where
44

55
import HieDb.Compat
66
import HieDb.Types
77

8+
#if __GLASGOW_HASKELL__ < 902
9+
instance Show ModuleName where show = moduleNameString
10+
#endif
811
instance Show OccName where show = occNameString
912
instance Show Name where
1013
show n =

0 commit comments

Comments
 (0)