Add root path to API.

librariesio · Jul 25, 2018 · dc712b1 · dc712b1
1 parent f951d77
commit dc712b1
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/API.hs b/src/API.hs
@@ -1,18 +1,21 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE TypeOperators #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module API
   ( API
   , server
   ) where
 
+import Data.Text (Text)
 import Dependencies
 import Dependency
 import Distribution.Types.GenericPackageDescription (GenericPackageDescription)
 import Distribution.Types.GenericPackageDescription.MimeUnrender ()
-import Servant ((:>), JSON, PlainText, Post, ReqBody, Server)
+import Servant
 
 type API = "parse" :> ReqBody '[PlainText] GenericPackageDescription :> Post '[JSON] [Dependency]
+         :<|> Get '[PlainText] Text
 
 server :: Server API
-server = return . dependencies
+server = (return . dependencies) :<|> return ""