WIP

docs/developers/CHANGELOG.md

@@ -1,5 +1,8 @@
 # 📅 Revision history for HelPS
 
+## 0.1.0.1  -- 2023-06-18
+* First version. Released on an unsuspecting world.
+
 ## 0.1.0.0  -- 2023-06-18
 * First version. Released on an unsuspecting world.
 

docs/reports/hlint.html

@@ -173,7 +173,7 @@
 <div id="content" valign="top" width="100%">
 <p>
     Report generated by <a href="http://community.haskell.org/~ndm/hlint/">HLint</a>
-v3.1.6
+v3.5
     - a tool to suggest improvements to your Haskell code.
 </p>
 

hs/src/HelVM/HelPS/Quest/Compiler.hs

@@ -0,0 +1,20 @@
+module HelVM.HelPS.Quest.Compiler (compile) where
+
+import qualified HelVM.HelPS.Quest.Grind.Parity as Parity
+
+compile :: Int -> String -> IO String
+--compile n filePath = Parity.compile <$> readRemainingLines n filePath
+
+compile n filePath = do
+  contents <- readRemainingLines n filePath
+  putStrLn contents
+  let result = Parity.compile contents
+  putStrLn result
+  pure result
+
+readRemainingLines :: Int -> FilePath -> IO String
+readRemainingLines n filePath = do
+  contents <- readFile filePath
+  let allLines = lines contents
+  let remainingLines = drop n allLines
+  pure (unlines remainingLines)