diff --git a/jobs-ui.cabal b/jobs-ui.cabal
--- a/jobs-ui.cabal
+++ b/jobs-ui.cabal
@@ -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
diff --git a/src/Web/JobsUi/Run.hs b/src/Web/JobsUi/Run.hs
--- a/src/Web/JobsUi/Run.hs
+++ b/src/Web/JobsUi/Run.hs
@@ -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 --