diff options
Diffstat (limited to 'compiler/GHC/HsToCore/Quote.hs')
| -rw-r--r-- | compiler/GHC/HsToCore/Quote.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/HsToCore/Quote.hs b/compiler/GHC/HsToCore/Quote.hs index e9d7a2ca50..d6525f83f2 100644 --- a/compiler/GHC/HsToCore/Quote.hs +++ b/compiler/GHC/HsToCore/Quote.hs @@ -80,6 +80,7 @@ import Data.Kind (Constraint) import Data.ByteString ( unpack ) import Control.Monad import Data.List +import Data.Function data MetaWrappers = MetaWrappers { -- Applies its argument to a type argument `m` and dictionary `Quote m` @@ -2010,8 +2011,7 @@ repP other = notHandled "Exotic pattern" (ppr other) -- Declaration ordering helpers sort_by_loc :: [(SrcSpan, a)] -> [(SrcSpan, a)] -sort_by_loc xs = sortBy comp xs - where comp x y = compare (fst x) (fst y) +sort_by_loc = sortBy (SrcLoc.leftmost_smallest `on` fst) de_loc :: [(a, b)] -> [b] de_loc = map snd |