diff --git a/2022/day10/day10.hs b/2022/day10/day10.hs
index 1b82a8d..50f9b3a 100644
--- a/2022/day10/day10.hs
+++ b/2022/day10/day10.hs
@@ -1,6 +1,6 @@
 import Data.List.Split
 
-data OpCode = Noop | AddX { value :: Int } deriving (Show,Eq)
+data OpCode = Noop | AddX Int deriving (Show,Eq)
 
 main :: IO ()
 main = do