Tidying

diff --git a/advent17/Main.hs b/advent17/Main.hs
index d9f5a16eb294d2f491fe441df90dba5f46334106..d7b0fa6cd3313f101c6e93c9207f233cb20e0808 100644 (file)
--- a/advent17/Main.hs
+++ b/advent17/Main.hs
@@ -30,8 +30,8 @@ main =
   do  dataFileName <- getDataFileName
       text <- TIO.readFile dataFileName
       let (machine, program) = successfulParse text
-      print machine
-      print program
+      -- print machine
+      -- print program
       print $ part1 program machine
       print $ part2 program machine