specify post relay API endpoints

contributes to #41, #32

Hash2Pub.cabal

@@ -46,7 +46,7 @@ category:            Network
 extra-source-files:  CHANGELOG.md
 
 common deps
-  build-depends:       base ^>=4.12.0.0, containers ^>=0.6.0.1, bytestring, utf8-string ^>=1.0.1.1, network ^>=2.8.0.1, time ^>=1.8.0.2, cmdargs ^>= 0.10, cryptonite ^>= 0.25, memory, async, stm, asn1-encoding, asn1-types, asn1-parse, publicsuffix, network-byte-order, safe, iproute, mtl, random
+  build-depends:       base ^>=4.12.0.0, containers ^>=0.6.0.1, bytestring, utf8-string ^>=1.0.1.1, network ^>=2.8.0.1, time ^>=1.8.0.2, cmdargs ^>= 0.10, cryptonite ^>= 0.25, memory, async, stm, asn1-encoding, asn1-types, asn1-parse, publicsuffix, network-byte-order, safe, iproute, mtl, random, servant, servant-server, servant-client, warp, text
   ghc-options:         -Wall
 
 
@@ -55,7 +55,7 @@ library
   import: deps
 
   -- Modules exported by the library.
-  exposed-modules:     Hash2Pub.FediChord, Hash2Pub.FediChordTypes, Hash2Pub.DHTProtocol, Hash2Pub.ASN1Coding, Hash2Pub.ProtocolTypes
+  exposed-modules:     Hash2Pub.FediChord, Hash2Pub.FediChordTypes, Hash2Pub.DHTProtocol, Hash2Pub.ASN1Coding, Hash2Pub.ProtocolTypes, Hash2Pub.PostService
 
   -- Modules included in this library but not exported.
   other-modules: Hash2Pub.Utils

src/Hash2Pub/PostService.hs

@@ -0,0 +1,17 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE TypeOperators #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+module Hash2Pub.PostService where
+
+import Servant
+import qualified Data.Text as Txt
+
+type ServiceAPI = "relay" :> "inbox" :> PostCreated '[PlainText] Txt.Text
+             -- ^ delivery endpoint of new posts to relay 
+             :<|> "relay" :> "subscribers" :> Post '[PlainText] Txt.Text
+             -- ^ endpoint for delivering the subscription and outstanding queue 
+             :<|> "post" :> Capture "postid" Txt.Text :> Get '[PlainText] Txt.Text
+             :<|> "tags" :> Capture "hashtag" Txt.Text :> PostCreated '[PlainText] Txt.Text
+             :<|> "tags" :> Capture "hashtag" Txt.Text :> "subscribe" :> Header "Origin" Txt.Text :> Get '[PlainText] Txt.Text
+             :<|> "tags" :> Capture "hashtag" Txt.Text :> "unsubscribe" :> Header "Origin" Txt.Text :> Get '[PlainText] Txt.Text

src/Hash2Pub/Utils.hs

@@ -4,11 +4,6 @@ module Hash2Pub.Utils where
 import qualified Data.ByteString as BS
 import qualified Data.Set        as Set
 
--- |wraps a list into a Maybe, by replacing empty lists with Nothing
-maybeEmpty :: [a] -> Maybe [a]
-maybeEmpty []           = Nothing
-maybeEmpty nonemptyList = Just nonemptyList
-
 -- | Chop a list into sublists of i elements. The last sublist might contain
 -- less than i elements.
 chunksOf :: Int -> [a] -> [[a]]