removing unnecesary spaces.

This commit is contained in:
Kazu Yamamoto 2013-04-01 14:19:15 +09:00
parent 8f61f3691f
commit 0535270fa8
2 changed files with 1 additions and 2 deletions

View File

@ -31,4 +31,3 @@ spec = do
cradle <- findCradle Nothing strVer
res <- checkSyntax defaultOptions cradle "Mutual1.hs"
res `shouldSatisfy` ("Module imports form a cycle" `isInfixOf`)

View File

@ -38,7 +38,7 @@ spec = do
cradle <- getGHCVersion >>= findCradle Nothing . fst
res <- infoExpr defaultOptions cradle "Info" "fib" "Info.hs"
res `shouldSatisfy` ("fib :: Int -> Int" `isPrefixOf`)
it "works with a module using TemplateHaskell" $ do
withDirectory_ "test/data" $ do
cradle <- getGHCVersion >>= findCradle Nothing . fst