Fix segfault in igraphCommunityInfomap call

03c8885d · Alfredo Di Napoli · 4d8911ea · 03c8885d
Commit 03c8885d authored Feb 08, 2023 by Alfredo Di Napoli
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

Community.chs src/IGraph/Algorithms/Community.chs +2 -1

No files found.
--- a/src/IGraph/Algorithms/Community.chs
+++ b/src/IGraph/Algorithms/Community.chs
@@ -55,7 +55,8 @@ findCommunity gr getNodeW getEdgeW method _ = allocaVector $ \result ->
                    (_graph gr) ew' nw' _resolution _beta False result nullPtr
                return ()
            Infomap{..} -> do
-                _ <- withListMaybe nw $ \nw' -> igraphCommunityInfomap (_graph gr) ew' nw' _iIter result nullPtr
+                _ <- withListMaybe nw $ \nw' -> alloca $ \codeLenPtr ->
+                       igraphCommunityInfomap (_graph gr) ew' nw' _iIter result codeLenPtr
                return ()

        fmap ( map (fst . unzip) . groupBy ((==) `on` snd)