summaryrefslogtreecommitdiff
path: root/KeyRing.hs
diff options
context:
space:
mode:
Diffstat (limited to 'KeyRing.hs')
-rw-r--r--KeyRing.hs4
1 files changed, 4 insertions, 0 deletions
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)
708 | 'a' <= c && c <= 'f' = True 708 | 'a' <= c && c <= 'f' = True
709 ishex c = False 709 ishex c = False
710 710
711 -- | Split a string into two at the first occurance of the given
712 -- delimiter. If the delimeter does not occur, then the first
713 -- item of the returned pair is empty and the second item is the
714 -- input string.
711 unprefix c spec = if null (snd p) then swap p else (fst p, tail (snd p)) 715 unprefix c spec = if null (snd p) then swap p else (fst p, tail (snd p))
712 where p = break (==c) spec 716 where p = break (==c) spec
713 717