Remove warnings in Spec
This commit is contained in:
parent
f6ad2f0a85
commit
9c462bdf44
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user