X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=mate.git;a=blobdiff_plain;f=Mate%2FX86CodeGen.hs;fp=Mate%2FX86CodeGen.hs;h=af3e98d282a31e37c35e40898c70bfa487eac400;hp=8ac7e7dc79d8b86e1097bd2b94d1d02d06cd89a2;hb=949d0d6c76ea76c18b8df17f1fc05efae17b25be;hpb=92647bcd52a500f5224d33e46f58acb09a537848

diff --git a/Mate/X86CodeGen.hs b/Mate/X86CodeGen.hs
index 8ac7e7d..af3e98d 100644
--- a/Mate/X86CodeGen.hs
+++ b/Mate/X86CodeGen.hs
@@ -99,8 +99,8 @@ emitFromBB cls method = do
 
     getCurrentOffset :: CodeGen e s Word32
     getCurrentOffset = do
-      ep <- (fromIntegral . ptrToIntPtr) `liftM` getEntryPoint
-      offset <- fromIntegral `liftM` getCodeOffset
+      ep <- (fromIntegral . ptrToIntPtr) <$> getEntryPoint
+      offset <- fromIntegral <$> getCodeOffset
       return $ ep + offset
 
     emitInvoke :: Word16 -> Bool -> CodeGen e s (Maybe (Word32, TrapCause))