From ccefcd3445bf86eeeca43d5cb913b5e9ca4da499 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 26 Sep 2016 08:54:46 +0300
Subject: [PATCH] Only update every 10 minutes

---
 Handler/MirrorStatus.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Handler/MirrorStatus.hs b/Handler/MirrorStatus.hs
index 711ffb6..a7c4b75 100644
--- a/Handler/MirrorStatus.hs
+++ b/Handler/MirrorStatus.hs
@@ -19,7 +19,7 @@ getMirrorStatusR = do
 mkUpdateMirrorStatus :: IO (IO (Status, Widget))
 mkUpdateMirrorStatus = mkAutoUpdate defaultUpdateSettings
     { updateAction = go
-    , updateFreq = 1000 * 1000 * 60
+    , updateFreq = 1000 * 1000 * 60 * 10 -- every 10 minutes
     }
   where
     go = do