Skip to content

haskell-gargantext
haskell-gargantext
Commit 8f7b0261 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] incomplete pattern.

parent 54a23c8e
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 0 deletions
src/Gargantext/Database/Schema/Node.hs
View file @ 8f7b0261
......@@ -518,6 +518,8 @@ mkNodeWithParent NodeUser Nothing uId name =
where
hd = HyperdataUser . Just . pack $ show EN
mkNodeWithParent _ Nothing _ _ = nodeError HasParent
mkNodeWithParent _ _ _ _ = nodeError NotImplYet
mkRoot :: HasNodeError err => Username -> UserId -> Cmd err [RootId]
mkRoot uname uId = case uId > 0 of
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment