From ba470a933de3a9ba1d784e446c5f42dafff9fb8f Mon Sep 17 00:00:00 2001
From: Quinten Kock <quintenkock@gmail.com>
Date: Thu, 16 Dec 2021 08:56:03 +0100
Subject: [PATCH] day16: make decoder more readable

---
 2021/day16.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/2021/day16.hs b/2021/day16.hs
index b3afaf0..121eb2d 100644
--- a/2021/day16.hs
+++ b/2021/day16.hs
@@ -42,6 +42,7 @@ decode p = decode' typeID $ drop 6 p where
     decodeLit [] = error "trying to decode an empty list"
     decodeLit (False:ps) = splitAt 4 ps
     decodeLit (True:ps)  = let (next,rem) = decodeLit (drop 4 ps) in (take 4 ps ++ next, rem)
+    
     decode' :: Int -> [Bool] -> (DecodedPacket, [Bool])
     decode' 4 p = let (num, rem) = decodeLit p in (Lit version typeID (binToDec num), rem)
     decode' x [] = error "unexpected end-of-packet"