From 1b20f4ef717370626b89cfecfb57dc24fc5524fb Mon Sep 17 00:00:00 2001 From: VegOwOtenks Date: Mon, 23 Jun 2025 14:01:39 +0200 Subject: [PATCH] fix[test]: missing argument to function --- test/Spec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/Spec.hs b/test/Spec.hs index 986fa09..449530c 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -25,9 +25,9 @@ prop_rejectInvalidTexts = Either.isLeft . Brainfuck.parse . InValidBrainfuckText prop_renderParseInverse :: Vector Instruction -> Bool prop_renderParseInverse source = Right source == (Brainfuck.parse . Brainfuck.render $ source) --- | Compressing and Uncompressing should be inverse +-- | Compressing and Uncompressing should be inverse. The opposite must not be true, since `compress $ replicate 300 Increment` is `Add 44` prop_CompressUncompressInverse :: Vector Instruction -> Bool -prop_CompressUncompressInverse source = source == CompressedInstruction.uncompress . CompressedInstruction.compress +prop_CompressUncompressInverse source = source == (CompressedInstruction.uncompress . CompressedInstruction.compress) source return [] -- template haskell guard runQuickCheck :: IO Bool