diff options
Diffstat (limited to 'haddock-api/src/Haddock/Backends')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Meta.hs (renamed from haddock-api/src/Haddock/Backends/Meta.hs) | 10 |
1 files changed, 8 insertions, 2 deletions
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 -> |