Skip to content

Commit 0aa10e1

Browse files
committed
Fix error msg
1 parent 04d9705 commit 0aa10e1

File tree

3 files changed

+4
-4
lines changed

3 files changed

+4
-4
lines changed

System/OsPath/Internal.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -117,7 +117,7 @@ osp = QuasiQuoter
117117
#if defined(mingw32_HOST_OS) || defined(__MINGW32__)
118118
{ quoteExp = \s -> do
119119
osp' <- either (fail . show) (pure . OsString) . PF.encodeWith (mkUTF16le ErrorOnCodingFailure) $ s
120-
when (not $ isValid osp') $ fail ("filepath now valid: " ++ show osp')
120+
when (not $ isValid osp') $ fail ("filepath not valid: " ++ show osp')
121121
lift osp'
122122
, quotePat = \_ ->
123123
fail "illegal QuasiQuote (allowed as expression only, used as a pattern)"
@@ -129,7 +129,7 @@ osp = QuasiQuoter
129129
#else
130130
{ quoteExp = \s -> do
131131
osp' <- either (fail . show) (pure . OsString) . PF.encodeWith (mkUTF8 ErrorOnCodingFailure) $ s
132-
when (not $ isValid osp') $ fail ("filepath now valid: " ++ show osp')
132+
when (not $ isValid osp') $ fail ("filepath not valid: " ++ show osp')
133133
lift osp'
134134
, quotePat = \_ ->
135135
fail "illegal QuasiQuote (allowed as expression only, used as a pattern)"

System/OsPath/Posix.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ pstr =
1616
QuasiQuoter
1717
{ quoteExp = \s -> do
1818
ps <- either (fail . show) pure $ encodeWith (mkUTF8 ErrorOnCodingFailure) s
19-
when (not $ isValid ps) $ fail ("filepath now valid: " ++ show ps)
19+
when (not $ isValid ps) $ fail ("filepath not valid: " ++ show ps)
2020
lift ps
2121
, quotePat = \_ ->
2222
fail "illegal QuasiQuote (allowed as expression only, used as a pattern)"

System/OsPath/Windows.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ pstr =
1717
QuasiQuoter
1818
{ quoteExp = \s -> do
1919
ps <- either (fail . show) pure $ encodeWith (mkUTF16le ErrorOnCodingFailure) s
20-
when (not $ isValid ps) $ fail ("filepath now valid: " ++ show ps)
20+
when (not $ isValid ps) $ fail ("filepath not valid: " ++ show ps)
2121
lift ps
2222
, quotePat = \_ ->
2323
fail "illegal QuasiQuote (allowed as expression only, used as a pattern)"

0 commit comments

Comments
 (0)