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/Binary.hs | |
| parent | 03e44ee7ff9fbfad6a94e32a9c394c2166ff4284 (diff) | |
| download | haskell-6eec7bc5b1e541705911a617f82501fe59319996.tar.gz | |
Trailing whitespaces
Diffstat (limited to 'compiler/utils/Binary.hs')
| -rw-r--r-- | compiler/utils/Binary.hs | 6 |
1 files changed, 3 insertions, 3 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 |