diff options
Diffstat (limited to 'app')
| -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 |