diff options
| author | stuebinm | 2024-04-17 01:55:56 +0200 |
|---|---|---|
| committer | stuebinm | 2024-04-17 02:01:35 +0200 |
| commit | 58f5b808c151a801ab5fca2c84a71d3bfddce57d (patch) | |
| tree | f5e9660be6425f39bce64ca3f5e9e70ebc16193f /app/GenJS.hs | |
| parent | 385e15fc22f48a1f8d40b8263a54155fdab499ea (diff) | |
general housekeeping
jumps to GHC2021 as default language, adds in some fields, moves the old
org mode glossary to markdown, etc.
Diffstat (limited to '')
| -rw-r--r-- | app/GenJS.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/app/GenJS.hs b/app/GenJS.hs index a580d23..1e7ba3a 100644 --- a/app/GenJS.hs +++ b/app/GenJS.hs @@ -4,12 +4,12 @@ -- bother with it module Main where -import Universum -import Servant.JS -import Servant.JS.Vanilla -import System.Environment (getArgs) +import Servant.JS +import Servant.JS.Vanilla +import System.Environment (getArgs) +import Universum -import API +import API apiJS :: Text -> Text apiJS url = jsForAPI (Proxy @API) (vanillaJSWith options) @@ -19,6 +19,6 @@ main :: IO () main = do args <- getArgs case args of - [] -> putText (apiJS "") + [] -> putText (apiJS "") [prefix] -> putText (apiJS (toText prefix)) - _ -> error "don't understand these options" + _ -> error "don't understand these options" |