@@ -51,15 +51,10 @@ moduleToJs :: Options -> Module -> Environment -> [JS]
5151moduleToJs opts (Module pname@(ProperName name) decls) env =
5252 [ JSVariableIntroduction name Nothing
5353 , JSApp (JSFunction Nothing [name]
54− (JSBlock (concat $ mapMaybe (\decl -> fmap (map $ optimize opts) $ declToJs opts (ModuleName pname) decl env) (sortBy typeClassesLast decls))))
54+ (JSBlock (concat $ mapMaybe (\decl -> fmap (map $ optimize opts) $ declToJs opts (ModuleName pname) decl env) (decls))))
5555 [JSAssignment (JSVar name)
5656 (JSBinary Or (JSVar name) (JSObjectLiteral []))]
5757 ]
58− where
59− typeClassesLast (ExternDeclaration TypeClassDictionaryImport _ _ _) (ExternDeclaration TypeClassDictionaryImport _ _ _) = EQ
60− typeClassesLast (ExternDeclaration TypeClassDictionaryImport _ _ _) _ = GT
61− typeClassesLast _ (ExternDeclaration TypeClassDictionaryImport _ _ _) = LT
62− typeClassesLast _ _ = EQ
6358
6459-- |
6560-- Generate code in the simplified Javascript intermediate representation for a declaration