HEADS UP: (logging format change). use a custom pretty printer, for an easier format to parse, than 'show' produces

2025-08-01 20:51:55 -07:00 · 2007-06-09 13:17:16 +00:00
parent a21c4d02f1
commit 0ada17c34a
4 changed files with 44 additions and 5 deletions
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -412,4 +412,3 @@ shift n s = if and [n >= 0,n < size s,n /= tag (workspace (current s))]
            then maybe s go (peek s) else s
    where go w = foldr ($) s [view (tag (workspace (current s))),insertUp w,view n,delete w]
                           -- ^^ poor man's state monad :-)
-