fails to keep order of destructs

[decioferreira]

Given the following code:

import Html exposing (text)

fn1 : { foo : String, bar : String } -> String
fn1 { foo, bar } =
    foo ++ bar

main =
    text (fn1 { foo = "He", bar = "llo!" })

The generated code will show the following diff:

diff --git a/examples/index.html b/examples/index.html
index 3bb33235..02d296e3 100644
--- a/examples/index.html
+++ b/examples/index.html
@@ -4434,8 +4434,8 @@ var $elm$virtual_dom$VirtualDom$toHandlerInt = function (handler) {
    }
 };
 var $author$project$Hello$fn1 = function (_v0) {
-   var foo = _v0.foo;
    var bar = _v0.bar;
+   var foo = _v0.foo;
    return _Utils_ap(foo, bar);
 };
 var $elm$virtual_dom$VirtualDom$text = _VirtualDom_text;