diff --git a/lib/GHCup/Prompts.hs b/lib/GHCup/Prompts.hs
index c06fcd1..2b60845 100644
--- a/lib/GHCup/Prompts.hs
+++ b/lib/GHCup/Prompts.hs
@@ -12,19 +12,16 @@ import Control.Monad.Reader
 import qualified Data.Text.IO as TIO
 import GHCup.Prelude.Logger
 import GHCup.Types.Optics
-
-putPrompt :: (HasLog env, MonadReader env m, MonadIO m)
-          => PromptQuestion
-          -> m ()
-putPrompt = logInfo
+import GHCup.Types (PromptQuestion, PromptResponse(..))
 
 getUserPromptResponse :: ( HasLog env
                          , MonadReader env m
                          , MonadIO m)
                       => PromptQuestion
                       -> m PromptResponse
+
 getUserPromptResponse prompt = do
-  putPrompt prompt
+  logInfo prompt
   resp <- liftIO TIO.getLine
   if resp `elem` ["YES", "yes", "y", "Y"]
     then pure PromptYes