Also validate in pstr pattern

haskell · Dec 11, 2023 · 69141cb · 69141cb
1 parent 1c7f639
commit 69141cb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/System/OsPath/Posix.hs b/System/OsPath/Posix.hs
@@ -22,6 +22,7 @@ pstr =
       lift ps
   , quotePat = \s -> do
       osp' <- either (fail . show) pure . encodeWith (mkUTF8 ErrorOnCodingFailure) $ s
+      when (not $ isValid osp') $ fail ("filepath not valid: " ++ show osp')
       [p|((==) osp' -> True)|]
   , quoteType = \_ ->
       fail "illegal QuasiQuote (allowed as expression or pattern only, used as a type)"

diff --git a/System/OsPath/Windows.hs b/System/OsPath/Windows.hs
@@ -23,6 +23,7 @@ pstr =
       lift ps
   , quotePat = \s -> do
       osp' <- either (fail . show) pure . encodeWith (mkUTF16le ErrorOnCodingFailure) $ s
+      when (not $ isValid osp') $ fail ("filepath not valid: " ++ show osp')
       [p|((==) osp' -> True)|]
   , quoteType = \_ ->
       fail "illegal QuasiQuote (allowed as expression or pattern only, used as a type)"