Make haskell-align-imports-padding a total function

jwiegley · Apr 2, 2014 · a0a33d3 · a0a33d3
1 parent 110aa35
commit a0a33d3
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/haskell-align-imports.el b/haskell-align-imports.el
@@ -149,9 +149,11 @@
 
 (defun haskell-align-imports-padding (imports)
   "Find the padding for each part of the import statements."
-  (reduce (lambda (a b) (mapcar* #'max a b))
-          (mapcar (lambda (x) (mapcar #'length (car x)))
-                  imports)))
+  (if (null imports)
+      imports
+    (reduce (lambda (a b) (mapcar* #'max a b))
+            (mapcar (lambda (x) (mapcar #'length (car x)))
+                    imports))))
 
 (defun haskell-align-imports-fill (padding line)
   "Fill an import line using the padding worked out from all statements."