Drezil/dear-imgui.hs
1
0
Fork 0
mirror of https://github.com/Drezil/dear-imgui.hs.git synced 2025-07-16 01:33:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix the text fix and prepare 2.1.3 (#167)

Browse Source
This commit is contained in:
Alexander Bondarenko
2022-12-12 20:57:54 +03:00
committed by GitHub
parent 68e30d98ad
commit 9bb66f0113
3 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/DearImGui/Internal/Text.hs
View File

@ -13,7 +13,6 @@ module DearImGui.Internal.Text
) where
-- base
import Control.Monad.IO.Class (liftIO)
import Foreign (nullPtr, plusPtr)
import Foreign.C.String (CString)
import qualified GHC.Foreign as Foreign
@ -34,7 +33,8 @@ import qualified Data.Text.Foreign as Text
withCString :: MonadUnliftIO m => Text -> (CString -> m a) -> m a
withCString text action =
withUnliftIO $ \(UnliftIO unlift) ->
Text.withCString text (unlift action)
Text.withCString text $ \buf ->
unlift $ action buf
#elif MIN_VERSION_text(2,0,0)
-- XXX: the text is UTF-8, alas no withCString is available
@ -57,9 +57,8 @@ withCString t@(Text _arr _off len) action =
withCString :: MonadUnliftIO m => Text -> (CString -> m a) -> m a
withCString t action = do
withUnliftIO $ \(UnliftIO unlift) ->
liftIO $
Foreign.withCString utf8 (unpack t) $ \textPtr ->
unlift $ action textPtr
Foreign.withCString utf8 (unpack t) $ \textPtr ->
unlift $ action textPtr
#endif