fold app as it should be folded

This commit is contained in:
Mirek Kratochvil 2023-01-07 18:13:32 +01:00
parent c718b76e33
commit dab150976d

View file

@ -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) =