From 6dd26ef3f562d551216420b982e9f9dfc2340bd0 Mon Sep 17 00:00:00 2001
From: Random Hacker <random_hacker@xapek.org>
Date: Thu, 8 Mar 2012 11:29:06 +0100
Subject: ebus-racket: db-pq: cast real to double

---
 ebus-racket/db-pq.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ebus-racket/db-pq.rkt b/ebus-racket/db-pq.rkt
index 03ef154..3b15a73 100644
--- a/ebus-racket/db-pq.rkt
+++ b/ebus-racket/db-pq.rkt
@@ -63,7 +63,7 @@
 ;; then calls 'insert`
 (define (insert-field sensor-name datatype offset value)
   (cond ((member datatype (list "data1c" "data2b" "data2c"))
-  	 (insert sensor-name "float" value))
+  	 (insert sensor-name "float" (real->double-flonum value)))
   	((member datatype (list "bit" "byte" "data1b" "word" "bcd"))
   	 (insert sensor-name "int" value))
   	((member datatype (list "byteEnum"))
-- 
cgit v1.2.1