From c90a5abf0eeded8ff8a4aaee5ef35674236ed197 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 24 Jul 2022 20:54:56 +0200
Subject: Print relevant variable values after expect failure

---
 src/Util.hs | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 src/Util.hs

(limited to 'src/Util.hs')

diff --git a/src/Util.hs b/src/Util.hs
new file mode 100644
index 0000000..99d51f6
--- /dev/null
+++ b/src/Util.hs
@@ -0,0 +1,6 @@
+module Util where
+
+uniq :: Eq a => [a] -> [a]
+uniq (x:y:xs) | x == y    = uniq (x:xs)
+              | otherwise = x : uniq (y:xs)
+uniq xs = xs
-- 
cgit v1.2.3