From dab150976d9a9bf705b03d32ce553d176cdef9e1 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sat, 7 Jan 2023 18:13:32 +0100
Subject: [PATCH] fold app as it should be folded

---
 app/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/Parser.hs b/app/Parser.hs
index cca4e48..8ca8ac2 100644
--- a/app/Parser.hs
+++ b/app/Parser.hs
@@ -218,7 +218,7 @@ err :: ShuntError -> Either ShuntError a
 err = Left
 
 shuntPrlg :: Ops -> PAST -> ShuntResult
-shuntPrlg ot = shuntPrlg' (("", Op 0 $ Infix X Y) : ot)
+shuntPrlg ot = shuntPrlg' (("", Op 0 $ Infix Y X) : ot)
 
 shuntPrlg' :: Ops -> PAST -> ShuntResult
 shuntPrlg' ot (List hs t) =