computeConfluences was forgetting to build half the adjacency matrix

src/Graph/BAC/ProxemyOptim.hs

@@ -226,7 +226,7 @@ computeConfluences l edges reflexive = reifyNat (fromIntegral maxNode + 1) $ \(P
   let
     xs :: [(Int, Int, Double)]
     xs =
-      map (\(i, j) -> (i, j, 1.0)) edges ++
+      concatMap (\(i, j) -> [(i, j, 1.0), (j, i, 1.0)]) edges ++
       (if reflexive
         then [ (i, i, 1.0) | i <- [0..maxNode] ]
         else []