quickpull-0.2.0.0: lib/Quickpull/Formatting.hs

module Quickpull.Formatting where

indentAmt :: Int
indentAmt = 2

indent :: Int -> String -> String
indent d s = replicate (d * 2) ' ' ++ s ++ "\n"

(<+>) :: String -> String -> String
l <+> r
  | null l || null r = l ++ r
  | otherwise = l ++ " " ++ r