jobs-ui 0.1.0.1 → 0.2.0.0

raw patch · 2 files changed

+9/−6 lines, 2 filesdep +warpPVP ok

version bump matches the API change (PVP)

Dependencies added: warp

API changes (from Hackage documentation)

Files

• jobs-ui.cabal +4/−3
• src/Web/JobsUi/Run.hs +5/−3

@@ -1,7 +1,7 @@ cabal-version: 1.18  name:           jobs-ui-version:        0.1.0.1+version:        0.2.0.0 synopsis:       A library for creating a jobs management website running custom jobs. description:    A library for creating a jobs management website running custom jobs by defining jobs in Haskell. category:       Web@@ -44,10 +44,11 @@   default-extensions: TypeApplications OverloadedStrings ConstraintKinds DataKinds DeriveFunctor DeriveFoldable DeriveTraversable EmptyDataDecls FlexibleContexts KindSignatures LambdaCase MultiParamTypeClasses MultiWayIf PatternGuards PatternSynonyms RankNTypes RecordWildCards NamedFieldPuns ScopedTypeVariables TupleSections ViewPatterns BangPatterns   ghc-options: -Wall   build-depends:-      Spock+      base >=4.7 && <5+    , warp+    , Spock     , Spock-digestive     , Spock-lucid-    , base >=4.7 && <5     , bytestring     , containers     , deepseq

@@ -20,6 +20,7 @@ import Control.Monad.Trans import Web.Spock import Web.Spock.Config+import Network.Wai.Handler.Warp (Port) import Control.Concurrent.STM import qualified Data.Sequence as Seq import qualified Data.Text as T@@ -38,9 +39,10 @@ --   It get's a Map of named job types which are used --   to define different kinds of jobs a user can select to run. run-  :: [JobType] -- ^ The jiType should be unique+  :: Port+  -> [JobType] -- ^ The jiType should be unique   -> IO ()-run jobtypeList = do+run port jobtypeList = do   let     jobtypes = M.fromList $       map (\job@JobType{..} -> (jiType getJobInfo, job)) jobtypeList@@ -50,7 +52,7 @@     <*> newTVarIO (length defaultJobs + 1)   spockCfg <- defaultSpockCfg () PCNoDatabase initial   _ <- forkIO $ runner initial-  runSpock 1337 (spock spockCfg{spc_errorHandler=myError} $ app jobtypes)+  runSpock port (spock spockCfg{spc_errorHandler=myError} $ app jobtypes)  ------------ -- Router --