diff --git a/Language/Haskell/GhcMod/PkgDoc.hs b/Language/Haskell/GhcMod/PkgDoc.hs
index 3697c95..d981ddd 100644
--- a/Language/Haskell/GhcMod/PkgDoc.hs
+++ b/Language/Haskell/GhcMod/PkgDoc.hs
@@ -3,18 +3,19 @@ module Language.Haskell.GhcMod.PkgDoc (pkgDoc) where
 import Language.Haskell.GhcMod.Types
 import Language.Haskell.GhcMod.GhcPkg
 import Language.Haskell.GhcMod.Monad
+import Language.Haskell.GhcMod.Utils
 
 import Control.Applicative ((<$>))
-import System.Process (readProcess)
 
 -- | Obtaining the package name and the doc path of a module.
 pkgDoc :: IOish m => String -> GhcModT m String
-pkgDoc mdl = cradle >>= \c -> liftIO $ do
-    pkg <- trim <$> readProcess "ghc-pkg" (toModuleOpts c) []
+pkgDoc mdl = do
+    c <- cradle
+    pkg <- trim <$> readProcess' "ghc-pkg" (toModuleOpts c)
     if pkg == "" then
         return "\n"
       else do
-        htmlpath <- readProcess "ghc-pkg" (toDocDirOpts pkg c) []
+        htmlpath <- readProcess' "ghc-pkg" (toDocDirOpts pkg c)
         let ret = pkg ++ " " ++ drop 14 htmlpath
         return ret
   where