diff options
| author | Michael Knabe <github@mfkhh.de> | 2015-12-12 12:37:27 +0100 |
|---|---|---|
| committer | Michael Knabe <github@mfkhh.de> | 2015-12-12 12:37:27 +0100 |
| commit | 5c0a79bbbd654615c9ff0743906022d0d02b1538 (patch) | |
| tree | 554c7cb72dd7f5f0ae8faf7a1329e083d3384be9 | |
| parent | 23aa6876b069f05b7f2c4791bb4b344a3a7387b2 (diff) | |
| download | xmobar-5c0a79bbbd654615c9ff0743906022d0d02b1538.tar.gz xmobar-5c0a79bbbd654615c9ff0743906022d0d02b1538.tar.bz2 | |
Move wind speed calculation functions to let clause
| -rw-r--r-- | src/Plugins/Monitors/Weather.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Plugins/Monitors/Weather.hs b/src/Plugins/Monitors/Weather.hs index b2520a9..a25005f 100644 --- a/src/Plugins/Monitors/Weather.hs +++ b/src/Plugins/Monitors/Weather.hs @@ -100,6 +100,10 @@ noWind = WindInfo "μ" "μ" "0" "0" "0" "0" pWind :: Parser WindInfo pWind = let tospace = manyTill anyChar (char ' ') + toKmh knots = knots $* 1.852 + toMs knots = knots $* 0.514 + ($*) :: String -> Double -> String + op1 $* op2 = show (round ((read op1::Double) * op2)::Integer) -- Occasionally there is no wind and a METAR report gives simply, "Wind: Calm:0" wind0 = do manyTill skipRestOfLine (string "Wind: Calm:0") @@ -121,11 +125,6 @@ pWind = manyTill anyChar newline return $ WindInfo cardinal azimuth mph knot (toKmh knot) (toMs knot) in try wind0 <|> try windVar <|> try wind <|> return noWind - where - toKmh knots = knots $* 1.852 - toMs knots = knots $* 0.514 - ($*) :: String -> Double -> String - op1 $* op2 = show (round ((read op1::Double) * op2)::Integer) pTemp :: Parser (Int, Int) pTemp = do let num = digit <|> char '-' <|> char '.' |