[CLEAN] refact clean WIP
[gargantext.git] / src / Gargantext / Database / Action / Flow / Utils.hs
index d68f0e413f5aa840b2acf81c07a3d7e41b570933..2c3193527f6f88ac8f4b5c29062e6b585c7f8c5b 100644 (file)
@@ -40,7 +40,8 @@ getUserId (UserName u  ) = do
   case muser of
     Just user -> pure $ userLight_id user
     Nothing   -> nodeError NoUserFound
-
+getUserId UserPublic = nodeError NoUserFound
 
 toMaps :: Hyperdata a
        => (a -> Map (NgramsT Ngrams) Int)