Fix findSubSpansDesc

Author: eddiejessup

plugins/hls-splice-plugin/src/Ide/Plugin/Splice.hs

@@ -268,7 +268,8 @@ findSubSpansDesc :: SrcSpan -> [(LHsExpr GhcTc, a)] -> [(SrcSpan, a)]
 findSubSpansDesc srcSpan =
     sortOn (Down . SubSpan . fst)
         . mapMaybe
-            ( \(L spn _, e) -> do
+            ( \(lcted, e) -> do
+                let spn = getLocA lcted
                 guard (spn `isSubspanOf` srcSpan)
                 pure (spn, e)
             )
@@ -371,14 +372,12 @@ unRenamedE ::
     (Fail.MonadFail m, HasSplice l ast) =>
     DynFlags ->
     ast GhcRn ->
-    TransformT m (Located (ast GhcPs))
+    TransformT m (LocatedAn l (ast GhcPs))
 unRenamedE dflags expr = do
     uniq <- show <$> uniqueSrcSpanT
-    (anns, expr') <-
-        either (fail . show) pure $
-            parseAST @_ @(ast GhcPs) dflags uniq $
-                showSDoc dflags $ ppr expr
-    pure expr'
+    either (fail . show) pure $
+        parseAST @_ @(ast GhcPs) dflags uniq $
+            showSDoc dflags $ ppr expr
 
 data SearchResult r =
     Continue | Stop | Here r