git.iko.soy/typeable/pandoc
on master help sign in
Text.Pandoc: Added ToFilter instance for a -> [a] types.
8aa3d1cJohn MacFarlane
src/Text/Pandoc.hs+10
compare with master
unifiedsplit
@@ -247,3 +247,13 @@ instance (Data a) => ToJsonFilter (a -> a) where
247instance (Data a) => ToJsonFilter (a -> IO a) where
247instance (Data a) => ToJsonFilter (a -> IO a) where
248 toJsonFilter f = getContents >>= (bottomUpM f :: Pandoc -> IO Pandoc) . decodeJSON
248 toJsonFilter f = getContents >>= (bottomUpM f :: Pandoc -> IO Pandoc) . decodeJSON
249 >>= putStr . encodeJSON
249 >>= putStr . encodeJSON
250+
251+instance (Data a) => ToJsonFilter (a -> [a]) where
252+ toJsonFilter f = getContents
253+ >>= putStr . encodeJSON . (bottomUp (concatMap f) :: Pandoc -> Pandoc) . decodeJSON
254+
255+instance (Data a) => ToJsonFilter (a -> IO [a]) where
256+ toJsonFilter f = getContents
257+ >>= (bottomUpM (fmap concat . mapM f) :: Pandoc -> IO Pandoc) . decodeJSON
258+ >>= putStr . encodeJSON
259+