root / src / Ganeti / WConfd / Core.hs @ 0efada2a
History | View | Annotate | Download (1.2 kB)
1 | 13f59e11 | Petr Pudlak | {-# LANGUAGE TemplateHaskell #-} |
---|---|---|---|
2 | 13f59e11 | Petr Pudlak | |
3 | 13f59e11 | Petr Pudlak | {-| The Ganeti WConfd core functions. |
4 | 13f59e11 | Petr Pudlak | |
5 | 13f59e11 | Petr Pudlak | As TemplateHaskell require that splices be defined in a separate |
6 | 13f59e11 | Petr Pudlak | module, we combine all the TemplateHaskell functionality that HTools |
7 | 13f59e11 | Petr Pudlak | needs in this module (except the one for unittests). |
8 | 13f59e11 | Petr Pudlak | |
9 | 13f59e11 | Petr Pudlak | -} |
10 | 13f59e11 | Petr Pudlak | |
11 | 13f59e11 | Petr Pudlak | {- |
12 | 13f59e11 | Petr Pudlak | |
13 | 13f59e11 | Petr Pudlak | Copyright (C) 2013 Google Inc. |
14 | 13f59e11 | Petr Pudlak | |
15 | 13f59e11 | Petr Pudlak | This program is free software; you can redistribute it and/or modify |
16 | 13f59e11 | Petr Pudlak | it under the terms of the GNU General Public License as published by |
17 | 13f59e11 | Petr Pudlak | the Free Software Foundation; either version 2 of the License, or |
18 | 13f59e11 | Petr Pudlak | (at your option) any later version. |
19 | 13f59e11 | Petr Pudlak | |
20 | 13f59e11 | Petr Pudlak | This program is distributed in the hope that it will be useful, but |
21 | 13f59e11 | Petr Pudlak | WITHOUT ANY WARRANTY; without even the implied warranty of |
22 | 13f59e11 | Petr Pudlak | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
23 | 13f59e11 | Petr Pudlak | General Public License for more details. |
24 | 13f59e11 | Petr Pudlak | |
25 | 13f59e11 | Petr Pudlak | You should have received a copy of the GNU General Public License |
26 | 13f59e11 | Petr Pudlak | along with this program; if not, write to the Free Software |
27 | 13f59e11 | Petr Pudlak | Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
28 | 13f59e11 | Petr Pudlak | 02110-1301, USA. |
29 | 13f59e11 | Petr Pudlak | |
30 | 13f59e11 | Petr Pudlak | -} |
31 | 13f59e11 | Petr Pudlak | |
32 | 13f59e11 | Petr Pudlak | module Ganeti.WConfd.Core where |
33 | 13f59e11 | Petr Pudlak | |
34 | 13f59e11 | Petr Pudlak | import Language.Haskell.TH (Name) |
35 | 13f59e11 | Petr Pudlak | |
36 | 13f59e11 | Petr Pudlak | import Ganeti.WConfd.Monad |
37 | 13f59e11 | Petr Pudlak | |
38 | 13f59e11 | Petr Pudlak | -- * The list of all functions exported to RPC. |
39 | 13f59e11 | Petr Pudlak | |
40 | 13f59e11 | Petr Pudlak | -- Just a test function |
41 | 13f59e11 | Petr Pudlak | echo :: String -> WConfdMonad String |
42 | 13f59e11 | Petr Pudlak | echo = return |
43 | 13f59e11 | Petr Pudlak | |
44 | 13f59e11 | Petr Pudlak | exportedFunctions :: [Name] |
45 | 13f59e11 | Petr Pudlak | exportedFunctions = [ 'echo ] |