1. packageBase <- do
  2.     curDir <- getCurrentDirectory
  3.     return . last . splitDirectories . normalise . joinPath $ curDir:maybeToList package