module Refact(toRefactSrcSpan, toSS) where

import qualified Refact.Types as R
import HSE.All

toRefactSrcSpan :: SrcSpan -> R.SrcSpan
toRefactSrcSpan :: SrcSpan -> SrcSpan
toRefactSrcSpan ss :: SrcSpan
ss = Int -> Int -> Int -> Int -> SrcSpan
R.SrcSpan (SrcSpan -> Int
srcSpanStartLine SrcSpan
ss)
                               (SrcSpan -> Int
srcSpanStartColumn SrcSpan
ss)
                               (SrcSpan -> Int
srcSpanEndLine SrcSpan
ss)
                               (SrcSpan -> Int
srcSpanEndColumn SrcSpan
ss)

toSS :: Annotated a => a S -> R.SrcSpan
toSS :: a S -> SrcSpan
toSS = SrcSpan -> SrcSpan
toRefactSrcSpan (SrcSpan -> SrcSpan) -> (a S -> SrcSpan) -> a S -> SrcSpan
forall b c a. (b -> c) -> (a -> b) -> a -> c
. S -> SrcSpan
srcInfoSpan (S -> SrcSpan) -> (a S -> S) -> a S -> SrcSpan
forall b c a. (b -> c) -> (a -> b) -> a -> c
. a S -> S
forall (ast :: * -> *) l. Annotated ast => ast l -> l
ann