X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FNCGMonad.hs;h=2a7376838a9b96075de9d4e683165d8c0f928596;hb=d8d65a2939fbbab478c895de5f432cb0da869709;hp=8b9629b1d898b9b881703c22fd9f990f9ae7c303;hpb=14a496fd0b3aa821b69eb02736d5f41086576761;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/NCGMonad.hs b/compiler/nativeGen/NCGMonad.hs
index 8b9629b..2a73768 100644
--- a/compiler/nativeGen/NCGMonad.hs
+++ b/compiler/nativeGen/NCGMonad.hs
@@ -120,7 +120,7 @@ addImportNat imp
 getBlockIdNat :: NatM BlockId
 getBlockIdNat 
  = do	u <- getUniqueNat
- 	return (BlockId u)
+ 	return (mkBlockId u)
 
 
 getNewLabelNat :: NatM CLabel