diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2023-01-07 18:13:32 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2023-01-07 18:13:32 +0100 |
| commit | dab150976d9a9bf705b03d32ce553d176cdef9e1 (patch) | |
| tree | 85c40dd89c5cf423e9b5882c8daf0c3289ef3124 | |
| parent | c718b76e334723a553c338b0579cac10c137c1d4 (diff) | |
| download | prlg-dab150976d9a9bf705b03d32ce553d176cdef9e1.tar.gz prlg-dab150976d9a9bf705b03d32ce553d176cdef9e1.tar.bz2 | |
fold app as it should be folded
| -rw-r--r-- | app/Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) = |