scion-browser 0.4.1 → 0.4.2

raw patch · 3 files changed

+5/−2 lines, 3 files

Files

• scion-browser.cabal +1/−1
• src/Scion/PersistentBrowser/Types.hs +2/−0
• src/Scion/PersistentHoogle.hs +2/−1

@@ -1,5 +1,5 @@ name:           scion-browser
-version:        0.4.1+version:        0.4.2 cabal-version:  >= 1.8
 build-type:     Simple
 license:        BSD3

@@ -85,7 +85,9 @@   getName (TypeDecl _ (DHead _ name) _)          = getNameString name   getName (TypeDecl a (DHApp _ h _) b)           = getName $ TypeDecl a h b   getName (GDataDecl _ _ _ (DHead _ name) _ _ _) = getNameString name+  getName (GDataDecl a b c (DHApp _ h _) d e f)  = getName $ GDataDecl a b c h d e f   getName (ClassDecl _ _ (DHead _ name) _ _)     = getNameString name+  getName (ClassDecl a b (DHApp _ h _) c d)      = getName $ ClassDecl a b h c d   getName (InstDecl _ _ (IRule _ _ _ (IHCon _ name )) _)        = getQNameString name #else     getName (TypeDecl _ (DHead _ name _) _)          = getNameString name

@@ -35,7 +35,8 @@   mpath <- liftIO $ findHoogleBinPath msandbox p
   case mpath of
    Nothing   -> return []
-   Just path -> do (exitCode, output, err) <- liftIO $ readProcessWithExitCode path [q,"-d",hoogleDir] ""
+   Just path -> do -- use explicit search argument in case the search is itself a command, like 'data'
+                   (exitCode, output, err) <- liftIO $ readProcessWithExitCode path ["search", q,"-d",hoogleDir] ""
                    case exitCode of
                      ExitSuccess -> do 
                                        liftIO $ logToStdout q