diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-07-10 20:20:08 -0400 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-03-10 07:44:17 -0500 |
| commit | 18529c0f7a9b66d32a70546432048777654546d1 (patch) | |
| tree | c1246c08c1da05031a5d8e3c5146f82dd9a452d2 | |
| parent | c1fae3d704fcfddf2ab4a6a04d2ab8ec54e97902 (diff) | |
| download | haskell-wip/andreask/inlineable_eq_list.tar.gz | |
Try making compare inlineable for []wip/andreask/inlineable_eq_list
| -rw-r--r-- | libraries/ghc-prim/GHC/Classes.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libraries/ghc-prim/GHC/Classes.hs b/libraries/ghc-prim/GHC/Classes.hs index 3c12727a52..80cb394896 100644 --- a/libraries/ghc-prim/GHC/Classes.hs +++ b/libraries/ghc-prim/GHC/Classes.hs @@ -395,6 +395,7 @@ instance (Ord a) => Ord [a] where {-# SPECIALISE instance Ord [[Char]] #-} {-# SPECIALISE instance Ord [Char] #-} {-# SPECIALISE instance Ord [Int] #-} + {-# INLINEABLE compare #-} compare [] [] = EQ compare [] (_:_) = LT compare (_:_) [] = GT |