fold app as it should be folded
This commit is contained in:
parent
c718b76e33
commit
dab150976d
|
@ -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) =
|
||||
|
|
Loading…
Reference in a new issue