From 32e050bac753687b801a40c91e398a0132ccffbc Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Thu, 25 May 2023 00:08:10 +0200
Subject: tags get sourced

---
 Utils.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Utils.hs')

diff --git a/Utils.hs b/Utils.hs
index 2650d2e..c609262 100644
--- a/Utils.hs
+++ b/Utils.hs
@@ -16,3 +16,7 @@ just err Nothing = error ("Missing: " ++ err)
 -- | Test for whether something listy has a suffix
 hasSuffix :: Eq a => [a] -> [a] -> Bool
 hasSuffix s = isJust . stripSuffix s
+
+-- | The same second as from arrows et al.
+second :: (a -> b) -> (c, a) -> (c, b)
+second f (a, b) = (a, f b)
-- 
cgit v1.2.3