pathtype 0.0.2 → 0.0.3
raw patch · 2 files changed
+7/−12 lines, 2 filesdep ~QuickCheck
Dependency ranges changed: QuickCheck
Files
- System/Path.hs +5/−10
- pathtype.cabal +2/−2
System/Path.hs view
@@ -885,9 +885,6 @@ quickCheck prop_splitCombine putStrLn "Tests completed." -vectorOf :: Gen a -> Int -> Gen [a]-vectorOf gen n = sequence [ gen | i <- [1..n] ]- -- test :: Testable a => a -> IO () -- test = quickCheck @@ -910,15 +907,16 @@ qcFilePath :: Gen (FilePath ar) qcFilePath = do- numDirs <- arbitrary- pcs <- vectorOf qcDirComponent numDirs+ (NonNegative numDirs) <- arbitrarySizedIntegral+ pcs <- vectorOf numDirs qcDirComponent pc <- qcFileComponent return $ mkPathFromComponents (pcs ++ [pc]) + qcDirPath :: Gen (DirPath ar) qcDirPath = do- numDirs <- arbitrary- pcs <- vectorOf qcDirComponent numDirs+ (NonNegative numDirs) <- arbitrarySizedIntegral+ pcs <- vectorOf numDirs qcDirComponent pc <- qcDirComponent return $ mkPathFromComponents (pcs ++ [pc]) @@ -927,14 +925,11 @@ instance Arbitrary PathComponent where arbitrary = oneof [qcFileComponent, qcDirComponent]- coarbitrary = error "No PathComponent coarbitrary" instance Arbitrary (Path ar File) where arbitrary = qcFilePath- coarbitrary = error "No (FilePath ar) coarbitrary" instance Arbitrary (Path ar Dir) where arbitrary = qcDirPath- coarbitrary = error "No DirPath coarbitrary"
pathtype.cabal view
@@ -1,5 +1,5 @@ Name: pathtype-Version: 0.0.2+Version: 0.0.3 Synopsis: Type-safe replacement for System.FilePath etc Description: This package provides type-safe access to filepath manipulations. .@@ -90,7 +90,7 @@ location: http://code.haskell.org/pathtype Library- Build-Depends: base >= 4 && < 5, directory >= 1 && < 2, old-time >= 1.0 && < 2, QuickCheck >= 1.2 && < 2+ Build-Depends: base >= 4 && < 5, directory >= 1 && < 2, old-time >= 1.0 && < 2, QuickCheck >= 2.1.0.1 && < 3 Exposed-modules: System.Path, System.Path.Directory, System.Path.IO Extensions: EmptyDataDecls, PatternGuards, FlexibleInstances, Rank2Types, OverloadedStrings