diff --git a/ghcup.cabal b/ghcup.cabal
index 3e51465..fafa47f 100644
--- a/ghcup.cabal
+++ b/ghcup.cabal
@@ -76,7 +76,6 @@ library
     GHCup.Types.JSON
     GHCup.Types.JSON.Utils
     GHCup.Types.Optics
-    GHCup.Types.Prompts
     GHCup.Utils
     GHCup.Utils.Dirs
     GHCup.Version
diff --git a/lib/GHCup/Prompts.hs b/lib/GHCup/Prompts.hs
index 5536ad7..c06fcd1 100644
--- a/lib/GHCup/Prompts.hs
+++ b/lib/GHCup/Prompts.hs
@@ -2,7 +2,8 @@
 {-# LANGUAGE FlexibleContexts #-}
 
 module GHCup.Prompts
-  ( module GHCup.Types.Prompts,
+  ( PromptQuestion,
+    PromptResponse (..),
     getUserPromptResponse,
   )
 where
@@ -11,7 +12,6 @@ import Control.Monad.Reader
 import qualified Data.Text.IO as TIO
 import GHCup.Prelude.Logger
 import GHCup.Types.Optics
-import GHCup.Types.Prompts
 
 putPrompt :: (HasLog env, MonadReader env m, MonadIO m)
           => PromptQuestion
diff --git a/lib/GHCup/Types.hs b/lib/GHCup/Types.hs
index 63761d2..bb0ae8f 100644
--- a/lib/GHCup/Types.hs
+++ b/lib/GHCup/Types.hs
@@ -654,10 +654,7 @@ isSafeDir (IsolateDirResolved _) = False
 isSafeDir (GHCupDir _)           = True
 isSafeDir (GHCupBinDir _)        = False
 
+type PromptQuestion = Text
 
-
-
-
-
-
-
+data PromptResponse = PromptYes | PromptNo
+  deriving (Show, Eq)
diff --git a/lib/GHCup/Types/Prompts.hs b/lib/GHCup/Types/Prompts.hs
deleted file mode 100644
index a2e753c..0000000
--- a/lib/GHCup/Types/Prompts.hs
+++ /dev/null
@@ -1,8 +0,0 @@
-module GHCup.Types.Prompts where
-
-import Data.Text (Text)
-
-type PromptQuestion = Text
-
-data PromptResponse = PromptYes | PromptNo
-  deriving (Show, Eq)