git.iko.soy/elk
on master help sign in
avoid double check if file exists
be0621bEvan Czaplicki
builder/src/Deps/Registry.hs+1−5
compare with master
unifiedsplit
@@ -54,11 +54,7 @@ data KnownVersions =
54
54
55read :: Stuff.PackageCache -> IO (Maybe Registry)
55read :: Stuff.PackageCache -> IO (Maybe Registry)
56read cache =
56read cache =
57− do let path = Stuff.registry cache
57+ File.readBinary (Stuff.registry cache)
58− exists <- File.exists path
59− if exists
60− then File.readBinary path
61− else return Nothing
62
58
63
59
64
60