2 Module : Gargantext.Database.Admin.Types.Hyperdata.Default
4 Copyright : (c) CNRS, 2017-Present
5 License : AGPL + CECILL v3
6 Maintainer : team@gargantext.org
7 Stability : experimental
12 {-# LANGUAGE DeriveGeneric #-}
13 {-# LANGUAGE FlexibleContexts #-}
14 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
15 {-# LANGUAGE MultiParamTypeClasses #-}
16 {-# LANGUAGE NoImplicitPrelude #-}
17 {-# LANGUAGE OverloadedStrings #-}
18 {-# LANGUAGE RankNTypes #-}
19 {-# LANGUAGE TemplateHaskell #-}
21 module Gargantext.Database.Admin.Types.Hyperdata.Default
24 import Gargantext.Database.Admin.Types.Node (NodeType(..))
25 import Gargantext.Database.Admin.Types.Hyperdata
26 import Gargantext.Database.Admin.Types.Hyperdata.Prelude
29 data DefaultHyperdata =
30 DefaultUser HyperdataUser
31 | DefaultContact HyperdataContact
33 | DefaultCorpus HyperdataCorpus
34 | DefaultCorpusV3 HyperdataCorpus
35 | DefaultAnnuaire HyperdataAnnuaire
37 | DefaultDocument HyperdataDocument
38 | DefaultTexts HyperdataTexts
39 | DefaultList HyperdataList
40 | DefaultListCooc HyperdataListCooc
41 | DefaultModel HyperdataModel
43 | DefaultFolder HyperdataFolder
44 | DefaultFolderPrivate HyperdataFolderPrivate
45 | DefaultFolderShared HyperdataFolderShared
46 | DefaultTeam HyperdataFolder
47 | DefaultFolderPublic HyperdataFolderPublic
49 | DefaultGraph HyperdataGraph
50 | DefaultPhylo HyperdataPhylo
51 | DefaultDashboard HyperdataDashboard
53 | DefaultFrameWrite HyperdataFrame
54 | DefaultFrameCalc HyperdataFrame
55 | DefaultFrameVisio HyperdataFrame
56 | DefaultFrameCode HyperdataFrame
58 | DefaultFile HyperdataFile
60 instance Hyperdata DefaultHyperdata
62 instance ToJSON DefaultHyperdata where
63 toJSON (DefaultUser x) = toJSON x
64 toJSON (DefaultContact x) = toJSON x
66 toJSON (DefaultCorpus x) = toJSON x
67 toJSON (DefaultCorpusV3 x) = toJSON x
68 toJSON (DefaultAnnuaire x) = toJSON x
70 toJSON (DefaultDocument x) = toJSON x
71 toJSON (DefaultTexts x) = toJSON x
72 toJSON (DefaultList x) = toJSON x
73 toJSON (DefaultListCooc x) = toJSON x
74 toJSON (DefaultModel x) = toJSON x
76 toJSON (DefaultFolder x) = toJSON x
77 toJSON (DefaultFolderPrivate x) = toJSON x
78 toJSON (DefaultFolderShared x) = toJSON x
79 toJSON (DefaultTeam x) = toJSON x
80 toJSON (DefaultFolderPublic x) = toJSON x
82 toJSON (DefaultGraph x) = toJSON x
83 toJSON (DefaultPhylo x) = toJSON x
84 toJSON (DefaultDashboard x) = toJSON x
86 toJSON (DefaultFrameWrite x) = toJSON x
87 toJSON (DefaultFrameCalc x) = toJSON x
88 toJSON (DefaultFrameVisio x) = toJSON x
89 toJSON (DefaultFrameCode x) = toJSON x
91 toJSON (DefaultFile x) = toJSON x
94 defaultHyperdata :: NodeType -> DefaultHyperdata
95 defaultHyperdata NodeUser = DefaultUser defaultHyperdataUser
96 defaultHyperdata NodeContact = DefaultContact defaultHyperdataContact
98 defaultHyperdata NodeCorpus = DefaultCorpus defaultHyperdataCorpus
99 defaultHyperdata NodeCorpusV3 = DefaultCorpusV3 defaultHyperdataCorpus
100 defaultHyperdata NodeAnnuaire = DefaultAnnuaire defaultHyperdataAnnuaire
102 defaultHyperdata NodeDocument = DefaultDocument defaultHyperdataDocument
103 defaultHyperdata NodeTexts = DefaultTexts defaultHyperdataTexts
104 defaultHyperdata NodeList = DefaultList defaultHyperdataList
105 defaultHyperdata NodeListCooc = DefaultListCooc defaultHyperdataListCooc
106 defaultHyperdata NodeModel = DefaultModel defaultHyperdataModel
108 defaultHyperdata NodeFolder = DefaultFolder defaultHyperdataFolder
109 defaultHyperdata NodeFolderPrivate = DefaultFolderPrivate defaultHyperdataFolderPrivate
110 defaultHyperdata NodeFolderShared = DefaultFolderShared defaultHyperdataFolderShared
111 defaultHyperdata NodeTeam = DefaultTeam defaultHyperdataFolder
112 defaultHyperdata NodeFolderPublic = DefaultFolderPublic defaultHyperdataFolderPublic
114 defaultHyperdata NodeGraph = DefaultGraph defaultHyperdataGraph
115 defaultHyperdata NodePhylo = DefaultPhylo defaultHyperdataPhylo
116 defaultHyperdata NodeDashboard = DefaultDashboard defaultHyperdataDashboard
118 defaultHyperdata NodeFrameWrite = DefaultFrameWrite defaultHyperdataFrame
119 defaultHyperdata NodeFrameCalc = DefaultFrameCalc defaultHyperdataFrame
120 defaultHyperdata NodeFrameVisio = DefaultFrameVisio defaultHyperdataFrame
121 defaultHyperdata NodeFrameNotebook = DefaultFrameCalc defaultHyperdataFrame
123 defaultHyperdata NodeFile = DefaultFile defaultHyperdataFile