diff options
Diffstat (limited to 'libraries/base/tests/IO/encoding001.hs')
| -rw-r--r-- | libraries/base/tests/IO/encoding001.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/tests/IO/encoding001.hs b/libraries/base/tests/IO/encoding001.hs index c92f8a3ef5..df3c5f914c 100644 --- a/libraries/base/tests/IO/encoding001.hs +++ b/libraries/base/tests/IO/encoding001.hs @@ -33,7 +33,7 @@ main = do hClose h -- convert the UTF-32BE file into each other encoding - forM_ encodings $ \(enc,name) -> do + forM_ encodings $ \(enc,name) -> when (name /= "utf32be") $ do hin <- openFile (file <.> "utf32be") ReadMode hSetEncoding hin utf32be |