diff --git a/app/ghcup/GHCup/OptParse/Install.hs b/app/ghcup/GHCup/OptParse/Install.hs index e185adb..4a22209 100644 --- a/app/ghcup/GHCup/OptParse/Install.hs +++ b/app/ghcup/GHCup/OptParse/Install.hs @@ -33,7 +33,6 @@ import Control.Monad.Trans.Resource import Data.Either import Data.Functor import Data.Maybe -import Data.Versions hiding ( str ) import Haskus.Utils.Variant.Excepts import Options.Applicative hiding ( style ) import Options.Applicative.Help.Pretty ( text ) diff --git a/lib/GHCup/Errors.hs b/lib/GHCup/Errors.hs index c7aa4ae..0e52f11 100644 --- a/lib/GHCup/Errors.hs +++ b/lib/GHCup/Errors.hs @@ -112,7 +112,7 @@ data MergeFileTreeError = MergeFileTreeError IOException FilePath FilePath instance Pretty MergeFileTreeError where pPrint (MergeFileTreeError e from to) = text "Failed to merge file tree from" <+> text from <+> text "to" <+> text to <+> text "\nexception was:" <+> text (displayException e) - <+> text "\n...tried to clean up" <+> text to <+> text ". Make sure it's gone." + <+> text "\n...you may need to delete" <+> text to <+> text "manually. Make sure it's gone." -- | Unable to find a tag of a tool. data TagNotFound = TagNotFound Tag Tool