From 2ae64e83d7d9460a9ca6c50d432da8963ea509fd Mon Sep 17 00:00:00 2001 From: Alexander Date: Wed, 16 Mar 2016 16:04:34 +1300 Subject: [PATCH] Fix column order in generated CSV --- csv.ur | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/csv.ur b/csv.ur index 98ffbc6..3423f53 100644 --- a/csv.ur +++ b/csv.ur @@ -95,13 +95,13 @@ functor Generate1(M : sig (fn [nm ::_] [t ::_] [r ::_] [[nm] ~ r] (_ : show t) (x : t) acc => case acc of "" => escape (show x) - | _ => acc ^ "," ^ escape (show x)) + | _ => escape (show x) ^ "," ^ acc) "" fl shows r.tab ^ "\n")) (@foldR [fn _ => string] [fn _ => string] (fn [nm ::_] [t ::_] [r ::_] [[nm] ~ r] s acc => case acc of "" => escape s - | _ => acc ^ "," ^ escape s) + | _ => escape s ^ "," ^ acc) "" fl labels ^ "\n") fun generate () : transaction page =