diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-05-06 22:22:02 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-12 21:41:44 -0400 |
| commit | 0ef119071347f7bc14f0fa89904b0cfd0b230ac1 (patch) | |
| tree | 7a80b3942ae6bd18391f9b924ad55bb001392288 /compiler/GHC/Data | |
| parent | bfabf94f63b6644bd32982fd13ea0c8bca9aeae4 (diff) | |
| download | haskell-0ef119071347f7bc14f0fa89904b0cfd0b230ac1.tar.gz | |
Fully remove HsVersions.h
Replace uses of WARN macro with calls to:
warnPprTrace :: Bool -> SDoc -> a -> a
Remove the now unused HsVersions.h
Bump haddock submodule
Diffstat (limited to 'compiler/GHC/Data')
| -rw-r--r-- | compiler/GHC/Data/Graph/Directed.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/Data/List/SetOps.hs | 4 | ||||
| -rw-r--r-- | compiler/GHC/Data/Pair.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/Data/StringBuffer.hs | 2 |
4 files changed, 1 insertions, 9 deletions
diff --git a/compiler/GHC/Data/Graph/Directed.hs b/compiler/GHC/Data/Graph/Directed.hs index 7a17f23e7c..d6a9dba9a9 100644 --- a/compiler/GHC/Data/Graph/Directed.hs +++ b/compiler/GHC/Data/Graph/Directed.hs @@ -27,8 +27,6 @@ module GHC.Data.Graph.Directed ( EdgeType(..), classifyEdges ) where -#include "HsVersions.h" - ------------------------------------------------------------------------------ -- A version of the graph algorithms described in: -- diff --git a/compiler/GHC/Data/List/SetOps.hs b/compiler/GHC/Data/List/SetOps.hs index 6c06e6017c..32f373d17b 100644 --- a/compiler/GHC/Data/List/SetOps.hs +++ b/compiler/GHC/Data/List/SetOps.hs @@ -23,8 +23,6 @@ module GHC.Data.List.SetOps ( getNth ) where -#include "HsVersions.h" - import GHC.Prelude import GHC.Utils.Outputable @@ -63,7 +61,7 @@ unionLists xs [y] | isIn "unionLists" y xs = xs | otherwise = y:xs unionLists xs ys - = WARN(lengthExceeds xs 100 || lengthExceeds ys 100, ppr xs $$ ppr ys) + = warnPprTrace (lengthExceeds xs 100 || lengthExceeds ys 100) (ppr xs $$ ppr ys) $ [x | x <- xs, isn'tIn "unionLists" x ys] ++ ys -- | Calculate the set difference of two lists. This is diff --git a/compiler/GHC/Data/Pair.hs b/compiler/GHC/Data/Pair.hs index ae51c78edc..b0c6a59c3a 100644 --- a/compiler/GHC/Data/Pair.hs +++ b/compiler/GHC/Data/Pair.hs @@ -16,8 +16,6 @@ module GHC.Data.Pair ) where -#include "HsVersions.h" - import GHC.Prelude import GHC.Utils.Outputable diff --git a/compiler/GHC/Data/StringBuffer.hs b/compiler/GHC/Data/StringBuffer.hs index 0932397ae5..c2dd8e2208 100644 --- a/compiler/GHC/Data/StringBuffer.hs +++ b/compiler/GHC/Data/StringBuffer.hs @@ -48,8 +48,6 @@ module GHC.Data.StringBuffer parseUnsignedInteger, ) where -#include "HsVersions.h" - import GHC.Prelude import GHC.Data.FastString |