hserv 0.1.0.2 → 0.1.0.3
raw patch · 3 files changed
+17/−8 lines, 3 filesdep ~basedep ~cmdargsdep ~wai-app-static
Dependency ranges changed: base, cmdargs, wai-app-static, warp
Files
- README.md +2/−0
- hserv.cabal +8/−4
- src/Main.hs +7/−4
README.md view
@@ -1,6 +1,8 @@ hserv ===== +[](https://hackage.haskell.org/package/hserv) [](http://travis-ci.org/rejuvyesh/hserv)+ Simple haskell server (just like python -m http.server). ```sh
hserv.cabal view
@@ -7,7 +7,7 @@ -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change-version: 0.1.0.2+version: 0.1.0.3 -- A short (one-line) description of the package. synopsis: Simple http server in haskell.@@ -29,7 +29,7 @@ -- An email address to which users can send suggestions, bug reports, and -- patches.-maintainer: mail@rejuvyesh.com+maintainer: rejuvyesh <mail@rejuvyesh.com> -- A copyright notice. -- copyright: @@ -57,11 +57,15 @@ other-extensions: OverloadedStrings, DeriveDataTypeable -- Other library packages from which modules are imported.- build-depends: base >=4.6 && <4.7, wai-app-static >=2.0 && <3,- warp >=2.0 && <2.1, cmdargs >=0.10 && <0.11+ build-depends: base >=4.6 && <=5, wai-app-static >=2.0,+ warp >=2.0, cmdargs >=0.10 -- Directories containing source files. hs-source-dirs: src -- Base language which the package is written in. default-language: Haskell2010++source-repository head+ type: git+ location: https://github.com/rejuvyesh/hserv
src/Main.hs view
@@ -1,12 +1,15 @@ -- File: Main.hs -- Copyright rejuvyesh <mail@rejuvyesh.com>, 2014 -{-# LANGUAGE OverloadedStrings, DeriveDataTypeable #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE OverloadedStrings #-} module Main where -import Network.Wai.Application.Static-import Network.Wai.Handler.Warp-import System.Console.CmdArgs+import Network.Wai.Application.Static (defaultFileServerSettings,+ staticApp)+import Network.Wai.Handler.Warp (run)+import System.Console.CmdArgs (Data, Typeable, cmdArgs, help,+ opt, summary, (&=)) data Hserv = Hserv { port :: Int