Pup-Events-Demo 1.0 → 1.1

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• EventsServer/ServerDemo.hs +2/−2
• Pup-Events-Demo.cabal +1/−1

@@ -29,9 +29,9 @@     do  args <- getArgs         let ip = args !! 0         let priorities = read (args !! 1) :: Int-        Server.server (Just ip) priorities lookupPriorityServer lookupUnHandlerServer lookupHandlerServer parsersServer+        Server.server (Just ip) priorities lookupPriorityServer lookupUnHandlerServer lookupHandlerServer parsersServer Nothing --- |Put your event models here+-- |Put your event models here. I haven't done so here, but you can define an event that will fire whenever a client disconnects and pass it into @Server.server@. This would be useful in an application requiring authentication to log out a client whenever they disconnect. data Event = Click Float Float | Init     deriving (Show) 

@@ -1,5 +1,5 @@ name:                   Pup-Events-Demo-version:                1.0+version:                1.1 synopsis:               A networked event handling framework for hooking                         into other programs. description:            Pup-Events is a networking enabled event handling