From 9c462bdf4420f63dddb2c1de923e3d1be46bbf45 Mon Sep 17 00:00:00 2001 From: Tsvetan Ovedenski Date: Wed, 20 Jun 2018 11:57:11 +0200 Subject: [PATCH] Remove warnings in Spec --- test/Spec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Spec.hs b/test/Spec.hs index 7528885..a7a8e78 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -319,7 +319,7 @@ readFromSmartSource :: FilePath -> FilePath -> String -> IO [String] readFromSmartSource defaultDir defaultFile specS = do (Right spec) <- getSmartSourceSpec defaultDir defaultFile specS let source = smartSource spec - contents <- runResourceT (source $$ CT.decodeUtf8Lenient =$ CL.consume) + contents <- runResourceT $ runConduit (source .| CT.decodeUtf8Lenient .| CL.consume) return $ Prelude.map unpack contents neverMatch :: Char -> Int -> Bool