ibraryPath p =
  upd (\s -> s{libraryPaths = libraryPaths s ++ splitPathList p})

ad
addLibraryPath p =
  upd (\s -> s{libraryPaths = libraryPaths s ++ splitPathList p})
addLibraryPath p =
  upd (\s -> s{libraryPaths = libraryPaths s ++ splitPathList p})