From 14e7a3a29273e8dca7d2bfd085b8c00a329140c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=92=D0=B0=D1=81=D0=B8=D0=BB=D0=B8=D0=B9=20=D0=A1=D0=B0?=
 =?UTF-8?q?=D0=BC=D0=BE=D0=B9=D0=BB=D0=BE=D0=B2?= <sambacr@gmail.com>
Date: Sun, 14 Mar 2021 12:48:25 +0700
Subject: [PATCH] Update Hlc.fs

0xff - only 8 bits
---
 src/FSharp.Core.Extensions/Hlc.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/FSharp.Core.Extensions/Hlc.fs b/src/FSharp.Core.Extensions/Hlc.fs
index 165fb27..12e61ec 100644
--- a/src/FSharp.Core.Extensions/Hlc.fs
+++ b/src/FSharp.Core.Extensions/Hlc.fs
@@ -30,7 +30,7 @@ open System
 [<RequireQualifiedAccess>]
 module Hlc =
     
-    let [<Literal>] private MASK = 0xffL    
+    let [<Literal>] private MASK = 0xffffL    
     let mutable private osTime = fun () -> DateTime.UtcNow.Ticks &&& ~~~MASK
     let mutable private highest = atom (osTime())
     let private getTime = fun t -> Math.Max(osTime (), t+1L)