From 290f3520cd1d4b675b928b935e579686c3daf236 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 4 Oct 2007 02:03:48 +0200
Subject: Weather plugin: accept temperatures with decimal points

darcs-hash:20071004000348-a5988-9c568e8d696b344f66f42b0e0993e76f3c591632.gz
---
 Plugins/Monitors/Weather.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Plugins')

diff --git a/Plugins/Monitors/Weather.hs b/Plugins/Monitors/Weather.hs
index cc3a58b..38577bc 100644
--- a/Plugins/Monitors/Weather.hs
+++ b/Plugins/Monitors/Weather.hs
@@ -71,11 +71,11 @@ pTime = do y <- getNumbersAsString
            return (y, m, d ,([h]++[hh]++":"++[mi]++mimi))
 
 pTemp :: Parser (Int, Int)
-pTemp = do f <- manyTill digit $ char ' '
+pTemp = do f <- manyTill (digit <|> char '.') $ char ' '
            manyTill anyChar $ char '('
            c <- manyTill digit $ (char ' ' <|> char '.')
            skipRestOfLine
-           return $ (read c, read f)
+           return $ (floor (read c :: Double), floor (read f :: Double))
 
 pRh :: Parser Int
 pRh = do s <- manyTill digit $ (char '%' <|> char '.')
-- 
cgit v1.2.3