- ep <- getEntryPoint
- let w32_ep = (fromIntegral $ ptrToIntPtr ep) :: Word32
- offset <- getCodeOffset
- return $ w32_ep + fromIntegral offset
+ ep <- (fromIntegral . ptrToIntPtr) `liftM` getEntryPoint
+ offset <- fromIntegral `liftM` getCodeOffset
+ return $ ep + offset