# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1422009126 -7200
# Node ID 3893192d7aff7f14adc78e8087df5bf1e54e59b5
# Parent  f6dc673adfa1b74b007409feb5c62dbd9c5dbcaf
weather: Fix a WTF.

diff -r f6dc673adfa1 -r 3893192d7aff weather.tcl
--- a/weather.tcl	Fri Jan 23 12:23:43 2015 +0200
+++ b/weather.tcl	Fri Jan 23 12:32:06 2015 +0200
@@ -147,8 +147,8 @@
 
 
 # Produce one location of weather data as a string
+proc weather_get_data {udata ukey} {
   set str "\002[lindex $udata 0]\002, mitattu klo [weather_ctime [lindex $udata 2]]: \002[lindex $udata 3]°C\002"
-proc weather_get_data {udata ukey} {
   if {[lindex $udata 1] == 0} {
     append str [weather_item $udata 5 ", @@"]
     append str [weather_item $udata 6 ", keli @@"]