1 files changed, 24 insertions, 0 deletions
diff --git a/app/GenJS.hs b/app/GenJS.hs
new file mode 100644
index 0000000..a580d23
--- /dev/null
+++ b/app/GenJS.hs
@@ -0,0 +1,24 @@
+{-# LANGUAGE TypeApplications #-}
+
+-- | Just to generate javascript functions so I won't have too much
+-- bother with it
+module Main where
+
+import Universum
+import Servant.JS
+import Servant.JS.Vanilla
+import System.Environment (getArgs)
+
+import API
+
+apiJS :: Text -> Text
+apiJS url = jsForAPI (Proxy @API) (vanillaJSWith options)
+  where options = defCommonGeneratorOptions { urlPrefix = url }
+
+main :: IO ()
+main = do
+  args <- getArgs
+  case args of
+    [] -> putText (apiJS "")
+    [prefix] -> putText (apiJS (toText prefix))
+    _ -> error "don't understand these options"