showConfig :: TConfig -> String
showConfig c =
    case directives c of
      []    -> "Config is empty!"
      (h:t) -> unlines . indent . concat $ map showCfgChild (h:t)
showConfig :: TConfig -> String
showConfig c =
    case directives c of
      []    -> "Config is empty!"
      (h:t) -> unlines . indent . concat $ map showCfgChild (h:t)
showConfig c =
    case directives c of
      []    -> "Config is empty!"
      (h:t) -> unlines . indent . concat $ map showCfgChild (h:t)