Statistics
| Branch: | Tag: | Revision:

root / src / ganeti-kvmd.hs @ 0349f9c6

History | View | Annotate | Download (1.2 kB)

1
{-| KVM daemon main
2

    
3
-}
4

    
5
{-
6

    
7
Copyright (C) 2013 Google Inc.
8

    
9
This program is free software; you can redistribute it and/or modify
10
it under the terms of the GNU General Public License as published by
11
the Free Software Foundation; either version 2 of the License, or
12
(at your option) any later version.
13

    
14
This program is distributed in the hope that it will be useful, but
15
WITHOUT ANY WARRANTY; without even the implied warranty of
16
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17
General Public License for more details.
18

    
19
You should have received a copy of the GNU General Public License
20
along with this program; if not, write to the Free Software
21
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
22
02110-1301, USA.
23

    
24
-}
25

    
26
import Ganeti.Daemon (OptType)
27
import qualified Ganeti.Daemon as Daemon
28
import qualified Ganeti.Kvmd as Kvmd (start)
29
import Ganeti.Runtime (GanetiDaemon(..))
30

    
31
-- | Options list and functions.
32
options :: [OptType]
33
options =
34
  [ Daemon.oNoDaemonize
35
  , Daemon.oNoUserChecks
36
  , Daemon.oDebug
37
  , Daemon.oSyslogUsage
38
  ]
39

    
40
-- | Main function.
41
main :: IO ()
42
main =
43
  Daemon.genericMain GanetiKvmd options
44
    (\_ -> return . Right $ ())
45
    (\_ _ -> return ())
46
    (\_ _ _ -> Kvmd.start)