Skip to content

Commit

Permalink
Import cleanup
Browse files Browse the repository at this point in the history
  • Loading branch information
arcz committed Feb 23, 2023
1 parent 355864a commit 54e55dd
Showing 1 changed file with 2 additions and 4 deletions.
6 changes: 2 additions & 4 deletions lib/Echidna/Config.hs
Original file line number Diff line number Diff line change
@@ -1,15 +1,14 @@
module Echidna.Config where

import Control.Applicative ((<|>))
import Control.Lens
import Control.Monad.Fail qualified as M (MonadFail(..))
import Control.Monad.Reader (Reader, ReaderT(..), runReader)
import Control.Monad.State (StateT(..), runStateT, modify')
import Control.Monad.Trans (lift)
import Data.Aeson
import Data.Aeson.KeyMap (keys)
import Data.Bool (bool)
import Data.ByteString qualified as BS
import Data.Functor ((<&>))
import Data.HashSet (fromList, insert, difference)
import Data.Maybe (fromMaybe)
import Data.Set qualified as Set
Expand Down Expand Up @@ -136,8 +135,7 @@ instance FromJSON EConfigWithUsage where
Just "json" -> pure . Just . NonInteractive $ JSON
Just "none" -> pure . Just . NonInteractive $ None
Nothing -> pure Nothing
_ -> M.fail "Unrecognized format type (should be text, json, or none)")

_ -> fail "Unrecognized format type (should be text, json, or none)")

-- | The default config used by Echidna (see the 'FromJSON' instance for values used).
defaultConfig :: EConfig
Expand Down

0 comments on commit 54e55dd

Please sign in to comment.