maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(users/Profpatsch/whatcd-resolver): add simple settings

Browse source 
For now just a setting whether we want to use freeleech tokens.

Change-Id: I1c0228031df8c79c2ec26ec5bdfef6dde1cb373e
Reviewed-on: https://cl.tvl.fyi/c/depot/+/13007
Tested-by: BuildkiteCI
Reviewed-by: Profpatsch <mail@profpatsch.de>
This commit is contained in:
Profpatsch 2025-01-16 20:18:34 +01:00
parent 3e5b3b82a6
commit 3953fd7030
6 changed files with 286 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

20
users/Profpatsch/htmx-experiment/src/HtmxExperiment.hs
View file

@ -18,7 +18,6 @@ import Data.Maybe qualified as Maybe
import Data.Monoid qualified as Monoid
import Data.Text qualified as Text
import FieldParser hiding (nonEmpty)
import GHC.TypeLits (KnownSymbol, symbolVal)
import IHP.HSX.QQ (hsx)
import Label
import Multipart2 (FormValidation (FormValidation), FormValidationResult, MultipartParseT, failFormValidation)
@ -152,12 +151,6 @@ fixed route handler inner = Router $ \from -> \case
-- [final] | route == final -> (Just handler, label @route (Handler from))
-- _ -> (Nothing, label @route handler)
-- | Get the text of a symbol via TypeApplications
symbolText :: forall sym. KnownSymbol sym => Text
symbolText = do
symbolVal (Proxy :: Proxy sym)
& stringToText
main :: IO ()
main = runStderrLoggingT @IO $ do
withRunInIO @(LoggingT IO) $ \runInIO -> do
@ -208,7 +201,7 @@ main = runStderrLoggingT @IO $ do
parsePostBody ::
(MonadIO m, MonadThrow m, MonadLogger m) =>
MultipartParseT backend m b ->
MultipartParseT m b ->
Wai.Request ->
m b
parsePostBody parser req =
@ -333,18 +326,17 @@ registerForm validationErrors =
|]
registerFormValidate ::
Applicative m =>
(Applicative m) =>
MultipartParseT
w
m
(FormValidation (T2 "email" ByteString "password" ByteString))
registerFormValidate = do
let emailFP = FieldParser $ \b ->
if
| Bytes.elem (charToWordUnsafe '@') b -> Right b
| otherwise -> Left [fmt|This is not an email address: "{b & bytesToTextUtf8Unsafe}"|]
| Bytes.elem (charToWordUnsafe '@') b -> Right b
| otherwise -> Left [fmt|This is not an email address: "{b & bytesToTextUtf8Unsafe}"|]
getCompose @(MultipartParseT _ _) @FormValidation $ do
getCompose @(MultipartParseT _) @FormValidation $ do
email <- Compose $ Multipart.fieldLabel' @"email" "email" emailFP
password <-
aEqB
@ -364,7 +356,7 @@ registerFormValidate = do
pure $ if compare == validate then Just validate else Nothing
-- | A lifted version of 'Data.Maybe.fromMaybe'.
fromMaybeS :: Selective f => f a -> f (Maybe a) -> f a
fromMaybeS :: (Selective f) => f a -> f (Maybe a) -> f a
fromMaybeS ifNothing fma =
select
( fma <&> \case