Commit 2e5686cbe38e588102c5f6d0a83d65979c51e927
Parent: bb01110c3e4ada856768e4b50615d50ab46b4d58
Author: mcol <mcol@posteo.net>
Date: 2022-04-03 16:23:56 +0100
Committer: mcol <mcol@posteo.net>
Committed: 2022-04-03 16:23:56 +0100

Clear terminal when printing current stage

sudoku.hs Modified

@@ -91,7 +91,7 @@
 Graphically represent the puzzle layout.
 -}
 showPuzzle :: Puzzle -> String
-showPuzzle = (<>) " " . unwords . map organise . assocs . fmap render
+showPuzzle = (<>) "\ESC[2J " . unwords . map organise . assocs . fmap render
   where
     render Nothing = " "
     render (Just v) = show . (+) 1 . fromEnum $ v