Initial commit

executables/api.hs

@@ -0,0 +1,8 @@
+module Main where
+
+import Server
+import Network.Wai.Handler.Warp
+import Network.Wai.Middleware.Cors (simpleCors)
+
+main :: IO ()
+main = run 8081 (simpleCors application)

executables/generator.hs

@@ -0,0 +1,11 @@
+{-# Language TypeApplications #-}
+{-# Language NoImplicitPrelude #-}
+module Main where
+
+import API
+import Servant.JS
+import Data.Proxy (Proxy(..))
+import ClassyPrelude
+
+main :: IO ()
+main = putStrLn $ jsForAPI (Proxy @API) vanillaJS