From ecc3cced065b069d2c9adddb5d9b697e67c276fe Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 13 Oct 2014 17:08:29 -0400 Subject: manual fixups of spices etc --- .../no-th/haskell-patches/yesod-form_spliced-TH.patch | 14 ++++++++++++-- 1 file 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) "") } ++ ((Text.Blaze.Internal.preEscapedText . pack) "") }) + + (\theId name isSel -> do { (asWidgetT . toWidget) + ((Text.Blaze.Internal.preEscapedText . pack) -- cgit v1.2.3