global-config 0.1.0 → 0.2.0

raw patch · 3 files changed

+14/−7 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• global-config.cabal +1/−1
• src/Data/Global/Config.hs +11/−5
• test/Main.hs +2/−1

@@ -1,5 +1,5 @@ name:           global-config
-version:        0.1.0
+version:        0.2.0
 cabal-version:  >= 1.8
 build-type:     Simple
 author:         Alexander Dorofeev <aka.spin@gmail.com>spin

@@ -20,23 +20,24 @@ -- > instance Default Config
 -- >    def = Config 0 False
 -- > 
--- > instance GlobalConfig Config
--- > 
+-- > instance GlobalConfig Config where
+-- >    onSetConfig = print
+-- >    
 -- > main :: IO ()
 -- > main = do
 -- >    -- try to read unitialized config
 -- >    c1 <- getConfig 
--- >    print (c1 :: Config)
 -- >    -- Config {configInt=0, configBool=False}
 -- >    
 -- >    -- set config and read it
 -- >    setConfig $ Config 1 True
+-- >    -- Config {configInt=1, configBool=True}
 -- >    c2 <- getConfig
 -- >    print (c1 :: Config)
 -- >    -- Config {configInt=1, configBool=True}
 
 module Data.Global.Config (
-    GlobalConfig (setConfig, getConfig)
+    GlobalConfig (setConfig, onSetConfig, getConfig)
 ) where
 
 import Data.Typeable (Typeable)
@@ -48,7 +49,12 @@ class (Default a, Typeable a) => GlobalConfig a where
     -- | Init global config
     setConfig :: a -> IO ()
-    setConfig e = stubConfig `writeIORef` e 
+    setConfig e = do
+        stubConfig `writeIORef` e
+        onSetConfig e 
+    
+    -- | Set config handler
+    onSetConfig :: a -> IO ()
     
     -- | Get global config
     getConfig :: IO a

@@ -55,7 +55,8 @@ instance Default Config where
     def = Config 0 ""
     
-instance GlobalConfig Config
+instance GlobalConfig Config where
+    onSetConfig = print