Skip to content

Commit 30052a6

Browse files
committed
Fix build on old GHCs
1 parent ba16c77 commit 30052a6

File tree

4 files changed

+5
-5
lines changed

4 files changed

+5
-5
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 now 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 now 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 now 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 now valid: " ++ show ps)
2121
lift ps
2222
, quotePat = \_ ->
2323
fail "illegal QuasiQuote (allowed as expression only, used as a pattern)"

filepath.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
cabal-version: 2.2
22
name: filepath
3-
version: 1.4.99.3
3+
version: 1.4.99.4
44

55
-- NOTE: Don't forget to update ./changelog.md
66
license: BSD-3-Clause

0 commit comments

Comments
 (0)