module FortyTwo.Renderers.Confirm
    (
      renderConfirm
    ) where

-- | Render the helper text
renderConfirm :: Bool -> IO ()
renderConfirm :: Bool -> IO ()
renderConfirm Bool
defaultAnswer = String -> IO ()
putStr forall a b. (a -> b) -> a -> b
$ String
" (" forall a. [a] -> [a] -> [a]
++ String
msg forall a. [a] -> [a] -> [a]
++ String
") "
  where
    msg :: String
msg | Bool
defaultAnswer = String
"Y/n"
        | Bool
otherwise = String
"y/N"