server :: Raft IO a ()
server = do
  r <- RWS.ask
  liftIO (putStrLn "")
  L.debugInfo L.exampleLogList'
  liftIO (putStrLn "")
  L.debugInfo $ L.debugUnexpectedS [L.TXT "internal error, there should be a next log entry"]
  let me = r^.cfg.nodeId
  liftIO (putStrLn "")
  L.debugRaftHandler AE [L.NID me, L.TXT "sandbagging"] -- , show ae
  return ()
server :: Raft IO a ()
server = do
  r <- RWS.ask
  liftIO (putStrLn "")
  L.debugInfo L.exampleLogList'
  liftIO (putStrLn "")
  L.debugInfo $ L.debugUnexpectedS [L.TXT "internal error, there should be a next log entry"]
  let me = r^.cfg.nodeId
  liftIO (putStrLn "")
  L.debugRaftHandler AE [L.NID me, L.TXT "sandbagging"] -- , show ae
  return ()
server = do
  r <- RWS.ask
  liftIO (putStrLn "")
  L.debugInfo L.exampleLogList'
  liftIO (putStrLn "")
  L.debugInfo $ L.debugUnexpectedS [L.TXT "internal error, there should be a next log entry"]
  let me = r^.cfg.nodeId
  liftIO (putStrLn "")
  L.debugRaftHandler AE [L.NID me, L.TXT "sandbagging"] -- , show ae
  return ()