From 59554a0b7b46b8d37e5a4b0bfdd67efefe285dc7 Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Tue, 10 May 2022 17:49:00 +0100
Subject: [PATCH] Minor tweak

---
 advent22/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/advent22/Main.hs b/advent22/Main.hs
index 3712b67..dc67b3f 100644
--- a/advent22/Main.hs
+++ b/advent22/Main.hs
@@ -80,7 +80,9 @@ segmentSize cuboids (here, there)
   | otherwise = 0
 
 segment :: [Int] -> [(Int, Int)]
-segment evs = if null evs then [] else zip evs $ tail evs
+-- segment evs = if null evs then [] else zip evs $ tail evs
+segment [] = []
+segment evs@(_ : tevs) = zip evs tevs
 
 -- Parse the input file
 
-- 
2.34.1