diff --git a/app/rofi-dev.hs b/app/rofi-dev.hs
index 531efb8..50fb765 100644
--- a/app/rofi-dev.hs
+++ b/app/rofi-dev.hs
@@ -177,8 +177,9 @@ alignEntries ps = NE.zip (align es) as
     align =
       fmap (T.intercalate alignSep . NE.toList)
         . NE.transpose
-        . fmap padAll
+        . fmap1 padAll
         . NE.transpose
+    fmap1 f (x :| xs) = (f x) :| xs
     padAll xs = let m = maxNE $ fmap T.length xs in fmap (rpad m ' ') xs
     maxNE (x :| []) = x
     maxNE (x :| (y : ys)) = maxNE $ (max x y) :| ys