summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--UUID.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/UUID.hs b/UUID.hs
index fa71bed39..a150dc333 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -100,7 +100,4 @@ uuidMap = do
s <- Branch.get uuidLog
return $ M.fromList $ map pair $ lines s
where
- pair l =
- if 1 < length (words l)
- then (head $ words l, unwords $ drop 1 $ words l)
- else ("", "")
+ pair l = (head $ words l, unwords $ drop 1 $ words l)