@@ -190,7 +190,11 @@ writeEntry destination root entry =
190190 let
191191 path = drop root (Zip.eRelativePath entry)
192192 in
193− if path == "LICENSE" || path == "elm.json" || List.isPrefixOf "src/" path then
193+ if List.isPrefixOf "src/" path
194+ || path == "LICENSE"
195+ || path == "README.md"
196+ || path == "elm.json"
197+ then
194198 if not (null path) && last path == '/'
195199 then Dir.createDirectoryIfMissing True (destination </> path)
196200 else LBS.writeFile (destination </> path) (Zip.fromEntry entry)