re-format Servant client pattern matching

2020-09-07 16:35:59 +02:00 · 2020-09-07 16:35:59 +02:00 · c536994afe
parent 5c338b9cd7
commit c536994afe
1 changed files with 9 additions and 9 deletions
--- a/src/Hash2Pub/PostService.hs
+++ b/src/Hash2Pub/PostService.hs
@ -321,15 +321,15 @@ tagUnsubscribe serv hashtag origin = do
 clientAPI :: Proxy PostServiceAPI
 clientAPI = Proxy

-relayInboxClient :: Text -> Text -> ClientM NoContent
-relayInboxClient :<|> subscriptionDeliveryClient
-                 :<|> postFetchClient
-                 :<|> postMultiFetchClient
-                 :<|> postInboxClient
-                 :<|> tagDeliveryClient
-                 :<|> tagSubscribeClient
-                 :<|> tagUnsubscribeClient
-                 = client clientAPI
+relayInboxClient
+    :<|> subscriptionDeliveryClient
+    :<|> postFetchClient
+    :<|> postMultiFetchClient
+    :<|> postInboxClient
+    :<|> tagDeliveryClient
+    :<|> tagSubscribeClient
+    :<|> tagUnsubscribeClient
+    = client clientAPI


 -- | Deliver the subscriber list of all hashtags in the interval [fromTag, toTag]