Permalink
Browse files

Fix an accidental Unauthenticated/Authenticated flip

  • Loading branch information...
1 parent c4aefdd commit decee2575e406d5510af534688b8b391e0f4b70b @nelhage committed Sep 24, 2009
Showing with 2 additions and 2 deletions.
  1. +2 −2 Network/Zephyr.hs
View
@@ -71,8 +71,8 @@ sendNotice :: ZNotice -> IO ()
sendNotice note = withZNotice note $ \c_note -> do
withZephyr $ z_send_notice c_note cert >>= comErr
where cert = case z_auth note of
- Unauthenticated -> z_make_authentication
- _ -> nullFunPtr
+ Authenticated -> z_make_authentication
+ _ -> nullFunPtr
-- | Receive a 'ZNotice' from the zephyr servers. Blocks until a
-- notice is available.

0 comments on commit decee25

Please sign in to comment.