add AnyDir and AnyFile

Author: safareli

src/Pathy.purs

@@ -7,7 +7,7 @@ module Pathy
   , module Pathy.Sandboxed
   ) where
 
-import Pathy.Path (AbsDir, AbsFile, AbsPath, AnyPath, Path, RelDir, RelFile, RelPath, appendPath, currentDir, dir, dir', extendPath, file, file', fileName, foldPath, name, parentAppend, parentOf, peel, peelFile, refine, relativeTo, rename, renameTraverse, rootDir, setExtension, (<..>), (<.>), (</>))
+import Pathy.Path (AbsDir, AbsFile, AbsPath, AnyPath, AnyDir, AnyFile, Path, RelDir, RelFile, RelPath, appendPath, currentDir, dir, dir', extendPath, file, file', fileName, foldPath, name, parentAppend, parentOf, peel, peelFile, refine, relativeTo, rename, renameTraverse, rootDir, setExtension, (<..>), (<.>), (</>))
 import Pathy.Name (Name(..), joinName, splitName, alterExtension, extension)
 import Pathy.Printer (Escaper(..), Printer, debugPrintPath, posixPrinter, printPath, unsafePrintPath, windowsPrinter)
 import Pathy.Parser (Parser(..), parseAbsDir, parseAbsFile, parsePath, parseRelDir, parseRelFile, posixParser)

src/Pathy/Path.purs

@@ -5,8 +5,10 @@ module Pathy.Path
   , AbsPath
   , RelDir
   , AbsDir
+  , AnyDir
   , RelFile
   , AbsFile
+  , AnyFile
   , rootDir
   , currentDir
   , dir
@@ -85,13 +87,19 @@ type RelDir = Path Rel Dir
 -- | A type describing a directory whose location is absolutely specified.
 type AbsDir = Path Abs Dir
 
+-- | A type describing a absolute or relative directory path.
+type AnyDir = Either AbsDir RelDir
+
 -- | A type describing a file whose location is given relative to some other,
 -- | unspecified directory (referred to as the "current directory").
 type RelFile = Path Rel File
 
 -- | A type describing a file whose location is absolutely specified.
 type AbsFile = Path Abs File
 
+-- | A type describing a absolute or relative file path.
+type AnyFile = Either AbsFile RelFile
+
 -- | The root directory, which can be used to define absolutely-located resources.
 rootDir :: Path Abs Dir
 rootDir = Init