Add basic server

src/Forest/TreeModule.hs

@@ -0,0 +1,16 @@
+module Forest.TreeModule
+  ( TreeModule(..)
+  , ModuleConstructor
+  ) where
+
+import qualified Data.Text  as T
+
+import           Forest.Api
+
+class TreeModule a where
+  edit   :: a -> Path -> T.Text -> IO ()
+  delete :: a -> Path -> IO ()
+  reply  :: a -> Path -> T.Text -> IO ()
+  act    :: a -> Path -> IO ()
+
+type ModuleConstructor a = (Node -> IO ()) -> (a -> IO ()) -> IO ()