fixing tests.

Language/Haskell/GhcMod/Cradle.hs

@@ -1,6 +1,10 @@
 {-# LANGUAGE BangPatterns #-}
 
-module Language.Haskell.GhcMod.Cradle (findCradle, getPackageDbDir) where
+module Language.Haskell.GhcMod.Cradle (
+    findCradle
+  , findCradleWithoutSandbox
+  , getPackageDbDir
+  ) where
 
 import Data.Char (isSpace)
 import Control.Applicative ((<$>))
@@ -41,6 +45,12 @@ findCradle' wdir = do
       , cradlePackageDbOpts = pkgDbOpts
       }
 
+-- Just for testing
+findCradleWithoutSandbox :: IO Cradle
+findCradleWithoutSandbox = do
+    cradle <- findCradle
+    return cradle { cradlePackageDbOpts = [] }
+
 ----------------------------------------------------------------
 
 cabalSuffix :: String