Fix doc in non-cabal projects

..man those non-cabal projects are really getting me down. Who uses
those anwayways ;)

Language/Haskell/GhcMod/CabalHelper.hs

@@ -19,7 +19,8 @@ module Language.Haskell.GhcMod.CabalHelper
 #ifndef SPEC
   ( getComponents
   , getGhcMergedPkgOptions
-  , getPackageDbStack
+  , getCabalPackageDbStack
+  , getCustomPkgDbStack
   , prepareCabalHelper
   )
 #endif
@@ -60,25 +61,8 @@ getGhcMergedPkgOptions = chCached Cached {
     return ([setupConfigPath], opts)
  }
 
-parseCustomPackageDb :: String -> [GhcPkgDb]
-parseCustomPackageDb src = map parsePkgDb $ filter (not . null) $ lines src
- where
-   parsePkgDb "global" = GlobalDb
-   parsePkgDb "user" = UserDb
-   parsePkgDb s = PackageDb s
-
-getCustomPkgDbStack :: (IOish m, GmEnv m) => m (Maybe [GhcPkgDb])
-getCustomPkgDbStack = do
-    mCusPkgDbFile <- liftIO . (traverse readFile <=< findCustomPackageDbFile) . cradleRootDir =<< cradle
-    return $ parseCustomPackageDb <$> mCusPkgDbFile
-
-getPackageDbStack :: (IOish m, GmEnv m, GmState m, GmLog m) => m [GhcPkgDb]
-getPackageDbStack = do
-    mCusPkgStack <- getCustomPkgDbStack
-    flip fromMaybe mCusPkgStack <$> getPackageDbStack'
-
-getPackageDbStack' :: (IOish m, GmEnv m, GmState m, GmLog m) => m [GhcPkgDb]
-getPackageDbStack' = chCached Cached {
+getCabalPackageDbStack :: (IOish m, GmEnv m, GmState m, GmLog m) => m [GhcPkgDb]
+getCabalPackageDbStack = chCached Cached {
   cacheLens = Just (lGmcPackageDbStack . lGmCaches),
   cacheFile = pkgDbStackCacheFile,
   cachedAction = \ _tcf (progs, rootdir, distdir, _) _ma -> do
@@ -136,6 +120,18 @@ prepareCabalHelper = do
   when (cradleProjectType crdl == CabalProject) $
        withCabal $ liftIO $ prepare readProc projdir distdir
 
+parseCustomPackageDb :: String -> [GhcPkgDb]
+parseCustomPackageDb src = map parsePkgDb $ filter (not . null) $ lines src
+ where
+   parsePkgDb "global" = GlobalDb
+   parsePkgDb "user" = UserDb
+   parsePkgDb s = PackageDb s
+
+getCustomPkgDbStack :: (IOish m, GmEnv m) => m (Maybe [GhcPkgDb])
+getCustomPkgDbStack = do
+    mCusPkgDbFile <- liftIO . (traverse readFile <=< findCustomPackageDbFile) . cradleRootDir =<< cradle
+    return $ parseCustomPackageDb <$> mCusPkgDbFile
+
 withCabal :: (IOish m, GmEnv m, GmLog m) => m a -> m a
 withCabal action = do
     crdl <- cradle

Language/Haskell/GhcMod/GhcPkg.hs

@@ -4,6 +4,7 @@ module Language.Haskell.GhcMod.GhcPkg (
   , ghcPkgDbStackOpts
   , ghcDbStackOpts
   , ghcDbOpt
+  , getPackageDbStack
   , getPackageCachePaths
   ) where
 
@@ -58,18 +59,23 @@ ghcDbOpt (PackageDb pkgDb)
 
 ----------------------------------------------------------------
 
-getPackageCachePaths :: IOish m => FilePath -> GhcModT m [FilePath]
-getPackageCachePaths sysPkgCfg = do
+getPackageDbStack :: IOish m => GhcModT m [GhcPkgDb]
+getPackageDbStack = do
   crdl <- cradle
-  pkgDbStack <- case cradleProjectType crdl of
+  mCusPkgStack <- getCustomPkgDbStack
+  stack <- case cradleProjectType crdl of
     PlainProject ->
         return [GlobalDb, UserDb]
     SandboxProject -> do
         Just db <- liftIO $ getSandboxDb $ cradleRootDir crdl
         return $ [GlobalDb, db]
     CabalProject ->
-        getPackageDbStack
+        getCabalPackageDbStack
+  return $ fromMaybe stack mCusPkgStack
 
+getPackageCachePaths :: IOish m => FilePath -> GhcModT m [FilePath]
+getPackageCachePaths sysPkgCfg = do
+  pkgDbStack <- getPackageDbStack
   catMaybes <$> (liftIO . resolvePackageConfig sysPkgCfg) `mapM` pkgDbStack
 
 -- TODO: use PkgConfRef

Language/Haskell/GhcMod/PkgDoc.hs

@@ -4,7 +4,6 @@ import Language.Haskell.GhcMod.Types
 import Language.Haskell.GhcMod.GhcPkg
 import Language.Haskell.GhcMod.Monad
 import Language.Haskell.GhcMod.Utils
-import Language.Haskell.GhcMod.CabalHelper
 
 import Control.Applicative
 import Prelude