hdocs 0.4.4.1 → 0.4.4.2

raw patch · 2 files changed

+4/−2 lines, 2 files

Files

• hdocs.cabal +2/−1
• tools/hdocs.hs +2/−1

@@ -1,5 +1,5 @@ name:                hdocs
-version:             0.4.4.1
+version:             0.4.4.2
 synopsis:            Haskell docs tool
 description:
   Tool and library to get docs for installed packages and source files.
@@ -61,6 +61,7 @@     bytestring >= 0.10.0,
     containers >= 0.5.0,
     filepath >= 1.3.0,
+    haddock-api >= 2.16.0 && < 2.17.0,
     mtl >= 2.1.0,
     network >= 2.4.0,
     text >= 1.1.0

@@ -10,6 +10,7 @@ import Data.Monoid (Monoid(..))
 import qualified Data.Text as T (unpack, pack)
 import qualified Data.Text.Encoding as T (decodeUtf8)
+import Documentation.Haddock (Flag(Flag_OptGhc))
 
 import HDocs.Haddock
 import HDocs.Module
@@ -57,7 +58,7 @@ 
 		loadDocs :: String -> ExceptT String IO ModuleDocMap
 		loadDocs m
-			| takeExtension m == ".hs" = liftM snd $ ExceptT $ withGhc [] $ runExceptT $ readSourceGhc (optionGHC cfg) m
+			| takeExtension m == ".hs" = liftM snd $ ExceptT $ withGhc (map Flag_OptGhc $ optionGHC cfg) $ runExceptT $ readSourceGhc (optionGHC cfg) m
 			| otherwise = moduleDocs (optionGHC cfg) m
 
 	case cmds of