Commit a7c7139e authored by Matthieu Coudron's avatar Matthieu Coudron

chore: cleanup imports

to make the buildlogs clearer
parent ca386f46
...@@ -8,7 +8,6 @@ ...@@ -8,7 +8,6 @@
-- the low-level 0MQ interface. -- the low-level 0MQ interface.
module IHaskell.IPython.Message.Parser (parseMessage) where module IHaskell.IPython.Message.Parser (parseMessage) where
import Control.Applicative ((<$>), (<*>))
import Data.Aeson ((.:), (.:?), (.!=), decode, FromJSON, Result(..), Object, Value(..)) import Data.Aeson ((.:), (.:?), (.!=), decode, FromJSON, Result(..), Object, Value(..))
import Data.Aeson.Types (Parser, parse, parseEither) import Data.Aeson.Types (Parser, parse, parseEither)
import Data.ByteString hiding (unpack) import Data.ByteString hiding (unpack)
......
...@@ -3,7 +3,6 @@ ...@@ -3,7 +3,6 @@
-- Generate, parse, and pretty print UUIDs for use with IPython. -- Generate, parse, and pretty print UUIDs for use with IPython.
module IHaskell.IPython.Message.UUID (UUID, random, randoms, uuidToString) where module IHaskell.IPython.Message.UUID (UUID, random, randoms, uuidToString) where
import Control.Applicative ((<$>))
import Control.Monad (mzero, replicateM) import Control.Monad (mzero, replicateM)
import Data.Aeson import Data.Aeson
import Data.Text (pack) import Data.Text (pack)
......
...@@ -38,7 +38,6 @@ module IHaskell.IPython.Types ( ...@@ -38,7 +38,6 @@ module IHaskell.IPython.Types (
displayDataToJson, displayDataToJson,
) where ) where
import Control.Applicative ((<$>), (<*>))
import Data.Aeson import Data.Aeson
import Data.Aeson.Types (typeMismatch) import Data.Aeson.Types (typeMismatch)
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
......
{-# LANGUAGE OverloadedStrings, DoAndIfThenElse, FlexibleContexts #-} {-# LANGUAGE OverloadedStrings, DoAndIfThenElse, FlexibleContexts, CPP #-}
-- | Description : Low-level ZeroMQ communication wrapper. -- | Description : Low-level ZeroMQ communication wrapper.
-- --
......
...@@ -15,7 +15,7 @@ import Control.Arrow (second) ...@@ -15,7 +15,7 @@ import Control.Arrow (second)
import Data.Aeson hiding (Success) import Data.Aeson hiding (Success)
import System.Process (readProcess, readProcessWithExitCode) import System.Process (readProcess, readProcessWithExitCode)
import System.Exit (exitSuccess, ExitCode(ExitSuccess)) import System.Exit (exitSuccess, ExitCode(ExitSuccess))
import Control.Exception (try, SomeException) import Control.Exception (try)
import System.Environment (getArgs) import System.Environment (getArgs)
import System.Environment (setEnv) import System.Environment (setEnv)
import System.Posix.Signals import System.Posix.Signals
......
...@@ -5,14 +5,12 @@ module IHaskell.Convert (convert) where ...@@ -5,14 +5,12 @@ module IHaskell.Convert (convert) where
import IHaskellPrelude import IHaskellPrelude
import Control.Monad (unless, when)
import Data.Functor.Identity (Identity(Identity)) import Data.Functor.Identity (Identity(Identity))
import IHaskell.Convert.Args (ConvertSpec(..), fromJustConvertSpec, toConvertSpec) import IHaskell.Convert.Args (ConvertSpec(..), fromJustConvertSpec, toConvertSpec)
import IHaskell.Convert.IpynbToLhs (ipynbToLhs) import IHaskell.Convert.IpynbToLhs (ipynbToLhs)
import IHaskell.Convert.LhsToIpynb (lhsToIpynb) import IHaskell.Convert.LhsToIpynb (lhsToIpynb)
import IHaskell.Flags (Argument) import IHaskell.Flags (Argument)
import System.Directory (doesFileExist) import System.Directory (doesFileExist)
import Text.Printf (printf)
-- | used by @IHaskell convert@ -- | used by @IHaskell convert@
convert :: [Argument] -> IO () convert :: [Argument] -> IO ()
......
...@@ -6,14 +6,10 @@ module IHaskell.Convert.Args (ConvertSpec(..), fromJustConvertSpec, toConvertSpe ...@@ -6,14 +6,10 @@ module IHaskell.Convert.Args (ConvertSpec(..), fromJustConvertSpec, toConvertSpe
import IHaskellPrelude import IHaskellPrelude
import qualified Data.Text.Lazy as LT import qualified Data.Text.Lazy as LT
import Control.Applicative ((<$>))
import Data.Functor.Identity (Identity(Identity)) import Data.Functor.Identity (Identity(Identity))
import Data.Char (toLower) import Data.Char (toLower)
import Data.List (partition)
import Data.Maybe (fromMaybe)
import IHaskell.Flags (Argument(..), LhsStyle, lhsStyleBird, NotebookFormat(..)) import IHaskell.Flags (Argument(..), LhsStyle, lhsStyleBird, NotebookFormat(..))
import System.FilePath ((<.>), dropExtension, takeExtension) import System.FilePath ((<.>), dropExtension, takeExtension)
import Text.Printf (printf)
-- | ConvertSpec is the accumulator for command line arguments -- | ConvertSpec is the accumulator for command line arguments
data ConvertSpec f = data ConvertSpec f =
......
...@@ -14,9 +14,8 @@ module IHaskell.Eval.Completion (complete, completionTarget, completionType, Com ...@@ -14,9 +14,8 @@ module IHaskell.Eval.Completion (complete, completionTarget, completionType, Com
import IHaskellPrelude import IHaskellPrelude
import Control.Applicative ((<$>))
import Data.Char import Data.Char
import Data.List (nub, init, last, elemIndex, concatMap) import Data.List (init, last, elemIndex)
import qualified Data.List.Split as Split import qualified Data.List.Split as Split
import qualified Data.List.Split.Internals as Split import qualified Data.List.Split.Internals as Split
import System.Environment (getEnv) import System.Environment (getEnv)
......
...@@ -23,7 +23,6 @@ import IHaskellPrelude ...@@ -23,7 +23,6 @@ import IHaskellPrelude
import Control.Concurrent (forkIO, threadDelay) import Control.Concurrent (forkIO, threadDelay)
import Data.Foldable (foldMap) import Data.Foldable (foldMap)
import Prelude (head, tail, last, init) import Prelude (head, tail, last, init)
import Data.List (nubBy)
import qualified Data.Set as Set import qualified Data.Set as Set
import Data.Char as Char import Data.Char as Char
import Data.Dynamic import Data.Dynamic
...@@ -34,7 +33,6 @@ import System.IO (hGetChar, hSetEncoding, utf8) ...@@ -34,7 +33,6 @@ import System.IO (hGetChar, hSetEncoding, utf8)
import System.Random (getStdGen, randomRs) import System.Random (getStdGen, randomRs)
import System.Process import System.Process
import System.Exit import System.Exit
import Data.Maybe (mapMaybe)
import System.Environment (getEnv) import System.Environment (getEnv)
#if MIN_VERSION_ghc(9,2,0) #if MIN_VERSION_ghc(9,2,0)
...@@ -68,7 +66,6 @@ import Bag ...@@ -68,7 +66,6 @@ import Bag
import DynFlags import DynFlags
import HscTypes import HscTypes
import InteractiveEval import InteractiveEval
import Exception (gtry)
import Exception hiding (evaluate) import Exception hiding (evaluate)
import GhcMonad (liftIO) import GhcMonad (liftIO)
import Outputable hiding ((<>)) import Outputable hiding ((<>))
......
...@@ -16,7 +16,6 @@ import IHaskellPrelude ...@@ -16,7 +16,6 @@ import IHaskellPrelude
import Control.Concurrent.STM (atomically) import Control.Concurrent.STM (atomically)
import Control.Concurrent.STM.TChan import Control.Concurrent.STM.TChan
import Control.Monad (foldM)
import Data.Aeson import Data.Aeson
import Data.ByteString.Base64 as B64 (decodeLenient) import Data.ByteString.Base64 as B64 (decodeLenient)
import qualified Data.Map as Map import qualified Data.Map as Map
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment