-- | Pad a logger's output with a leading and trailing space, unless it
-- is @X (Nothing)@ or @X (Just \"\")@.
padL :: Logger -> Logger
padL = onLogger pad
padL :: Logger -> Logger
padL = onLogger pad
padL = onLogger pad