@@ -76,7 +76,6 @@ import Control.Monad.Extra
7676import Control.Monad.Trans.Except
7777import Data.Bifunctor (second )
7878import qualified Data.ByteString as BS
79- import qualified Data.DList as DL
8079import Data.IORef
8180import Data.List.Extra
8281import qualified Data.Map.Strict as Map
@@ -102,6 +101,7 @@ import Data.Coerce
102101import Data.Functor
103102import qualified Data.HashMap.Strict as HashMap
104103import Data.Map (Map )
104+ import Data.Foldable (fold )
105105import Data.Tuple.Extra (dupe )
106106import Data.Either.Extra (maybeToEither )
107107import Data.Unique as Unique
@@ -474,13 +474,13 @@ generateHieAsts hscEnv tcm =
474474
475475spliceExpresions :: Splices -> [LHsExpr GhcTc ]
476476spliceExpresions 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+ ]
484484
485485-- | In addition to indexing the `.hie` file, this function is responsible for
486486-- maintaining the 'IndexQueue' state and notfiying the user about indexing
0 commit comments