on master help sign in
extract elm.json from package archives as well
8b65940Evan Czaplicki
builder/src/File.hs+1−1
@@ -190,7 +190,7 @@ writeEntry destination root entry =
190 let
190 let
191 path = drop root (Zip.eRelativePath entry)
191 path = drop root (Zip.eRelativePath entry)
192 in
192 in
193− if path == "LICENSE" || List.isPrefixOf "src/" path then
193+ if path == "LICENSE" || path == "elm.json" || List.isPrefixOf "src/" path then
194 if not (null path) && last path == '/'
194 if not (null path) && last path == '/'
195 then Dir.createDirectoryIfMissing True (destination </> path)
195 then Dir.createDirectoryIfMissing True (destination </> path)
196 else LBS.writeFile (destination </> path) (Zip.fromEntry entry)
196 else LBS.writeFile (destination </> path) (Zip.fromEntry entry)