equal
deleted
inserted
replaced
83 pipeDbConnectionLoop (dbQueries serverInfo) (coreChan serverInfo) hIn hOut accountsCache |
83 pipeDbConnectionLoop (dbQueries serverInfo) (coreChan serverInfo) hIn hOut accountsCache |
84 |
84 |
85 threadDelay (5 * 10^6) |
85 threadDelay (5 * 10^6) |
86 pipeDbConnection updatedCache serverInfo |
86 pipeDbConnection updatedCache serverInfo |
87 |
87 |
88 dbConnectionLoop = pipeDbConnection Map.empty |
88 dbConnectionLoop = |
|
89 if (not . null $ dbHost serverInfo) then |
|
90 pipeDbConnection Map.empty |
|
91 else |
|
92 fakeDbConnection |
89 #else |
93 #else |
90 dbConnectionLoop = fakeDbConnection |
94 dbConnectionLoop = fakeDbConnection |
91 #endif |
95 #endif |
92 |
96 |
93 startDBConnection serverInfo = |
97 startDBConnection serverInfo = |
94 if (not . null $ dbHost serverInfo) then |
98 forkIO $ dbConnectionLoop serverInfo |
95 forkIO $ dbConnectionLoop serverInfo |
|
96 else |
|
97 --forkIO $ fakeDbConnection serverInfo |
|
98 forkIO $ pipeDbConnection Map.empty serverInfo |
|