Merge remote-tracking branch 'origin/dev-hackathon-fixes' into dev
[gargantext.git] / src / Gargantext / Database / Query / Tree.hs
index ae01aeccb28c287085b0870bc468df3895cde0a6..522458bf38ec735304076d61ee167439fc44d17a 100644 (file)
@@ -256,7 +256,7 @@ toTree m =
                 -> Tree NodeTree
         toTree' m' root =
           TreeN (toNodeTree root) $
-            -- Lines below are equivalent computationally but not semantically
+            -- Lines below are equivalent computationally but not semantically
             -- m' ^.. at (Just $ _dt_nodeId root) . _Just . each . to (toTree' m')
             toListOf (at (Just $ _dt_nodeId root) . _Just . each . to (toTree' m')) m'