src/Gargantext/DSL.hs

   1 module Gargantext.DSL where
   2
   3 import Data.Text
   4
   5 type Username = Text
   6 type Password = Text
   7
   8
   9 --user :: Username -> Maybe User
  10 --user username = undefined
  11 --
  12 --
  13 --getNode :: Int -> IO Node
  14 --getNode = undefined
  15 --
  16 --saveNode :: Node -> IO ()
  17 --saveNode = undefined
  18 --
  19 --updateNode :: Node -> IO ()
  20 --updateNode = undefined
  21 --
  22 --
  23 --
  24 --
  25 --parents :: Node -> [Node]
  26 --parents = undefined
  27 --
  28 --children :: Node -> [Node]
  29 --children = undefined
  30 --
  31 --
  32 --
  33
  34
  35 -- projects :: User -> [Project]
  36 -- projects u = undefined