projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use explicit language extensions & remove extension fields from base.cabal
[ghc-base.git]
/
GHC
/
IO
/
Encoding
/
UTF32.hs
diff --git
a/GHC/IO/Encoding/UTF32.hs
b/GHC/IO/Encoding/UTF32.hs
index
a7c3054
..
1eef105
100644
(file)
--- a/
GHC/IO/Encoding/UTF32.hs
+++ b/
GHC/IO/Encoding/UTF32.hs
@@
-1,5
+1,10
@@
-{-# OPTIONS_GHC -fno-implicit-prelude -funbox-strict-fields #-}
-{-# LANGUAGE BangPatterns #-}
+{-# LANGUAGE NoImplicitPrelude
+ , BangPatterns
+ , NondecreasingIndentation
+ , MagicHash
+ #-}
+{-# OPTIONS_GHC -funbox-strict-fields #-}
+
-----------------------------------------------------------------------------
-- |
-- Module : GHC.IO.Encoding.UTF32
-----------------------------------------------------------------------------
-- |
-- Module : GHC.IO.Encoding.UTF32
@@
-35,7
+40,7
@@
module GHC.IO.Encoding.UTF32 (
import GHC.Base
import GHC.Real
import GHC.Num
import GHC.Base
import GHC.Real
import GHC.Num
-import GHC.IO
+-- import GHC.IO
import GHC.IO.Exception
import GHC.IO.Buffer
import GHC.IO.Encoding.Types
import GHC.IO.Exception
import GHC.IO.Buffer
import GHC.IO.Encoding.Types
@@
-48,7
+53,8
@@
import GHC.IORef
-- The UTF-32 codec: either UTF-32BE or UTF-32LE with a BOM
utf32 :: TextEncoding
-- The UTF-32 codec: either UTF-32BE or UTF-32LE with a BOM
utf32 :: TextEncoding
-utf32 = TextEncoding { mkTextDecoder = utf32_DF,
+utf32 = TextEncoding { textEncodingName = "UTF-32",
+ mkTextDecoder = utf32_DF,
mkTextEncoder = utf32_EF }
utf32_DF :: IO (TextDecoder (Maybe DecodeBuffer))
mkTextEncoder = utf32_EF }
utf32_DF :: IO (TextDecoder (Maybe DecodeBuffer))
@@
-130,7
+136,8
@@
utf32_native_encode = utf32be_encode
-- UTF32LE and UTF32BE
utf32be :: TextEncoding
-- UTF32LE and UTF32BE
utf32be :: TextEncoding
-utf32be = TextEncoding { mkTextDecoder = utf32be_DF,
+utf32be = TextEncoding { textEncodingName = "UTF-32BE",
+ mkTextDecoder = utf32be_DF,
mkTextEncoder = utf32be_EF }
utf32be_DF :: IO (TextDecoder ())
mkTextEncoder = utf32be_EF }
utf32be_DF :: IO (TextDecoder ())
@@
-153,7
+160,8
@@
utf32be_EF =
utf32le :: TextEncoding
utf32le :: TextEncoding
-utf32le = TextEncoding { mkTextDecoder = utf32le_DF,
+utf32le = TextEncoding { textEncodingName = "UTF-32LE",
+ mkTextDecoder = utf32le_DF,
mkTextEncoder = utf32le_EF }
utf32le_DF :: IO (TextDecoder ())
mkTextEncoder = utf32le_EF }
utf32le_DF :: IO (TextDecoder ())