From 71612a0748db45e78a07aa5f92da543688573745 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Mon, 24 Aug 2009 21:55:46 +0200
Subject: [PATCH] Add comment.

---
 FPPrac.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/FPPrac.hs b/FPPrac.hs
index 7e5a691..9f5ec9d 100644
--- a/FPPrac.hs
+++ b/FPPrac.hs
@@ -177,7 +177,8 @@ runGUI w h (IS { .. }) = do
 	Gtk.mainGUI
 	
 
--- | Copy the given surface to the exposed window on an expose event.
+-- | Called when (part of) the window should be redrawn. Copy the given surface
+--   to the exposed window on an expose event.
 onExpose :: IORef Cairo.Surface -> EventM.EventM EventM.EExpose Bool
 onExpose buffer = do
 	current_buffer <- liftIO $ readIORef buffer
-- 
2.30.2