@@ -1,9 +1,3 @@
1−{-# LANGUAGE CPP #-}
2−{-# LANGUAGE FlexibleContexts #-}
3−{-# LANGUAGE FlexibleInstances #-}
4−{-# LANGUAGE MultiParamTypeClasses #-}
5−{-# LANGUAGE ScopedTypeVariables #-}
6−{-# OPTIONS_GHC -fno-warn-orphans #-}
71{-
82Copyright © 2017 Albert Krewinkel <tarleb+pandoc@moltkeplatz.de>
93
@@ -29,7 +23,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
2923 Maintainer : Albert Krewinkel <tarleb+pandoc@moltkeplatz.de>
3024 Stability : alpha
3125
32−Pandoc lua utils.
26+Running pandoc Lua filters.
3327-}
3428module Text.Pandoc.Lua
3529 ( LuaException (..)
@@ -41,7 +35,6 @@ module Text.Pandoc.Lua
4135 ) where
4236
4337import Control.Monad (when, (>=>))
44−import Control.Monad.Identity (Identity)
4538import Control.Monad.Trans (MonadIO (..))
4639import Data.IORef (newIORef, readIORef)
4740import Foreign.Lua (FromLuaStack (peek), Lua, LuaException (..),
@@ -117,6 +110,3 @@ pushGlobalFilter = do
117110
118111runAll :: [LuaFilter] -> Pandoc -> Lua Pandoc
119112runAll = foldr ((>=>) . walkMWithLuaFilter) return
120−
121−instance (FromLuaStack a) => FromLuaStack (Identity a) where
122− peek = fmap return . peek