X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=JVM%2FConverter.hs;h=5993d54388026e22a4a484cc4376c1d3f2aac902;hp=777bac62b85ab2816406339553cde633ecbc7c30;hb=96bd2316525bb8790d4f047834c0ca6750155583;hpb=e9f82ee018d11b66f73e5e97591a6de474e76848 diff --git a/JVM/Converter.hs b/JVM/Converter.hs index 777bac6..5993d54 100644 --- a/JVM/Converter.hs +++ b/JVM/Converter.hs @@ -175,7 +175,7 @@ constantPoolArray ps = pool n = fromIntegral $ M.size ps - convertNameType :: (HasSignature a, Binary (Signature a)) => Word16 -> NameType a + convertNameType :: (HasSignature a) => Word16 -> NameType a convertNameType i = let (CNameType n s) = pool ! i in NameType n (decode s)