| ... |
... |
@@ -41,10 +41,10 @@ module GHC.Base |
|
41
|
41
|
, gtWord, geWord, leWord, ltWord, compareWord, compareWord#
|
|
42
|
42
|
|
|
43
|
43
|
-- * C Strings
|
|
44
|
|
- , unpackCString#, unpackAppendCString#, unpackFoldrCString#
|
|
45
|
|
- , cstringLength#
|
|
46
|
|
- , unpackCStringUtf8#, unpackAppendCStringUtf8#, unpackFoldrCStringUtf8#
|
|
47
|
|
- , unpackNBytes#
|
|
|
44
|
+ , CS.unpackCString#, CS.unpackAppendCString#, CS.unpackFoldrCString#
|
|
|
45
|
+ , CS.cstringLength#
|
|
|
46
|
+ , CS.unpackCStringUtf8#, CS.unpackAppendCStringUtf8#, CS.unpackFoldrCStringUtf8#
|
|
|
47
|
+ , CS.unpackNBytes#
|
|
48
|
48
|
|
|
49
|
49
|
-- * Magic combinators
|
|
50
|
50
|
, inline, noinline, lazy, oneShot, runRW#, seq#, DataToTag(..)
|
| ... |
... |
@@ -394,7 +394,17 @@ import GHC.Internal.Err |
|
394
|
394
|
import GHC.Internal.IO (seq#)
|
|
395
|
395
|
import GHC.Internal.Magic.Dict
|
|
396
|
396
|
import GHC.Internal.Maybe
|
|
|
397
|
+import qualified GHC.Types as CS (
|
|
|
398
|
+ unpackCString#, unpackAppendCString#, unpackFoldrCString#,
|
|
|
399
|
+ cstringLength#,
|
|
|
400
|
+ unpackCStringUtf8#, unpackAppendCStringUtf8#, unpackFoldrCStringUtf8#,
|
|
|
401
|
+ unpackNBytes#
|
|
|
402
|
+ )
|
|
397
|
403
|
import GHC.Types hiding (
|
|
|
404
|
+ unpackCString#, unpackAppendCString#, unpackFoldrCString#,
|
|
|
405
|
+ cstringLength#,
|
|
|
406
|
+ unpackCStringUtf8#, unpackAppendCStringUtf8#, unpackFoldrCStringUtf8#,
|
|
|
407
|
+ unpackNBytes#,
|
|
398
|
408
|
Unit#,
|
|
399
|
409
|
Solo#(..),
|
|
400
|
410
|
Tuple0#,
|