From 2a89b99ee62f67cd1a8ac1586a3871659b0a2dd2 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Mon, 12 Jun 2023 10:29:16 +0700
Subject: [PATCH] TXML stub

---
 src/Linux/TXML.hs | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/src/Linux/TXML.hs b/src/Linux/TXML.hs
index e8f9455..eaa4b01 100644
--- a/src/Linux/TXML.hs
+++ b/src/Linux/TXML.hs
@@ -10,13 +10,7 @@ module Linux.TXML
   , LogLevel(..)
   ) where
 
-import qualified Data.ByteString.Char8    as BS
-import qualified Data.Text                as T
-import           Data.Text.Encoding
-import           Data.Text.Encoding.Error
-import           Foreign.C.String
-import           Foreign.C.Types
-import           Foreign.Ptr
+import qualified Data.Text as T
 
 data LogLevel =
     Debug
@@ -24,20 +18,20 @@ data LogLevel =
   | Warning
   deriving (Show, Eq, Ord)
 
-newtype Callback = Callback { unCallback :: FunPtr (CString  -> IO CBool)}
+data Callback = Callback
 
 initialize :: FilePath -> LogLevel -> IO (Either T.Text ())
-initialize fp loglevel = return (Right ())
+initialize _ _ = return (Right ())
 
 uninitialize :: IO (Either T.Text ())
 uninitialize = return (Right ())
 
 sendCommand :: T.Text -> IO (Either T.Text ())
-sendCommand cmdData = return (Right ())
+sendCommand _ = return (Right ())
 
 setCallback :: (T.Text -> IO Bool) -> IO (Maybe Callback)
-setCallback callback = return Nothing
+setCallback _ = return . Just $ Callback
 
 freeCallback :: Callback -> IO ()
-freeCallback = freeHaskellFunPtr . unCallback
+freeCallback _ = return ()