diff options
author | joe <joe@jerkface.net> | 2014-04-26 12:30:31 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2014-04-26 12:30:31 -0400 |
commit | a89360edc04869b808cf7b3bd0024e88264f99f1 (patch) | |
tree | 3ffe47bb8aa6869f4076a61b1ad5afb866c0d04b /KeyRing.hs | |
parent | 679d59d8dd98c708fa7c9ccc47709968f5ab029f (diff) |
Some silly comment
Diffstat (limited to 'KeyRing.hs')
-rw-r--r-- | KeyRing.hs | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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 | ||