Revision 0d0ac025 htools/Ganeti/Queryd.hs
b/htools/Ganeti/Queryd.hs | ||
---|---|---|
26 | 26 |
-} |
27 | 27 |
|
28 | 28 |
module Ganeti.Queryd |
29 |
|
|
30 |
where |
|
29 |
( ConfigReader |
|
30 |
, runQueryD |
|
31 |
) where |
|
31 | 32 |
|
32 | 33 |
import Control.Applicative |
33 | 34 |
import Control.Concurrent |
... | ... | |
41 | 42 |
import System.Info (arch) |
42 | 43 |
|
43 | 44 |
import qualified Ganeti.Constants as C |
45 |
import Ganeti.Daemon |
|
44 | 46 |
import Ganeti.Objects |
45 | 47 |
import qualified Ganeti.Config as Config |
46 | 48 |
import Ganeti.BasicTypes |
... | ... | |
183 | 185 |
runQueryD :: Maybe FilePath -> ConfigReader -> IO () |
184 | 186 |
runQueryD fpath creader = do |
185 | 187 |
let socket_path = fromMaybe C.querySocket fpath |
188 |
cleanupSocket socket_path |
|
186 | 189 |
bracket |
187 | 190 |
(getServer socket_path) |
188 | 191 |
(closeServer socket_path) |
Also available in: Unified diff