]> Git — Sourcephile - gargantext.git/blob - src/Gargantext/API/Node/Share.hs
[ADMIN] Adding linear Algebra utils for Accelerate
[gargantext.git] / src / Gargantext / API / Node / Share.hs
1 {-|
2 Module : Gargantext.API.Node.Share
3 Description :
4 Copyright : (c) CNRS, 2017-Present
5 License : AGPL + CECILL v3
6 Maintainer : team@gargantext.org
7 Stability : experimental
8 Portability : POSIX
9
10 -}
11
12 {-# LANGUAGE TemplateHaskell #-}
13 {-# LANGUAGE TypeOperators #-}
14
15 module Gargantext.API.Node.Share
16 where
17
18 import Data.Aeson
19 import Data.Swagger
20 import Data.Text (Text)
21 import GHC.Generics (Generic)
22 import Servant
23 import Test.QuickCheck (elements)
24 import Test.QuickCheck.Arbitrary
25
26 import Gargantext.API.Prelude
27 import Gargantext.Core.Types.Individu (User(..))
28 import Gargantext.Database.Action.Share (ShareNodeWith(..))
29 import Gargantext.Database.Action.Share as DB (shareNodeWith, unPublish)
30 import Gargantext.Database.Admin.Types.Node
31 import Gargantext.Database.Prelude
32 import Gargantext.Database.Query.Table.Node.Error (HasNodeError(..))
33 import Gargantext.Prelude
34
35 ------------------------------------------------------------------------
36 data ShareNodeParams = ShareTeamParams { username :: Text }
37 | SharePublicParams { node_id :: NodeId}
38 deriving (Generic)
39 ------------------------------------------------------------------------
40 -- TODO unPrefix "pn_" FromJSON, ToJSON, ToSchema, adapt frontend.
41 instance FromJSON ShareNodeParams where
42 parseJSON = genericParseJSON (defaultOptions { sumEncoding = ObjectWithSingleField })
43 instance ToJSON ShareNodeParams where
44 toJSON = genericToJSON (defaultOptions { sumEncoding = ObjectWithSingleField })
45 instance ToSchema ShareNodeParams
46 instance Arbitrary ShareNodeParams where
47 arbitrary = elements [ ShareTeamParams "user1"
48 , SharePublicParams (NodeId 1)
49 ]
50 ------------------------------------------------------------------------
51 -- TODO permission
52 api :: HasNodeError err
53 => NodeId
54 -> ShareNodeParams
55 -> Cmd err Int
56 api nId (ShareTeamParams user) =
57 fromIntegral <$> DB.shareNodeWith (ShareNodeWith_User NodeFolderShared (UserName user)) nId
58 api nId2 (SharePublicParams nId1) =
59 fromIntegral <$> DB.shareNodeWith (ShareNodeWith_Node NodeFolderPublic nId1) nId2
60
61 ------------------------------------------------------------------------
62 type API = Summary " Share Node with username"
63 :> ReqBody '[JSON] ShareNodeParams
64 :> Post '[JSON] Int
65
66 ------------------------------------------------------------------------
67 type Unpublish = Summary " Unpublish Node"
68 :> Capture "node_id" NodeId
69 :> Put '[JSON] Int
70
71 unPublish :: NodeId -> GargServer Unpublish
72 unPublish n = DB.unPublish n