Aligns a "|" delimited file

align.hs

module Main where

import Data.Functor ((<$>))
import Data.List (intercalate, transpose)
import Data.List.Split (splitOn)

(<$$>) = fmap . fmap

main = interact $ unlines . (intercalate "|" <$>) . go . (splitOn "|" <$>) . lines
  where
    go xss = [(uncurry align <$> zip (init maxWidths) xs) ++ [last xs] | xs <- xss]
      where
        align m x = x ++ replicate (m - length x) ' '
        maxWidths = maximum <$> (length <$$> transpose xss)