Removes GHCup.Types.Prompts module and stuffs it into GHCup.Types

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

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

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)
-
-
-
-

lib/GHCup/Types/Prompts.hs

@@ -1,8 +0,0 @@
-module GHCup.Types.Prompts where
-
-import Data.Text (Text)
-
-type PromptQuestion = Text
-
-data PromptResponse = PromptYes | PromptNo
-  deriving (Show, Eq)