From f632e9950077b3c31bd24f50e754bd22f1a7c653 Mon Sep 17 00:00:00 2001
From: o1lo01ol1o <tim.pierson@gmail.com>
Date: Mon, 25 Jan 2021 12:07:00 +0000
Subject: [PATCH] add string formatter

---
 src/DearImGui.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/DearImGui.hs b/src/DearImGui.hs
index bae700f..80a1495 100644
--- a/src/DearImGui.hs
+++ b/src/DearImGui.hs
@@ -296,7 +296,7 @@ sameLine = liftIO do
 text :: MonadIO m => String -> m ()
 text t = liftIO do
   withCString t \textPtr ->
-    [C.exp| void { Text($(char* textPtr)) } |]
+    [C.exp| void { Text("%s", $(char* textPtr)) } |]
 
 
 -- | A button. Returns 'True' when clicked.