Skip to content

Commit

Permalink
Removing inline haddock-like comment as its breaking it (#11)
Browse files Browse the repository at this point in the history
  • Loading branch information
kubek2k authored Jan 27, 2021
1 parent 469216b commit c124fe7
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/WebAuthn/Types.hs
Original file line number Diff line number Diff line change
Expand Up @@ -111,12 +111,13 @@ data CollectedClientData = CollectedClientData
, clientOrigin :: Origin
, clientTokenBinding :: TokenBinding
}

instance FromJSON CollectedClientData where
parseJSON = withObject "CollectedClientData" $ \obj -> CollectedClientData
<$> obj .: "type"
<*> obj .: "challenge"
<*> obj .: "origin"
-- | state of the Token Binding protocol (unsupported)
-- state of the Token Binding protocol (unsupported)
<*> fmap (maybe TokenBindingUnsupported Prelude.id) (obj .:? "tokenBinding")

data TokenBinding = TokenBindingUnsupported
Expand Down

0 comments on commit c124fe7

Please sign in to comment.