Initial commit

src/AoC/Riddle.hs

@@ -0,0 +1,20 @@
+module AoC.Riddle (
+  Riddle (..),
+  Error (..),
+  Solution (..),
+  loadRiddle,
+) where
+
+import AoC.Util (readFileUtf8)
+
+import AoC.Day
+import AoC.Year
+
+type Riddle = Text
+type Error = Text
+type Solution = [Integer]
+
+loadRiddle :: (MonadIO m) => Year -> Day -> m Riddle
+loadRiddle y d = readFileUtf8 inputFile
+ where
+  inputFile = intercalate "/" ["data", show y, show d, "riddle"]