3 Commits
0.2.0 ... 0.3.0

Author SHA1 Message Date
Chris Done
5613ba1dfa Bump for hackage 2015-05-14 08:02:19 +02:00
Chris Done
07aa83ca19 Remove Generic 2015-05-14 08:01:14 +02:00
Chris Done
a68b46b060 Update test suite 2015-05-11 19:01:35 +02:00
3 changed files with 7 additions and 8 deletions

View File

@@ -1,5 +1,5 @@
name: path
version: 0.2.0
version: 0.3.0
synopsis: Path
description: Path
license: BSD3

View File

@@ -10,7 +10,6 @@ module Path.Internal
where
import Data.Data
import GHC.Generics
-- | Path of some base and type.
--
@@ -22,7 +21,7 @@ import GHC.Generics
-- All directories end in a trailing separator. There are no duplicate
-- path separators @\/\/@, no @..@, no @.\/@, no @~\/@, etc.
newtype Path b t = Path FilePath
deriving (Typeable,Generic)
deriving (Typeable)
-- | String equality.
--

View File

@@ -23,7 +23,7 @@ spec =
describe "Operations: (</>)" operationAppend
describe "Operations: stripDir" operationStripDir
describe "Operations: isParentOf" operationIsParentOf
describe "Operations: parentAbs" operationParentAbs
describe "Operations: parent" operationParent
describe "Operations: filename" operationFilename
-- | The 'filename' operation.
@@ -38,10 +38,10 @@ operationFilename =
filename $(mkRelFile "bar.txt")) ==
$(mkRelFile "bar.txt"))
-- | The 'parentAbs' operation.
operationParentAbs :: Spec
operationParentAbs =
do it "parentAbs (parent </> child) == parent"
-- | The 'parent' operation.
operationParent :: Spec
operationParent =
do it "parent (parent </> child) == parent"
(parent ($(mkAbsDir "/foo") </>
$(mkRelDir "bar")) ==
$(mkAbsDir "/foo"))