From a4237d369fb16a6f4e3feb6ba72857aece677684 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Mon, 21 Mar 2022 13:44:14 +0100
Subject: [PATCH] fixed compile-errors.

---
 imgui                         | 2 +-
 src/DearImGui/Raw/DrawList.hs | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/imgui b/imgui
index bc5d864..db20d38 160000
--- a/imgui
+++ b/imgui
@@ -1 +1 @@
-Subproject commit bc5d864c4f036f1a88ce92ae12636f0469163874
+Subproject commit db20d38864f6b598e255cef116add91ab08e66de
diff --git a/src/DearImGui/Raw/DrawList.hs b/src/DearImGui/Raw/DrawList.hs
index 5add9d1..443ff40 100644
--- a/src/DearImGui/Raw/DrawList.hs
+++ b/src/DearImGui/Raw/DrawList.hs
@@ -412,8 +412,8 @@ addText_ (DrawList drawList) pos col text_begin text_end = liftIO do
     }
   |]
 
-addText :: MonadIO m => DrawList -> Ptr ImFont -> CFloat -> Ptr ImVec2 -> ImU32 -> CString -> CString -> CFloat -> Ptr ImVec4 -> m ()
-addText (DrawList drawList) fontPtr font_size pos col text_begin text_end wrap_width cpu_fine_clip_rect = liftIO do
+addText :: MonadIO m => DrawList -> Ptr ImFont -> CFloat -> Ptr ImVec2 -> ImU32 -> CString -> CString -> CFloat -> CFloat -> Ptr ImVec4 -> m ()
+addText (DrawList drawList) fontPtr font_size pos col text_begin text_end wrap_width text_align cpu_fine_clip_rect = liftIO do
   [C.block|
     void {
       $(ImDrawList* drawList)->AddText(
@@ -424,6 +424,7 @@ addText (DrawList drawList) fontPtr font_size pos col text_begin text_end wrap_w
         $(char* text_begin),
         $(char* text_end),
         $(float wrap_width),
+        $(float text_align),
         $(ImVec4* cpu_fine_clip_rect)
       );
     }