X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FEvent%2FArray.hs;fp=System%2FEvent%2FArray.hs;h=464bbf4a69a176ee5b6a5a952357dc71c4bac423;hb=5caacc93b6904c13dd363f3ba4815c25c6c4fb26;hp=ff4b32c241f0df0f595028d59049b928060a61d3;hpb=a6ad1ebfcad259e9b8ba60c32ab04437e328f54a;p=ghc-base.git

diff --git a/System/Event/Array.hs b/GHC/Event/Array.hs
similarity index 98%
rename from System/Event/Array.hs
rename to GHC/Event/Array.hs
index ff4b32c..464bbf4 100644
--- a/System/Event/Array.hs
+++ b/GHC/Event/Array.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE BangPatterns, CPP, ForeignFunctionInterface, NoImplicitPrelude #-}
 
-module System.Event.Array
+module GHC.Event.Array
     (
       Array
     , capacity
@@ -46,7 +46,7 @@ import GHC.Show (show)
 -- This fugly hack is brought by GHC's apparent reluctance to deal
 -- with MagicHash and UnboxedTuples when inferring types. Eek!
 #define CHECK_BOUNDS(_func_,_len_,_k_) \
-if (_k_) < 0 || (_k_) >= (_len_) then error ("System.Event.Array." ++ (_func_) ++ ": bounds error, index " ++ show (_k_) ++ ", capacity " ++ show (_len_)) else
+if (_k_) < 0 || (_k_) >= (_len_) then error ("GHC.Event.Array." ++ (_func_) ++ ": bounds error, index " ++ show (_k_) ++ ", capacity " ++ show (_len_)) else
 #else
 #define CHECK_BOUNDS(_func_,_len_,_k_)
 #endif