minor cleanups

obelisk/frontend/src/WormholeInvite.hs

@@ -13,21 +13,22 @@ import MagicWormhole.Internal.Messages (Mood(..))
 import Crypto.Spake2 (makePassword)
 import Data.Text (breakOn, tail)
 import GHC.Conc (atomically)
---import Data.Text.Encoding (encodeUtf8)
 import Data.Aeson.Types (ToJSON(..), FromJSON(..), (.=), (.:), toJSON, parseJSON, object)
 import qualified Data.Aeson.Types as AesonTypes
 import qualified Data.Aeson as A
 import Control.Exception (Exception, throwIO)
 import Control.Monad.IO.Class (liftIO)
 
-
+-- | Parsing the magic-folder invitation failed.
 newtype InviteParseError = InviteParseError B.ByteString deriving (Show, Eq)
 instance Exception InviteParseError
 
+-- | Represent the version of a magic-folder invitation.
 data InvitesVersion0 = InvitesVersion0 deriving (Eq, Show)
 
 data InviteMessage = InviteMessage {
-  kind :: T.Text, -- XXX probably don't need/want this? "invite-v1"
+  -- This must always be "invite-v1".
+  kind :: T.Text,
   folderName :: T.Text,
   collectiveReadCap :: T.Text
   } deriving (Eq, Show)