[FIX] warning unused var

8a8ef7e2 · Alexandre Delanoë · 2aeaca0e · 8a8ef7e2
Commit 8a8ef7e2 authored Dec 07, 2020 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Tree.hs src/Gargantext/Database/Query/Tree.hs +1 -1

No files found.
--- a/src/Gargantext/Database/Query/Tree.hs
+++ b/src/Gargantext/Database/Query/Tree.hs
@@ -183,7 +183,7 @@ toTree m =
        Just [n] -> pure $ toTree' m n
        Nothing  -> treeError NoRoot
        Just []  -> treeError EmptyRoot
-        Just r   -> treeError TooManyRoots
+        Just _r  -> treeError TooManyRoots

     where
       toTree' :: Map (Maybe ParentId) [DbTreeNode]