X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FBreakArray.hs;h=50a117097574e124445141589d3baa799f5bacca;hb=a8dc65d6582cc8dda6a1de2862e2d6da80a78d0c;hp=788adf200c1a57f811c21fbe27360636a6027d09;hpb=cdce647711c0f46f5799b24de087622cb77e647f;p=ghc-hetmet.git

diff --git a/compiler/main/BreakArray.hs b/compiler/main/BreakArray.hs
index 788adf2..50a1170 100644
--- a/compiler/main/BreakArray.hs
+++ b/compiler/main/BreakArray.hs
@@ -1,10 +1,15 @@
+-----------------------------------------------------------------------------
 --
 -- Break Arrays in the IO monad
 -- Entries in the array are Word sized 
 --
+-- (c) The University of Glasgow 2007
+--
+-----------------------------------------------------------------------------
 
 module BreakArray
   ( BreakArray (BA)
+        -- constructor is exported only for ByteCodeGen
   , newBreakArray
   , getBreak 
   , setBreakOn 
@@ -21,8 +26,8 @@ import Constants
 data BreakArray = BA (MutableByteArray# RealWorld)
 
 breakOff, breakOn :: Word
-breakOn  = fromIntegral 1
-breakOff = fromIntegral 0
+breakOn  = 1
+breakOff = 0
 
 -- XXX crude
 showBreakArray :: BreakArray -> IO ()