From 55261161c4cb05653c88f15e3537c1d514fefd2e Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Sun, 2 Sep 2018 10:21:43 +0200
Subject: hsolve: Fix print spacing

---
 hsolve/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'hsolve')

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
-- 
cgit v1.2.3-70-g09d2