diff --git a/lib/GHCup/Prompts.hs b/lib/GHCup/Prompts.hs
index 08bed33..5536ad7 100644
--- a/lib/GHCup/Prompts.hs
+++ b/lib/GHCup/Prompts.hs
@@ -16,7 +16,7 @@ import GHCup.Types.Prompts
 putPrompt :: (HasLog env, MonadReader env m, MonadIO m)
           => PromptQuestion
           -> m ()
-putPrompt prompt = logInfo prompt
+putPrompt = logInfo
 
 getUserPromptResponse :: ( HasLog env
                          , MonadReader env m