From 4d586a032257ee600e2191e7e701243cd8f7e92c Mon Sep 17 00:00:00 2001
From: Linus Nordberg <linus@nordberg.se>
Date: Mon, 23 Mar 2015 15:59:33 +0100
Subject: Fix specs; remove unused file.

Add a spec; remove some warnings.
---
 src/plop.erl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/plop.erl')

diff --git a/src/plop.erl b/src/plop.erl
index ebadcc5..61af616 100644
--- a/src/plop.erl
+++ b/src/plop.erl
@@ -131,6 +131,7 @@ get(Start, End) ->
     lists:map(fun (E) -> fill_in_entry(E) end,
               db:get_by_indices(Start, EndBound, {sorted, false})).
 
+-spec get(binary()) -> notfound | {notfetched, binary(), binary()}.
 get(Hash) ->
     db:get_by_entry_hash(Hash).
 
@@ -306,12 +307,9 @@ verify_sth(Treesize, Timestamp, Roothash, PackedSignature) ->
                        timestamp = Timestamp,
                        tree_size = Treesize,
                        root_hash = Roothash}),
-    <<HashAlg:8, SignatureAlg:8, SigLen:16, Signature/binary>> = PackedSignature,
+    <<_HashAlg:8, _SigAlg:8, _SigLen:16, Signature/binary>> = PackedSignature,
     sign:verify_sth(STH, Signature).
 
-
-
-
 %%%%%%%%%%%%%%%%%%%%
 %% Serialisation of data.
 
-- 
cgit v1.1