Misc minor updates.

[hs-java.git] / JVM / Builder.hs

diff --git a/JVM/Builder.hs b/JVM/Builder.hs
index f905ab6af5f9f38094ffdec5a84498b51b617e11..155455f6f89d2abefb9a7043283b5e90935f6bf7 100644 (file)
--- 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
+