module CabalGild.Unstable.Exception.SpecifiedStdinWithFileInput where

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

-- | This exception is thrown when the user specifies the STDIN name while
-- using an input file. In other words, when @--input=file@ and
-- @--stdin=anything@.
data SpecifiedStdinWithFileInput
  = SpecifiedStdinWithFileInput
  deriving (SpecifiedStdinWithFileInput -> SpecifiedStdinWithFileInput -> Bool
(SpecifiedStdinWithFileInput
 -> SpecifiedStdinWithFileInput -> Bool)
-> (SpecifiedStdinWithFileInput
    -> SpecifiedStdinWithFileInput -> Bool)
-> Eq SpecifiedStdinWithFileInput
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SpecifiedStdinWithFileInput -> SpecifiedStdinWithFileInput -> Bool
== :: SpecifiedStdinWithFileInput -> SpecifiedStdinWithFileInput -> Bool
$c/= :: SpecifiedStdinWithFileInput -> SpecifiedStdinWithFileInput -> Bool
/= :: SpecifiedStdinWithFileInput -> SpecifiedStdinWithFileInput -> Bool
Eq, Int -> SpecifiedStdinWithFileInput -> ShowS
[SpecifiedStdinWithFileInput] -> ShowS
SpecifiedStdinWithFileInput -> String
(Int -> SpecifiedStdinWithFileInput -> ShowS)
-> (SpecifiedStdinWithFileInput -> String)
-> ([SpecifiedStdinWithFileInput] -> ShowS)
-> Show SpecifiedStdinWithFileInput
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SpecifiedStdinWithFileInput -> ShowS
showsPrec :: Int -> SpecifiedStdinWithFileInput -> ShowS
$cshow :: SpecifiedStdinWithFileInput -> String
show :: SpecifiedStdinWithFileInput -> String
$cshowList :: [SpecifiedStdinWithFileInput] -> ShowS
showList :: [SpecifiedStdinWithFileInput] -> ShowS
Show)

instance Exception.Exception SpecifiedStdinWithFileInput where
  displayException :: SpecifiedStdinWithFileInput -> String
displayException =
    String -> SpecifiedStdinWithFileInput -> String
forall a b. a -> b -> a
const (String -> SpecifiedStdinWithFileInput -> String)
-> String -> SpecifiedStdinWithFileInput -> String
forall a b. (a -> b) -> a -> b
$
      String
"cannot use --"
        String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
Flag.stdinOption
        String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
" when --"
        String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
Flag.inputOption
        String -> ShowS
forall a. Semigroup a => a -> a -> a
<> String
" is a file"