Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Microsoft (R) F# Interactive version 14.0.23020.0
- Copyright (c) Microsoft Corporation. All Rights Reserved.
- For help type #help;;
- >
- --> Referenced 'C:\EE\Git\Permiso\BTTScripts\..\DLLs\AWSSDK.dll' (file may be locked by F# Interactive process)
- --> Referenced 'C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5.1\System.Xml.Linq.dll' (file may be locked by F# Interactive process)
- --> Referenced 'C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5.1\System.IO.Compression.dll' (file may be locked by F# Interactive process)
- --> Referenced 'C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5.1\System.Xml.dll' (file may be locked by F# Interactive process)
- --> Referenced 'C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5.1\System.Xml.Linq.dll' (file may be locked by F# Interactive process)
- --> Referenced 'C:\Windows\Microsoft.NET\Framework\v4.0.30319\System.Security.dll' (file may be locked by F# Interactive process)
- --> Referenced 'C:\EE\Git\Permiso\BTTScripts\..\DLLs\Renci.SshNet.dll' (file may be locked by F# Interactive process)
- --> Added 'C:\EE\Git\Permiso\BTTServer\bin\Debug\' to library include path
- --> Referenced 'C:\EE\Git\Permiso\BTTServer\bin\Debug\BTT.exe' (file may be locked by F# Interactive process)
- Binding session to 'C:\EE\Git\Permiso\BTTServer\bin\Debug\BundleTransformer.Core.dll'...
- Binding session to 'C:\EE\Git\Permiso\BTTServer\bin\Debug\Newtonsoft.Json.dll'...
- val baseDir : string = "C:\EE\Git\Permiso\BTTScripts"
- val buildDir : string = "C:\EE\Git\Permiso\BTTScripts\..\Build\"
- val root : string =
- "C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"
- val jsFilesMin : string [] =
- [|"assets/js/ace-extra.min.js"; "assets/js/jquery-2.0.3.js";
- "assets/js/q.js"; "assets/js/bootstrap.min.js"; "assets/js/bootbox.min.js";
- "assets/js/jquery-ui-1.10.3.custom.min.js";
- "assets/js/jquery.ui.touch-punch.min.js";
- "assets/js/jquery.slimscroll.min.js";
- "assets/js/jquery.easy-pie-chart.min.js";
- "assets/js/jquery.sparkline.min.js"; "assets/js/flot/jquery.flot.min.js";
- "assets/js/flot/jquery.flot.pie.min.js";
- "assets/js/flot/jquery.flot.resize.min.js";
- "assets/js/ace-elements.min.js"; "assets/js/ace.min.js";
- "assets/js/angular-file-upload-shim.min.js"; "assets/js/angular.min.js";
- "assets/js/angular-file-upload.min.js"; "assets/js/angular-route.min.js";
- "assets/js/angular-cookies.min.js"; "assets/js/highcharts.min.js";
- "assets/js/fullcalendar.min.js"; "assets/js/checkout.js";
- "assets/js/underscore.js"; "assets/js/date-time/bootstrap-datepicker.js";
- "assets/js/angular-strap.js"; "assets/js/moment-with-langs.js";
- "assets/js/angularLocalStorage.js"; "assets/js/ng-tags-input.js";
- "assets/js/calendar.js"; "assets/js/ui-bootstrap-tpls-0.8.0.js";
- "assets/js/angular-ui-tree.js"; "assets/js/ng-currency.js"|]
- val scriptFiles : string [] =
- [|"scripts/utils.js"; "scripts/app.js"; "scripts/bttclient.js";
- "scripts/directives/ng-ckeditor.js"; "scripts/controllers/admin.js";
- "scripts/controllers/adminActivities.js";
- "scripts/controllers/adminDomainPricing.js";
- "scripts/controllers/adminDomains.js";
- "scripts/controllers/adminDomainSettings.js";
- "scripts/controllers/adminDomainSummaries.js";
- "scripts/controllers/adminExtractor.js";
- "scripts/controllers/adminFeatures.js";
- "scripts/controllers/adminHtmlEditor.js";
- "scripts/controllers/adminSettings.js"; "scripts/controllers/adminTax.js";
- "scripts/controllers/adminTaxSettings.js";
- "scripts/controllers/adminUploads.js"; "scripts/controllers/adminUsers.js";
- "scripts/controllers/billing.js"; "scripts/controllers/calendar.js";
- "scripts/controllers/countrysummaries.js";
- "scripts/controllers/dashboard.js"; "scripts/controllers/devAdmin.js";
- "scripts/controllers/devAdminLogging.js";
- "scripts/controllers/domainActivitiesRules.js";
- "scripts/controllers/domainMenu.js";
- "scripts/controllers/domainOutcomeRules.js";
- "scripts/controllers/domainProperties.js";
- "scripts/controllers/domainReview.js";
- "scripts/controllers/domainSettings.js";
- "scripts/controllers/domainTaxRules.js";
- "scripts/controllers/mobilityUsers.js"; "scripts/controllers/page.js";
- "scripts/controllers/profile.js"; "scripts/controllers/publicPage.js";
- "scripts/controllers/reportCorpTax.js";
- "scripts/controllers/reportLocation.js";
- "scripts/controllers/reportTax.js"; "scripts/controllers/sandbox.js";
- "scripts/controllers/search.js"; "scripts/controllers/serverManager.js";
- "scripts/controllers/substitutions.js"; "scripts/controllers/testing.js";
- "scripts/controllers/visaAssStart.js";
- "scripts/controllers/visaAssView.js"; "scripts/controllers/login.js"|]
- val cssFiles : string [] =
- [|"fullcalendar.css"; "bootstrap.min.css"; "bootstrap-responsive.min.css";
- "bootstrap-datepicker.css"; "font-awesome.min.css"; "ace-fonts.css";
- "cus-icons.css"; "ng-tags-input.css"; "ace.css"; "ace-responsive.min.css";
- "ace-skins.min.css"; "permiso.css"|]
- val client : string =
- "var Version = 1457495856;
- var console__log$String_1_Unit_S"+[235792 chars]
- val deployVersion : int = 1457495856
- val jsPath : string = "app1457495856.min.js"
- val uglify : (string -> string)
- val jsMin : string =
- "if(!("ace" in window)){window.ace={}}ace.config={cookie_expir"+[1892915 chars]
- [Loading C:\EE\Git\Permiso\Shared\Utilities.fs]
- namespace FSI_0003.Tsunami.Utilities
- type EMemoryStream =
- class
- inherit MemoryStream
- new : f:(byte [] -> unit) -> EMemoryStream
- override Close : unit -> unit
- end
- val map :
- source:string -> target:string -> files:string [] -> (string * string) []
- type RoseTree<'a> = | Node of 'a * RoseTree<'a> []
- val map : f:('a -> 'b) -> tree:RoseTree<'a> -> RoseTree<'b>
- val flatten : tree:RoseTree<'a> -> 'a []
- val force : x:Lazy<'a> -> 'a
- val ofNullable : x:'a -> 'a option
- val ofSystemNullable :
- x:Nullable<'a> -> 'a option
- when 'a : (new : unit -> 'a) and 'a : struct and 'a :> ValueType
- val tryGetAll : xs:'a option [] -> 'a [] option
- val tryNull : x:'a -> 'a option
- val ofType : _arg1:obj -> 'Out option
- val tryNullOfType : x:obj -> 'Out option
- val ofUnrelatedType : x:'In -> 'Out option
- val isOfType<'a> : x:obj -> bool
- val orElse : second:'a option -> first:'a option -> 'a option
- val tryFind : predicate:('a -> bool) -> x:'a option -> 'a option
- val orDefault : d:'a -> x:'a option -> 'a
- val orDefaultDelay : d:(unit -> 'a) -> x:'a option -> 'a
- val ofRef : result:bool * byref:'a -> 'a option
- module private X = begin
- val SetDllDirectory : lpathName:Text.StringBuilder -> bool
- end
- val setDllDirectory : str:string -> bool
- val setDefaultNativeDllDirectory : unit -> unit
- val ofJaggedArray : xss:'a [] [] -> 'a [,]
- val ofType<'Out> : (seq<obj> -> seq<'Out>)
- val ofUnrelatedType<'In,'Out> : (seq<'In> -> seq<'Out>)
- val tryLast : xs:seq<'a> -> 'a option
- val tryHead : xs:seq<'a> -> 'a option
- val ofObjs : xs:Collections.IEnumerable -> seq<obj>
- val iterate : f:('a -> 'a) -> x:'a -> seq<'a>
- val repete : f:('a -> 'a) -> n:int -> x:'a -> seq<'a>
- val scanWhile :
- f:('State -> 'T -> 'State option) ->
- seed:'State -> xs:seq<'T> -> seq<'State>
- val euclideanDistance : xs:float<'u> [] -> ys:float<'u> [] -> float<'u ^ 2>
- val cartesianProduct :
- f:('a -> 'b -> 'c) -> xs:seq<'a> -> ys:seq<'b> -> seq<'c>
- val inline permutationWithRepeition :
- xs:seq< ^a> -> seq<seq< ^a>>
- when ^a : (static member ( + ) : ^a * ^a -> ^a)
- val zipWithIndex : xs:seq<'a> -> seq<int * 'a>
- val unzip : pairs:seq<'a * 'b> -> seq<'a> * seq<'b>
- val partition :
- condition:('a -> bool) -> values:seq<'a> -> seq<'a> * seq<'a>
- val item : i:int -> xs:seq<'a> -> 'a
- val truncateLeft : limit:int -> xs:seq<'a> -> seq<'a>
- val truncateRight : (int -> seq<'a> -> seq<'a>)
- val meanVarianceSdCount : xs:seq<float> -> seq<float * float * float * int>
- val PathFileExists : path:Text.StringBuilder -> bool
- type File with
- static member TryReadAllText : path:string -> string option
- type File with
- static member TryReadAllBytes : path:string -> byte [] option
- type File with
- static member FastExists : path:string -> bool
- type Directory with
- static member
- TryGetFiles : path:string * ext:string * options:SearchOption ->
- string [] option
- val UnblockViaNewThread : f:(unit -> 'a) -> Async<'a>
- type TmpPath =
- {path: string;}
- with
- interface IDisposable
- end
- type TmpDir =
- {path: string;}
- with
- interface IDisposable
- end
- type Path with
- static member GetDisposableTempFileName : unit -> TmpPath
- type Path with
- static member GetDisposableTempDirectory : unit -> TmpDir
- type File with
- static member AsyncOpenText : path:string -> Async<StreamReader>
- type File with
- static member AsyncAppendText : path:string -> Async<StreamWriter>
- type File with
- static member AsyncOpenRead : path:string -> Async<FileStream>
- type File with
- static member AsyncOpenWrite : path:string -> Async<FileStream>
- type File with
- static member
- AsyncOpen : path:string * mode:FileMode * ?access:FileAccess *
- ?share:FileShare * ?bufferSize:int * ?options:FileOptions ->
- Async<FileStream>
- type File with
- static member OpenTextAsync : path:string -> Async<StreamReader>
- type File with
- static member AppendTextAsync : path:string -> Async<StreamWriter>
- type File with
- static member OpenReadAsync : path:string -> Async<FileStream>
- type File with
- static member OpenWriteAsync : path:string -> Async<FileStream>
- type File with
- static member
- OpenAsync : path:string * mode:FileMode * ?access:FileAccess *
- ?share:FileShare * ?bufferSize:int * ?options:FileOptions ->
- Async<FileStream>
- type StreamReader with
- member AsyncReadToEnd : unit -> Async<string>
- type Stream with
- member ToBytes : unit -> byte []
- type Stream with
- member CopyToBytesAsync : unit -> Async<byte []>
- val pair : x:'a -> y:'b -> 'a * 'b
- type Dictionary<'TKey,'TValue> with
- member TryGet : x:'TKey -> 'TValue option
- type Dictionary<'TKey,'TValue> with
- member Update : k:'TKey * f:('TValue -> 'TValue) -> 'TValue
- module Dictionary = begin
- val mapInPlace :
- f:('b -> 'b) -> xs:Collections.Generic.Dictionary<'a,'b> -> unit
- val mapiInPlace :
- f:('a -> 'b -> 'b) -> xs:Collections.Generic.Dictionary<'a,'b> -> unit
- val tryFindIndex :
- f:('b -> bool) -> xs:Collections.Generic.Dictionary<'a,'b> -> 'a option
- val fromArray :
- xs:('a * 'b) [] -> Collections.Generic.Dictionary<'a,'b>
- when 'a : equality
- end
- val rand : Random
- type ConcurrentDictionary<'TKey,'TValue> with
- member TryGet : x:'TKey -> 'TValue option
- type ConcurrentDictionary<'TKey,'TValue> with
- member Update : index:'TKey * update:('TValue -> 'TValue) -> 'TValue
- val getUnionName : o:obj -> string
- type DateTime with
- member ToJSON : string
- type DateTime with
- static member GetUnixTimestamp : unit -> int64
- type DateTime with
- static member FromUnixTimeStamp : ts:int64 -> DateTime
- type DateTime with
- member GetIso8601WeekOfYear : unit -> int
- type DateTime with
- member ToUnixTimeStamp : int64
- type TimeSpan with
- member ToReadableString : unit -> string
- type IList with
- member ToArray : unit -> obj []
- type String with
- member TrimEnd : end:string -> string
- type String with
- member StartUpper : unit -> string
- type String with
- member StartLower : unit -> string
- type String with
- member ToBytes : unit -> byte []
- val extractQueryParameters :
- url:string -> string * (string * string option) []
- val queryToDictFromUrl :
- url:string -> Collections.Generic.Dictionary<string,string>
- val indexOf :
- search:'t array -> collection:'t array -> int option when 't : equality
- val indexsOf :
- search:'t array -> collection:'t array -> seq<int> when 't : equality
- val split :
- search:'t array -> collection:'t array -> 't [] [] when 't : equality
- val id : x:'a -> 'a
- type OptionBuilder =
- class
- new : unit -> OptionBuilder
- member Bind : v:'f option * f:('f -> 'g option) -> 'g option
- member Combine : v:unit option * f:(unit -> 'c option) -> 'c option
- member Delay : f:(unit -> 'T) -> (unit -> 'T)
- member Return : v:'e -> 'e option
- member ReturnFrom : v:'d -> 'd
- member Run : f:(unit -> 'b) -> 'b
- member
- While : cond:(unit -> bool) * f:(unit -> 'a option) -> unit option
- member Zero : unit -> unit option
- end
- val maybe : OptionBuilder
- type Either<'left,'right> =
- | Left of 'left
- | Right of 'right
- with
- member getLeft : unit -> 'left
- member getRight : unit -> 'right
- member isLeft : unit -> bool
- member isRight : unit -> bool
- end
- module Either = begin
- val isLeft : x:Either<'a,'b> -> bool
- val isRight : x:Either<'a,'b> -> bool
- val mapl : f:('a -> 'b) -> x:Either<'a,'c> -> Either<'b,'c>
- val mapr : f:('a -> 'b) -> x:Either<'c,'a> -> Either<'c,'b>
- val bindl : f:('a -> Either<'b,'c>) -> x:Either<'a,'c> -> Either<'b,'c>
- val bindr : f:('a -> Either<'b,'c>) -> x:Either<'b,'a> -> Either<'b,'c>
- val value : x:Either<'a,'a> -> 'a
- val toOption : x:Either<'a,'b> -> 'b option
- val ofOption : orElse:'a -> x:'b option -> Either<'a,'b>
- val partition : xs:Either<'a,'b> [] -> 'a [] * 'b []
- end
- type EitherBuilder =
- class
- new : unit -> EitherBuilder
- member Bind : v:Either<'j,'k> * f:('k -> Either<'j,'l>) -> Either<'j,'l>
- member
- Combine : v:Either<'d,unit> * f:(unit -> Either<'d,'e>) ->
- Either<'d,'e>
- member Delay : f:(unit -> 'T) -> (unit -> 'T)
- member Return : v:'h -> Either<'i,'h>
- member ReturnFrom : v:'g -> 'g
- member Run : f:(unit -> 'c) -> 'c
- member
- While : cond:(unit -> bool) * f:(unit -> Either<'a,'b>) ->
- Either<'a,unit>
- member Zero : unit -> Either<'f,unit>
- end
- val either : EitherBuilder
- val retry : limit:int -> handle:(exn -> unit) -> f:(unit -> 'b) -> 'b option
- val retryAsync :
- limit:int ->
- errorHandler:(exn -> unit) -> computation:Async<'T> -> Async<'T option>
- val ( <~ ) : x:'a -> f:('a -> 'b) -> 'a
- val memoize : f:('a -> 'b) -> ('a -> 'b) when 'a : equality
- val flip : f:('a -> 'b -> 'c) -> x:'b -> y:'a -> 'c
- val doCompare : x:'a -> y:'a -> propGets:('a -> IComparable) list -> int
- val doObjCompare : this:'a -> _arg1:obj -> int when 'a :> IComparable<'a>
- val doComparableEquals :
- this:'a -> _arg1:obj -> bool when 'a :> IComparable<'a>
- val doHashCode : this:'a -> propGets:('a -> obj) list -> int
- val ( >>>> ) :
- first:('a -> Async<'b>) -> second:('b -> Async<'c>) -> x:'a -> Async<'c>
- val ( |>>> ) :
- computation:Async<'a> -> continuation:('a -> Async<'b>) -> Async<'b>
- val dispose : x:IDisposable -> unit
- type Agent<'T> = MailboxProcessor<'T>
- type MailboxProcessor<'Msg> with
- member Pick : pick:('Msg -> Option<'b>) -> Async<'b>
- val bind : binder:('a -> Async<'b>) -> computation:Async<'a> -> Async<'b>
- val map : f:('a -> 'b) -> (Async<'a> -> Async<'b>)
- val thenReturn : x:'a -> (Async<unit> -> Async<'a>)
- val StartDisposable : x:Async<unit> -> IDisposable
- val AwaitNonGenericTask : (Threading.Tasks.Task -> Async<unit>)
- val startInParallel : (seq<Async<unit>> -> unit)
- type QueueInputStream =
- class
- inherit Stream
- new : unit -> QueueInputStream
- member Add : str:string -> unit
- member Clear : unit -> unit
- override Flush : unit -> unit
- override Read : buffer:byte [] * offset:int * count:int -> int
- override Seek : _offset:int64 * _origin:SeekOrigin -> int64
- override SetLength : _value:int64 -> unit
- override Write : _buffer:byte [] * _offset:int * _count:int -> unit
- override CanRead : bool
- override CanSeek : bool
- override CanWrite : bool
- override Length : int64
- override Position : int64
- override Position : int64 with set
- end
- type QueueOutputStream =
- class
- inherit Stream
- new : unit -> QueueOutputStream
- member Clear : unit -> unit
- override Flush : unit -> unit
- member Read : unit -> byte []
- override Read : _buffer:byte [] * _offset:int * _count:int -> int
- member ReadAsync : delayMilliseconds:int -> Async<byte []>
- override Seek : _offset:int64 * _origin:SeekOrigin -> int64
- override SetLength : _value:int64 -> unit
- member Subscribe : f:(byte [] -> Async<unit>) -> IDisposable
- member
- Subscribe : f:(byte [] -> Async<unit>) * zeroLength:(unit -> unit) ->
- IDisposable
- override Write : buffer:byte [] * offset:int * count:int -> unit
- override CanRead : bool
- override CanSeek : bool
- override CanWrite : bool
- override Length : int64
- override Position : int64
- override Position : int64 with set
- end
- type AtomicCounter =
- class
- new : inital:int -> AtomicCounter
- member NextVal : unit -> int
- member Val : int
- end
- val toHex : c:Char -> byte
- val last : xs:'a list -> 'a
- val private leaveOneOutInner :
- prev:'a list * acc:('a * 'a list) list ->
- xs:'a list -> ('a * 'a list) list
- val leaveOneOut : xs:'a list -> ('a * 'a list) list
- val private nonEmptySubsequences : xs:'a list -> 'a list list
- val subsequences : xs:'a list -> 'a list list
- val toString : xs:char list -> String
- val ofString : x:string -> char list
- val head : xs:'a [] -> 'a
- val last : xs:'a [] -> 'a
- val distinct : xs:'a [] -> 'a [] when 'a : equality
- val distinctBy :
- projection:('T -> 'Key) -> xs:'T [] -> 'T [] when 'Key : equality
- val inline countBy :
- f:('a -> 'a0) -> xs:'a [] -> ('a0 * int) [] when 'a0 : equality
- val truncate : n:int -> xs:'a [] -> 'a []
- val inline cumulative :
- xs: ^a [] -> ^a [] when ^a : (static member ( + ) : ^a * ^a -> ^a)
- val classifyBy : f:('a -> 'b) -> xs:'a [] -> 'a [] [] when 'b : equality
- val vectorSum : xss:float<'u> [] [] -> float<'u> []
- val take : n:int -> xs:seq<'a> -> 'a []
- val skip : n:int -> xs:'a [] -> 'a []
- val groupBy :
- projection:('T -> 'Key) -> xs:'T [] -> ('Key * 'T []) []
- when 'Key : equality
- val chunkIndexs : n:int -> length:int -> (int * int) []
- val chunkify : n:int -> xs:'a [] -> 'a [] []
- val flip : xs:'a [] [] -> 'a [] []
- val zipWithIndex : xs:'a [] -> (int * 'a) []
- val filteri : f:(int -> 'a -> bool) -> xs:'a [] -> 'a []
- val removeIndex : i:int -> xs:'a [] -> 'a []
- val updateIndex : i:int -> update:('a -> 'a) -> xs:'a [] -> 'a []
- val move : source:int -> dest:int -> xs:'a [] -> 'a []
- val insertIndex : i:int -> x:'a -> xs:'a [] -> 'a []
- val toRanges : xs:int [] -> (int * int) []
- val remove : y:'a -> xs:'a [] -> 'a [] when 'a : equality
- val modeBy : f:('a -> 'b) -> xs:'a [] -> 'b when 'b : equality
- val windowed : size:int -> xs:'a array -> 'a [] []
- val maxi : xs:'a [] -> int when 'a : comparison
- val mini : xs:'a [] -> int when 'a : comparison
- val tryGet : index:int -> xs:'a [] -> 'a option
- val ( ++ ) : xs:'a [] -> x:'a -> 'a []
- val generatePassword : unit -> String
- val toBase26 : x:int -> String
- val chunkify : n:int -> str:string -> string []
- val startLower : x:string -> string
- val startUpper : x:string -> string
- val toPrettyTitle : x:string -> string
- val levenshteinDistance : word1:string -> word2:string -> int
- val editDistance : (string -> string -> int)
- val isWord : str:string -> bool
- val isAlphaNumeric : str:string -> bool
- val isNumber : str:string -> bool
- val ofArray : xs:Char [] -> String
- val ofBytes : bytes:byte [] -> string
- val toBytes : str:string -> byte []
- val toBase64 : bytes:byte [] -> string
- val fromBase64 : str:string -> byte []
- val between :
- startToken:string -> finishToken:string -> x:string -> string option
- val indexsOf : sub:string -> str:string -> int []
- val chose : f:(char -> char option) -> str:string -> string
- val replaceBetween :
- start:string ->
- finish:string ->
- newContent:string -> initalContent:string -> string option
- val factorial : x:int -> int
- val sumFactorial : n:int -> int
- val combine :
- x:Map<'a,'b> -> y:Map<'a,'b> -> Map<'a,'b> when 'a : comparison
- val private getDescription : enumType:Type -> enumValue:'a -> string
- val GetDescription : enumValue:'a -> string
- val GetValuesWithDescriptions : enumType:Type -> seq<'a * string>
- type private SerialAsyncExecutorInstruction =
- | ExecuteAction of Async<unit>
- | Pause of AsyncReplyChannel<unit>
- | Resume of AsyncReplyChannel<unit>
- type SerialAsyncExecutor =
- class
- new : unit -> SerialAsyncExecutor
- member ExecuteAsync : asyncAction:(unit -> Async<'b>) -> Async<'b>
- member ExecuteBlocking : asyncAction:(unit -> Async<'a>) -> 'a
- member PauseAsync : unit -> Async<unit>
- member PauseBlocking : unit -> unit
- member ResumeAsync : unit -> Async<unit>
- member ResumeBlocking : unit -> unit
- end
- type 'a Result =
- | Success of 'a
- | Failed of string
- val failf : format:Printf.StringFormat<'a,'b Result> -> 'a
- val attempt : f:(unit -> 'a) -> 'a Result
- val bind : f:('a -> 'b Result) -> x:'a Result -> 'b Result
- val map : f:('a -> 'b) -> x:'a Result -> 'b Result
- val exists :
- isoStore:IsolatedStorage.IsolatedStorageFile -> str:string -> bool
- val writeAllBytes :
- isoStore:IsolatedStorage.IsolatedStorageFile ->
- str:string -> bytes:byte [] -> unit
- val readAllBytes :
- isoStore:IsolatedStorage.IsolatedStorageFile -> str:string -> byte []
- val delete :
- isoStore:IsolatedStorage.IsolatedStorageFile -> str:string -> unit
- val initRnd : n:int -> byte []
- val toHex : xs:byte [] -> string
- val ofHex : s:string -> byte []
- val toHex : bs:byte array -> string
- val toFrame : bs:byte array -> string
- val ofStream : f:(Stream -> unit) -> byte []
- val printSize : length:int64 -> string
- module User = begin
- val private isoStore : IsolatedStorage.IsolatedStorageFile
- val exists : (string -> bool)
- val writeAllBytes : (string -> byte [] -> unit)
- val readAllBytes : (string -> byte [])
- val delete : (string -> unit)
- end
- module Application = begin
- val private isoStore : IsolatedStorage.IsolatedStorageFile
- val exists : (string -> bool)
- val writeAllBytes : (string -> byte [] -> unit)
- val readAllBytes : (string -> byte [])
- val delete : (string -> unit)
- end
- val getEmbedded : name:string -> byte []
- val tryGetEmbedded : name:string -> byte [] option
- [Loading C:\EE\Git\Permiso\Shared\Utilities.MimeTypes.fs]
- namespace FSI_0004.Tsunami.Utilities
- val mimeTypes : string []
- val getDefaultMime : fileName:string -> string
- val shouldGZip : fileName:string -> bool
- val JSON : string
- [Loading C:\EE\Git\Permiso\Shared\Utilities.Compression.fs]
- namespace FSI_0005.Tsunami.Utilities
- val compress : bytes:byte [] -> byte []
- val decompress : bytes:byte [] -> byte []
- [Loading C:\EE\Git\Permiso\Shared\Utilities.AWS.fs]
- namespace FSI_0006.Tsunami.Utilities
- module Functions = begin
- val getMetadata :
- client:Amazon.S3.AmazonS3Client ->
- bucket:string ->
- key:string -> Async<Amazon.S3.Model.GetObjectMetadataResponse>
- val tryGetObject :
- client:Amazon.S3.AmazonS3Client ->
- bucket:string ->
- key:string -> Async<Amazon.S3.Model.GetObjectResponse option>
- val tryGetObjectAsBytes :
- client:Amazon.S3.AmazonS3Client ->
- bucket:string -> key:string -> Async<byte [] option>
- val tryGetObjectToFile :
- client:Amazon.S3.AmazonS3Client ->
- bucket:string -> key:string * filename:string -> Async<bool>
- val createFolder :
- client:Amazon.S3.AmazonS3Client ->
- bucket:string -> folder:string -> Async<unit>
- val uploadContent :
- client:Amazon.S3.AmazonS3Client ->
- bucket:string ->
- key:string * contentType:string * bytes:byte [] ->
- isPublicRead:bool -> toGZip:bool -> noCache:bool -> Async<unit>
- val deleteObjects :
- client:Amazon.S3.AmazonS3Client ->
- bucket:string -> keys:string [] -> Async<Set<string> * Set<string>>
- val copyObject :
- client:Amazon.S3.AmazonS3Client ->
- sourceBucket:string ->
- sourceKey:string ->
- destinationBucket:string ->
- destinationKey:string ->
- Async<Amazon.S3.Model.CopyObjectResponse>
- val listPrefixesAndObjects :
- client:Amazon.S3.AmazonS3Client ->
- bucket:string ->
- delimiterO:string option ->
- prefix:string -> Async<string [] * Amazon.S3.Model.S3Object []>
- val deleteSub :
- client:Amazon.S3.AmazonS3Client ->
- bucket:string -> prefix:string -> Async<Set<string> * Set<string>>
- val getBuckets : client:Amazon.S3.AmazonS3Client -> Async<string []>
- val enableCORSOnBucket :
- bucketName:string ->
- client:Amazon.S3.AmazonS3 ->
- Amazon.S3.Model.PutCORSConfigurationResponse
- end
- val config : Amazon.S3.AmazonS3Config
- type HttpVerb = Amazon.S3.Model.HttpVerb
- type S3ClientBucket =
- class
- interface IDisposable
- new : client:Amazon.S3.AmazonS3Client * bucket:string -> S3ClientBucket
- new : accessKey:string * secret:string * bucket:string -> S3ClientBucket
- new : accessKey:string * secret:string * bucket:string *
- region:Amazon.RegionEndpoint -> S3ClientBucket
- member CreateFolder : folder:string -> Async<unit>
- member DeleteObject : key:string -> Async<bool>
- member
- DeleteObjects : keys:string [] -> Async<Set<string> * Set<string>>
- member DeleteSub : prefix:string -> Async<Set<string> * Set<string>>
- member EnableCORS : unit -> Amazon.S3.Model.PutCORSConfigurationResponse
- member
- GetMetadata : key:string ->
- Async<Amazon.S3.Model.GetObjectMetadataResponse>
- member
- GetPreSignedURL : key:string * ?verb:HttpVerb * ?expiry:DateTime ->
- string
- member
- ListPrefixesAndObjects : prefix:string * ?delimiterO:string ->
- Async<string [] *
- Amazon.S3.Model.S3Object []>
- member
- private TryGetObject : key:string ->
- Async<Amazon.S3.Model.GetObjectResponse option>
- member TryGetObjectAsBytes : key:string -> Async<byte [] option>
- member TryGetObjectToFile : key:string * filename:string -> Async<bool>
- member
- UploadContent : key:string * contentType:string * bytes:byte [] *
- ?isPublicReadO:bool * ?toGzipO:bool * ?noCache:bool ->
- Async<unit>
- member UploadFiles : files:(string * string) [] -> unit
- member UploadFilesNoJSCache : files:(string * string) [] -> unit
- end
- type CloudFront =
- class
- interface IDisposable
- new : distributionId:string *
- client:Amazon.CloudFront.AmazonCloudFrontClient -> CloudFront
- new : accessKey:string * secret:string * region:Amazon.RegionEndpoint *
- distributionId:string -> CloudFront
- member
- Invalidate : paths:string [] ->
- Async<Amazon.CloudFront.Model.CreateInvalidationResponse>
- member
- InvalidateAll : unit ->
- Async<Amazon.CloudFront.Model.CreateInvalidationResponse>
- end
- val getPolicy :
- bucket:string ->
- key:string -> expiration:DateTime -> isPublic:bool -> string
- val encodeAndSignPolicy :
- secretKey:string -> policy:string -> string * string
- [Loading C:\EE\Git\Permiso\Shared\Utilities.Automation.FSI.fsx]
- namespace FSI_0007.Tsunami.Utilities.Automation
- val private runProcess :
- workingDirectory:string option ->
- name:string -> envs:(string * string) [] -> args:string -> int
- val private fsi : string
- val run : path:string -> int
- val runWithDefines : path:string -> defines:string [] -> int
- [Loading C:\EE\Git\Permiso\Shared\Utilities.Automation.FSI.fsx]
- namespace FSI_0008.Tsunami.Utilities.Automation
- val private runProcess :
- workingDirectory:string option ->
- name:string -> envs:(string * string) [] -> args:string -> int
- val private fsi : string
- val run : path:string -> int
- val runWithDefines : path:string -> defines:string [] -> int
- [Loading C:\EE\Git\Permiso\Shared\Utilities.Automation.SSH.fsx]
- namespace FSI_0009.Tsunami.Utilities.Automation
- type Service =
- {install: unit -> string;
- start: unit -> string;
- stop: unit -> string;
- uninstall: unit -> string;}
- type Client =
- class
- new : computer:string * username:string * keyFilePath:string -> Client
- member getSCPClient : unit -> Renci.SshNet.ScpClient
- member getSFTPClient : unit -> Renci.SshNet.SftpClient
- member getSSHClient : unit -> Renci.SshNet.SshClient
- member getService : output:string * serviceName:string -> Service
- member runCmd : cmd:string -> string
- member uploadFiles : fileMapping:(string * string) [] -> unit
- end
- 0 of 88
- 20 of 88
- 40 of 88
- 60 of 88
- 80 of 88
- val baseDir : string = "C:\EE\Git\Permiso\BTTScripts"
- val buildDir : string = "C:\EE\Git\Permiso\BTTScripts\..\BTTServer\bin\Debug\"
- val webDir : string = "C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\"
- val portalDir : string =
- "C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"
- val assetsDir : string =
- "C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[16 chars]
- val ssh : Tsunami.Utilities.Automation.SSH.Client
- val cssFiles : (string * string) [] =
- [|("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[27 chars],
- "portal\assets\css\fullcalendar.css");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[28 chars],
- "portal\assets\css\bootstrap.min.css");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[39 chars],
- "portal\assets\css\bootstrap-responsive.min.css");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[35 chars],
- "portal\assets\css\bootstrap-datepicker.css");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[31 chars],
- "portal\assets\css\font-awesome.min.css");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[24 chars],
- "portal\assets\css\ace-fonts.css");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[24 chars],
- "portal\assets\css\cus-icons.css");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[28 chars],
- "portal\assets\css\ng-tags-input.css");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[18 chars],
- "portal\assets\css\ace.css");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[33 chars],
- "portal\assets\css\ace-responsive.min.css");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[28 chars],
- "portal\assets\css\ace-skins.min.css");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[22 chars],
- "portal\assets\css\permiso.css")|]
- val viewFiles : (string * string) [] =
- [|("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[16 chars],
- "portal\views\admin.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[27 chars],
- "portal\views\admin_activities.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[24 chars],
- "portal\views\admin_content.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[29 chars],
- "portal\views\admin_content_edit.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[20 chars],
- "portal\views\admin_css.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[24 chars],
- "portal\views\admin_domains.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[31 chars],
- "portal\views\admin_domain_pricing.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[32 chars],
- "portal\views\admin_domain_settings.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[33 chars],
- "portal\views\admin_domain_summaries.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[26 chars],
- "portal\views\admin_extractor.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[25 chars],
- "portal\views\admin_features.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[28 chars],
- "portal\views\admin_html_editor.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[26 chars],
- "portal\views\admin_js_editor.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[26 chars],
- "portal\views\admin_page_edit.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[26 chars],
- "portal\views\admin_page_list.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[30 chars],
- "portal\views\admin_plugin_editor.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[24 chars],
- "portal\views\admin_project.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[25 chars],
- "portal\views\admin_settings.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[20 chars],
- "portal\views\admin_tax.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[29 chars],
- "portal\views\admin_tax_settings.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[24 chars],
- "portal\views\admin_testing.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[32 chars],
- "portal\views\admin_travel_advisory.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[25 chars],
- "portal\views\admin_treaties.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[24 chars],
- "portal\views\admin_uploads.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[22 chars],
- "portal\views\admin_users.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[26 chars],
- "portal\views\admin_users_map.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[20 chars],
- "portal\views\analytics.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[16 chars],
- "portal\views\auth0.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[27 chars],
- "portal\views\billing_invoices.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[33 chars],
- "portal\views\billing_invoices_start.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[32 chars],
- "portal\views\billing_invoices_view.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[26 chars],
- "portal\views\billing_summary.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[19 chars],
- "portal\views\calendar.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[20 chars],
- "portal\views\countries.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[25 chars],
- "portal\views\countries_edit.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[31 chars],
- "portal\views\countries_rules_edit.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[32 chars],
- "portal\views\countrysummaries_edit.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[32 chars],
- "portal\views\countrysummaries_view.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[20 chars],
- "portal\views\dashboard.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[28 chars],
- "portal\views\dev_admin_helpers.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[28 chars],
- "portal\views\dev_admin_logging.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[27 chars],
- "portal\views\dev_admin_server.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[30 chars],
- "portal\views\dev_admin_templates.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[34 chars],
- "portal\views\domain_activities_rules.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[34 chars],
- "portal\views\domain_countrysummaries.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[31 chars],
- "portal\views\domain_loginsettings.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[22 chars],
- "portal\views\domain_menu.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[31 chars],
- "portal\views\domain_outcome_rules.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[28 chars],
- "portal\views\domain_properties.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[24 chars],
- "portal\views\domain_review.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[26 chars],
- "portal\views\domain_settings.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[28 chars],
- "portal\views\domain_subdomains.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[27 chars],
- "portal\views\domain_tax_rules.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[17 chars],
- "portal\views\extern.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[15 chars],
- "portal\views\home.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[16 chars],
- "portal\views\login.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[25 chars],
- "portal\views\mobility_users.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[20 chars],
- "portal\views\not_found.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[15 chars],
- "portal\views\page.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[21 chars],
- "portal\views\pages_list.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[20 chars],
- "portal\views\page_list.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[18 chars],
- "portal\views\profile.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[32 chars],
- "portal\views\profile_passports.bak.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[22 chars],
- "portal\views\public_page.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[18 chars],
- "portal\views\reports.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[26 chars],
- "portal\views\report_corp_tax.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[26 chars],
- "portal\views\report_location.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[21 chars],
- "portal\views\report_tax.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[19 chars],
- "portal\views\sandbox3.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[17 chars],
- "portal\views\search.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[17 chars],
- "portal\views\status.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[24 chars],
- "portal\views\substitutions.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[27 chars],
- "portal\views\template_invoice.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[33 chars],
- "portal\views\visa_assessments_start.html");
- ("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[32 chars],
- "portal\views\visa_assessments_view.html")|]
- val minFiles : (string * string) [] =
- [|("C:\EE\Git\Permiso\BTTScripts\..\PermisoClient\website\portal\"+[20 chars],
- "portal\app1457495856.min.js")|]
- val localDeployDir : string =
- "C:\EE\Git\Permiso\BTTScripts\..\BTTServer\bin\Debug\"
- val serverDeployDir : string = "C:\EE\Deploy\BTTDev\"
- val serviceName : string = "BTTServer"
- val output : string = "C:\EE\Deploy\BTTDev\BTT.exe"
- val deployEverythingToServer : unit -> unit
- val deployIncrementalToServer : unit -> unit
- val service : Tsunami.Utilities.Automation.SSH.Service =
- {install = <fun:getService@57>;
- start = <fun:getService@58-2>;
- stop = <fun:getService@59-4>;
- uninstall = <fun:getService@60-6>;}
- val accessKey : string = "AKIAI743RRV3KFAB3VHQ"
- val secret : string = "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"
- val region : Amazon.RegionEndpoint = US West (N. California) (us-west-1)
- val distributionId : string = "E8GR8VK20TIOI"
- val permisoClient : Tsunami.Utilities.AWS.S3ClientBucket
- val permisoCloudfrontClient : Tsunami.Utilities.AWS.CloudFront
- val it : unit = ()
- >
Add Comment
Please, Sign In to add comment