Signed-off-by: Apollon Oikonomopoulos <[email protected]> --- src/Ganeti/WConfd/Server.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Ganeti/WConfd/Server.hs b/src/Ganeti/WConfd/Server.hs index e8a4ed2..6379f60 100644 --- a/src/Ganeti/WConfd/Server.hs +++ b/src/Ganeti/WConfd/Server.hs @@ -106,7 +106,7 @@ prepMain _ _ = do return (s, dh) serverConfig :: ServerConfig -serverConfig = ServerConfig GanetiLuxid $ ConnectConfig 60 60 +serverConfig = ServerConfig GanetiWConfd $ ConnectConfig 60 60 -- | Main function. main :: MainFn () PrepResult -- 2.1.0
