-data TrapCause =
- StaticMethod MethodInfo | -- for static calls
- VirtualCall Bool MethodInfo (IO NativeWord) | -- for invoke{interface,virtual}
- InstanceOf B.ByteString | -- class name
- NewObject B.ByteString | -- class name
- StaticField StaticFieldInfo
+data TrapCause
+ = StaticMethod MethodInfo -- for static calls
+ | VirtualCall Bool MethodInfo (IO NativeWord) -- for invoke{interface,virtual}
+ | InstanceOf B.ByteString -- class name
+ | NewObject B.ByteString -- class name
+ | StaticField StaticFieldInfo