Try loading a module if findModule failed for it

test/BrowseSpec.hs

@@ -2,8 +2,11 @@ module BrowseSpec where
 
 import Control.Applicative
 import Language.Haskell.GhcMod
+import Language.Haskell.GhcMod.Cradle
 import Test.Hspec
 
+import Dir
+
 spec :: Spec
 spec = do
     describe "browseModule" $ do
@@ -22,3 +25,10 @@ spec = do
             cradle <- findCradle
             syms <- lines <$> browseModule defaultOptions { detailed = True} cradle "Data.Either"
             syms `shouldContain` ["Left :: a -> Either a b"]
+
+    describe "browseModule local" $ do
+        it "lists symbols in a local module" $ do
+            withDirectory_ "test/data" $ do
+                cradle <- findCradleWithoutSandbox
+                syms <- lines <$> browseModule defaultOptions cradle "Baz"
+                syms `shouldContain` ["baz"]