@@ -76,7 +76,6 @@ import Control.Monad.Extra
76
76
import Control.Monad.Trans.Except
77
77
import Data.Bifunctor (second )
78
78
import qualified Data.ByteString as BS
79
- import qualified Data.DList as DL
80
79
import Data.IORef
81
80
import Data.List.Extra
82
81
import qualified Data.Map.Strict as Map
@@ -102,6 +101,7 @@ import Data.Coerce
102
101
import Data.Functor
103
102
import qualified Data.HashMap.Strict as HashMap
104
103
import Data.Map (Map )
104
+ import Data.Foldable (fold )
105
105
import Data.Tuple.Extra (dupe )
106
106
import Data.Either.Extra (maybeToEither )
107
107
import Data.Unique as Unique
@@ -474,13 +474,13 @@ generateHieAsts hscEnv tcm =
474
474
475
475
spliceExpresions :: Splices -> [LHsExpr GhcTc ]
476
476
spliceExpresions Splices {.. } =
477
- DL. toList $ mconcat
478
- [ DL. fromList $ map fst exprSplices
479
- , DL. fromList $ map fst patSplices
480
- , DL. fromList $ map fst typeSplices
481
- , DL. fromList $ map fst declSplices
482
- , DL. fromList $ map fst awSplices
483
- ]
477
+ fold
478
+ [ map fst exprSplices
479
+ , map fst patSplices
480
+ , map fst typeSplices
481
+ , map fst declSplices
482
+ , map fst awSplices
483
+ ]
484
484
485
485
-- | In addition to indexing the `.hie` file, this function is responsible for
486
486
-- maintaining the 'IndexQueue' state and notfiying the user about indexing
0 commit comments