Fix handling of stray versions wrt #116

2021-03-07 12:02:13 +01:00
parent ef978c1230
commit f6cc467e95
3 changed files with 34 additions and 61 deletions
--- a/lib/GHCup/Errors.hs
+++ b/lib/GHCup/Errors.hs
@@ -115,14 +115,6 @@ instance Pretty TagNotFound where
  pPrint (TagNotFound tag tool) =
    text "Unable to find tag" <+> pPrint tag <+> text [i|of tool "#{tool}"|]

-- | Unable to find a version of a tool.
-data VerNotFound = VerNotFound Version Tool
-  deriving Show
-
-instance Pretty VerNotFound where
-  pPrint (VerNotFound ver' tool) =
-    text [i|Unable to find version "#{prettyShow ver'}" of tool "#{tool}"|]
-
 -- | Unable to find the next version of a tool (the one after the currently
 -- set one).
 data NextVerNotFound = NextVerNotFound Tool