Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- valEq :: (CurrencySymbol, TokenName, Integer) -> (CurrencySymbol, TokenName, Integer) -> Bool
- valEq = \(cs,tkn, _) (cs', tkn', _) -> cs == cs' && unTokenName tkn == (unTokenName tkn' <> "_A")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement