From 00819c1910f1e9bdad75fc2740792e867d517d58 Mon Sep 17 00:00:00 2001
From: Matt McCutchen <matt@mattmccutchen.net>
Date: Sat, 27 Aug 2011 11:06:22 -0400
Subject: [PATCH] Formatter: Rewrite code that used an n + k pattern

---
 program/Formatter.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/program/Formatter.hs b/program/Formatter.hs
index ed851b3..aab845c 100644
--- a/program/Formatter.hs
+++ b/program/Formatter.hs
@@ -8,7 +8,11 @@ intercalate xs xss = concat (intersperse xs xss)
 padWith :: a -> Int -> [a] -> [a]
 padWith _ 0 l = l
 padWith e n [] = replicate n e
-padWith e (n+1) (h:t) = h:(padWith e n t)
+-- http://hackage.haskell.org/trac/haskell-prime/wiki/RemoveNPlusK
+-- Ugg... GHC could at least give a meaningful error message. ~ Matt 2011-08-27
+padWith e n (h:t) =
+	if n == 0 then error "padWith: list is already longer than the requested length"
+	else h:(padWith e (n-1) t)
 
 formatTable :: [[String]] -> String
 formatTable cells =
-- 
2.34.1