@@ -45,13 +45,16 @@ import Control.Lens hiding (List, (<.>))
4545import Control.Monad.Except
4646import Control.Monad.Extra
4747import Control.Monad.Trans.Except
48+ import qualified Control.Monad.Trans.State.Strict as S
4849import Data.Aeson (toJSON )
4950import Data.Bifunctor (first , second )
5051import Data.Binary
5152import qualified Data.ByteString as BS
5253import Data.Coerce
5354import qualified Data.DList as DL
5455import Data.Functor
56+ import Data.Generics.Schemes
57+ import Data.Generics.Aliases
5558import qualified Data.HashMap.Strict as HashMap
5659import Data.IORef
5760import Data.IntMap (IntMap )
@@ -124,14 +127,11 @@ import GHC (Anchor (anchor),
124127 EpaCommentTok (EpaBlockComment , EpaLineComment ),
125128 epAnnComments ,
126129 priorComments )
130+ import GHC (ModuleGraph , mgLookupModule , mgModSummaries )
127131import qualified GHC as G
128132import GHC.Hs (LEpaComment )
129133import qualified GHC.Types.Error as Error
130134#endif
131- import GHC (ModuleGraph , mgLookupModule , mgModSummaries )
132- import qualified Control.Monad.Trans.State.Strict as S
133- import Data.Generics.Schemes
134- import Data.Generics.Aliases
135135
136136-- | Given a string buffer, return the string (after preprocessing) and the 'ParsedModule'.
137137parseModule
0 commit comments