Fix aoc2024 build

- Holes are no longer allowed when building executables
- Stack overflow in mapMaybe (Day15)
This commit is contained in:
2025-04-10 08:50:52 -04:00
parent 0ce1a5e454
commit d6156ebc79
8 changed files with 16 additions and 17 deletions

View File

@@ -21,7 +21,7 @@ part1 : List File -> Int
part1 fs = go 0 0 fs $ reverse fs
where
go : Int -> Int -> List File -> List File -> Int
go pos csum Nil bwd = ?
go pos csum Nil bwd = fatalError "Shouldn't happen"
go pos csum fwd Nil = csum
go pos csum ((id, 0, 0) :: fwd) bwd = go pos csum fwd bwd
go pos csum fwd ((id, 0, _) :: bwd) = go pos csum fwd bwd