Removed some comments

diff --git a/src/advent09/advent09.hs b/src/advent09/advent09.hs
index 0cae08bfbeb57b9b7204eef6dbaebec8e938c718..266971b5046e84dcafad635778e88c5b5b0a9696 100644 (file)
--- a/src/advent09/advent09.hs
+++ b/src/advent09/advent09.hs
@@ -45,10 +45,6 @@ main = do
         print $ part1 numberOfPlayers numberOfMarbles
         print $ part1 numberOfPlayers (numberOfMarbles * 100)
 
-
-        -- putStrLn $ part1 schedule
-        -- print $ part2 schedule
-
 part1 players marbles = highScore $ playGame players marbles
 
 playGame :: Integer -> Integer -> Game
@@ -120,9 +116,6 @@ symb = L.symbol sc
 infixP = symb "players; last marble is worth"
 suffixP = symb "points"
 
-
--- linkP = pairify <$> prefixP <*> upperChar <* infixP <*> upperChar <* suffixP 
---     where pairify _ a b = (a, b)
 gameFileP = (,) <$> integer <* infixP <*> integer <* suffixP 
 
 successfulParse :: Text -> (Integer, Integer)