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
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)"
Original file line number Diff line number Diff line change 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)"
Original file line number Diff line number Diff line change 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)"
You can’t perform that action at this time.
0 commit comments