From dacbbbc20e4b8e735dfe9b19086d1aec0d05cbd7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Carlos=20Mart=C3=ADn=20Nieto?= <cmn@dwim.me>
Date: Mon, 27 May 2013 02:18:25 +0200
Subject: [PATCH] Add a simple protocol helper

---
 src/geef_pkt.erl | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 src/geef_pkt.erl

diff --git a/src/geef_pkt.erl b/src/geef_pkt.erl
new file mode 100644
index 0000000..a22472c
--- /dev/null
+++ b/src/geef_pkt.erl
@@ -0,0 +1,8 @@
+-module(geef_pkt).
+
+-export([line/1]).
+
+-spec line(iolist()) -> iolist().
+line(Text) ->
+    Prefix = io_lib:format("~4.16.0b", [iolist_size(Text) + 1]),
+    [Prefix, Text, "\n"].