avoid double check if file exists
commitbe0621b4c85dff0933ae5c437984f3222a959aa9
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateWed 26 Jun 2019, 20:46 (7 years ago)
parent4f378cd
builder/src/Deps/Registry.hs+1−5
@@ -54,11 +54,7 @@ data KnownVersions =
5454
5555read :: Stuff.PackageCache -> IO (Maybe Registry)
5656read cache =
57− do let path = Stuff.registry cache
58− exists <- File.exists path
59− if exists
60− then File.readBinary path
61− else return Nothing
57+ File.readBinary (Stuff.registry cache)
6258
6359
6460