HACK: Suppress the offending functions

Author: dpwiz

src/DearImGui/Raw/Font.hs

@@ -85,11 +85,7 @@ addFontFromFileTTF :: MonadIO m
 addFontFromFileTTF filenamePtr sizePixels (FontConfig fontConfig) (GlyphRanges glyphRanges) = liftIO do
   Font <$> [C.block|
     ImFont* {
-      return GetIO().Fonts->AddFontFromFileTTF(
-        $(char* filenamePtr),
-        $(float sizePixels),
-        $(ImFontConfig* fontConfig),
-        $(ImWchar* glyphRanges));
+      return GetIO().Fonts->AddFontDefault(NULL);
     }
   |]
 
@@ -98,13 +94,7 @@ addFontFromMemoryTTF :: MonadIO m => CStringLen -> CFloat -> FontConfig -> Glyph
 addFontFromMemoryTTF (castPtr -> fontDataPtr, fromIntegral -> fontSize) sizePixels (FontConfig fontConfig) (GlyphRanges glyphRanges) = liftIO do
   Font <$> [C.block|
     ImFont* {
-      return GetIO().Fonts->AddFontFromMemoryTTF(
-        $(void* fontDataPtr),
-        $(int fontSize),
-        $(float sizePixels),
-        $(ImFontConfig* fontConfig),
-        $(ImWchar* glyphRanges)
-      );
+      return GetIO().Fonts->AddFontDefault(NULL);
     }
   |]
 

src/DearImGui/Raw/Font/GlyphRanges.hs

@@ -255,7 +255,7 @@ addRanges :: MonadIO m => GlyphRangesBuilder -> GlyphRanges -> m()
 addRanges (GlyphRangesBuilder builder) (GlyphRanges ranges) = liftIO do
   [C.block|
     void {
-      $(ImFontGlyphRangesBuilder* builder)->AddRanges($(ImWchar* ranges));
+      return;
     }
   |]
 
@@ -267,7 +267,6 @@ buildRangesVector (GlyphRangesBuilder builder) = liftIO do
   GlyphRangesVector <$> [C.block|
     void* {
       ImVector<ImWchar>* ranges = IM_NEW(ImVector<ImWchar>);
-      $(ImFontGlyphRangesBuilder* builder)->BuildRanges(ranges);
       return ranges;
     }
   |]