ToJSONFilter: Remove unnecessary IO instance.

This is covered already by the MonadIO instance. Revises #105.
jgm · Jan 13, 2023 · 183af9d · 183af9d
1 parent 6a571b2
commit 183af9d
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/src/Text/Pandoc/JSON.hs b/src/Text/Pandoc/JSON.hs
@@ -114,11 +114,6 @@ instance (Walkable a Pandoc, MonadIO m) => ToJSONFilter m (a -> m a) where
      r <- walkM f (either error id (eitherDecode' c) :: Pandoc)
      liftIO (BL.putStr (encode (r :: Pandoc)))
 
-instance (Walkable [a] Pandoc) => ToJSONFilter IO (a -> [a]) where
-  toJSONFilter f = BL.getContents >>=
-    BL.putStr . encode . (walk (concatMap f) :: Pandoc -> Pandoc) .
-    either error id . eitherDecode'
-
 instance (Walkable [a] Pandoc, MonadIO m) => ToJSONFilter m (a -> m [a]) where
   toJSONFilter f = do
      c <- liftIO BL.getContents