This commit is contained in:
Nathan Dwarshuis 2022-09-01 18:27:53 -04:00
parent 2d70507a1e
commit 53d42d638e
1 changed files with 1 additions and 1 deletions

View File

@ -20,7 +20,7 @@ import System.FilePath
import XMonad.Internal.Shell import XMonad.Internal.Shell
vmExists :: String -> IO (Maybe Msg) vmExists :: String -> IO (Maybe Msg)
vmExists vm = either (const Nothing) (Just . Msg Error) <$> vmInstanceConfig vm vmExists vm = either (Just . Msg Error) (const Nothing) <$> vmInstanceConfig vm
vmInstanceConfig :: String -> IO (Either String FilePath) vmInstanceConfig :: String -> IO (Either String FilePath)
vmInstanceConfig vmName = do vmInstanceConfig vmName = do