Remove unnecessary parenthesesHEADmaster

1 files changed, 7 insertions, 7 deletions

diff --git a/Interpreter.hs b/Interpreter.hs
index 4f3f3aa..690b23d 100644
--- a/Interpreter.hs
+++ b/Interpreter.hs
@@ -17,28 +17,28 @@ interInss :: Int -> Tape -> Int -> [Instruction] -> [Byte] -> IO [Byte]
 interInss _ _ _ [] _ = return []
 -- interInss count _ _ _ _ | count > 2000000000 = return []
 interInss !count !tape !memp allinss@(ins:rest) inp = case ins of
-    (IAdd value offset) -> do
+    IAdd value offset -> do
         MV.modify tape (+ value) (memp + offset)
         interInss (count + 1) tape memp rest inp
-    (ISet value offset) -> do
+    ISet value offset -> do
         MV.write tape (memp + offset) value
         interInss (count + 1) tape memp rest inp
-    (ICopy from to mult) -> do
+    ICopy from to mult -> do
         value <- MV.read tape (memp + from)
         MV.modify tape ((+) (mult * value)) (memp + to)
         interInss (count + 1) tape memp rest inp
-    (ISlide offset) -> do
+    ISlide offset -> do
         interInss (count + 1) tape (memp + offset) rest inp
-    (ILoop iins offset) -> do
+    ILoop iins offset -> do
         value <- MV.read tape (memp + offset)
         if value /= 0
             then interInss (count + 1) tape memp (iins ++ allinss) inp
             else interInss (count + 1) tape memp rest inp
-    (IInput offset) -> do
+    IInput offset -> do
         let (c:cs) = inp
         MV.write tape (memp + offset) c
         interInss (count + 1) tape memp rest cs
-    (IOutput offset) -> do
+    IOutput offset -> do
         value <- MV.read tape (memp + offset)
         (value :) <$> interInss (count + 1) tape memp rest inp
     IStart -> do