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