make storepatch false by default (#301)

Author: Datseris

CHANGELOG.md

@@ -1,3 +1,5 @@
+# 2.7.2
+* By default `storepatch` keywords are `false`. This means that `gitpatch` is NOT stored by default. This is a BUGFIX, because there is an unknown problem of non-halting when storing the patch.
 # 2.7.0
 * DrWatson-related `ENV`ironment variables are now available to globally set the default values for e.g. story git patches, tagging, or safe-saving in various functions like `tagsave` or `produce_or_load`.
 # 2.6.0

Project.toml

@@ -1,7 +1,7 @@
 name = "DrWatson"
 uuid = "634d3b9d-ee7a-5ddf-bec9-22491ea816e1"
 repo = "https://github.com/JuliaDynamics/DrWatson.jl.git"
-version = "2.7.1"
+version = "2.7.2"
 
 [deps]
 Dates = "ade2ca70-3891-5945-98fb-dc099432e06a"

src/saving_files.jl

@@ -45,7 +45,7 @@ function produce_or_load(path, c, f::Function;
         suffix = "jld2", prefix = default_prefix(c),
         tag::Bool = get(ENV, "DRWATSON_TAG", istaggable(suffix)), 
         gitpath = projectdir(), loadfile = true,
-        storepatch::Bool = get(ENV, "DRWATSON_STOREPATCH", true), 
+        storepatch::Bool = get(ENV, "DRWATSON_STOREPATCH", false), 
         force = false, verbose = true, wsave_kwargs = Dict(), 
         kwargs...
     )
@@ -143,7 +143,7 @@ to save the file using [`safesave`](@ref).
 function tagsave(file, d; 
         gitpath = projectdir(), 
         safe::Bool = get(ENV, "DRWATSON_SAFESAVE", false), 
-        storepatch::Bool = get(ENV, "DRWATSON_STOREPATCH", true), 
+        storepatch::Bool = get(ENV, "DRWATSON_STOREPATCH", false), 
         force = false, source = nothing, kwargs...
     )
     d2 = tag!(d, gitpath=gitpath, storepatch=storepatch, force=force, source=source)

src/saving_tools.jl

@@ -200,7 +200,7 @@ Dict{Symbol,Any} with 3 entries:
 """
 function tag!(d::AbstractDict{K,T}; 
         gitpath = projectdir(), force = false, source = nothing,
-        storepatch::Bool = get(ENV, "DRWATSON_STOREPATCH", true), 
+        storepatch::Bool = get(ENV, "DRWATSON_STOREPATCH", false), 
     ) where {K,T}
     @assert (K <: Union{Symbol,String}) "We only know how to tag dictionaries that have keys that are strings or symbols"
     c = gitdescribe(gitpath)