[REST] fix arbitrary instances for node users

src/Gargantext/Database/Types/Node.hs

@@ -20,7 +20,7 @@ Portability : POSIX
 
 module Gargantext.Database.Types.Node where
 
-import Prelude (Enum, Bounded, minBound, maxBound)
+import Prelude (Enum, Bounded, minBound, maxBound, mempty)
 
 import GHC.Generics (Generic)
 
@@ -311,11 +311,11 @@ $(deriveJSON (unPrefix "node_") ''NodePoly)
 
 
 instance Arbitrary (NodePoly NodeId NodeTypeId (Maybe NodeUserId) NodeParentId NodeName UTCTime Value) where
-    arbitrary = elements [Node 1 1 (Just 1) 1 "name" (jour 2018 01 01) (toJSON ("{}"::Text))]
+    arbitrary = elements [Node 1 1 (Just 1) 1 "name" (jour 2018 01 01) (Object mempty)]
 
 
 instance Arbitrary (NodePoly NodeId NodeTypeId NodeUserId (Maybe NodeParentId) NodeName UTCTime Value) where
-    arbitrary = elements [Node 1 1 1 (Just 1) "name" (jour 2018 01 01) (toJSON ("{}"::Text))]
+    arbitrary = elements [Node 1 1 1 (Just 1) "name" (jour 2018 01 01) (Object mempty)]
 
 instance Arbitrary (NodePoly NodeId NodeTypeId (Maybe NodeUserId) NodeParentId NodeName UTCTime HyperdataDocument) where
     arbitrary = elements [Node 1 1 (Just 1) 1 "name" (jour 2018 01 01) ((hyperdataDocument))]
@@ -347,7 +347,7 @@ instance ToSchema HyperdataDocument where
 instance ToSchema Value where
   declareNamedSchema proxy = genericDeclareNamedSchemaUnrestricted defaultSchemaOptions proxy
     L.& mapped.schema.description ?~ "a document"
-    L.& mapped.schema.example ?~ toJSON ("" :: Text)
+    L.& mapped.schema.example ?~ toJSON ("" :: Text) -- TODO
 
 
 instance ToSchema (NodePoly NodeId NodeTypeId NodeUserId