projects
/
hs-java.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Simplify some instances.
[hs-java.git]
/
JVM
/
Builder
/
Monad.hs
diff --git
a/JVM/Builder/Monad.hs
b/JVM/Builder/Monad.hs
index 85aaa5e11b9ea565169d35fad3c5608cb83f519e..01e93f16c675b756c092765c0d563f74f2c9d1c7 100644
(file)
--- 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)
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)
addNT (NameType name sig) = do
let bsig = encode sig
x <- addItem (CNameType name bsig)