From 2e78ae2ccdfa9165e65ee3b583d2341bdb959217 Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Fri, 9 Dec 2016 18:22:09 +0000
Subject: [PATCH] Made show a bit clearer

---
 advent08.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/advent08.hs b/advent08.hs
index c89ba80..7def6d1 100644
--- a/advent08.hs
+++ b/advent08.hs
@@ -22,8 +22,8 @@ mkScreen w h = array ((0, 0), (h - 1, w - 1))
 showScreen :: Screen -> String
 showScreen screen = unlines [showRow r | r <- [minRow..maxRow]]
     where ((minRow, minCol), (maxRow, maxCol)) = bounds screen
-          showCell True  = '#'
-          showCell False = '.'
+          showCell True  = '*'
+          showCell False = ' '
           showRow r = [showCell (screen!(r, c)) | c <- [minCol..maxCol]]
 
 countLights :: Screen -> Int
-- 
2.34.1