From be703250238d6be7f7b9bcb4adaf5c72c23a3bf2 Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Fri, 9 Dec 2016 15:54:59 +0000
Subject: [PATCH] Tweaking

---
 advent08.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/advent08.hs b/advent08.hs
index e314b67..c89ba80 100644
--- a/advent08.hs
+++ b/advent08.hs
@@ -29,6 +29,7 @@ showScreen screen = unlines [showRow r | r <- [minRow..maxRow]]
 countLights :: Screen -> Int
 countLights screen = length $ filter (id) $ elems screen
 
+screen0 :: Screen
 screen0 = mkScreen 50 6
 
 
@@ -36,7 +37,6 @@ main :: IO ()
 main = do
     text <- readFile "advent08.txt"
     let instrs = successfulParse $ parseCommands text
-    -- print instrs
     part1 instrs
     part2 instrs
 
@@ -84,6 +84,8 @@ execute (Rotate Row r n) screen = (rotateRow screen r n, 0)
 extractScreen :: ScState Int -> Screen
 extractScreen (ScState st) = fst (st screen0)
 
+
+
 parseCommands :: String -> Either ParseError [Command]
 parseCommands input = parse commandFile "(unknown)" input
 
-- 
2.34.1