replace tabs by spaces in Trammel String

1 files changed, 3 insertions, 0 deletions

diff --git a/test4.hs b/test4.hs
index b9990a0..d9a2e74 100644
--- a/test4.hs
+++ b/test4.hs
@@ -124,6 +124,7 @@ redraw :: State -> IO ()
 redraw _q@State{..} = do
 
     let image =
+            map (fmap $ fmap $ sub '\t' ' ') $
             map (trammelTake screenWidth . trammelDrop xoffset) $
             take screenHeight $
             headBuffer ++ drop yoffset treeBuffer
@@ -135,6 +136,8 @@ redraw _q@State{..} = do
           putStr $ pp $ "\ESC[H" <> first <> mconcat (map ("\n"<>) rest)
       _ ->
           return ()
+  where
+    sub x x' c = if c == x then x' else c