Initial setup - simple ping server.

.gitignore

@@ -0,0 +1,3 @@
+dist/
+cabal.sandbox.config
+.cabal-sandbox

App.hs

@@ -0,0 +1,13 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module App
+( api
+) where
+
+import Web.Scotty
+import Network.HTTP.Types
+
+api :: ScottyM ()
+api = get "/ping" $ do
+  status status200
+  text "back"

Main.hs

@@ -0,0 +1,11 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import Web.Scotty
+import App (api)
+import Util
+
+main :: IO ()
+main = do
+  port <- getEnvWithDefault "PORT" "3636"
+  scotty (read port) api
+

Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

Util.hs

@@ -0,0 +1,11 @@
+module Util
+( getEnvWithDefault
+) where
+
+import Data.Maybe
+import System.Environment
+
+getEnvWithDefault :: String -> String -> IO String
+getEnvWithDefault name defaultValue = do
+    x <- lookupEnv name
+    return $ fromMaybe defaultValue x

wed-is-socket.cabal

@@ -0,0 +1,27 @@
+-- Initial wed-is-socket.cabal generated by cabal init.  For further
+-- documentation, see http://haskell.org/cabal/users-guide/
+
+name:                wed-is-socket
+version:             0.1.0.0
+-- synopsis:
+-- description:
+-- license:
+license-file:        LICENSE
+author:              Nathan Kot
+maintainer:          me@nathankot.com
+-- copyright:
+-- category:
+build-type:          Simple
+-- extra-source-files:
+cabal-version:       >=1.10
+
+executable wed-is-socket
+  main-is:             Main.hs
+  -- other-modules:
+  -- other-extensions:
+  build-depends:       base >=4.7 && <4.8,
+                       scotty,
+                       websockets,
+                       http-types
+  -- hs-source-dirs:
+  default-language:    Haskell2010