diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-11-23 10:41:07 +1100 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-11-23 10:41:07 +1100 |
| commit | 2fe810118c6068abc3cc7e876faef7e1213ecb76 (patch) | |
| tree | 337bedaa7dcd2e235fdd3eb53dd48db2019d2d09 /app/Main.hs | |
| parent | 55d1e6c9a9f41394a37b48c42f65cc02274b9ab7 (diff) | |
adding librejs
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/app/Main.hs b/app/Main.hs index 94da226..fa816ae 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -16,6 +16,7 @@ import Servant ( (:>) , Server , serve ) +import System.Process ( readProcess ) type API = GetPageCompliance @@ -25,10 +26,16 @@ server :: Server API server = getPageCompliance getPageCompliance :: [Text] -> Handler Text -getPageCompliance url = +getPageCompliance urlPieces = return $ "You have requested librejs-compliance info for " - <> T.intercalate "/" url + <> T.intercalate "/" urlPieces + +runCompliance :: Text -> IO Text +runCompliance url = T.pack <$> readProcess + "bin/node" + ["~/source/librejserver/librejs/utilities/compliance.js", T.unpack url] + "" app :: Application app = serve api server |