X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=JVM%2FBuilder.hs;h=155455f6f89d2abefb9a7043283b5e90935f6bf7;hp=f905ab6af5f9f38094ffdec5a84498b51b617e11;hb=36b18161c630292731ef18717a8e7ba80437d090;hpb=69b71af830218d6e1e20fae3cc42fdbaca1816ee

diff --git a/JVM/Builder.hs b/JVM/Builder.hs
index f905ab6..155455f 100644
--- a/JVM/Builder.hs
+++ b/JVM/Builder.hs
@@ -1,9 +1,18 @@
 
 module JVM.Builder
   (module JVM.Builder.Monad,
-   module JVM.Builder.Instructions)
-  where
+   module JVM.Builder.Instructions,
+   arrayOf, sizedArray
+  ) where
+
+import JVM.ClassFile
 
 import JVM.Builder.Monad
 import JVM.Builder.Instructions
 
+arrayOf :: FieldType -> FieldType
+arrayOf t = Array Nothing t
+
+sizedArray :: Int -> FieldType -> FieldType
+sizedArray n t = Array (Just n) t
+