ghcide: Spans: AtPoint: pointCommand: form local function

Author: Anton-Latukha

ghcide/src/Development/IDE/Spans/AtPoint.hs

@@ -399,7 +399,9 @@ pointCommand :: HieASTs t -- ^ Get AST
   -> (HieAST t -> a) -- ^ extact data with a getter
   -> [a] -- ^ all data recieved
 pointCommand hf pos getter =
-    catMaybes $ M.elems $ flip M.mapWithKey (getAsts hf) $ \fs ast ->
+    catMaybes $ M.elems $ M.mapWithKey findInfo (getAsts hf)
+ where
+   findInfo fs ast =
       -- Since GHC 9.2:
       -- getAsts :: Map HiePath (HieAst a)
       -- type HiePath = LexialFastString
@@ -412,7 +414,6 @@ pointCommand hf pos getter =
       -- backwards compatibility.
       let smallestRange = selectSmallestContaining (sp $ coerce fs) ast in
       fmap getter smallestRange
- where
    sloc fs = mkRealSrcLoc fs (line+1) (cha+1)
    sp fs = mkRealSrcSpan (sloc fs) (sloc fs)
    line = _line pos