diff --git a/lib/XMonad/Internal/Concurrent/VirtualBox.hs b/lib/XMonad/Internal/Concurrent/VirtualBox.hs
index b128cc8..a41c244 100644
--- a/lib/XMonad/Internal/Concurrent/VirtualBox.hs
+++ b/lib/XMonad/Internal/Concurrent/VirtualBox.hs
@@ -20,7 +20,7 @@ import           System.FilePath
 import           XMonad.Internal.Shell
 
 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 vmName = do