second windows test fix

Author: robx

test/main.hs

@@ -183,11 +183,11 @@ testInterruptWith = run "interrupt withCreateProcess" $ do
             waitForProcess p
         if isWindows
           then case res of
-            Right (ExitFailure _) -> return ()
-            _ -> error $ "withCreateProcess didn't exit with error: " ++ show res
+            Right _ -> return ()
+            _ -> error $ "unexpected exception: " ++ show res
           else case res of
             Left UserInterrupt -> return ()
-            _ -> error $ "withCreateProcess didn't throw UserInterrupt: " ++ show res
+            _ -> error $ "expected UserInterrupt, got " ++ show res
 
     unless (null es) $
         error $ "uncaught exceptions: " ++ show es