summaryrefslogtreecommitdiff
path: root/hsolve
diff options
context:
space:
mode:
Diffstat (limited to 'hsolve')
-rw-r--r--hsolve/Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/hsolve/Main.hs b/hsolve/Main.hs
index 7688b4e..a2a1676 100644
--- a/hsolve/Main.hs
+++ b/hsolve/Main.hs
@@ -260,7 +260,7 @@ writeSudokuDiff su1 su2 =
intercalate "\n" $ flip map [0..8] $ \r ->
let line = flip concatMap [0..8] $ \c ->
(if c > 1 && c `mod` 3 == 0 then " " else "")
- ++ (if c > 1 then " " else "")
+ ++ (if c > 0 then " " else "")
++ case (su1 `at` (9 * r + c), su2 `at` (9 * r + c)) of
(Left v1, Left v2)
| v1 == v2 -> show (v2 + 1) ++ printposs pe pe