Fix an accidental Unauthenticated/Authenticated flip

nelhage · Sep 24, 2009 · decee25 · decee25
1 parent c4aefdd
commit decee25
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Network/Zephyr.hs b/Network/Zephyr.hs
@@ -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
+                   Authenticated -> z_make_authentication
-                   _               -> nullFunPtr
+                   _             -> nullFunPtr
 
 -- | Receive a 'ZNotice' from the zephyr servers. Blocks until a
 --   notice is available.