Use Data.Map.Map instead of Data.Array.Array for constants pool.

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

diff --git a/JVM/Dump.hs b/JVM/Dump.hs
index a5b2d196b27ee05ca4b74e24926ef0412f74458f..2012c8b94b5533eb706b93f63ad3b44c5336beca 100644 (file)
--- a/JVM/Dump.hs
+++ b/JVM/Dump.hs
@@ -2,7 +2,7 @@
 module JVM.Dump where
 
 import Control.Monad
-import Data.Array
+import qualified Data.Map as M
 import qualified Data.ByteString.Lazy as B
 import Text.Printf
 
@@ -15,7 +15,7 @@ dumpClass cls = do
     putStr "Class: "
     B.putStrLn (this cls)
     putStrLn "Constants pool:"
-    forM_ (assocs $ constantPool cls) $ \(i, c) ->
+    forM_ (M.assocs $ constantPool cls) $ \(i, c) ->
       putStrLn $ printf "  #%d:\t%s" i (show c)
     putStrLn "Methods:"
     forM_ (methods cls) $ \m -> do