From 4174ee33a4f5f26169ec27b1dc8ffb199ce1a08a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 28 Jun 2022 15:17:41 -0400 Subject: [PATCH] avoid needing StarIsType extension Got a deprecation warning suggesting this change. Data.Kind is available since base-4.9.0.0 and git-annex depends on a newer base. --- Assistant/WebApp/Configurators/Local.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Assistant/WebApp/Configurators/Local.hs b/Assistant/WebApp/Configurators/Local.hs index 166706b130..cbbe2eac90 100644 --- a/Assistant/WebApp/Configurators/Local.hs +++ b/Assistant/WebApp/Configurators/Local.hs @@ -45,6 +45,7 @@ import qualified Data.Text as T import qualified Data.Map as M import Data.Char import Data.Ord +import Data.Kind import qualified Text.Hamlet as Hamlet data RepositoryPath = RepositoryPath Text @@ -54,7 +55,7 @@ data RepositoryPath = RepositoryPath Text - - Validates that the path entered is not empty, and is a safe value - to use as a repository. -} -repositoryPathField :: forall (m :: * -> *). (MonadIO m, HandlerSite m ~ WebApp) => Bool -> Field m Text +repositoryPathField :: forall (m :: Type -> Type). (MonadIO m, HandlerSite m ~ WebApp) => Bool -> Field m Text repositoryPathField autofocus = Field { fieldParse = \l _ -> parse l , fieldEnctype = UrlEncoded