indent :: Int -> String -> String
indent n str = intercalate "\n" (fmap go ls)
  where
    ls = splitOn "\n" str
    go line
      | null line = line
      | otherwise = replicate n ' ' ++ line
indent :: Int -> String -> String
indent n str = intercalate "\n" (fmap go ls)
  where
    ls = splitOn "\n" str
    go line
      | null line = line
      | otherwise = replicate n ' ' ++ line
indent n str = intercalate "\n" (fmap go ls)
  where
    ls = splitOn "\n" str
    go line
      | null line = line
      | otherwise = replicate n ' ' ++ line