use newly available must_be(chars, ...) for better and shorter type test

diff --git a/src/lib/crypto.pl b/src/lib/crypto.pl
index 25b5ebb6aa0deb5c584682712a66572d61260017..6473e0d1ad11d55b314d12f55d9cf09de7affc40 100644 (file)
--- a/src/lib/crypto.pl
+++ b/src/lib/crypto.pl
@@ -65,8 +65,7 @@
 
 hex_bytes(Hs, Bytes) :-
         (   ground(Hs) ->
-            must_be(list, Hs),
-            maplist(must_be(atom), Hs),
+            must_be(chars, Hs),
             (   phrase(hex_bytes(Hs), Bytes) ->
                 true
             ;   domain_error(hex_encoding, Hs, hex_bytes/2)