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"