Commit 8554d646 authored by refold's avatar refold
Browse files

80-col violation.

parent ff5714bc
......@@ -421,7 +421,8 @@ readIndexCacheEntry = \line ->
case BSS.words line of
[key, pkgnamestr, pkgverstr, sep, blocknostr]
| key == packageKey && sep == blocknoKey ->
case (parseName pkgnamestr, parseVer pkgverstr [], parseBlockNo blocknostr) of
case (parseName pkgnamestr, parseVer pkgverstr [],
parseBlockNo blocknostr) of
(Just pkgname, Just pkgver, Just blockno)
-> Just (CachePackageId (PackageIdentifier pkgname pkgver) blockno)
_ -> Nothing
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment