pong-server 0.0.2.0 → 0.0.2.1

raw patch · 2 files changed

+7/−2 lines, 2 filesdep +data-defaultPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

Dependencies added: data-default

API changes (from Hackage documentation)

Files

• pong-server.cabal +3/−2
• src/Axial/Pong.hs +4/−0

@@ -1,5 +1,5 @@ name:                pong-server-version:             0.0.2.0+version:             0.0.2.1 synopsis:            A simple embedded pingable server that runs in the background. description:         Please see README.md on GitHub homepage:            http://github.com/RobertFischer/pong-server#readme@@ -18,8 +18,9 @@   exposed-modules:     Axial.Pong   build-depends:       base >= 4.7 && < 5                      , network >= 2.6.2.1 && < 2.7+                     , data-default >= 0.7.1.1 && < 0.8   default-language:    Haskell2010-  ghc-options:         -Wall -rtsopts -with-rtsopts=-N+  ghc-options:         -Wall    default-extensions:  OverloadedStrings                     ,  LambdaCase                     ,  MultiWayIf

@@ -5,6 +5,7 @@     , withPongServer     ) where +import Data.Default (Default, def) import Network (withSocketsDo, listenOn, accept, sClose, PortID(..)) import System.IO (hClose, hPutStr, hSetBuffering, BufferMode(..)) import Control.Exception (bracket, finally)@@ -19,6 +20,9 @@  defaultPongConfig :: PongConfig defaultPongConfig = PongConfig 10411 $ pure "pong"++instance Default PongConfig where+  def = defaultPongConfig  withPongServer :: PongConfig -> IO a -> IO a withPongServer cfg action = bracket (startServer cfg) stopServer $ const action