@@ -183,8 +183,8 @@ tests = parallel $ do
183183 }
184184 specify "non-empty" $ do
185185 let testReadInput :: NonEmptyList Int -> Property
186− testReadInput (NonEmpty l@(x : _)) =
187− executeErrorState (state l) readInput === Right x
186+ testReadInput (NonEmpty l@(x : xs)) =
187+ ((fst &&& bfInput . snd) <$> runErrorState readInput (state l)) === Right (x, xs)
188188 property testReadInput
189189 specify "empty" $ do
190190 executeErrorState (state []) readInput