@@ -45,13 +45,16 @@ import Control.Lens hiding (List, (<.>))
45
45
import Control.Monad.Except
46
46
import Control.Monad.Extra
47
47
import Control.Monad.Trans.Except
48
+ import qualified Control.Monad.Trans.State.Strict as S
48
49
import Data.Aeson (toJSON )
49
50
import Data.Bifunctor (first , second )
50
51
import Data.Binary
51
52
import qualified Data.ByteString as BS
52
53
import Data.Coerce
53
54
import qualified Data.DList as DL
54
55
import Data.Functor
56
+ import Data.Generics.Schemes
57
+ import Data.Generics.Aliases
55
58
import qualified Data.HashMap.Strict as HashMap
56
59
import Data.IORef
57
60
import Data.IntMap (IntMap )
@@ -124,14 +127,11 @@ import GHC (Anchor (anchor),
124
127
EpaCommentTok (EpaBlockComment , EpaLineComment ),
125
128
epAnnComments ,
126
129
priorComments )
130
+ import GHC (ModuleGraph , mgLookupModule , mgModSummaries )
127
131
import qualified GHC as G
128
132
import GHC.Hs (LEpaComment )
129
133
import qualified GHC.Types.Error as Error
130
134
#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
135
135
136
136
-- | Given a string buffer, return the string (after preprocessing) and the 'ParsedModule'.
137
137
parseModule
0 commit comments