adding librejs

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