yesod-form 1.6.4 → 1.6.5

raw patch · 3 files changed

+8/−3 lines, 3 files

Files

• ChangeLog.md +4/−0
• Yesod/Form/Bootstrap3.hs +3/−2
• yesod-form.cabal +1/−1

@@ -1,5 +1,9 @@ # ChangeLog for yesod-form +## 1.6.5++* Add `.sr-only` to labels in `renderBootstrap3` when they are null.+ ## 1.6.4  * Make FormResult an instance of Eq

@@ -32,6 +32,7 @@ import Control.Monad (liftM) import Data.Text (Text) import Data.String (IsString(..))+import qualified Text.Blaze.Internal as Blaze import Yesod.Core import Yesod.Form.Types import Yesod.Form.Functions@@ -154,7 +155,7 @@                 $case formLayout                   $of BootstrapBasicForm                     $if fvId view /= bootstrapSubmitId-                      <label for=#{fvId view}>#{fvLabel view}+                      <label :Blaze.null (fvLabel view):.sr-only for=#{fvId view}>#{fvLabel view}                     ^{fvInput view}                     ^{helpWidget view}                   $of BootstrapInlineForm@@ -164,7 +165,7 @@                     ^{helpWidget view}                   $of BootstrapHorizontalForm labelOffset labelSize inputOffset inputSize                     $if fvId view /= bootstrapSubmitId-                      <label .control-label .#{toOffset labelOffset} .#{toColumn labelSize} for=#{fvId view}>#{fvLabel view}+                      <label :Blaze.null (fvLabel view):.sr-only .control-label .#{toOffset labelOffset} .#{toColumn labelSize} for=#{fvId view}>#{fvLabel view}                       <div .#{toOffset inputOffset} .#{toColumn inputSize}>                         ^{fvInput view}                         ^{helpWidget view}

@@ -1,5 +1,5 @@ name:            yesod-form-version:         1.6.4+version:         1.6.5 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>