Fix instances

parent 8f521836
...@@ -27,7 +27,7 @@ git clone ssh://git@gitlab.iscpif.fr:20022/gargantext/clustering-louvain.git ...@@ -27,7 +27,7 @@ git clone ssh://git@gitlab.iscpif.fr:20022/gargantext/clustering-louvain.git
git clone https://github.com/np/servant-job.git git clone https://github.com/np/servant-job.git
git clone https://github.com/np/patches-map git clone https://github.com/np/patches-map
git clone https://gitlab.com/npouillard/patches-class.git git clone https://gitlab.com/npouillard/patches-class.git
git clone https://github.com:delanoe/haskell-opaleye.git git clone https://github.com/delanoe/haskell-opaleye.git
cd .. cd ..
~/.local/bin/stack docker pull ~/.local/bin/stack docker pull
......
...@@ -394,9 +394,13 @@ $(deriveJSON (unPrefix "_node_") ''NodePoly) ...@@ -394,9 +394,13 @@ $(deriveJSON (unPrefix "_node_") ''NodePoly)
$(makeLenses ''NodePoly) $(makeLenses ''NodePoly)
instance Arbitrary hyperdata => Arbitrary (NodePoly NodeId NodeTypeId instance (Arbitrary hyperdata
(Maybe NodeUserId) NodeParentId NodeName ,Arbitrary nodeId
UTCTime hyperdata (Maybe TSVector)) where ,Arbitrary nodeTypeId
,Arbitrary nodeUserId
,Arbitrary nodeParentId
) => Arbitrary (NodePoly nodeId nodeTypeId nodeUserId nodeParentId
NodeName UTCTime hyperdata (Maybe TSVector)) where
--arbitrary = Node 1 1 (Just 1) 1 "name" (jour 2018 01 01) (arbitrary) (Just "") --arbitrary = Node 1 1 (Just 1) 1 "name" (jour 2018 01 01) (arbitrary) (Just "")
arbitrary = Node <$> arbitrary <*> arbitrary <*> arbitrary arbitrary = Node <$> arbitrary <*> arbitrary <*> arbitrary
<*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary
...@@ -442,14 +446,14 @@ instance ToSchema hyperdata => ...@@ -442,14 +446,14 @@ instance ToSchema hyperdata =>
ToSchema (NodePoly NodeId NodeTypeId ToSchema (NodePoly NodeId NodeTypeId
(Maybe NodeUserId) (Maybe NodeUserId)
NodeParentId NodeName NodeParentId NodeName
UTCTime hyperdata TSVector UTCTime hyperdata (Maybe TSVector)
) )
instance ToSchema hyperdata => instance ToSchema hyperdata =>
ToSchema (NodePoly NodeId NodeTypeId ToSchema (NodePoly NodeId NodeTypeId
NodeUserId NodeUserId
(Maybe NodeParentId) NodeName (Maybe NodeParentId) NodeName
UTCTime hyperdata TSVector UTCTime hyperdata (Maybe TSVector)
) )
......
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