Use Setup.hs to get sdist list + add tar.gz code #313

src/Path/IO.hs

@@ -4,6 +4,9 @@
 
 module Path.IO
   (getWorkingDir
+  ,makeAbsolute
+  ,parseRelAsAbsDir
+  ,parseRelAsAbsFile
   ,listDirectory
   ,resolveDir
   ,resolveFile
@@ -58,6 +61,28 @@ instance Show ResolveException where
 getWorkingDir :: (MonadIO m) => m (Path Abs Dir)
 getWorkingDir = liftIO (D.canonicalizePath "." >>= parseAbsDir)
 
+-- | Take a relative path and base it off the working directory,
+-- yielding an absolute path.
+makeAbsolute :: MonadIO m => Path Rel a -> m (Path Abs a)
+makeAbsolute rel = liftM (</> rel) getWorkingDir
+
+-- | Parse a directory path.  If the path is absolute, it's directly
+-- yielded.  If it's relative, then 'makeAbsolute' is used to base it
+-- off the working directory.
+parseRelAsAbsDir :: (MonadThrow m, MonadIO m) => FilePath -> m (Path Abs Dir)
+parseRelAsAbsDir "." = getWorkingDir
+parseRelAsAbsDir fp
+    | FP.isAbsolute fp = parseAbsDir fp
+    | otherwise = makeAbsolute =<< parseRelDir fp
+
+-- | Parse a file path.  If the path is absolute, it's directly yielded.
+-- If it's relative, then 'makeAbsolute' is used to base it off the
+-- working directory.
+parseRelAsAbsFile :: (MonadThrow m, MonadIO m) => FilePath -> m (Path Abs File)
+parseRelAsAbsFile fp
+    | FP.isAbsolute fp = parseAbsFile fp
+    | otherwise = makeAbsolute =<< parseRelFile fp
+
 -- | Appends a stringly-typed relative path to an absolute path, and then
 -- canonicalizes it.
 resolveDir :: (MonadIO m, MonadThrow m) => Path Abs Dir -> FilePath -> m (Path Abs Dir)