From 8de69f1069d43cdc2f7895abf809a529821f2748 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Fri, 11 Feb 2022 16:15:37 +1300
Subject: [PATCH] FreeType integration is not threadsafe, not that in API
 design.

---
 Data/Text/Glyphize/Font.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Data/Text/Glyphize/Font.hs b/Data/Text/Glyphize/Font.hs
index 4616fae..48bc319 100644
--- a/Data/Text/Glyphize/Font.hs
+++ b/Data/Text/Glyphize/Font.hs
@@ -6,7 +6,7 @@ import Data.Text.Short
 data Face = Face -- TODO Define
 
 -- countFace :: ByteString -> Int
--- createFace :: ByteString -> Int -> Face
+-- createFace :: ByteString -> Int -> IO Face
 -- ftCreateFace :: FT_Face -> Face
 -- emptyFace :: Face
 -- faceGlyphCount :: Face -> Int
@@ -24,7 +24,7 @@ data FontOptions = FontOptions {
 }
 
 -- createFont :: Face -> FontOptions -> Font
--- ftCreateFont ::FT_Face -> FontOptions -> Font
+-- ftCreateFont ::FT_Face -> FontOptions -> IO Font
 -- emptyFont :: Font
 -- fontFace :: Font -> Face
 -- fontGlyph :: Font -> Char -> Maybe Char -> Maybe Int
-- 
2.30.2