@@ -190,7 +190,11 @@ writeEntry destination root entry =
191 path = drop root (Zip.eRelativePath entry)
191 path = drop root (Zip.eRelativePath entry)
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"
194 if not (null path) && last path == '/'
198 if not (null path) && last path == '/'
195 then Dir.createDirectoryIfMissing True (destination </> path)
199 then Dir.createDirectoryIfMissing True (destination </> path)
196 else LBS.writeFile (destination </> path) (Zip.fromEntry entry)
200 else LBS.writeFile (destination </> path) (Zip.fromEntry entry)