@@ -16,9 +16,6 @@ along with this program; if not, write to the Free Software
1616Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
1717-}
1818{-# LANGUAGE CPP #-}
19−#if !MIN_VERSION_hslua(0,9,0)
20−{-# OPTIONS_GHC -fno-warn-orphans #-}
21−#endif
2219{- |
2320 Module : Text.Pandoc.Lua.PandocModule
2421 Copyright : Copyright © 2017 Albert Krewinkel
@@ -40,7 +37,7 @@ import Data.Default (Default (..))
4037import Data.IORef
4138import Data.Maybe (fromMaybe)
4239import Data.Text (pack)
43−import Foreign.Lua (Lua, FromLuaStack, ToLuaStack, NumResults, liftIO)
40+import Foreign.Lua (Lua, FromLuaStack, NumResults, liftIO)
4441import Foreign.Lua.FunctionCalling (ToHaskellFunction)
4542import Text.Pandoc.Class (readDataFile, runIO,
4643 runIOorExplode, setUserDataDir, CommonState(..),
@@ -186,11 +183,3 @@ instance FromLuaStack a => FromLuaStack (OrNil a) where
186183 if noValue
187184 then return (OrNil Nothing)
188185 else OrNil . Just <$> Lua.peek idx
189−
190−#if !MIN_VERSION_hslua(0,9,0)
191−instance ToLuaStack BL.ByteString where
192− push = Lua.push . BL.toStrict
193−
194−instance FromLuaStack BL.ByteString where
195− peek = fmap BL.fromStrict . Lua.peek
196−#endif