digestive-functors-heist 0.8.6.2 → 0.8.7.0

raw patch · 4 files changed

+10/−7 lines, 4 filesdep +map-syntaxdep ~heistPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies added: map-syntax

Dependency ranges changed: heist

API changes (from Hackage documentation)

Files

• CHANGELOG +3/−0
• digestive-functors-heist.cabal +3/−2
• src/Text/Digestive/Heist.hs +2/−2
• src/Text/Digestive/Heist/Compiled.hs +2/−3

@@ -1,3 +1,6 @@+- 0.8.7.0+    * Bump heist dependency to 1.0+ - 0.8.6.1     * Bump heist dependency to 0.14 

@@ -1,5 +1,5 @@ Name:          digestive-functors-heist-Version:       0.8.6.2+Version:       0.8.7.0 Synopsis:      Heist frontend for the digestive-functors library Description:   Heist frontend for the digestive-functors library Homepage:      http://github.com/jaspervdj/digestive-functors@@ -25,7 +25,8 @@     base               >= 4    && < 5,     blaze-builder      >= 0.3  && < 0.5,     digestive-functors >= 0.8  && < 0.9,-    heist              >= 0.13 && < 0.15,+    heist              >= 0.13 && < 1.1,+    map-syntax         >= 0.2  && < 0.3,     mtl                >= 2    && < 2.3,     text               >= 0.11 && < 1.3,     xmlhtml            >= 0.1  && < 0.3

@@ -57,6 +57,7 @@ import           Control.Monad.Trans import           Data.Function         (on) import           Data.List             (unionBy)+import           Data.Map.Syntax       ((##)) import           Data.Maybe            (fromMaybe) import           Data.Monoid           (mappend) import           Data.Text             (Text)@@ -299,9 +300,8 @@ dfInputFile view = do     (ref, attrs) <- getRefAttributes Nothing     let ref'  = absoluteRef ref view-        value = maybe "" T.pack $ fieldInputFile ref view     return $ makeElement "input" [] $ addAttrs attrs $ setDisabled ref view-        [("type", "file"), ("id", ref'), ("name", ref'), ("value", value)]+        [("type", "file"), ("id", ref'), ("name", ref')]   --------------------------------------------------------------------------------

@@ -61,6 +61,7 @@ import           Control.Monad.Trans      (MonadIO, liftIO) import           Data.Function            (on) import           Data.List                (unionBy)+import           Data.Map.Syntax          ((##)) import           Data.Monoid              (mappend, mconcat, mempty, (<>)) import           Data.Text                (Text) import qualified Data.Text                as T@@ -336,10 +337,8 @@ dfInputFile :: Monad m => RuntimeSplice m (View v) -> Splice m dfInputFile = dfMaster $ \ref attrs view -> do     let ref'  = absoluteRef ref view-        value = maybe "" T.pack $ fieldInputFile ref view         e = makeElement "input" [] $ addAttrs attrs $-            [ ("type", "file"), ("id", ref')-            , ("name", ref'), ("value", value)]+            [("type", "file"), ("id", ref'), ("name", ref')]     return $ X.renderHtmlFragment X.UTF8 e