colorize quoted lines

1 files changed, 6 insertions, 0 deletions

diff --git a/Utils.hs b/Utils.hs
index 8d1f624..b0dcf87 100644
--- a/Utils.hs
+++ b/Utils.hs
@@ -21,3 +21,9 @@ padl n c s =
     if length s < n
         then padl n c (c:s)
         else s
+
+padr :: Int -> a -> [a] -> [a]
+padr n c s =
+    if length s < n
+        then padr n c (s ++ [c])
+        else s