X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=JVM%2FBuilder%2FMonad.hs;h=01e93f16c675b756c092765c0d563f74f2c9d1c7;hp=85aaa5e11b9ea565169d35fad3c5608cb83f519e;hb=96bd2316525bb8790d4f047834c0ca6750155583;hpb=e9f82ee018d11b66f73e5e97591a6de474e76848

diff --git a/JVM/Builder/Monad.hs b/JVM/Builder/Monad.hs
index 85aaa5e..01e93f1 100644
--- a/JVM/Builder/Monad.hs
+++ b/JVM/Builder/Monad.hs
@@ -72,7 +72,7 @@ lookupPool :: Constant Direct -> Pool Direct -> Maybe Word16
 lookupPool c pool =
   fromIntegral `fmap` findIndex (== c) (M.elems pool)
 
-addNT :: Binary (Signature a) => NameType a -> Generate Word16
+addNT :: HasSignature a => NameType a -> Generate Word16
 addNT (NameType name sig) = do
   let bsig = encode sig
   x <- addItem (CNameType name bsig)