module Imp.Extra.SrcSpanAnnN where

import qualified Data.Function as Function
import qualified GHC.Hs as Hs
import qualified GHC.Plugins as Plugin

leftmostSmallest :: Hs.SrcSpanAnnN -> Hs.SrcSpanAnnN -> Hs.SrcSpanAnnN
leftmostSmallest :: SrcSpanAnnN -> SrcSpanAnnN -> SrcSpanAnnN
leftmostSmallest SrcSpanAnnN
x SrcSpanAnnN
y = case (SrcSpan -> SrcSpan -> Ordering)
-> (SrcSpanAnnN -> SrcSpan)
-> SrcSpanAnnN
-> SrcSpanAnnN
-> Ordering
forall b c a. (b -> b -> c) -> (a -> b) -> a -> a -> c
Function.on SrcSpan -> SrcSpan -> Ordering
Plugin.leftmost_smallest SrcSpanAnnN -> SrcSpan
forall a. SrcSpanAnn' a -> SrcSpan
Hs.locA SrcSpanAnnN
x SrcSpanAnnN
y of
  Ordering
LT -> SrcSpanAnnN
x
  Ordering
EQ -> SrcSpanAnnN
x
  Ordering
GT -> SrcSpanAnnN
y