From 2fe810118c6068abc3cc7e876faef7e1213ecb76 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Wed, 23 Nov 2022 10:41:07 +1100 Subject: adding librejs --- app/Main.hs | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'app/Main.hs') 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 -- cgit v1.2.3