X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=JVM%2FTypes.hs;h=9c96144791e4741f10c0c66cd5be416d7c2f75fe;hp=18f57ea98594016c6d33321c1c63a1ea39b675bd;hb=f6998fe3bda57731151b1438ad10dde0572f3e7f;hpb=87988b2e5fdbeb580e2065a8c6dca0a747bb1656

diff --git a/JVM/Types.hs b/JVM/Types.hs
index 18f57ea..9c96144 100644
--- a/JVM/Types.hs
+++ b/JVM/Types.hs
@@ -128,7 +128,7 @@ data AccessFlag =
   | ACC_NATIVE 	     -- ^ 0x0100 Implemented in other language
   | ACC_INTERFACE 	 -- ^ 0x0200 Class is interface
   | ACC_ABSTRACT 	   -- ^ 0x0400 
-  deriving (Eq, Show, Ord)
+  deriving (Eq, Show, Ord, Enum)
 
 -- | Generic attribute
 data Attribute = Attribute {