diff --git a/path.cabal b/path.cabal index e8a2667..f5b43d9 100644 --- a/path.cabal +++ b/path.cabal @@ -152,6 +152,7 @@ test-suite validity-test-ospath , os-string , path , validity >= 0.8.0.0 + , validity-bytestring >=0.4.1.0 default-language: Haskell2010 ghc-options: -threaded -rtsopts -with-rtsopts=-N diff --git a/validity-test-ospath/OsPath/Gen/Include.hs b/validity-test-ospath/OsPath/Gen/Include.hs index 2b73979..756fbfa 100644 --- a/validity-test-ospath/OsPath/Gen/Include.hs +++ b/validity-test-ospath/OsPath/Gen/Include.hs @@ -14,6 +14,7 @@ import OsPath.Internal.PLATFORM_NAME import Data.GenValidity import Data.Maybe (mapMaybe) +import Data.Validity.ByteString () import Data.Word (PLATFORM_WORD) import System.OsPath.PLATFORM_NAME (PLATFORM_PATH) import qualified System.OsPath.PLATFORM_NAME as OsPath @@ -157,5 +158,4 @@ instance GenValid PLATFORM_PATH where in shrinkedWithDrive <> shrinkedWithoutDrive -instance Validity PLATFORM_PATH where - validate = trivialValidation -- TODO: Not yet implemented +instance Validity PLATFORM_PATH