summaryrefslogtreecommitdiff
path: root/Git/CheckAttr.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-12-15 18:11:42 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-12-15 18:19:36 -0400
commit95d2391f58ae240e7100f0d5488dd7246f71f3bb (patch)
treef33f21904ae7be4d40b70bab1e2a68fd4eef5526 /Git/CheckAttr.hs
parentb7e0d39abbc9a09c21c6f0103ad6c9f4547f81fe (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.hs7
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 ++ ": "