Commit 6e2f5fb9 authored by Henrik Tramberend's avatar Henrik Tramberend
Browse files

Remove dead code

parent cf65060b
before_script:
- stack --version
- stack setup
test:
......
{-- Author: Henrik Tramberend <henrik@tramberend.de> --}
module Pandoc
(
) where
import Control.Exception
import Control.Monad
import qualified Data.ByteString.Char8 as B
import qualified Data.ByteString.Lazy.Char8 as L
import Data.Digest.Pure.MD5
import qualified Data.HashMap.Strict as H
import Data.List
import qualified Data.Map as M
import Data.Maybe
import qualified Data.MultiMap as MM
import qualified Data.Text as T
import qualified Data.Yaml as Y
import Debug.Trace
import Development.Shake
import Network.HTTP.Conduit
import Network.HTTP.Simple
import Network.HTTP.Types.Status
import Network.URI
import System.Directory
import System.FilePath.Posix
import Text.Pandoc
import Text.Pandoc.Walk
import Utilities
type MetaData = M.Map FilePath Y.Value
readMetaData :: [FilePath] -> IO MetaData
readMetaData metaFiles = do
canonMetaFiles <- mapM canonicalizePath metaFiles
aDataList <- mapM decodeYaml canonMetaFiles
let joined = M.map joinHorizontally $ MM.toMap $ MM.fromList aDataList
return $ M.mapWithKey (joinVertically joined) joined
where
decodeYaml :: FilePath -> IO (FilePath, Y.Value)
decodeYaml file = do
result <- Y.decodeFileEither file
case result of
Right object@(Y.Object _) -> return (takeDirectory file, object)
Right _ ->
throw $
YamlException $ "Top-level meta value must be an object: " ++ file
Left exception -> throw exception
joinHorizontally :: [Y.Value] -> Y.Value
joinHorizontally = foldl1 joinMeta
joinVertically :: MetaData -> FilePath -> Y.Value -> Y.Value
joinVertically meta dir ignore =
if not $ equalFilePath dir "/"
then let up = joinVertically meta (takeDirectory dir) ignore
in maybe up (joinMeta up) (M.lookup dir meta)
else Y.Object (H.fromList [])
joinMeta :: Y.Value -> Y.Value -> Y.Value
joinMeta (Y.Object old) (Y.Object new) = Y.Object (H.union new old)
joinMeta _ _ = throw $ YamlException "Can only join YAML objects."
-- extractMetaDataFromMarkdown :: T.Text -> Y.Value
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment