From 0b959c56fb23583c8c588e5b174127ffc7808707 Mon Sep 17 00:00:00 2001
From: Arjun Kathuria <arjun.kathuria8@gmail.com>
Date: Tue, 22 Jun 2021 18:44:30 +0530
Subject: [PATCH] change rmTool type to ` Excepts '[NotInstalled ] m () `

---
 lib/GHCup.hs | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/lib/GHCup.hs b/lib/GHCup.hs
index 2a03f9c..1a88d0a 100644
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -1288,7 +1288,7 @@ rmTool :: ( MonadReader AppState m
            , MonadMask m
            , MonadUnliftIO m)
            => ListResult
-           -> m ()
+           -> Excepts '[NotInstalled ] m ()
 
 rmTool tool = do
   let ListResult {lVer, lTool, lCross} = tool
@@ -1297,20 +1297,16 @@ rmTool tool = do
   case lTool of
     GHC -> do
       let ghcTargetVersion = GHCTargetVersion lCross lVer
-      _ <- runE @'[NotInstalled] $ rmGHCVer ghcTargetVersion
-      pure ()
+      rmGHCVer ghcTargetVersion
 
     HLS -> do
-      _ <- runE @'[NotInstalled] $ rmHLSVer lVer
-      pure ()
+      rmHLSVer lVer
 
     Cabal -> do
-      _ <- runE @'[NotInstalled] $ rmCabalVer lVer
-      pure ()
+      rmCabalVer lVer
 
     Stack -> do
-      _ <- runE @'[NotInstalled] $ rmStackVer lVer
-      pure ()
+      rmStackVer lVer
 
     GHCup -> do
       -- leaving this unimplemented for now.