@@ -11,6 +11,7 @@ module {:options "-functionSyntax:4"} EncryptManifest {
11
11
import opened StandardLibrary. UInt
12
12
import opened JSON. Values
13
13
import opened WriteManifest
14
+ import Time
14
15
import JSON. API
15
16
import JSON. Errors
16
17
import opened DynamoDbEncryptionUtil
@@ -131,10 +132,15 @@ module {:options "-functionSyntax:4"} EncryptManifest {
131
132
132
133
method Encrypt (inFile : string , outFile : string , lang : string , version : string ) returns (output : Result< bool , string > )
133
134
{
134
- print "Encrypt : ", inFile, "\n";
135
+ var timeStamp :- expect Time. GetCurrentTimeStamp ();
136
+ print timeStamp + " Encrypt : ", inFile, "\n";
135
137
var configBv :- expect FileIO. ReadBytesFromFile (inFile);
136
138
var configBytes := BvToBytes (configBv);
139
+ timeStamp :- expect Time. GetCurrentTimeStamp ();
140
+ print timeStamp + " File Read. \n";
137
141
var json :- expect API. Deserialize (configBytes);
142
+ timeStamp :- expect Time. GetCurrentTimeStamp ();
143
+ print timeStamp + " JSON Parsed. \n";
138
144
139
145
:- Need (json.Object?, "Encrypt file must contain a JSON object.");
140
146
var keys : Option< string > := None;
@@ -191,6 +197,9 @@ module {:options "-functionSyntax:4"} EncryptManifest {
191
197
var jsonBytes :- expect API. Serialize (final);
192
198
var jsonBv := BytesBv (jsonBytes);
193
199
var x :- expect FileIO. WriteBytesToFile (outFile, jsonBv);
200
+
201
+ timeStamp :- expect Time. GetCurrentTimeStamp ();
202
+ print timeStamp + " Tests Complete. \n";
194
203
return Success (true);
195
204
}
196
205
0 commit comments