report a more useful error than undefined when trying to use HashSHA256 in SSL3 mode.
This commit is contained in:
parent
9883b8644f
commit
e5e96fb157
1 changed files with 1 additions and 1 deletions
|
@ -73,7 +73,7 @@ instance HashCtxC HashSHA256 where
|
||||||
hashCName _ = "SHA256"
|
hashCName _ = "SHA256"
|
||||||
hashCInit _ = HashSHA256 SHA256.init
|
hashCInit _ = HashSHA256 SHA256.init
|
||||||
hashCUpdate (HashSHA256 ctx) b = HashSHA256 (SHA256.update ctx b)
|
hashCUpdate (HashSHA256 ctx) b = HashSHA256 (SHA256.update ctx b)
|
||||||
hashCUpdateSSL _ _ = undefined
|
hashCUpdateSSL _ _ = error "CUpdateSSL with HashSHA256"
|
||||||
hashCFinal (HashSHA256 ctx) = SHA256.finalize ctx
|
hashCFinal (HashSHA256 ctx) = SHA256.finalize ctx
|
||||||
|
|
||||||
-- functions to use the hidden class.
|
-- functions to use the hidden class.
|
||||||
|
|
Loading…
Reference in a new issue