diff --git a/src/Language/Brainfuck/Instruction.hs b/src/Language/Brainfuck/Instruction.hs index 80a52aa..ef6d324 100644 --- a/src/Language/Brainfuck/Instruction.hs +++ b/src/Language/Brainfuck/Instruction.hs @@ -21,7 +21,7 @@ data Instruction instance Arbitrary Instruction where arbitrary :: Gen Instruction - arbitrary = Gen.oneof $ + arbitrary = Gen.oneof [ pure Increment , pure Decrement , pure MoveLeft