From 0535270fa8cf63a308f961f50b8fbd7c32f257be Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Mon, 1 Apr 2013 14:19:15 +0900 Subject: [PATCH] removing unnecesary spaces. --- test/CheckSpec.hs | 1 - test/InfoSpec.hs | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) 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