diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-15 18:11:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-15 18:19:36 -0400 |
| commit | 95d2391f58ae240e7100f0d5488dd7246f71f3bb (patch) | |
| tree | f33f21904ae7be4d40b70bab1e2a68fd4eef5526 /Git/CheckAttr.hs | |
| parent | b7e0d39abbc9a09c21c6f0103ad6c9f4547f81fe (diff) | |
more partial function removal
Left a few Prelude.head's in where it was checked not null and too hard to
remove, etc.
Diffstat (limited to 'Git/CheckAttr.hs')
| -rw-r--r-- | Git/CheckAttr.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Git/CheckAttr.hs b/Git/CheckAttr.hs index 1ea38beea..0d3e798a1 100644 --- a/Git/CheckAttr.hs +++ b/Git/CheckAttr.hs @@ -36,10 +36,9 @@ lookup attr files repo = do , Param attr , Params "-z --stdin" ] repo - topair l = (file, value) + topair l = (Git.Filename.decode file, value) where - file = Git.Filename.decode $ join sep $ take end bits - value = bits !! end - end = length bits - 1 + file = join sep $ beginning bits + value = end bits !! 0 bits = split sep l sep = ": " ++ attr ++ ": " |