From 7fe909257403714f6f6b24afbdce30e29c5605bf Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Mon, 9 Jul 2007 01:43:04 +0200
Subject: fixes a bug in the copyArea function

darcs-hash:20070708234304-d6583-c5185f2af7d580c900c753c3feff41becaed2b80.gz
---
 XMobar.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/XMobar.hs b/XMobar.hs
index f0fffe0..0c9b65c 100644
--- a/XMobar.hs
+++ b/XMobar.hs
@@ -124,11 +124,7 @@ drawInWin str =
        let strWithLenth = map (\(s,c) -> (s,c,textWidth fontst s)) str
        p' <- printStrings p gc fontst 1 strWithLenth 
        -- copy the pixmap with the new string to the window.
-       io $ copyArea dpy p' win gc 
-              (fi (xPos config)) 
-              (fi (yPos config)) 
-              (fi (width config)) 
-              (fi (height config)) 0 0
+       io $ copyArea dpy p' win gc 0 0 (fi (width config)) (fi (height config)) 0 0
        -- free up everything (we do not want to leak memory!)
        io $ freeFont dpy fontst
        io $ freeGC dpy gc
-- 
cgit v1.2.3