summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins
diff options
context:
space:
mode:
authorTony Morris <tmorris@tmorris.net>2014-09-11 22:35:26 +1000
committerTony Morris <tmorris@tmorris.net>2014-09-11 22:35:26 +1000
commiteb9f7a73677cc2bc872c3ea69f073faeefe6c989 (patch)
tree010348982f0e3f1b176ebc1874992b720d92f683 /src/Plugins
parent4ddfafe8904780ef599158525a7b4f52da7c6965 (diff)
downloadxmobar-eb9f7a73677cc2bc872c3ea69f073faeefe6c989.tar.gz
xmobar-eb9f7a73677cc2bc872c3ea69f073faeefe6c989.tar.bz2
Fix string to calm wind report
Diffstat (limited to 'src/Plugins')
-rw-r--r--src/Plugins/Monitors/Weather.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Plugins/Monitors/Weather.hs b/src/Plugins/Monitors/Weather.hs
index a02403d..3cfbc74 100644
--- a/src/Plugins/Monitors/Weather.hs
+++ b/src/Plugins/Monitors/Weather.hs
@@ -77,7 +77,7 @@ pTime = do y <- getNumbersAsString
char ' '
return (y, m, d ,h:hh:":"++mi:mimi)
--- Occasionally there is no wind and a METAR report gives simply, "Wind: 0"
+-- Occasionally there is no wind and a METAR report gives simply, "Wind: Calm:0"
pWind0 ::
(
String -- cardinal direction
@@ -97,7 +97,7 @@ pWind ::
)
pWind =
let tospace = manyTill anyChar (char ' ')
- wind0 = do manyTill skipRestOfLine (string "Wind: 0")
+ wind0 = do manyTill skipRestOfLine (string "Wind: Calm:0")
return pWind0
wind = do manyTill skipRestOfLine (string "Wind: from the ")
cardinal <- tospace