X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb/blobdiff_plain/36cea4b55d01782a384d41b3ca3f30585d6c2765..4fc776350ea8757539f65a3a56f7da3d9869ede7:/math/group-parse.c

diff --git a/math/group-parse.c b/math/group-parse.c
index 5f1a5476..61371f0f 100644
--- a/math/group-parse.c
+++ b/math/group-parse.c
@@ -48,7 +48,7 @@ group *group_parse(qd_parse *qd)
 {
   group *g = 0;
 
-  switch (qd_enum(qd, "prime,ec")) {
+  switch (qd_enum(qd, "prime,bin,ec")) {
     case 0: {
       dh_param dp;
       qd_delim(qd, '{');
@@ -58,6 +58,14 @@ group *group_parse(qd_parse *qd)
       dh_paramfree(&dp);
     } break;
     case 1: {
+      gbin_param dp;
+      qd_delim(qd, '{');
+      if (dhbin_parse(qd, &dp)) goto ouch;
+      qd_delim(qd, '}');
+      g = group_binary(&dp);
+      dh_paramfree(&dp);
+    } break;
+    case 2: {
       ec_info ei;
       qd_delim(qd, '{');
       if (ec_infoparse(qd, &ei)) goto ouch;