src/Gargantext/Database/Admin/Types/Hyperdata/Default.hs

   1 {-|
   2 Module      : Gargantext.Database.Admin.Types.Hyperdata.Default
   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 DeriveGeneric              #-}
  13 {-# LANGUAGE FlexibleContexts           #-}
  14 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
  15 {-# LANGUAGE MultiParamTypeClasses      #-}
  16 {-# LANGUAGE NoImplicitPrelude          #-}
  17 {-# LANGUAGE OverloadedStrings          #-}
  18 {-# LANGUAGE RankNTypes                 #-}
  19 {-# LANGUAGE TemplateHaskell            #-}
  20
  21 module Gargantext.Database.Admin.Types.Hyperdata.Default
  22   where
  23
  24 import Gargantext.Database.Admin.Types.Node (NodeType(..))
  25 import Gargantext.Database.Admin.Types.Hyperdata
  26 import Gargantext.Database.Admin.Types.Hyperdata.Prelude
  27
  28
  29 data DefaultHyperdata =
  30     DefaultUser    HyperdataUser
  31   | DefaultContact HyperdataContact
  32
  33   | DefaultCorpus    HyperdataCorpus
  34   | DefaultCorpusV3  HyperdataCorpus
  35   | DefaultAnnuaire  HyperdataAnnuaire
  36
  37   | DefaultDocument  HyperdataDocument
  38   | DefaultTexts     HyperdataTexts
  39   | DefaultList      HyperdataList
  40   | DefaultListCooc  HyperdataListCooc
  41   | DefaultModel     HyperdataModel
  42
  43   | DefaultFolder        HyperdataFolder
  44   | DefaultFolderPrivate HyperdataFolderPrivate
  45   | DefaultFolderShared  HyperdataFolderShared
  46   | DefaultTeam          HyperdataFolder
  47   | DefaultFolderPublic  HyperdataFolderPublic
  48
  49   | DefaultGraph         HyperdataGraph
  50   | DefaultPhylo         HyperdataPhylo
  51   | DefaultDashboard     HyperdataDashboard
  52
  53   | DefaultFrameWrite    HyperdataFrame
  54   | DefaultFrameCalc     HyperdataFrame
  55   | DefaultFrameVisio    HyperdataFrame
  56   | DefaultFrameCode     HyperdataFrame
  57
  58   | DefaultFile          HyperdataFile
  59
  60 instance Hyperdata DefaultHyperdata
  61
  62 instance ToJSON DefaultHyperdata where
  63   toJSON (DefaultUser    x) = toJSON x
  64   toJSON (DefaultContact x) = toJSON x
  65
  66   toJSON (DefaultCorpus   x) = toJSON x
  67   toJSON (DefaultCorpusV3 x) = toJSON x
  68   toJSON (DefaultAnnuaire x) = toJSON x
  69
  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
  75
  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
  81
  82   toJSON (DefaultGraph     x) = toJSON x
  83   toJSON (DefaultPhylo     x) = toJSON x
  84   toJSON (DefaultDashboard x) = toJSON x
  85
  86   toJSON (DefaultFrameWrite x) = toJSON x
  87   toJSON (DefaultFrameCalc  x) = toJSON x
  88   toJSON (DefaultFrameVisio x) = toJSON x
  89   toJSON (DefaultFrameCode  x) = toJSON x
  90
  91   toJSON (DefaultFile x) = toJSON x
  92
  93
  94 defaultHyperdata :: NodeType -> DefaultHyperdata
  95 defaultHyperdata NodeUser           = DefaultUser    defaultHyperdataUser
  96 defaultHyperdata NodeContact        = DefaultContact defaultHyperdataContact
  97
  98 defaultHyperdata NodeCorpus         = DefaultCorpus   defaultHyperdataCorpus
  99 defaultHyperdata NodeCorpusV3       = DefaultCorpusV3 defaultHyperdataCorpus
 100 defaultHyperdata NodeAnnuaire       = DefaultAnnuaire defaultHyperdataAnnuaire
 101
 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
 107
 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
 113
 114 defaultHyperdata NodeGraph          = DefaultGraph     defaultHyperdataGraph
 115 defaultHyperdata NodePhylo          = DefaultPhylo     defaultHyperdataPhylo
 116 defaultHyperdata NodeDashboard      = DefaultDashboard defaultHyperdataDashboard
 117
 118 defaultHyperdata Notes     = DefaultFrameWrite defaultHyperdataFrame
 119 defaultHyperdata Calc      = DefaultFrameCalc  defaultHyperdataFrame
 120 defaultHyperdata NodeFrameVisio     = DefaultFrameVisio defaultHyperdataFrame
 121 defaultHyperdata NodeFrameNotebook      = DefaultFrameCalc  defaultHyperdataFrame
 122
 123 defaultHyperdata NodeFile           = DefaultFile defaultHyperdataFile