X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=mate.git;a=blobdiff_plain;f=Mate%2FMethodPool.hs;fp=Mate%2FMethodPool.hs;h=9280112455f8fcba9e57a80bcc15beb64df18366;hp=db83f98b51465b917c3795da42a6dc8439d3ce11;hb=6eb91f6ec18c7cbfecd62fa80083aa03cecdeae8;hpb=a6e23e6cdfff068398a0e50bcd757832554effb5

diff --git a/Mate/MethodPool.hs b/Mate/MethodPool.hs
index db83f98..9280112 100644
--- a/Mate/MethodPool.hs
+++ b/Mate/MethodPool.hs
@@ -142,7 +142,7 @@ compileBB rawmethod methodinfo = do
   let cgconfig = defaultCodeGenConfig { codeBufferSize = fromIntegral $ rawCodeLength rawmethod * 32 }
   (_, Right right) <- runCodeGenWithConfig ebb () () cgconfig
 
-  let ((entry, _, _, new_tmap), _) = right
+  let ((entry, _, new_tmap), _) = right
   setTrapMap $ tmap `M.union` new_tmap -- prefers elements in tmap
 
   printfJit $ printf "generated code of \"%s\" from \"%s\":\n" (toString $ methName methodinfo) (toString $ methClassName methodinfo)