File tree Expand file tree Collapse file tree 4 files changed +5
-5
lines changed Expand file tree Collapse file tree 4 files changed +5
-5
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 now 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 now 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 now 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 now valid: " ++ show ps)
21
21
lift ps
22
22
, quotePat = \ _ ->
23
23
fail " illegal QuasiQuote (allowed as expression only, used as a pattern)"
Original file line number Diff line number Diff line change 1
1
cabal-version : 2.2
2
2
name : filepath
3
- version : 1.4.99.3
3
+ version : 1.4.99.4
4
4
5
5
-- NOTE: Don't forget to update ./changelog.md
6
6
license : BSD-3-Clause
You can’t perform that action at this time.
0 commit comments