From 6d27c8d3e572d227b4fb7081e5ed853e6f893764 Mon Sep 17 00:00:00 2001
From: Tuan Le <webmaster@michivi.com>
Date: Fri, 18 Mar 2022 15:53:17 +0100
Subject: [PATCH] Complete the Haddock documentation

---
 src/Servant/Auth/Hmac/Secure.hs | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/src/Servant/Auth/Hmac/Secure.hs b/src/Servant/Auth/Hmac/Secure.hs
index ddb0c5d..41f3fe9 100644
--- a/src/Servant/Auth/Hmac/Secure.hs
+++ b/src/Servant/Auth/Hmac/Secure.hs
@@ -8,6 +8,8 @@ Stability   :  experimental
 
 Servant combinator and operations for HMAC authentication of requests.
 
+Full examples are available on the library GitHub repository, in the @examples/@ directory.
+
 IMPORTANT NOTE: the HMAC authentication scheme requires hashing the entirety of
 the content. The later is still required though by the backend for consumption.
 To that end, it will be retained in-memory. Users need to keep that in mind, and
@@ -67,7 +69,8 @@ instance Exception HmacSignatureException
 
 {- | Client-side HMAC authentication contextual information.
 
->>> :{
+@
+clientSideAuth :: HmacClientSideAuth HelloUser
 clientSideAuth = HmacClientSideAuth
     { hcsaSign = signSHA256
     , hcsaUserRequest = \case
@@ -77,7 +80,7 @@ clientSideAuth = HmacClientSideAuth
         UserA -> userASk
         UserB -> userBSk
     }
-}
+@
 -}
 data HmacClientSideAuth usr = HmacClientSideAuth
     { hcsaSign :: !(SecretKey -> ByteString -> Signature)
@@ -92,7 +95,8 @@ data HmacClientSideAuth usr = HmacClientSideAuth
 {- | Server-side HMAC authentication contextual information required to
 authenticate the remote users using their secret key.
 
->>> :{
+@
+serverSideAuth :: HmacServerSideAuth HelloUser
 serverSideAuth = HmacServerSideAuth
     { hssaSign = signSHA256
     , hssaIdentifyUser = \req -> case lookup "X-User" (Wai.requestHeaders req) of
@@ -103,7 +107,14 @@ serverSideAuth = HmacServerSideAuth
         UserA -> userASk
         UserB -> userBSk
     }
-:}
+
+myApp :: Application
+myApp =
+    serveWithContext
+        myApi
+        (serverSideAuth :. EmptyContext)
+        myServer
+@
 -}
 data HmacServerSideAuth usr = HmacServerSideAuth
     { hssaSign :: !(SecretKey -> ByteString -> Signature)