-- | Given the location of the haddock --hoogle output, generate something that takes code blocks
--   to HTML pieces.
code :: FilePath -> IO (String -> [Tag String])
code file = do
    unlessM (doesFileExist file) $
        fail "You must run cabal haddock --hoogle to generate the necessary info first"
    r <- resolve file
    pure $ format r
code :: FilePath -> IO (String -> [Tag String])
code file = do
    unlessM (doesFileExist file) $
        fail "You must run cabal haddock --hoogle to generate the necessary info first"
    r <- resolve file
    pure $ format r
code file = do
    unlessM (doesFileExist file) $
        fail "You must run cabal haddock --hoogle to generate the necessary info first"
    r <- resolve file
    pure $ format r