Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
Packages
text
Commits
56cba054
Commit
56cba054
authored
Nov 13, 2021
by
Bodigrim
Committed by
Xia Li-yao
Nov 14, 2021
Browse files
Tests: do not assume that system locale is Unicode-compatible
parent
f2eaf978
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/Tests/QuickCheckUtils.hs
View file @
56cba054
...
...
@@ -248,11 +248,13 @@ write_read unline filt writer reader nl buf ts = ioProperty $
t
=
unline
.
map
(
filt
(
not
.
(`
elem
`
"
\r\n
"
)))
$
ts
act
=
withTempFile
$
\
path
h
->
do
IO
.
hSetEncoding
h
IO
.
utf8
IO
.
hSetNewlineMode
h
nl
IO
.
hSetBuffering
h
buf
()
<-
writer
h
t
IO
.
hClose
h
bracket
(
IO
.
openFile
path
IO
.
ReadMode
)
IO
.
hClose
$
\
h'
->
do
IO
.
hSetEncoding
h'
IO
.
utf8
IO
.
hSetNewlineMode
h'
nl
IO
.
hSetBuffering
h'
buf
r
<-
reader
h'
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment