2025-12-24 03:23:53 +00:00
1 changed files with 1 additions and 1 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -139,5 +139,5 @@ main = do
    let roffsets = randomOffsets gen allGifts
    args <- getArgs
    let os = if (length args) > 0 then roffsets else offsets
-    let tuples = zip ordinals $ selectGifts os
+    let tuples = zip (reverse ordinals) $ selectGifts os
    putStrLn $ foldr (\a b -> a ++ "\n\n" ++ b) "" $ reverse $ recurseVerse tuples