From 46f0b4f51ffa6982e66bdbf3a29426fb15c999d2 Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Sat, 28 Apr 2018 14:28:03 -0700 Subject: Begin refactoring low-level foreign imports into their own hierarchy MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit It’s clear at this point that this system is going to get large enough that a two-layer implementation is warranted. `Internal` will contain low-level bindings to BoringSSL; other modules will export an idiomatic interface on top of them. --- src/Data/Hmac.chs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Data/Hmac.chs') diff --git a/src/Data/Hmac.chs b/src/Data/Hmac.chs index 907c352..e78c1af 100644 --- a/src/Data/Hmac.chs +++ b/src/Data/Hmac.chs @@ -33,10 +33,10 @@ import Foreign.Marshal.Unsafe (unsafeLocalState) import Unsafe.Coerce (unsafeCoerce) {#import Data.Digest.Internal#} - (Algorithm(Algorithm), Digest(Digest), Engine, EvpMd, evpMaxMdSize, - noEngine) + (Algorithm(Algorithm), Digest(Digest), evpMaxMdSize) import Foreign.Ptr.Cast (asVoidPtr) {#import Foreign.Ptr.ConstantTimeEquals#} (constantTimeEquals) +{#import Internal.Base#} import Result type LazyByteString = ByteString.Lazy.ByteString -- cgit v1.2.3