File tree Expand file tree Collapse file tree 3 files changed +4
-4
lines changed Expand file tree Collapse file tree 3 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -117,7 +117,7 @@ osp = QuasiQuoter
117
117
#if defined(mingw32_HOST_OS) || defined(__MINGW32__)
118
118
{ quoteExp = \ s -> do
119
119
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')
121
121
lift osp'
122
122
, quotePat = \ _ ->
123
123
fail " illegal QuasiQuote (allowed as expression only, used as a pattern)"
@@ -129,7 +129,7 @@ osp = QuasiQuoter
129
129
#else
130
130
{ quoteExp = \ s -> do
131
131
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')
133
133
lift osp'
134
134
, quotePat = \ _ ->
135
135
fail " illegal QuasiQuote (allowed as expression only, used as a pattern)"
Original file line number Diff line number Diff line change 16
16
QuasiQuoter
17
17
{ quoteExp = \ s -> do
18
18
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)
20
20
lift ps
21
21
, quotePat = \ _ ->
22
22
fail " illegal QuasiQuote (allowed as expression only, used as a pattern)"
Original file line number Diff line number Diff line change 17
17
QuasiQuoter
18
18
{ quoteExp = \ s -> do
19
19
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)
21
21
lift ps
22
22
, quotePat = \ _ ->
23
23
fail " illegal QuasiQuote (allowed as expression only, used as a pattern)"
You can’t perform that action at this time.
0 commit comments