Fix CI

Author: rnjtranjan

test/Main.hs

@@ -183,7 +183,7 @@ printResult :: String -> String -> IO String -> IO ()
 printResult tc expec m = do
     res <- m
     if res == expec
-    then print (tc ++ "->" ++ "PASS") >> exitSuccess 
+    then print (tc ++ "->" ++ "PASS")
     else print (tc ++ "->" ++ "FAILED") >> exitFailure
 
 testRm :: IO ()