Skip to content

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

[FIX] warning as error removed

parent 0b875b4d
Pipeline #2565 failed with stage
    in 35 minutes and 29 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 1 deletion
    src/Gargantext/API/GraphQL/UserInfo.hs
    View file @ de7cf704
    ...@@ -106,7 +106,7 @@ updateUserInfo (UserInfoMArgs { ui_id, .. }) = do ...@@ -106,7 +106,7 @@ updateUserInfo (UserInfoMArgs { ui_id, .. }) = do
    users <- lift (getUsersWithNodeHyperdata ui_id) users <- lift (getUsersWithNodeHyperdata ui_id)
    case users of case users of
    [] -> panic $ "[updateUserInfo] User with id " <> (T.pack $ show ui_id) <> " doesn't exist." [] -> panic $ "[updateUserInfo] User with id " <> (T.pack $ show ui_id) <> " doesn't exist."
    ((u, node_u):_) -> do ((_u, node_u):_) -> do
    let u_hyperdata = node_u ^. node_hyperdata let u_hyperdata = node_u ^. node_hyperdata
    -- lift $ printDebug "[updateUserInfo] u" u -- lift $ printDebug "[updateUserInfo] u" u
    let u_hyperdata' = uh ui_titleL ui_title $ let u_hyperdata' = uh ui_titleL ui_title $
    ......
    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