diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-19 00:38:29 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-19 00:38:29 -0400 |
| commit | c5910fd179d374f644ab3c843b243a51a7df9b24 (patch) | |
| tree | 9623da2ab0411f3862d415a17be7be567688b714 /Git/CatFile.hs | |
| parent | bf1bf600fc94f6b95d5723473b148b35ab32073d (diff) | |
removed all uses of undefined from code base
It's a code smell, can lead to hard to diagnose error messages.
Diffstat (limited to 'Git/CatFile.hs')
| -rw-r--r-- | Git/CatFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Git/CatFile.hs b/Git/CatFile.hs index a1a0a0d28..c63a0647c 100644 --- a/Git/CatFile.hs +++ b/Git/CatFile.hs @@ -110,4 +110,4 @@ catTree h treeref = go <$> catObjectDetails h treeref parsemodefile b = let (modestr, file) = separate (== ' ') (decodeBS b) in (file, readmode modestr) - readmode = fst . fromMaybe (0, undefined) . headMaybe . readOct + readmode = fromMaybe 0 . fmap fst . headMaybe . readOct |