Play 5 characters in debug files

This fixes #52
entropia · Mar 3, 2014 · 580c75e · 580c75e
1 parent 559f449
commit 580c75e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tttool.hs b/tttool.hs
@@ -1361,8 +1361,8 @@ debugGame productID = do
         , ttScripts = [
             (oid, Just [line])
             | oid <- [1..15000]
-            , let chars = [oid `div` 10^p `mod` 10| p <-[3,2,1,0]]
-            , let line = Line 0 [] [Play n | n <- [0..4]] ([10] ++ chars)
+            , let chars = [oid `div` 10^p `mod` 10| p <-[4,3,2,1,0]]
+            , let line = Line 0 [] [Play n | n <- [0..5]] ([10] ++ chars)
             ]
         , ttGames = []
         , ttAudioFiles = files