module CabalGild.Unstable.Exception.MoreThanOneCabalFileFound where

import qualified CabalGild.Unstable.Type.Flag as Flag
import qualified Control.Monad.Catch as Exception

-- | This exception is thrown when no input or output file has been specified,
-- stdin is a terminal device, and there are multiple Cabal files in the
-- current directory.
data MoreThanOneCabalFileFound
  = MoreThanOneCabalFileFound
  deriving (MoreThanOneCabalFileFound -> MoreThanOneCabalFileFound -> Bool
(MoreThanOneCabalFileFound -> MoreThanOneCabalFileFound -> Bool)
-> (MoreThanOneCabalFileFound -> MoreThanOneCabalFileFound -> Bool)
-> Eq MoreThanOneCabalFileFound
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MoreThanOneCabalFileFound -> MoreThanOneCabalFileFound -> Bool
== :: MoreThanOneCabalFileFound -> MoreThanOneCabalFileFound -> Bool
$c/= :: MoreThanOneCabalFileFound -> MoreThanOneCabalFileFound -> Bool
/= :: MoreThanOneCabalFileFound -> MoreThanOneCabalFileFound -> Bool
Eq, Int -> MoreThanOneCabalFileFound -> ShowS
[MoreThanOneCabalFileFound] -> ShowS
MoreThanOneCabalFileFound -> String
(Int -> MoreThanOneCabalFileFound -> ShowS)
-> (MoreThanOneCabalFileFound -> String)
-> ([MoreThanOneCabalFileFound] -> ShowS)
-> Show MoreThanOneCabalFileFound
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MoreThanOneCabalFileFound -> ShowS
showsPrec :: Int -> MoreThanOneCabalFileFound -> ShowS
$cshow :: MoreThanOneCabalFileFound -> String
show :: MoreThanOneCabalFileFound -> String
$cshowList :: [MoreThanOneCabalFileFound] -> ShowS
showList :: [MoreThanOneCabalFileFound] -> ShowS
Show)

instance Exception.Exception MoreThanOneCabalFileFound where
  displayException :: MoreThanOneCabalFileFound -> String
displayException =
    String -> MoreThanOneCabalFileFound -> String
forall a b. a -> b -> a
const (String -> MoreThanOneCabalFileFound -> String)
-> String -> MoreThanOneCabalFileFound -> String
forall a b. (a -> b) -> a -> b
$
      String
"More than one package description found in the current directory. Use the --"
        String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
Flag.ioOption
        String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
" option to specify a *.cabal file."