Fix and/or confusion

augustss · Jan 1, 2025 · 258ee12 · 258ee12
1 parent e76802a
commit 258ee12
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/MicroCabal/Parse.hs b/src/MicroCabal/Parse.hs
@@ -300,8 +300,8 @@ pField = do
 pCond :: P Cond
 pCond = pCor
   where
-    pCor  = foldr1 Cor  <$> esepBy1 pCand (pStr "&&")
-    pCand = foldr1 Cand <$> esepBy1 pCnot (pStr "||")
+    pCor  = foldr1 Cor  <$> esepBy1 pCand (pStr "||")
+    pCand = foldr1 Cand <$> esepBy1 pCnot (pStr "&&")
     pCnot = (Cnot <$> (pStr "!" *> pCnot)) <|> pCOp
     pCOp  = (CBool <$> pBool)
         <|< (pKeyWordNC "arch" *> pParens (Carch <$> pName))