fix ordering

glguy · Dec 5, 2023 · 4eaac7d · 4eaac7d
1 parent 56c6301
commit 4eaac7d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/solutions/src/2023/05.hs b/solutions/src/2023/05.hs
@@ -75,9 +75,9 @@ checkMaps :: [(String, String, [(Int, Int, Int)])] -> [[(Interval, Int)]]
 checkMaps input = foldr processMap finish input "seed"
   where
     processMap (from, to, entries) continue expect =
-      check from expect (map entryToInterval entries : continue to)
+      check expect from (map entryToInterval entries : continue to)
 
-    finish final = check final "location" []
+    finish final = check "location" final []
 
     entryToInterval (dst, src, len) = (interval src len, dst - src)