1 files changed, 4 insertions(+), 4 deletions(-)

M source/Uxn/Op.hs

@@ 39,9 39,9 @@ data OpMeta = OpMeta { mCode ∷ OpCode
 
 instance Show Op where
     show o =
-        (show $ opCode o) ++
-        (if opShort o then "2" else "") ++
-        (if opRet   o then "r" else "") ++
+        (show $ opCode o)               ⧺
+        (if opShort o then "2" else "") ⧺
+        (if opRet   o then "r" else "") ⧺
         (if opKeep  o then "k" else "")
 
 instance Enum OpCode where


@@ 64,7 64,7 @@ op = Op { opCode  = Ibrk
 
 opToWord ∷ Op → Word8
 opToWord o =
-    fromIntegral (fromEnum $ opCode o)           .|.
+    fromIntegral (fromEnum $ opCode o)                .|.
                  (if opShort o then modeShort else 0) .|.
                  (if opRet   o then modeRet   else 0) .|.
                  (if opKeep  o then modeKeep  else 0)