From 2262f005ce5b39ccd3694f61f2507b9e61c3804c Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Thu, 5 Oct 2017 11:30:44 +0200
Subject: Use hslua v0.9.0

---
 src/Text/Pandoc/Lua/PandocModule.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Lua/PandocModule.hs b/src/Text/Pandoc/Lua/PandocModule.hs
index f9b072dff..3c27ecffb 100644
--- a/src/Text/Pandoc/Lua/PandocModule.hs
+++ b/src/Text/Pandoc/Lua/PandocModule.hs
@@ -16,9 +16,6 @@ along with this program; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 -}
 {-# LANGUAGE CPP #-}
-#if !MIN_VERSION_hslua(0,9,0)
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-#endif
 {- |
    Module      : Text.Pandoc.Lua.PandocModule
    Copyright   : Copyright © 2017 Albert Krewinkel
@@ -40,7 +37,7 @@ import Data.Default (Default (..))
 import Data.IORef
 import Data.Maybe (fromMaybe)
 import Data.Text (pack)
-import Foreign.Lua (Lua, FromLuaStack, ToLuaStack, NumResults, liftIO)
+import Foreign.Lua (Lua, FromLuaStack, NumResults, liftIO)
 import Foreign.Lua.FunctionCalling (ToHaskellFunction)
 import Text.Pandoc.Class (readDataFile, runIO,
                           runIOorExplode, setUserDataDir, CommonState(..),
@@ -186,11 +183,3 @@ instance FromLuaStack a => FromLuaStack (OrNil a) where
     if noValue
       then return (OrNil Nothing)
       else OrNil . Just <$> Lua.peek idx
-
-#if !MIN_VERSION_hslua(0,9,0)
-instance ToLuaStack BL.ByteString where
-  push = Lua.push . BL.toStrict
-
-instance FromLuaStack BL.ByteString where
-  peek = fmap BL.fromStrict . Lua.peek
-#endif
-- 
cgit v1.2.3