Fix tests

This commit is contained in:
Filip Graliński 2018-12-07 09:22:55 +01:00
parent 6f1344e73e
commit 60a8c96aa8

View File

@ -368,7 +368,8 @@ main = hspec $ do
gesPrecision = Nothing, gesPrecision = Nothing,
gesTokenizer = Nothing, gesTokenizer = Nothing,
gesGonitoHost = Nothing, gesGonitoHost = Nothing,
gesToken = Nothing } gesToken = Nothing,
gesGonitoGitAnnexRemote = Nothing}
it "simple test" $ do it "simple test" $ do
results <- runLineByLineGeneralized KeepTheOriginalOrder sampleChallenge Data.Conduit.List.consume results <- runLineByLineGeneralized KeepTheOriginalOrder sampleChallenge Data.Conduit.List.consume
Prelude.map (\(LineRecord inp _ _ _ _) -> inp) results `shouldBe` ["foo", Prelude.map (\(LineRecord inp _ _ _ _) -> inp) results `shouldBe` ["foo",