[fix m4 generated storable instances
John Meacham <john@repetae.net>**20080322004135] hunk ./E/PrimOpt.hs 199
+    primopt pn [] t | Just c <-  getPrefix "const.M_PI" pn = mdo
+        (res,(ta,sta)) <- boxPrimitive dataTable (ELit (LitInt (realToFrac (pi :: Double)) sta)) t; return res
hunk ./lib/base/Foreign/Storable.m4 8
-    poke (Ptr (Addr addr)) ($1 v) = IO $ \w -> case poke$2 v addr w of
+    poke (Ptr (Addr addr)) ($1 v) = IO $ \w -> case poke$2 addr v w of
hunk ./lib/base/Foreign/Storable.m4 15
-foreign import primitive "poke.$3" poke$2 :: $2 -> Addr__ -> UIO_
+foreign import primitive "poke.$3" poke$2 :: Addr__ -> $2 -> UIO_
hunk ./lib/base/Jhc/Inst/Storable.hs 16
-INST_STORABLE(Float,Float32_,fbits<32>)
-INST_STORABLE(Double,Float64_,fbits<64>)
+INST_STORABLE(Float,Float32_,fbits32)
+INST_STORABLE(Double,Float64_,fbits64)