From b68ac986af96a80030e6bce19c0be32383c71473 Mon Sep 17 00:00:00 2001
From: Martin Potier <mpo.does.aoc2020@marvid.fr>
Date: Mon, 7 Dec 2020 22:07:42 +0200
Subject: [PATCH] Add exampleData

---
 day7/main.hs | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/day7/main.hs b/day7/main.hs
index 35a1e3c..36c3384 100755
--- a/day7/main.hs
+++ b/day7/main.hs
@@ -5,8 +5,21 @@
 
 {-# LANGUAGE OverloadedStrings #-}
 
+exampleData :: [String]
+exampleData =
+  [ "light red bags contain 1 bright white bag, 2 muted yellow bags."
+  , "dark orange bags contain 3 bright white bags, 4 muted yellow bags."
+  , "bright white bags contain 1 shiny gold bag."
+  , "muted yellow bags contain 2 shiny gold bags, 9 faded blue bags."
+  , "shiny gold bags contain 1 dark olive bag, 2 vibrant plum bags."
+  , "dark olive bags contain 3 faded blue bags, 4 dotted black bags."
+  , "vibrant plum bags contain 5 faded blue bags, 6 dotted black bags."
+  , "faded blue bags contain no other bags."
+  , "dotted black bags contain no other bags."
+  ]
+
 main :: IO ()
 main = do
-  input <- lines <$> readFile "day7/input"
+  _input <- lines <$> readFile "day7/input"
   putStrLn "Day 7 - Part 1"
-  print $ input
+  print $ exampleData