FIX minimodifs

[euphorik.git] / modules / erl / euphorik_daemon.erl

diff --git a/modules/erl/euphorik_daemon.erl b/modules/erl/euphorik_daemon.erl
index bf78f92..51f224e 100755 (executable)
--- a/modules/erl/euphorik_daemon.erl
+++ b/modules/erl/euphorik_daemon.erl
@@ -28,7 +28,9 @@
 
 
 % Démarre le démon
-start(_A) ->\r
+start(_A) ->
+   % dossier utilisé lors de gros trie par qlc, voir qlc:keysort()
+   file:set_cwd("/tmp"),\r
    loop().
    \r
    
@@ -36,7 +38,7 @@ loop() ->
    % on attend une minute de plus pour prevenir une dérive nétive
    timer:sleep(1000 * trunc(temps_prochaine_election() + 60)),
    euphorik_bd:elire_troll(),\r
-   loop().
+   euphorik_daemon:loop().
 
    
 % Renvoie le nombre de seconde qu'il reste jusque au prochain lundi à l'heure donnée (l'heure est sur 24heures)