Add low-level types, parser module, and test harness

Author: Minoru

icfpc-y2026.cabal

@@ -25,6 +25,8 @@ source-repository head
 library
   exposed-modules:
       Lib
+      Parser.LL
+      Types.LL
   other-modules:
       Paths_icfpc_y2026
   hs-source-dirs:
@@ -50,11 +52,14 @@ test-suite icfpc-y2026-test
   type: exitcode-stdio-1.0
   main-is: Spec.hs
   other-modules:
+      Test.Parser.LL
       Paths_icfpc_y2026
   hs-source-dirs:
       test
   ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N
   build-depends:
       base >=4.7 && <5
     , icfpc-y2026
+    , tasty
+    , tasty-hunit
   default-language: Haskell2010

package.yaml

@@ -57,3 +57,5 @@ tests:
     - -with-rtsopts=-N
     dependencies:
     - icfpc-y2026
+    - tasty
+    - tasty-hunit

src/Parser/LL.hs

@@ -0,0 +1,9 @@
+module Parser.LL (
+    parse
+  )
+  where
+
+import Types.LL
+
+parse :: String -> Maybe ManProgram
+parse = const Nothing

src/Types/LL.hs

@@ -0,0 +1,30 @@
+module Types.LL (
+    Point(..)
+  , Room(..)
+  , Pipe(..)
+  , ManProgram(..)
+  )
+  where
+
+-- | (0, 0) is top left.
+data Point = Point {
+    x :: Int
+  , y :: Int
+  }
+
+data Room = Room {
+    topleft :: Point
+  , width :: Int
+  , height :: Int
+  , ops :: [[Char]]
+  }
+
+data Pipe = Pipe {
+  start :: Point
+  , end :: Point
+  }
+
+data ManProgram = ManProgram {
+    rooms :: [Room]
+  , pipes :: [Pipe]
+  }

test/Spec.hs

@@ -1,2 +1,9 @@
+import Test.Tasty
+
+import qualified Test.Parser.LL (tests)
+
 main :: IO ()
-main = putStrLn "Test suite not yet implemented"
+main = defaultMain tests
+
+tests :: TestTree
+tests = testGroup "Tests" [Test.Parser.LL.tests]

test/Test/Parser/LL.hs

@@ -0,0 +1,6 @@
+module Test.Parser.LL (tests) where
+
+import Test.Tasty
+
+tests :: TestTree
+tests = testGroup "Parser.LL" []