From b9e50633254a8c45159a6088309969872b8aae50 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 22 Mar 2022 22:52:39 +0100
Subject: Use Data.Kind.Type instead of deprecated star symbol

---
 src/Storage/Internal.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Storage')

diff --git a/src/Storage/Internal.hs b/src/Storage/Internal.hs
index 3a05029..3a53567 100644
--- a/src/Storage/Internal.hs
+++ b/src/Storage/Internal.hs
@@ -22,6 +22,7 @@ import Data.Char
 import Data.Function
 import Data.Hashable
 import qualified Data.HashTable.IO as HT
+import Data.Kind
 import Data.List
 import Data.Map (Map)
 import qualified Data.Map as M
@@ -176,7 +177,7 @@ type Complete = Identity
 type Partial = Either RefDigest
 
 class (Traversable compl, Monad compl) => StorageCompleteness compl where
-    type LoadResult compl a :: *
+    type LoadResult compl a :: Type
     returnLoadResult :: compl a -> LoadResult compl a
     ioLoadBytes :: Ref' compl -> IO (compl BL.ByteString)
 
-- 
cgit v1.2.3