diff --git a/src/System/TestLoop/Internal/Cabal.hs b/src/System/TestLoop/Internal/Cabal.hs
--- a/src/System/TestLoop/Internal/Cabal.hs
+++ b/src/System/TestLoop/Internal/Cabal.hs
@@ -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])
 
diff --git a/testloop.cabal b/testloop.cabal
--- a/testloop.cabal
+++ b/testloop.cabal
@@ -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