diff --git a/Handler/Extract.hs b/Handler/Extract.hs index 608ed6f..fd4155c 100644 --- a/Handler/Extract.hs +++ b/Handler/Extract.hs @@ -2,6 +2,7 @@ module Handler.Extract where import Import +import qualified Data.Text as T import Text.Pandoc import Text.Pandoc.Walk (walk) import Text.Pandoc.Shared (stringify) @@ -29,7 +30,7 @@ extractFirstPara doc = case queryWith extractParas doc of [] -> Nothing readDoc :: String -> Pandoc -readDoc s = case readMarkdown def s of +readDoc s = case runPure $ readMarkdown def (T.pack s) of Right doc -> doc Left err -> error (show err) diff --git a/gonito.cabal b/gonito.cabal index 94e9ead..de92f07 100644 --- a/gonito.cabal +++ b/gonito.cabal @@ -100,7 +100,7 @@ library , directory >= 1.1 && < 1.4 , warp >= 3.0 && < 3.3 , data-default - , aeson >= 0.6 && < 1.2 + , aeson >= 0.6 && < 1.3 , conduit >= 1.0 && < 2.0 , monad-logger >= 0.3 && < 0.4 , fast-logger >= 2.2 && < 2.5 @@ -116,7 +116,7 @@ library , lifted-base , process , random - , pandoc + , pandoc >= 2 , pandoc-types , filemanip , cryptohash diff --git a/stack.yaml b/stack.yaml index a58ab92..36f9fdf 100644 --- a/stack.yaml +++ b/stack.yaml @@ -4,5 +4,5 @@ flags: dev: false packages: - '.' -extra-deps: [markdown-0.1.13.2,../geval,cond-0.4.1.1,wai-handler-fastcgi-3.0.0.2,murmur3-1.0.3,extra-1.4.10] -resolver: lts-9.21 +extra-deps: [../geval,wai-handler-fastcgi-3.0.0.2,murmur3-1.0.3] +resolver: lts-10.10