ncludePath p =
  upd (\s -> s{includePaths = includePaths s ++ splitPathList p})

ad
addIncludePath p =
  upd (\s -> s{includePaths = includePaths s ++ splitPathList p})
addIncludePath p =
  upd (\s -> s{includePaths = includePaths s ++ splitPathList p})