Hoogle.hs

module Scion.Hoogle
( query
, downloadData
, checkDatabase
, module Scion.Hoogle.Types
) where

import qualified Data.ByteString.Char8 as BS8
import Control.Monad
import Scion.Browser
import Scion.Hoogle.Types
import Scion.Hoogle.Instances.Json ()
import Scion.Hoogle.Parser
import Scion.Hoogle.Util
import System.Exit (ExitCode(..))
import System.Process
import Text.Parsec.Prim (runP)

query :: Database -> String -> IO [Result]
query db q = do mpath <- findHoogleBinPath
                case mpath of
                  Nothing   -> return []
                  Just path -> do (exitCode, output, err) <- readProcessWithExitCode path [q] ""
                                  case exitCode of
                                    ExitSuccess -> case runP (hoogleElements db) () "hoogle-output" (output) of
                                                     Right result -> return result
                                                     Left  _      -> return []
                                    _           -> do putStrLn err
                                                      return []

downloadData :: IO Bool
downloadData = do mpath <- findHoogleBinPath
                  case mpath of
                    Nothing   -> return False
                    Just path -> do putStrLn "Running hoogle data..."
                                    (ec, _, err) <- readProcessWithExitCode path ["data"] ""
                                    when (ec/= ExitSuccess) (putStrLn err)
                                    return (ec == ExitSuccess)

checkDatabase :: IO Bool
checkDatabase = do mpath <- findHoogleBinPath
                   case mpath of
                     Nothing   -> return False
                     Just path -> do (exitCode, _, _) <- readProcessWithExitCode path ["fmap"] ""
                                     return (exitCode == ExitSuccess)