removed spurious Either/ExceptT

Author: Saizan

hdb/Development/Debug/Session/Setup.hs

@@ -83,7 +83,7 @@ hieBiosSetup :: LogAction IO (WithSeverity SessionSetupLog)
 hieBiosSetup logger projectRoot entryFile = do
 
   logInfo "Figuring out the right flags to compile the project using hie-bios..."
-  cradle <- hieBiosCradle logger projectRoot entryFile & ExceptT
+  cradle <- hieBiosCradle logger projectRoot entryFile & liftIO
 
   -- GHC is found in PATH (by hie-bios as well).
   logInfo "Checking GHC version against debugger version..."
@@ -102,8 +102,8 @@ hieBiosSetup logger projectRoot entryFile = do
 hieBiosCradle :: LogAction IO (WithSeverity SessionSetupLog)
               -> FilePath -- ^ Project root
               -> FilePath -- ^ Entry file relative to root
-              -> IO (Either String (HIE.Cradle Void))
-hieBiosCradle logger root relTarget = runExceptT $ do
+              -> IO (HIE.Cradle Void)
+hieBiosCradle logger root relTarget = do
   let target = root </> relTarget
   explicitCradle <- HIE.findCradle target & liftIO
   cradle <- maybe (loadImplicitCradle hieBiosLogger target)