all repos

onasty @ a640069

a one-time notes service
4 files changed, 0 insertions(+), 11 deletions(-)
chore(elm-reivew): allow missing type annotation in let statements (#153)

Author: Olexandr Smirnov ss2316544@gmail.com
Committed by: GitHub noreply@github.com
Committed at: 2025-07-01 13:36:44 +0300
Parent: 62e4dde
M web/review/src/ReviewConfig.elm

@@ -7,7 +7,6 @@ import NoDebug.TodoOrToString

import NoExposingEverything import NoImportingEverything import NoMissingTypeAnnotation -import NoMissingTypeAnnotationInLetIn import NoMissingTypeExpose import NoPrematureLetComputation import NoSimpleLetBody

@@ -32,7 +31,6 @@ |> Rule.ignoreErrorsForDirectories [ "tests/" ]

, NoExposingEverything.rule , NoImportingEverything.rule [] , NoMissingTypeAnnotation.rule - , NoMissingTypeAnnotationInLetIn.rule , NoMissingTypeExpose.rule , NoSimpleLetBody.rule , NoPrematureLetComputation.rule
M web/src/Pages/Auth.elm

@@ -210,11 +210,9 @@

viewBannerSuccess : Maybe Posix -> Maybe Posix -> Html Msg viewBannerSuccess now lastClicked = let - buttonClassesBase : String buttonClassesBase = "w-full px-4 py-2 rounded-md focus:outline-none focus:ring-2 focus:ring-black focus:ring-offset-2 transition-colors mt-3" - buttonClasses : Bool -> String buttonClasses active = if active then buttonClassesBase ++ " border border-gray-300 text-gray-700 hover:bg-gray-50"

@@ -227,7 +225,6 @@ timeLeftSeconds =

case ( now, lastClicked ) of ( Just now_, Just last ) -> let - remainingMs : Int remainingMs = 30 * 1000 - (Time.posixToMillis now_ - Time.posixToMillis last) in

@@ -287,7 +284,6 @@

viewChangeVariant : Variant -> Html Msg viewChangeVariant variant = let - base : String base = "flex-1 px-4 py-2 rounded-md font-medium transition-colors"
M web/src/Pages/Home_.elm

@@ -105,7 +105,6 @@ ( { model | userClickedCopyLink = False }, Effect.none )

UserClickedSubmit -> let - expiresAt : Posix expiresAt = case ( model.now, model.expirationTime ) of ( Just now, Just expirationTime ) ->

@@ -442,7 +441,6 @@

viewCopyLinkButton : Bool -> Html Msg viewCopyLinkButton isClicked = let - base : String base = "px-4 py-2 border rounded-md focus:outline-none focus:ring-2 focus:ring-black focus:ring-offset-2 transition-colors" in
M web/src/Pages/Secret/Slug_.elm

@@ -273,14 +273,11 @@ }

-> Html Msg viewOpenNote opts = let - isDisabled : Bool isDisabled = opts.hasPassword && Maybe.withDefault "" opts.password == "" - buttonData : { text : String, class : String } buttonData = let - base : String base = "px-6 py-3 rounded-md focus:outline-none focus:ring-2 focus:ring-black focus:ring-offset-2 transition-colors" in