X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate%2FClassPool.hs;fp=Mate%2FClassPool.hs;h=8d88ad325e31f02e5835aa6923d91888f9b71b23;hb=4f8eac54ade38ddb60f47ba28221353aeb1a0e35;hp=cb38b28fbd22d89b4237c0735e9d395089e7e85e;hpb=5339e1ca42108f2f39bcf45e15a06a05fe068f4e;p=mate.git

diff --git a/Mate/ClassPool.hs b/Mate/ClassPool.hs
index cb38b28..8d88ad3 100644
--- a/Mate/ClassPool.hs
+++ b/Mate/ClassPool.hs
@@ -98,8 +98,8 @@ getStaticFieldAddr from = do
   let sfi = trapmap M.! w32_from
   setTrapMap $ M.delete w32_from trapmap
   case sfi of
-    (SFI (StaticFieldInfo cls field)) -> getStaticFieldOffset cls field
-    _ -> error "getFieldAddr: no trapInfo. abort"
+    (StaticField (StaticFieldInfo cls field)) -> getStaticFieldOffset cls field
+    _ -> error "getFieldAddr: no TrapCause found. abort"
 
 -- interface + method + signature plz!
 getInterfaceMethodOffset :: B.ByteString -> B.ByteString -> B.ByteString -> IO Word32