testloop 0.1.0.1 → 0.1.0.2
raw patch · 2 files changed
+7/−5 lines, 2 files
Files
src/System/TestLoop/Internal/Cabal.hs view
@@ -3,7 +3,7 @@ -------------------- import Control.Applicative ((<$>), (<*>))-import Data.List (isInfixOf)+import Data.List (isSuffixOf) import Data.Monoid (First (..), mconcat) import System.Directory (getCurrentDirectory, getDirectoryContents,@@ -13,7 +13,8 @@ -------------------- -import Distribution.PackageDescription (CondTree (..), GenericPackageDescription (..),+import Distribution.PackageDescription (CondTree (..),+ GenericPackageDescription (..), TestSuite (..), TestSuiteInterface (..), condTreeData,@@ -41,7 +42,8 @@ parseTestSuiteInfo (Just inputName) (name, CondNode { condTreeData=testSuite }) | inputName == name = case testInterface testSuite of- TestSuiteExeV10 _ file -> Just (name, file, hsSourceDirs $ testBuildInfo testSuite)+ TestSuiteExeV10 _ file ->+ Just (name, file, hsSourceDirs $ testBuildInfo testSuite) _ -> Nothing | otherwise = Nothing parseTestSuiteInfo Nothing input@(name, _) = parseTestSuiteInfo (Just name) input@@ -55,7 +57,7 @@ then return Nothing else do contents <- getDirectoryContents currentPath- case dropWhile (not . (".cabal" `isInfixOf`)) contents of+ case dropWhile (not . (".cabal" `isSuffixOf`)) contents of [] -> loop (takeDirectory currentPath) finalPath (result:_) -> return $ Just (joinPath [currentPath, result])
testloop.cabal view
@@ -10,7 +10,7 @@ -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change-version: 0.1.0.1+version: 0.1.0.2 -- A short (one-line) description of the package. synopsis: Quick feedback loop for test suites