diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-10-13 17:08:29 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-10-13 17:08:29 -0400 |
| commit | ecc3cced065b069d2c9adddb5d9b697e67c276fe (patch) | |
| tree | bbe27697287f8aee2df0e06042ecd31ea984aede /standalone/no-th | |
| parent | 0973e09d0787f599e000da6f6970d98cbe36f2d1 (diff) | |
manual fixups of spices etc
Diffstat (limited to 'standalone/no-th')
| -rw-r--r-- | standalone/no-th/haskell-patches/yesod-form_spliced-TH.patch | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/standalone/no-th/haskell-patches/yesod-form_spliced-TH.patch b/standalone/no-th/haskell-patches/yesod-form_spliced-TH.patch index 39eae2a8e..c5662a85b 100644 --- a/standalone/no-th/haskell-patches/yesod-form_spliced-TH.patch +++ b/standalone/no-th/haskell-patches/yesod-form_spliced-TH.patch @@ -17,6 +17,16 @@ diff --git a/Yesod/Form/Bootstrap3.hs b/Yesod/Form/Bootstrap3.hs index 84e85fc..943c416 100644 --- a/Yesod/Form/Bootstrap3.hs +++ b/Yesod/Form/Bootstrap3.hs +@@ -26,6 +26,9 @@ import Data.String (IsString(..)) + import Yesod.Core + + import qualified Data.Text as T ++import qualified Text.Hamlet ++import qualified Text.Blaze.Internal ++import qualified Data.Foldable + + import Yesod.Form.Types + import Yesod.Form.Functions @@ -152,44 +152,144 @@ renderBootstrap3 formLayout aform fragment = do let views = views' [] has (Just _) = True @@ -104,7 +114,7 @@ index 84e85fc..943c416 100644 + Nothing; + (asWidgetT . toWidget) (fvInput view_as0a); + (asWidgetT . toWidget) (helpWidget view_as0a) } -+ BootstrapHorizontalForm labelOffset_as0b ++ ; BootstrapHorizontalForm labelOffset_as0b + labelSize_as0c + inputOffset_as0d + inputSize_as0e @@ -908,7 +918,7 @@ index c6091a9..3d7b267 100644 + ((Text.Blaze.Internal.preEscapedText . pack) "\">"); + (asWidgetT . toWidget) inside; + (asWidgetT . toWidget) -+ ((Text.Blaze.Internal.preEscapedText . pack) "</div>") } ++ ((Text.Blaze.Internal.preEscapedText . pack) "</div>") }) + + (\theId name isSel -> do { (asWidgetT . toWidget) + ((Text.Blaze.Internal.preEscapedText . pack) |