diff options
Diffstat (limited to 'keysafe.hs')
-rw-r--r-- | keysafe.hs | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -11,6 +11,7 @@ import Types import Tunables import qualified CmdLine import UI +import Output import Encryption import Entropy import Benchmark @@ -40,7 +41,6 @@ import qualified Data.Text as T import qualified Data.ByteString as B import qualified Data.ByteString.UTF8 as BU8 import qualified Data.Set as S -import System.IO import System.Posix.User (userGecos, getUserEntryForID, getEffectiveUserID) main :: IO () @@ -411,9 +411,9 @@ autoStart cmdline tunables ui = do checkServers :: IO () checkServers = do - putStrLn $ "Checking " ++ show (length networkServers) ++ " servers concurrently; please wait..." + say $ "Checking " ++ show (length networkServers) ++ " servers concurrently; please wait..." results <- mapConcurrently check networkServers - mapM_ display results + mapM_ displayresult results case filter failed results of [] -> return () l @@ -433,14 +433,14 @@ checkServers = do (_, Left e) -> return (s, Left e) (_, Right (CountFailure e)) -> return (s, Left e) - display (s, v) = do - putStrLn $ "* " ++ sn s ++ " -- " ++ serverDesc s + displayresult (s, v) = do + say $ "* " ++ sn s ++ " -- " ++ serverDesc s case v of Right (mt, cr) -> do - putStrLn $ " MOTD: " ++ T.unpack mt - putStrLn $ " object count: " ++ show cr - Left e -> hPutStrLn stderr $ - " failed to get connect to " ++ sn s ++ ": " ++ e + say $ " MOTD: " ++ T.unpack mt + say $ " object count: " ++ show cr + Left e -> warn $ + " failed to connect to " ++ sn s ++ ": " ++ e failed (_, Left _) = True failed _ = False |