Remove warnings in Spec

This commit is contained in:
Tsvetan Ovedenski 2018-06-20 11:57:11 +02:00
parent f6ad2f0a85
commit 9c462bdf44
No known key found for this signature in database
GPG Key ID: F05653856344AB34

View File

@ -319,7 +319,7 @@ readFromSmartSource :: FilePath -> FilePath -> String -> IO [String]
readFromSmartSource defaultDir defaultFile specS = do readFromSmartSource defaultDir defaultFile specS = do
(Right spec) <- getSmartSourceSpec defaultDir defaultFile specS (Right spec) <- getSmartSourceSpec defaultDir defaultFile specS
let source = smartSource spec let source = smartSource spec
contents <- runResourceT (source $$ CT.decodeUtf8Lenient =$ CL.consume) contents <- runResourceT $ runConduit (source .| CT.decodeUtf8Lenient .| CL.consume)
return $ Prelude.map unpack contents return $ Prelude.map unpack contents
neverMatch :: Char -> Int -> Bool neverMatch :: Char -> Int -> Bool