module FortyTwo.Renderers.Confirm
    (
      renderConfirm
    ) where

import Control.Monad.IO.Class

-- | Render the helper text
renderConfirm :: MonadIO m => Bool -> m ()
renderConfirm :: forall (m :: * -> *). MonadIO m => Bool -> m ()
renderConfirm Bool
defaultAnswer = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ 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"