Using Cradle.

test/InfoSpec.hs

@@ -1,8 +1,9 @@
 module InfoSpec where
 
-import Test.Hspec
+import Cradle
 import Expectation
 import Info
+import Test.Hspec
 import Types
 
 spec :: Spec
@@ -10,5 +11,6 @@ spec = do
     describe "typeExpr" $ do
         it "shows types of the expression and its outers" $ do
             withDirectory "test/data/ghc-mod-check" $ do
-                res <- typeExpr defaultOptions "Data.Foo" 9 5 "Data/Foo.hs"
+                cradle <- findCradle Nothing
+                res <- typeExpr defaultOptions cradle "Data.Foo" 9 5 "Data/Foo.hs"
                 res `shouldBe` "9 5 11 40 \"Int -> a -> a -> a\"\n7 1 11 40 \"Int -> Integer\"\n"