Add the core of the monitoring daemon
[ganeti-github.git] / src / Ganeti / Monitoring / Server.hs
1 {-# LANGUAGE OverloadedStrings #-}
2
3 {-| Implementation of the Ganeti confd server functionality.
4
5 -}
6
7 {-
8
9 Copyright (C) 2013 Google Inc.
10
11 This program is free software; you can redistribute it and/or modify
12 it under the terms of the GNU General Public License as published by
13 the Free Software Foundation; either version 2 of the License, or
14 (at your option) any later version.
15
16 This program is distributed in the hope that it will be useful, but
17 WITHOUT ANY WARRANTY; without even the implied warranty of
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 General Public License for more details.
20
21 You should have received a copy of the GNU General Public License
22 along with this program; if not, write to the Free Software
23 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
24 02110-1301, USA.
25
26 -}
27
28 module Ganeti.Monitoring.Server
29 ( main
30 , checkMain
31 , prepMain
32 ) where
33
34 import Ganeti.Daemon
35
36 -- * Types and constants definitions
37
38 -- | Type alias for checkMain results.
39 type CheckResult = ()
40
41 -- | Type alias for prepMain results.
42 type PrepResult = ()
43
44 -- * Helper functions
45
46 -- | Check function for the monitoring agent.
47 checkMain :: CheckFn CheckResult
48 checkMain _ = return $ Right ()
49
50 -- | Prepare function for monitoring agent.
51 prepMain :: PrepFn CheckResult PrepResult
52 prepMain _ _ = return ()
53
54 -- | Main function.
55 main :: MainFn CheckResult PrepResult
56 main _ _ _ =
57 return ()