From fe82ac9733da3f4588c3a0bbd60af24fdf7429de Mon Sep 17 00:00:00 2001 From: Adrian Cochrane Date: Mon, 12 Dec 2022 17:07:04 +1300 Subject: [PATCH] Catch one FcFontSet segfault. --- Graphics/Text/Font/Choose/FontSet.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Graphics/Text/Font/Choose/FontSet.hs b/Graphics/Text/Font/Choose/FontSet.hs index 9d2bad2..37a1daf 100644 --- a/Graphics/Text/Font/Choose/FontSet.hs +++ b/Graphics/Text/Font/Choose/FontSet.hs @@ -58,7 +58,7 @@ thawFontSet fonts' = do then return [] else do list <- peekArray n array - forM list (thawPattern . throwNull) + forM list (thawPattern_ . pure) foreign import ccall "get_fontSet_nfont" get_fontSet_nfont :: FontSet_ -> IO Int foreign import ccall "get_fontSet_fonts" get_fontSet_fonts :: FontSet_ -> IO (Ptr Pattern_) -- 2.30.2