git.iko.soy/typeable/pandoc
on master help sign in
Text.Pandoc: Added ToFilter instance for a -> [a] types.
commit8aa3d1cccc92250f4385260905142f04dd38b2ec authorJohn MacFarlane <fiddlosopher@gmail.com> dateTue 24 Jan 2012, 11:50 (15 years ago) parentde9f3f4
1 file changed+10
compare with master
unifiedsplit
src/Text/Pandoc.hs+10
src/Text/Pandoc.hs+10
@@ -247,3 +247,13 @@ instance (Data a) => ToJsonFilter (a -> a) where
247247instance (Data a) => ToJsonFilter (a -> IO a) where
248248 toJsonFilter f = getContents >>= (bottomUpM f :: Pandoc -> IO Pandoc) . decodeJSON
249249 >>= 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+