swish/commit

Copied from upstream

authorJan Wielemaker
Wed Mar 16 16:19:10 2016 +0100
committerJan Wielemaker
Wed Mar 16 16:19:10 2016 +0100
commit915681cdd0220e705d842f739fb87fede6a51f4f
tree63a03dccbe1e67b9ce1576e3c6382dc977fdcd70
parent430712d5432e905703cadc89c65f1c3a49c93609
Diff style: patch stat
diff --git a/lib/swish/swish_csv.pl b/lib/swish/swish_csv.pl
index 66e8ad9..a721b0e 100644
--- a/lib/swish/swish_csv.pl
+++ b/lib/swish/swish_csv.pl
@@ -63,9 +63,9 @@ csv(create(_Id, Features), VarNames, Options) :- !,
 	csv(Answer, VarNames, Options).
 csv(destroy(_Id, Wrapped), VarNames, Options) :- !,
 	csv(Wrapped, VarNames, Options).
-csv(success(_Id, Answers, _Time, _More), VarNames, Options) :- !,
+csv(success(_Id, Answers, _Time, More), VarNames, Options) :- !,
 	VarTerm =.. [row|VarNames],
-	success(Answers, VarTerm, Options).
+	success(Answers, VarTerm, [more(More)|Options]).
 csv(error(_Id, Error), _VarNames, _Options) :- !,
 	message_to_string(Error, Msg),
 	format('Status: 400 Bad request~n'),