[refactor] unused contents acquisition removed

Author: Ishmum Jawad Khan

plugins/default/src/Ide/Plugin/Pragmas.hs

@@ -59,14 +59,8 @@ codeActionProvider lsp state _plId docId _ (J.CodeActionContext (J.List diags) _
         -- Get all potential Pragmas for all diagnostics.
         pragmas = nubOrd $ concatMap (\d -> genPragma dflags (d ^. J.message)) diags
         somh = startOfModuleHeader pm
-    loc <- if somh > 0
-            then do
-              contents <- LSP.getVirtualFileFunc lsp . toNormalizedUri $ docId ^. J.uri
-              text <- pure $ fmap VFS.virtualFileText contents
-              line <- pure . fromMaybe 0 $ findIndex (not . T.null) . take somh . T.lines =<< text
-              return $ Position line 0
-            else return $ Position 0 0 
-    rng <- pure $ Range loc loc
+        loc = Position somh 0
+        rng = Range loc loc
     cmds <- mapM (mkCodeAction rng) pragmas 
     return $ Right $ List cmds
       where