Use isOneLineSpan

Author: philderbeast

src/Hint/Comment.hs

@@ -54,7 +54,7 @@ isSingle comm@(L (anchor -> span) _) =
 -- * Not a whitespace comment "--       "
 isSingleSome :: LEpaComment -> Bool
 isSingleSome comm@(L (anchor -> span) _) =
-  isOneLineRealSpan span
+  isOneLineSpan (RealSrcSpan span GHC.Data.Strict.Nothing)
   && not (isPointRealSpan span)
   && not (isCommentMultiline comm || isHaddock comm || isCommentWhitespace comm)
 
@@ -125,9 +125,7 @@ grab msg o@(L pos _) s2 =
       f s = if isCommentMultiline o then "{-" ++ s ++ "-}" else "--" ++ s
   in rawIdea Suggestion msg loc (f s1) (Just $ f s2) [] (refact loc $ f s2)
 
--- | 'True' if the span is known to straddle only one line.
--- SEE: https://gitlab.haskell.org/ghc/ghc/-/blob/master/compiler/GHC/Types/SrcLoc.hs#L480-483
+-- | 'True' if the span is known to straddle only one line. GHC doesn't export
+-- isOneLineRealSpan.
 isOneLineRealSpan :: RealSrcSpan -> Bool
-isOneLineRealSpan span = line1 == line2 where
-  line1 = srcLocLine $ realSrcSpanStart span
-  line2 = srcLocLine $ realSrcSpanEnd span
+isOneLineRealSpan span = isOneLineSpan (RealSrcSpan span GHC.Data.Strict.Nothing)