filipg/geval
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove warnings in Spec

Browse Source
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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Spec.hs
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