Adds argument de-structuring to 'rmTool' function & remove the one in its body

lib/GHCup.hs

@@ -1290,8 +1290,7 @@ rmTool :: ( MonadReader AppState m
            => ListResult
            -> Excepts '[NotInstalled ] m ()
 
-rmTool tool = do
-  let ListResult {lVer, lTool, lCross} = tool
+rmTool ListResult {lVer, lTool, lCross} = do
   -- appstate <- ask
 
   case lTool of