diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-05-03 14:48:31 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-06 14:29:52 +0100 |
| commit | da4ff650ae77930a5a10d4886c8bc7d37f081db7 (patch) | |
| tree | e3126af132cdbc8e1f76016d8c7fbf96feb39f2e /compiler/codeGen/StgCmmMonad.hs | |
| parent | 967f746994802f50011a03c983417a6fca18de27 (diff) | |
| download | haskell-da4ff650ae77930a5a10d4886c8bc7d37f081db7.tar.gz | |
Comments and white space only
Diffstat (limited to 'compiler/codeGen/StgCmmMonad.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmMonad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmMonad.hs b/compiler/codeGen/StgCmmMonad.hs index 1f3d5c4886..c0cd88277d 100644 --- a/compiler/codeGen/StgCmmMonad.hs +++ b/compiler/codeGen/StgCmmMonad.hs @@ -553,8 +553,8 @@ forkStatics :: FCode a -> FCode a -- The Abstract~C returned is attached to the current state, but the -- bindings and usage information is otherwise unchanged. forkStatics body_code - = do { dflags <- getDynFlags - ; info <- getInfoDown + = do { dflags <- getDynFlags + ; info <- getInfoDown ; us <- newUniqSupply ; state <- getState ; let rhs_info_down = info { cgd_statics = cgs_binds state |