From 1f6343a964216ac67255df1c00412c672cda0784 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Fri, 30 Nov 2018 22:12:52 +0000
Subject: Make simple test pass

---
 tests/Test.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/Test.hs b/tests/Test.hs
index b1958c3..0c631b8 100644
--- a/tests/Test.hs
+++ b/tests/Test.hs
@@ -10,7 +10,7 @@ unitTests = testGroup "Unit tests"
 
   -- the following test does not hold
   , testCase "List comparison (same length)" $
-      [1, 2, 3] `compare` [1,2,2] @?= LT
+      [1, 2, 3] `compare` [1,2,2] @?= GT
   ]
 
 tests :: TestTree
-- 
cgit