From ac53a2bf106dccd2de463f7c68c2527ee6e08f4e Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sun, 29 Dec 2024 16:14:54 +0100
Subject: better

---
 lllars/parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lllars/parser.hs')

diff --git a/lllars/parser.hs b/lllars/parser.hs
index dfee007..f843849 100644
--- a/lllars/parser.hs
+++ b/lllars/parser.hs
@@ -87,7 +87,7 @@ call =
   LarsCall
     <$> (  string "larssral"
         *> space
-        *> ((string "lars" $> ReadCall) <|> (string "sral" $> WriteCall))
+        *> ((string "lars" $> WriteCall) <|> (string "sral" $> ReadCall))
         )
 
 write :: Parser Instr
-- 
cgit v1.2.3