[Bugfix in tInfixE, sometimes wrong arg order
martin.hofmann@uni-bamberg.de**20100813143534
 Ignore-this: 81c373885eca90d37471206a08503cc2
] hunk ./src/Syntax/Expressions.hs 134
-    root (TInfixE l c r t)                  = \[l, r] -> tInfixE c l r 
+    root (TInfixE l c r t)                  = \[l, r] -> tInfixE l c r 
hunk ./src/Syntax/Expressions.hs 216
-tInfixE c l r = let
+tInfixE l c r = let
hunk ./src/Syntax/Expressions.hs 227
-     [expr]        -> tInfixE (TConE '(:) $ arrowT [ typeOf e
-                                                       , (listT . typeOf $ e)
-                                                       , (listT . typeOf $ e)]
-                                 ) e expr
+     [expr]        -> tInfixE e (TConE '(:) $ arrowT [ typeOf e
+                                                     , (listT . typeOf $ e)
+                                                     , (listT . typeOf $ e)]
+                                 ) expr
hunk ./src/Syntax/Type.hs 137
-arrowT []  = error "Types.mkArrowT: empty list of types"
+arrowT []  = error "Types.arrowT: empty list of types"