apply suggestions

src/Agora/AuthorityToken.hs

@@ -1,5 +1,8 @@
-{-# LANGUAGE PolyKinds #-}
-
+{- |
+Module     : Agora.AuthorityToken
+Maintainer : emi@haskell.fyi
+Description: Tokens acting as redeemable proofs of DAO authority
+-}
 module Agora.AuthorityToken (
   authorityTokenPolicy,
   AuthorityToken (..),
@@ -28,7 +31,7 @@ import Agora.Utils (passert, passetClassValueOf, passetClassValueOf')
      moved while this token was minted. In effect, this means that
      the validator that locked such a token must have approved
      said transaction. Said validator should be made aware of
-     _this_ token's existence in order to prevent incorrect minting.
+     *this* token's existence in order to prevent incorrect minting.
 -}
 newtype AuthorityToken = AuthorityToken
   { authority :: AssetClass
@@ -37,6 +40,7 @@ newtype AuthorityToken = AuthorityToken
 
 --------------------------------------------------------------------------------
 
+-- | Policy given 'AuthorityToken' params.
 authorityTokenPolicy ::
   AuthorityToken ->
   Term s (PData :--> PScriptContext :--> PUnit)