Skip to content

Explicit imports lens (as seen on Twitter) #310

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
alanz merged 5 commits into from
Aug 15, 2020
Merged

Explicit imports lens (as seen on Twitter) #310

Changes from 1 commit
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
6fdd7d4
import lens plugin
pepeiborra Aug 9, 2020
6e4bc8c
Development.IDE is not available yet
pepeiborra Aug 10, 2020
f68d6e3
Add lots of comments
pepeiborra Aug 10, 2020
b6cd60e
Add readme entry with imgur GIF
pepeiborra Aug 10, 2020
5bb9d86
Dont use stale data for the import lenses
pepeiborra Aug 10, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Development.IDE is not available yet
  • Loading branch information
@pepeiborra
pepeiborra committed Aug 10, 2020
commit 6e4bc8cde5fcd3f702753d0293c7c3287257edb1
67 changes: 38 additions & 29 deletions src/Ide/Plugin/ImportLens.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,34 +1,43 @@
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Ide.Plugin.ImportLens (descriptor) where
import Control.Monad (forM)
import Data.Aeson (ToJSON)
import Data.Aeson (Value(Null))
import Data.Aeson.Types (FromJSON)
import Data.IORef (readIORef)
import Data.Map (Map)
import qualified Data.Map.Strict as Map
import Data.Maybe (fromMaybe, catMaybes)
import qualified Data.Text as T
import Development.IDE
import Development.IDE.GHC.Compat
import GHC.Generics (Generic)
import Ide.Plugin
import Ide.Types
import Language.Haskell.LSP.Types
import RnNames (getMinimalImports, findImportUsage)
import TcRnMonad (initTcWithGbl)
import TcRnTypes (TcGblEnv(tcg_used_gres))
import PrelNames (pRELUDE)
import Data.Aeson (ToJSON(toJSON))
import qualified Data.HashMap.Strict as HashMap
import Control.Monad (forM)
import Data.Aeson (ToJSON)
import Data.Aeson (Value (Null))
import Data.Aeson (ToJSON (toJSON))
import Data.Aeson.Types (FromJSON)
import qualified Data.HashMap.Strict as HashMap
import Data.IORef (readIORef)
import Data.Map (Map)
import qualified Data.Map.Strict as Map
import Data.Maybe (catMaybes, fromMaybe)
import qualified Data.Text as T
import Development.IDE.Core.RuleTypes (GhcSessionDeps (GhcSessionDeps),
TcModuleResult (tmrModule),
TypeCheck (TypeCheck))
import Development.IDE.Core.Service (IdeState, runAction)
import Development.IDE.Core.Shake (IdeAction, IdeState (..),
runIdeAction, useWithStaleFast,
use_)
import Development.IDE.GHC.Compat
import Development.IDE.GHC.Error (realSpan, realSrcSpanToRange)
import Development.IDE.GHC.Util (hscEnv, prettyPrint)
import GHC.Generics (Generic)
import Ide.Plugin
import Ide.Types
import Language.Haskell.LSP.Types
import PrelNames (pRELUDE)
import RnNames (findImportUsage,
getMinimalImports)
import TcRnMonad (initTcWithGbl)
import TcRnTypes (TcGblEnv (tcg_used_gres))

importCommandId :: CommandId
importCommandId = "ImportLensCommand"
Expand Down