From fadd7434be6bfc11483dc188aa6e4267e01d5c40 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@google.com>
Date: Sat, 1 Sep 2018 15:14:49 -0400
Subject: Consolidate buffer-handling functions

---
 src/BTLS/BoringSSLPatterns.hs | 41 -----------------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100644 src/BTLS/BoringSSLPatterns.hs

(limited to 'src/BTLS/BoringSSLPatterns.hs')

diff --git a/src/BTLS/BoringSSLPatterns.hs b/src/BTLS/BoringSSLPatterns.hs
deleted file mode 100644
index 8d852a1..0000000
--- a/src/BTLS/BoringSSLPatterns.hs
+++ /dev/null
@@ -1,41 +0,0 @@
--- Copyright 2017 Google LLC
---
--- Licensed under the Apache License, Version 2.0 (the "License"); you may not
--- use this file except in compliance with the License. You may obtain a copy of
--- the License at
---
---     https://www.apache.org/licenses/LICENSE-2.0
---
--- Unless required by applicable law or agreed to in writing, software
--- distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
--- WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
--- License for the specific language governing permissions and limitations under
--- the License.
-
-module BTLS.BoringSSLPatterns
-  ( onBufferOfMaxSize
-  ) where
-
-import Data.ByteString (ByteString)
-import Foreign (Storable(peek), Ptr, alloca, allocaArray)
-import Foreign.C.Types
-
-import BTLS.Buffer (packCUStringLen)
-
--- | Allocates a buffer, runs a function 'f' to partially fill it, and packs the
--- filled data into a 'ByteString'. 'f' must write the size of the filled data,
--- in bytes and not including any trailing null, into its second argument.
---
--- If 'f' is safe to use under 'unsafeLocalState', this whole function is safe
--- to use under 'unsafeLocalState'.
-onBufferOfMaxSize ::
-     (Integral size, Storable size)
-  => Int
-  -> (Ptr CUChar -> Ptr size -> IO ())
-  -> IO ByteString
-onBufferOfMaxSize maxSize f =
-  allocaArray maxSize $ \pOut ->
-    alloca $ \pOutLen -> do
-      f pOut pOutLen
-      outLen <- peek pOutLen
-      packCUStringLen (pOut, outLen)
-- 
cgit v1.2.3