anchor.diff:          " ["defCreateEmptyPackageDatabaseAndSetupHook" "defCabalSetupCmd"];
   
   	realPhaseNames = args.phaseNames ++ 
  -	  ["doForceShare" "doPropagate"]
  +	  ["doForceShare" "doPropagate" "doForceCopy"]
   	  ++
   	  (optional (getAttr ["alwaysFail"] false args) "doFail")
   	  ;
  
positive.code: 	addSbinPath = getAttr ["addSbinPath"] false args;
  
  	forceShare = if args ? forceShare then args.forceShare else ["man" "doc" "info"];
  
  	archiveType = s: 
  		(if hasSuffixHack ".tar" s then "tar"
  
negative.code: 		done;
  	") ["minInit" "defEnsureDir"];
  
  	doForceCopy = FullDepEntry (''
  		name=$(basename $out)
  		name=''${name#*-}
  		ensureDir "$prefix/share/$name"
  		for f in ${toString forceCopy}; do
  			cp -r "$f" "$prefix/share/$name/$f" || true
  		done;
  	'') ["minInit" "defEnsureDir"];
  
  	doDump = n: noDepEntry "echo Dump number ${n}; set";
  
  	patchFlags = if args ? patchFlags then args.patchFlags else "-p1";
  