update for LTS 10.10

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)
 

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

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