Merge #2610

2610: No implicit prelude for cardano-submit-api r=newhoggy a=newhoggy



Co-authored-by: John Ky <john.ky@iohk.io>

cardano-submit-api/app/Main.hs

@@ -1,6 +1,8 @@
 module Main where
 
 import           Cardano.TxSubmit (opts, runTxSubmitWebapi)
+import           Control.Monad ((=<<))
+import           System.IO (IO)
 
 import qualified Options.Applicative as Opt
 

cardano-submit-api/cardano-submit-api.cabal

@@ -48,8 +48,6 @@ common project-config
   default-language:     Haskell2010
 
   ghc-options:          -Wall
-                        -fwarn-incomplete-patterns
-                        -fwarn-redundant-constraints
                         -Wcompat
                         -Werror
                         -Wincomplete-record-updates
@@ -61,6 +59,11 @@ common project-config
                         -Wno-unsafe
                         -Wunused-packages
 
+                        -XNoImplicitPrelude
+
+                        -fwarn-incomplete-patterns
+                        -fwarn-redundant-constraints
+
 library
   import:               base, project-config
                       , aeson

cardano-submit-api/src/Cardano/TxSubmit/CLI/Types.hs

@@ -7,6 +7,7 @@ module Cardano.TxSubmit.CLI.Types
 
 import           Cardano.Api (AnyConsensusModeParams, NetworkId (..))
 import           Cardano.TxSubmit.Rest.Types (WebserverConfig)
+import           System.IO (FilePath)
 
 -- | The product type of all command line arguments
 data TxSubmitNodeParams = TxSubmitNodeParams

cardano-submit-api/src/Cardano/TxSubmit/ErrorRender.hs

@@ -14,9 +14,12 @@ module Cardano.TxSubmit.ErrorRender
 import           Cardano.Chain.Byron.API (ApplyMempoolPayloadErr (..))
 import           Cardano.Chain.UTxO.UTxO (UTxOError (..))
 import           Cardano.Chain.UTxO.Validation (TxValidationError (..), UTxOValidationError (..))
+import           Data.Function ((.))
+import           Data.Monoid (Monoid (mconcat), (<>))
 import           Data.Text (Text)
 import           Formatting (build, sformat, stext, (%))
 import           Ouroboros.Consensus.Cardano.Block (EraMismatch (..))
+import           Text.Show (Show (show))
 
 import qualified Data.Text as T
 

cardano-submit-api/src/Cardano/TxSubmit/Rest/Parsers.hs

@@ -7,6 +7,9 @@ module Cardano.TxSubmit.Rest.Parsers
   ) where
 
 import           Cardano.TxSubmit.Rest.Types (WebserverConfig (..))
+import           Control.Applicative (Applicative (pure), (<$>))
+import           Data.Function (($))
+import           Data.Semigroup ((<>))
 import           Data.String (fromString)
 import           Network.Wai.Handler.Warp (HostPreference, Port)
 import           Options.Applicative (Parser, auto, help, long, metavar, option, showDefault,

cardano-submit-api/src/Cardano/TxSubmit/Rest/Types.hs

@@ -7,6 +7,8 @@ module Cardano.TxSubmit.Rest.Types
   ) where
 
 import           Data.Function ((&))
+import           Data.Semigroup ((<>))
+import           Text.Show (Show (..))
 
 import qualified Network.Wai.Handler.Warp as Warp
 

cardano-submit-api/src/Cardano/TxSubmit/Rest/Web.hs

@@ -6,11 +6,15 @@ module Cardano.TxSubmit.Rest.Web
 
 import           Cardano.BM.Trace (Trace, logInfo)
 import           Control.Exception (bracket)
+import           Data.Function (($))
+import           Data.Semigroup ((<>))
 import           Data.Streaming.Network (bindPortTCP)
 import           Data.Text (Text)
 import           Network.Socket (close, getSocketName, withSocketsDo)
 import           Network.Wai.Handler.Warp (Settings, getHost, getPort, runSettingsSocket)
 import           Servant (Application)
+import           System.IO (IO)
+import           Text.Show (Show (..))
 
 import qualified Data.Text as T
 

cardano-submit-api/src/Cardano/TxSubmit/Tracing/ToObjectOrphans.hs

@@ -11,8 +11,11 @@ import           Cardano.BM.Data.Tracer (HasPrivacyAnnotation, HasSeverityAnnota
                    HasTextFormatter, ToObject (toObject), Transformable (..), mkObject,
                    trStructured)
 import           Data.Aeson ((.=))
+import           Data.String (String)
 import           Data.Text (Text)
 import           Ouroboros.Network.NodeToClient (ErrorPolicyTrace (..), WithAddr (..))
+import           System.IO (IO)
+import           Text.Show (Show (..))
 
 import qualified Network.Socket as Socket
 

cardano-submit-api/src/Cardano/TxSubmit/Types.hs

@@ -20,6 +20,12 @@ import           Cardano.Binary (DecoderError)
 import           Cardano.TxSubmit.Util (textShow)
 import           Data.Aeson (ToJSON (..), Value (..))
 import           Data.ByteString.Char8 (ByteString)
+import           Data.Either (Either (Right))
+import           Data.Eq (Eq (..))
+import           Data.Function (id, (.))
+import           Data.Functor (Functor (fmap))
+import           Data.Int (Int)
+import           Data.Monoid (Monoid (mconcat), (<>))
 import           Data.Text (Text)
 import           Formatting (build, sformat)
 import           GHC.Generics (Generic)
@@ -28,6 +34,7 @@ import           Ouroboros.Consensus.Cardano.Block (EraMismatch (..))
 import           Servant (Accept (..), JSON, MimeRender (..), MimeUnrender (..), PostAccepted,
                    ReqBody, (:>))
 import           Servant.API.Generic (ToServantApi, (:-))
+import           Text.Show (Show (..))
 
 import qualified Data.ByteString.Lazy.Char8 as LBS
 import qualified Data.List as L

cardano-submit-api/src/Cardano/TxSubmit/Web.hs

@@ -30,6 +30,8 @@ import           Cardano.TxSubmit.Types (EnvSocketError (..), RawCborDecodeError
                    TxSubmitApi, TxSubmitApiRecord (..), TxSubmitWebApiError (TxSubmitFail),
                    renderTxCmdError)
 import           Cardano.TxSubmit.Util (logException)
+import           Control.Applicative (Applicative (pure), (<$>))
+import           Control.Monad (Functor (fmap), Monad (return), (=<<))
 import           Control.Monad.Except (ExceptT, MonadError (throwError), MonadIO (liftIO),
                    runExceptT)
 import           Control.Monad.IO.Class (liftIO)
@@ -38,15 +40,20 @@ import           Control.Monad.Trans.Except.Extra (firstExceptT, handleIOExceptT
 import           Data.Aeson (ToJSON (..))
 import           Data.Bifunctor (first, second)
 import           Data.ByteString.Char8 (ByteString)
-import           Data.Either (isRight, lefts, partitionEithers, rights)
-import           Data.Maybe (listToMaybe)
+import           Data.Either (Either (..), partitionEithers)
+import           Data.Function (($), (.))
+import           Data.Maybe (listToMaybe, maybe)
 import           Data.Proxy (Proxy (..))
+import           Data.Semigroup (Semigroup ((<>)))
+import           Data.String (String)
 import           Data.Text (Text)
 import           Ouroboros.Consensus.Cardano.Block (EraMismatch (..))
 import           Servant (Application, Handler, ServerError (..), err400, throwError)
 import           Servant.API.Generic (toServant)
 import           Servant.Server.Generic (AsServerT)
 import           System.Environment (lookupEnv)
+import           System.IO (IO)
+import           Text.Show (Show (show))
 
 import qualified Cardano.Crypto.Hash.Class as Crypto
 import qualified Cardano.TxSubmit.Rest.Web as Web

cardano-submit-api/test/test.hs

@@ -1,3 +1,7 @@
 
+import           System.IO (IO)
+
+import qualified System.IO as IO
+
 main :: IO ()
-main = putStrLn "cardano-tx-submit test"
+main = IO.putStrLn "cardano-tx-submit test"