diff --git a/test/CheckSpec.hs b/test/CheckSpec.hs index 06a0989..8c1bf70 100644 --- a/test/CheckSpec.hs +++ b/test/CheckSpec.hs @@ -31,4 +31,3 @@ spec = do cradle <- findCradle Nothing strVer res <- checkSyntax defaultOptions cradle "Mutual1.hs" res `shouldSatisfy` ("Module imports form a cycle" `isInfixOf`) - \ No newline at end of file diff --git a/test/InfoSpec.hs b/test/InfoSpec.hs index f238a4a..4f663e2 100644 --- a/test/InfoSpec.hs +++ b/test/InfoSpec.hs @@ -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