From 5d556b147a593f1b8c8127883055ad07ee347af9 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 1 Jan 2015 23:53:30 +0100
Subject: colorize quoted lines

---
 Utils.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Utils.hs')

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