Use Type over *

- Is warning in newer GHCs
dmjio · Feb 20, 2025 · 4eb261b · 4eb261b
1 parent e4d3489
commit 4eb261b
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Miso/TypeLevel.hs b/src/Miso/TypeLevel.hs
@@ -4,12 +4,14 @@
 {-# LANGUAGE TypeOperators #-}
 module Miso.TypeLevel ( ToServerRoutes ) where
 
-import Miso.Html
+import Data.Kind
 import Servant.API
 import Servant.HTML.Lucid
 
+import Miso.Html
+
 -- | Convert client route type to a server web handler type
-type family ToServerRoutes (layout :: k) (wrapper :: * -> *) (action :: *) :: k where
+type family ToServerRoutes (layout :: k) (wrapper :: Type -> Type) (action :: Type) :: k where
   ToServerRoutes (a :<|> b) wrapper action =
     ToServerRoutes a wrapper action :<|>
       ToServerRoutes b wrapper action