From a89360edc04869b808cf7b3bd0024e88264f99f1 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sat, 26 Apr 2014 12:30:31 -0400
Subject: Some silly comment

---
 KeyRing.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'KeyRing.hs')

diff --git a/KeyRing.hs b/KeyRing.hs
index c2e5ead..ecb6021 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -708,6 +708,10 @@ parseSpec grip spec = (topspec,subspec)
                 | 'a' <= c && c <= 'f' = True
         ishex c = False
 
+     -- | Split a string into two at the first occurance of the given
+     -- delimiter.  If the delimeter does not occur, then the first
+     -- item of the returned pair is empty and the second item is the
+     -- input string.
      unprefix c spec = if null (snd p) then swap p else (fst p, tail (snd p))
       where p = break (==c) spec
 
-- 
cgit v1.2.3