add some haskell

this is a "hello world" http server that runs on 8080

6 files changed, 90 insertions, 1 deletions

diff --git a/.gitignore b/.gitignore
index f8288ba..bd901e7 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,4 @@
 anomic.service
+.stack-work/
+anomic.cabal
+*~
\ No newline at end of file
diff --git a/Makefile b/Makefile
index 0846157..a2133a4 100644
--- a/Makefile
+++ b/Makefile
@@ -18,7 +18,8 @@ install:
 reload: $(SERVICE_FILE)
         systemctl --user daemon-reload
         systemctl --user enable $(SERVICE_NAME) || true
-        systemctl --user reload $(SERVICE_NAME)
+        systemctl --user restart $(SERVICE_NAME)
+        systemctl --user status $(SERVICE_NAME)
 
 $(SERVICE_FILE): $(SERVICE_NAME).service
         install -T -m0644 $^ $@
diff --git a/anomic.hs b/anomic.hs
new file mode 100644
index 0000000..73d45e8
--- /dev/null
+++ b/anomic.hs
@@ -0,0 +1,39 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE TypeOperators #-}
+
+module Main where
+
+import Rebase.Prelude hiding (Handler)
+
+import Servant
+import Network.Wai.Handler.Warp
+
+type API = HelloWorldApi
+
+type HelloWorldApi = "hello" :> Get '[ PlainText] String
+
+type HandlerS state api = ServerT api (ReaderT state (ExceptT ServantErr IO))
+
+type HandlerG api = HandlerS Global api
+
+data Global =
+  Global
+    {
+    }
+
+api :: Proxy API
+api = Proxy
+
+webApp :: Global -> Application
+webApp global =
+  serve api $ hoistServer api (Handler . flip runReaderT global) server
+
+main :: IO ()
+main = run 8080 $ webApp Global
+
+helloWorld :: HandlerG HelloWorldApi
+helloWorld = return "Hello, World!"
+
+server :: HandlerG API
+server = helloWorld
diff --git a/package.yaml b/package.yaml
new file mode 100644
index 0000000..002ad71
--- /dev/null
+++ b/package.yaml
@@ -0,0 +1,40 @@
+name:                anomic
+version:             0.1.0.0
+github:              "afcady/anomic"
+author:              "Andrew Cady"
+maintainer:          "d@jerkface.net"
+copyright:           "AllRightsReserved"
+description:         A game of Nomic
+
+dependencies:
+- base >= 4.7 && < 5
+- rebase
+- servant-server
+
+ghc-options: -W -Wall -O2
+
+library:
+  source-dirs: src
+
+executables:
+  anomic:
+    main:                anomic.hs
+    source-dirs:         .
+    ghc-options:
+    - -threaded
+    - -rtsopts
+    - -with-rtsopts=-N
+    dependencies:
+    - anomic
+    - warp
+
+tests:
+  anomic-test:
+    main:                Spec.hs
+    source-dirs:         test
+    ghc-options:
+    - -threaded
+    - -rtsopts
+    - -with-rtsopts=-N
+    dependencies:
+    - anomic
diff --git a/stack.yaml b/stack.yaml
index e69de29..5c179cc 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -0,0 +1,4 @@
+resolver: lts-13.30
+packages:
+- .
+extra-deps:
diff --git a/test/Spec.hs b/test/Spec.hs
new file mode 100644
index 0000000..cd4753f
--- /dev/null
+++ b/test/Spec.hs
@@ -0,0 +1,2 @@
+main :: IO ()
+main = putStrLn "Test suite not yet implemented"