mportPath p  = upd (\s -> s{importPaths = importPaths s ++ splitPathList p})

ad
addImportPath p  = upd (\s -> s{importPaths = importPaths s ++ splitPathList p})
addImportPath p  = upd (\s -> s{importPaths = importPaths s ++ splitPathList p})