From 9568d7a844ba6a1872a8e8f6ef002860057e62ab Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Fri, 18 Feb 2005 18:21:06 +0000
Subject: "Committed_by_peb"

---
 src/GF/Fudgets/FudgetOps.hs | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

(limited to 'src/GF/Fudgets/FudgetOps.hs')

diff --git a/src/GF/Fudgets/FudgetOps.hs b/src/GF/Fudgets/FudgetOps.hs
index 2c1847105..ac50d3e77 100644
--- a/src/GF/Fudgets/FudgetOps.hs
+++ b/src/GF/Fudgets/FudgetOps.hs
@@ -1,23 +1,21 @@
 ----------------------------------------------------------------------
 -- |
--- Module      : (Module)
--- Maintainer  : (Maintainer)
+-- Module      : FudgetOps
+-- Maintainer  : AR
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date $ 
--- > CVS $Author $
--- > CVS $Revision $
+-- > CVS $Date: 2005/02/18 19:21:14 $ 
+-- > CVS $Author: peb $
+-- > CVS $Revision: 1.3 $
 --
--- (Description of the module)
+-- auxiliary Fudgets for GF syntax editor
 -----------------------------------------------------------------------------
 
 module FudgetOps where
 
 import Fudgets
 
--- auxiliary Fudgets for GF syntax editor
-
 -- save and display
 
 showAndSaveF fud = (writeFileF >+< textWindowF) >==< saveF fud
@@ -35,7 +33,7 @@ saveSP contents = getSP $ \msg -> case msg of
 
 textWindowF = writeOutputF
 
--- to replace stringInputF by a pop-up slot behind a button
+-- | to replace stringInputF by a pop-up slot behind a button
 popupStringInputF :: String -> String -> String -> F String String
 popupStringInputF label deflt msg =
   mapF snd 
-- 
cgit v1.2.3