From 583a8868b6c2e8f16f3bb00b6e0cb0d2b2dd1127 Mon Sep 17 00:00:00 2001 From: Adrian Cochrane Date: Tue, 28 Mar 2023 12:50:42 +1300 Subject: [PATCH] Heisenbug appears to have disappeared... --- Graphics/Text/Font/Choose/FontSet.hs | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/Graphics/Text/Font/Choose/FontSet.hs b/Graphics/Text/Font/Choose/FontSet.hs index da86741..044a727 100644 --- a/Graphics/Text/Font/Choose/FontSet.hs +++ b/Graphics/Text/Font/Choose/FontSet.hs @@ -57,15 +57,10 @@ thawFontSet :: FontSet_ -> IO FontSet thawFontSet fonts' = do -- Very hacky, but these debug statements must be in here to avoid segfaults. -- FIXME: Is there an alternative? - print "a" n <- get_fontSet_nfont fonts' - print "b" if n == 0 then return [] - else do - print "c" - ret <- forM [0..pred n] (\i -> thawPattern =<< get_fontSet_font fonts' i) - print "d" - return ret + else + forM [0..pred n] (\i -> thawPattern =<< get_fontSet_font fonts' i) foreign import ccall "get_fontSet_nfont" get_fontSet_nfont :: FontSet_ -> IO Int foreign import ccall "get_fontSet_font" get_fontSet_font :: FontSet_ -> Int -> IO Pattern_ -- 2.30.2