[FIX] Maybe hyperdataDocument better written.

src/Gargantext/Types/Node.hs

@@ -22,13 +22,13 @@ import GHC.Generics (Generic)
 import Data.Aeson
 import Data.Aeson (Value(),toJSON)
 import Data.Aeson.TH (deriveJSON)
+import Data.ByteString.Lazy (ByteString)
 import Data.Either
 import Data.Eq (Eq)
 import Data.Text (Text, unpack)
 import Data.Time (UTCTime)
 import Data.Time.Segment (jour)
 import Data.Swagger
-import Data.Maybe (fromJust)
 
 import Text.Read (read)
 import Text.Show (Show())
@@ -230,15 +230,34 @@ instance Arbitrary (NodePoly NodeId NodeTypeId (Maybe NodeUserId) NodeParentId N
 instance Arbitrary (NodePoly NodeId NodeTypeId NodeUserId (Maybe NodeParentId) NodeName UTCTime HyperdataDocument) where
     arbitrary = elements [Node 1 1 1 (Just 1) "name" (jour 2018 01 01) hyperdataDocument]
 
-hyperdataDocument :: HyperdataDocument
-hyperdataDocument = fromJust $ decode "{\"publication_day\":6,\"language_iso2\":\"en\",\"publication_minute\":0,\"publication_month\":7,\"language_iso3\":\"eng\",\"publication_second\":0,\"authors\":\"Nils Hovdenak, Kjell Haram\",\"publication_year\":2012,\"publication_date\":\"2012-07-06 00:00:00+00:00\",\"language_name\":\"English\",\"statuses\":[],\"realdate_full_\":\"2012 01 12\",\"source\":\"European journal of obstetrics, gynecology, and reproductive biology\",\"abstract\":\"The literature was searched for publications on minerals and vitamins during pregnancy and the possible influence of supplements on pregnancy outcome.\",\"title\":\"Influence of mineral and vitamin supplements on pregnancy outcome.\",\"publication_hour\":0}"
-
-
-instance ToSchema HyperdataDocument where
-    declareNamedSchema = genericDeclareNamedSchemaUnrestricted defaultSchemaOptions
 
-instance ToSchema (NodePoly NodeId NodeTypeId NodeUserId (Maybe NodeParentId) NodeName UTCTime HyperdataDocument)
-instance ToSchema (NodePoly NodeId NodeTypeId (Maybe NodeUserId) NodeParentId NodeName UTCTime HyperdataDocument)
+------------------------------------------------------------------------
+hyperdataDocument :: HyperdataDocument
+hyperdataDocument = case decode docExample of
+                      Just hp -> hp
+                      Nothing -> HyperdataDocument Nothing Nothing Nothing Nothing
+                                                   Nothing Nothing Nothing Nothing
+                                                   Nothing Nothing Nothing Nothing
+                                                   Nothing Nothing Nothing
+docExample :: ByteString
+docExample = "{\"publication_day\":6,\"language_iso2\":\"en\",\"publication_minute\":0,\"publication_month\":7,\"language_iso3\":\"eng\",\"publication_second\":0,\"authors\":\"Nils Hovdenak, Kjell Haram\",\"publication_year\":2012,\"publication_date\":\"2012-07-06 00:00:00+00:00\",\"language_name\":\"English\",\"statuses\":[],\"realdate_full_\":\"2012 01 12\",\"source\":\"European journal of obstetrics, gynecology, and reproductive biology\",\"abstract\":\"The literature was searched for publications on minerals and vitamins during pregnancy and the possible influence of supplements on pregnancy outcome.\",\"title\":\"Influence of mineral and vitamin supplements on pregnancy outcome.\",\"publication_hour\":0}"
+
+
+instance ToSchema HyperdataDocument
+
+-- instance ToSchema HyperdataDocument where
+--    declareNamedSchema = genericDeclareNamedSchemaUnrestricted defaultSchemaOptions
+
+instance ToSchema (NodePoly NodeId NodeTypeId NodeUserId 
+                            (Maybe NodeParentId) NodeName
+                            UTCTime HyperdataDocument
+                  )
+
+instance ToSchema (NodePoly NodeId NodeTypeId 
+                            (Maybe NodeUserId) 
+                            NodeParentId NodeName 
+                            UTCTime HyperdataDocument
+                  )
 
 instance ToSchema Status