diff options
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Binary.hs | 6 | ||||
| -rw-r--r-- | compiler/utils/FastString.lhs | 6 | ||||
| -rw-r--r-- | compiler/utils/FastTypes.lhs | 10 |
3 files changed, 11 insertions, 11 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 26f4fae01f..f02624533e 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -234,7 +234,7 @@ expandBin (BinMem _ _ sz_r arr_r) off = do arr' <- mallocForeignPtrBytes sz' withForeignPtr arr $ \old -> withForeignPtr arr' $ \new -> - copyBytes new old sz + copyBytes new old sz writeFastMutInt sz_r sz' writeIORef arr_r arr' @@ -628,8 +628,8 @@ newReadState get_name get_fs ud_put_name = undef "put_name", ud_put_fs = undef "put_fs" } - -newWriteState :: (BinHandle -> Name -> IO ()) + +newWriteState :: (BinHandle -> Name -> IO ()) -> (BinHandle -> FastString -> IO ()) -> UserData newWriteState put_name put_fs diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs index 4e4a46800d..9f5ac37875 100644 --- a/compiler/utils/FastString.lhs +++ b/compiler/utils/FastString.lhs @@ -79,17 +79,17 @@ module FastString -- * LitStrings LitString, - + -- ** Construction sLit, #if defined(__GLASGOW_HASKELL__) mkLitString#, #endif mkLitString, - + -- ** Deconstruction unpackLitString, - + -- ** Operations lengthLS ) where diff --git a/compiler/utils/FastTypes.lhs b/compiler/utils/FastTypes.lhs index ace46e6e1b..1c67d5a1ef 100644 --- a/compiler/utils/FastTypes.lhs +++ b/compiler/utils/FastTypes.lhs @@ -14,10 +14,10 @@ module FastTypes ( -- * FastInt FastInt, - + -- ** Getting in and out of FastInt _ILIT, iBox, iUnbox, - + -- ** Arithmetic on FastInt (+#), (-#), (*#), quotFastInt, negateFastInt, --quotRemFastInt is difficult because unboxed values can't @@ -51,11 +51,11 @@ module FastTypes ( --character values above the range of Unicode -- * FastPtr - FastPtr, - + FastPtr, + -- ** Getting in and out of FastPtr pBox, pUnbox, - + -- ** Casting FastPtrs castFastPtr ) where |