diff options
Diffstat (limited to 'haddock-api/src')
| -rw-r--r-- | haddock-api/src/Haddock.hs | 2 | ||||
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Meta.hs (renamed from haddock-api/src/Haddock/Backends/Meta.hs) | 10 |
2 files changed, 9 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs index 17951068..a46e58b3 100644 --- a/haddock-api/src/Haddock.hs +++ b/haddock-api/src/Haddock.hs @@ -27,9 +27,9 @@ module Haddock ( import Data.Version import Haddock.Backends.Xhtml +import Haddock.Backends.Xhtml.Meta import Haddock.Backends.Xhtml.Themes (getThemes) import Haddock.Backends.LaTeX -import Haddock.Backends.Meta import Haddock.Backends.Hoogle import Haddock.Backends.Hyperlinker import Haddock.Interface diff --git a/haddock-api/src/Haddock/Backends/Meta.hs b/haddock-api/src/Haddock/Backends/Xhtml/Meta.hs index c62c1ae8..5cf03ec4 100644 --- a/haddock-api/src/Haddock/Backends/Meta.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Meta.hs @@ -1,4 +1,4 @@ -module Haddock.Backends.Meta where +module Haddock.Backends.Xhtml.Meta where import Haddock.Utils.Json import Haddock.Version @@ -7,6 +7,11 @@ import Data.ByteString.Builder (hPutBuilder) import System.FilePath ((</>)) import System.IO (withFile, IOMode (WriteMode)) +-- | Everytime breaking changes to the Quckjump api +-- happen this needs to be modified. +quickjumpVersion :: Int +quickjumpVersion = 1 + -- | Writes a json encoded file containing additional -- information about the generated documentation. This -- is useful for external tools (e.g. hackage). @@ -15,7 +20,8 @@ writeHaddockMeta odir = do let meta_json :: Value meta_json = object [ - "haddock_version" .= String projectVersion + "haddock_version" .= String projectVersion + , "quickjump_version" .= quickjumpVersion ] withFile (odir </> "meta.json") WriteMode $ \h -> |