From 100fc7dc0c7ce85aad0e413b97a90b98185326ef Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@google.com>
Date: Tue, 25 Sep 2018 18:13:26 -0400
Subject: Give `Algorithm` a `Show` instance

---
 src/BTLS/BoringSSL/Obj.chs | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 src/BTLS/BoringSSL/Obj.chs

(limited to 'src/BTLS/BoringSSL/Obj.chs')

diff --git a/src/BTLS/BoringSSL/Obj.chs b/src/BTLS/BoringSSL/Obj.chs
new file mode 100644
index 0000000..a337ad5
--- /dev/null
+++ b/src/BTLS/BoringSSL/Obj.chs
@@ -0,0 +1,23 @@
+-- Copyright 2018 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.BoringSSL.Obj
+  ( objNID2SN
+  ) where
+
+import Foreign.C (CString)
+
+#include <openssl/obj.h>
+
+{#fun pure OBJ_nid2sn as objNID2SN {`Int'} -> `CString'#}
-- 
cgit v1.2.3