Add HACK notes

Algorithms/KDTree/KDTree.hs

@@ -138,6 +138,7 @@ rangeSearch kd' sq' = (goPt kd' sq', goTree kd' sq' True)
                      (goTree rn sq False)]
         where
           treeText
+            -- HACK: in order to give specific nodes a specific color
             | vis && inRange sq pt = "** " ++ (show . unp2 $ pt)
             | vis                  = "* " ++ (show . unp2 $ pt)
             | otherwise            = show . unp2 $ pt

Algorithms/QuadTree/QuadTree.hs

@@ -214,6 +214,7 @@ quadTreeToRoseTree z' = go (rootNode z')
                         , go (fromJust . goSE $ z)]
       where
         markAndPrintOrigin
+          -- HACK: in order to give specific nodes a specific color
           | z' == z   = "* " ++ printOrigin
           | otherwise = printOrigin
         printOrigin