Tweak the parser a bit

src/Presyntax/Parser.y

@@ -68,21 +68,18 @@ VarList :: { [Text] }
   | var VarList { $1:$2 }
 
 ExpProj :: { Expr }
-  : ExpFun '.1' { Proj1 $1 }
-  | ExpFun '.2' { Proj2 $1 }
-  | ExpFun      { $1 }
+  : ExpProj '.1' { Proj1 $1 }
+  | ExpProj '.2' { Proj2 $1 }
+  | Atom         { $1 }
 
-ExpFun :: { Expr }
-  : Atom        { $1 }
+Atom :: { Expr }
+  : var           { Var $1 }
   | '(' Tuple ')' { $2 }
 
 Tuple :: { Expr }
   : Exp           { $1 }
   | Exp ',' Tuple { Pair $1 $3 }
 
-Atom :: { Expr }
-  : var { Var $1 }
-
 {
 lexer cont = alexMonadScan >>= cont