diff options
| author | Tony Morris <tmorris@tmorris.net> | 2014-09-11 22:35:26 +1000 |
|---|---|---|
| committer | Tony Morris <tmorris@tmorris.net> | 2014-09-11 22:35:26 +1000 |
| commit | eb9f7a73677cc2bc872c3ea69f073faeefe6c989 (patch) | |
| tree | 010348982f0e3f1b176ebc1874992b720d92f683 | |
| parent | 4ddfafe8904780ef599158525a7b4f52da7c6965 (diff) | |
| download | xmobar-eb9f7a73677cc2bc872c3ea69f073faeefe6c989.tar.gz xmobar-eb9f7a73677cc2bc872c3ea69f073faeefe6c989.tar.bz2 | |
Fix string to calm wind report
| -rw-r--r-- | src/Plugins/Monitors/Weather.hs | 4 |
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 |