1 files changed, 1 insertions(+), 1 deletions(-)

M 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_)