happstack-state 6.1.2 → 6.1.3

raw patch · 3 files changed

+9/−9 lines, 3 filesdep ~happstack-dataPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: happstack-data

API changes (from Hackage documentation)

Files

• happstack-state.cabal +2/−2
• src/Happstack/State/ComponentSystem.hs +4/−4
• src/Happstack/State/Transaction.hs +3/−3

@@ -1,5 +1,5 @@ Name:                happstack-state-Version:             6.1.2+Version:             6.1.3 Synopsis:            Event-based distributed state. Description:         Unplug your machine and restart and have your app recover to exactly where it left off. Happstack-State spares you the need to deal with all the marshalling, consistency, and configuration headache that you would have if you used an external DBMS for this purpose. Its component model makes it easy to compose big applications from smaller reliable parts. Use event subscription to trigger IO actions and support comet-style or irc-bot applications.  License:             BSD3@@ -62,7 +62,7 @@                        filepath,                        hslogger >= 1.0.2,                        happstack-util >= 6.0 && < 6.1,-                       happstack-data >= 6.0 && < 6.1,+                       happstack-data >= 6.0.1 && < 6.1,                        mtl >= 1.1 && < 2.1,                        old-time,                        random,

@@ -33,7 +33,7 @@ class (Serialize ev, Serialize res) => QueryEvent ev res | ev -> res  ----------------------------------------------------------------- Methods contain the query and update handlers for a component+-- Methods contain the query and update handl ers for a component --------------------------------------------------------------  -- | Method is the actual type that all Updates and Querys eventually@@ -50,10 +50,10 @@ methodType m = case m of                 Update fn -> let ev :: (ev -> Update st res) -> ev                                  ev _ = undefined-                             in show (typeOf (ev fn))+                             in showQualifiedTypeRep (typeOf (ev fn))                 Query fn  -> let ev :: (ev -> Query st res) -> ev                                  ev _ = undefined-                             in show (typeOf (ev fn))+                             in showQualifiedTypeRep (typeOf (ev fn))  -- | Class for enumerating the set of defined methods by the type of the state. -- Instances should not be defined directly, but using 'mkMethods'@@ -130,7 +130,7 @@  collectHandlers' :: (Methods a, Component a) => Proxy a -> Collect () collectHandlers' prox-    = let key = show (typeOf (unProxy prox))+    = let key = showQualifiedTypeRep (typeOf (unProxy prox))           item = MethodMap $ Map.fromList [ (methodType m, m) | m <- methods prox ]           versions = collectVersions prox       in do addItem key item versions (onLoad prox)

@@ -124,7 +124,7 @@            EmitInternal eventMap -> emitFunc eventMap eventType ev  emitEvent :: (Serialize ev, Typeable res) => ev -> IO res-emitEvent ev = emitEvent' (show (typeOf ev)) ev+emitEvent ev = emitEvent' (showQualifiedTypeRep (typeOf ev)) ev  setNewEventMap :: EventMap -> IO () setNewEventMap eventMap@@ -213,7 +213,7 @@                  ]     where t :: TxRun st -> st           t _ = undefined-          stateType = show (typeOf (t tx))+          stateType = showQualifiedTypeRep (typeOf (t tx))           getStateHandler tx'               = let fn :: GetCheckpointState -> IO L.ByteString                     fn ev = do mv <- newEmptyMVar@@ -374,7 +374,7 @@           eventTString :: Serialize ev => ev -> TypeString-eventTString ev = show (typeOf ev)+eventTString ev = showQualifiedTypeRep (typeOf ev)