From 405b7b2e620bc083c6a7ca4d1d5cb8d8a90a66c5 Mon Sep 17 00:00:00 2001 From: malc Date: Wed, 10 Oct 2012 23:39:10 +0400 Subject: [PATCH] Only accept one as cover A/B It's broken.. No idea why, no idea what i had in mind when adding this feature... So for the time being this should suffice.... --- main.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/main.ml b/main.ml index 691583b..4275461 100644 --- a/main.ml +++ b/main.ml @@ -974,7 +974,10 @@ let multicolumns_of_string s = try (int_of_string s, 0, 0) with _ -> - Scanf.sscanf s "%u,%u,%u" (fun n a b -> (n, a, b)); + Scanf.sscanf s "%u,%u,%u" (fun n a b -> + if a > 1 || b > 1 + then failwith "subtly broken"; (n, a, b) + ); ;; let readcmd fd = -- 2.11.4.GIT