Empty Validity PLATFORM_PATH instance

commercialhaskell · Jul 19, 2024 · 9de73ab · 9de73ab
1 parent db0807f
commit 9de73ab
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git 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
@@ -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