src/Data/Gargantext/DSL.hs

   1 module Data.Gargantext.DSL where
   2
   3 import Data.Gargantext.Database
   4 import Data.Gargantext.Prelude
   5 import Data.Gargantext.Types
   6 import Data.Text
   7
   8 type Username = Text
   9 type Password = Text
  10
  11
  12 --user :: Username -> Maybe User
  13 --user username = undefined
  14 --
  15 --
  16 --getNode :: Int -> IO Node
  17 --getNode = undefined
  18 --
  19 --saveNode :: Node -> IO ()
  20 --saveNode = undefined
  21 --
  22 --updateNode :: Node -> IO ()
  23 --updateNode = undefined
  24 --
  25 --
  26 --
  27 --
  28 --parents :: Node -> [Node]
  29 --parents = undefined
  30 --
  31 --children :: Node -> [Node]
  32 --children = undefined
  33 --
  34 --
  35 --
  36
  37
  38 -- projects :: User -> [Project]
  39 -- projects u = undefined
  40
  41
  42
  43
  44
  45
  46
  47
  48
  49
  50
  51
  52
  53
  54