Allow to log position of placement spot

src/Dodge/Tree/Shift.hs

@@ -91,7 +91,7 @@ posRms prs parenti@(parent, _) ((numChild, t@(Node childi _)) : its) tseq = do
                             , _rpDir = snd (lnkPosDir outlnk)
                             , _rpType = S.empty
                             , _rpLinkStatus = UsedOutLink (_rlType outlnk) numChild (snd childi)
-                            , _rpPlacementUse = 0
+                            , _rpPlacementUse = mempty
                             }
                     & rmChildren .:~ snd childi
             shiftedoutlink = shiftLinkBy (_rmShift parent) outlnk
@@ -106,7 +106,7 @@ posRms prs parenti@(parent, _) ((numChild, t@(Node childi _)) : its) tseq = do
                             , _rpDir = snd (lnkPosDir il)
                             , _rpType = S.empty
                             , _rpLinkStatus = UsedInLink (_rlType il) (snd parenti)
-                            , _rpPlacementUse = 0
+                            , _rpPlacementUse = mempty
                             }
             shiftedt =
                 over
@@ -123,7 +123,7 @@ createUnusedLinkPos rm = rm & rmPos .++~ map f (_rmLinks rm)
             , _rpDir = _rlDir rl
             , _rpType = S.empty
             , _rpLinkStatus = UnusedLink $ _rlType rl
-            , _rpPlacementUse = 0
+            , _rpPlacementUse = mempty
             }
 
 zipCount :: [a] -> [(Int, a)]