diff options
| author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-17 08:55:35 +0100 |
|---|---|---|
| committer | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-18 14:19:45 +0100 |
| commit | 6eec7bc5b1e541705911a617f82501fe59319996 (patch) | |
| tree | d4cb567aacfdec2bf1c76e3a5fe2d13f4e6c05ca /compiler/utils | |
| parent | 03e44ee7ff9fbfad6a94e32a9c394c2166ff4284 (diff) | |
| download | haskell-6eec7bc5b1e541705911a617f82501fe59319996.tar.gz | |
Trailing whitespaces
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 |