From edb2ea166d227ea7c4bf12b33016ee82ed73543d Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Wed, 11 Jul 2007 17:02:01 +0200
Subject: gettin' rid of Krzysztof's object-oriented attitude...;-)

darcs-hash:20070711150201-d6583-1d4d0c9677671416d80e83de9055bdc48c5dd4ed.gz
---
 Monitors/Common.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Monitors/Common.hs')

diff --git a/Monitors/Common.hs b/Monitors/Common.hs
index 390f383..306d46f 100644
--- a/Monitors/Common.hs
+++ b/Monitors/Common.hs
@@ -20,7 +20,7 @@ module Monitors.Common (
                        , Opts (..)
                        , setConfigValue
                        , getConfigValue
-                       , newConfig
+                       , mkMConfig
                        , runMonitor
                        , runM
                        , io
@@ -99,13 +99,13 @@ getConfigValue :: Selector a -> Monitor a
 getConfigValue s =
     sel s
 
-newConfig :: String
+mkMConfig :: String
           -> String
           -> String
           -> [OptDescr Opts]
           -> [String]
           -> IO MConfig
-newConfig tmpl pkg usg args exprts =
+mkMConfig tmpl pkg usg args exprts =
     do lc <- newIORef Nothing
        l <- newIORef 33
        nc <- newIORef Nothing
-- 
cgit v1.2.3