snap-extras 0.12.2.0 → 0.12.2.1

raw patch · 4 files changed

+18/−9 lines, 4 filesdep ~aesondep ~heistdep ~snap

Dependency ranges changed: aeson, heist, snap, snap-core, wl-pprint-text

Files

• changelog.md +3/−0
• snap-extras.cabal +6/−6
• src/Snap/Extras/SpliceUtils/Interpreted.hs +6/−2
• src/Snap/Extras/Tabs.hs +3/−1

@@ -1,3 +1,6 @@+0.12.2.1+* Refactor in a few views to keep compatibility with MonadFail changes.+ 0.12.2.0 * Loosen dependencies. 

@@ -1,5 +1,5 @@ Name:                snap-extras-Version:             0.12.2.0+Version:             0.12.2.1 Synopsis:            A collection of useful helpers and utilities for Snap web applications. Description:         This package contains a collection of helper functions                      that come in handy in most practical, real-world@@ -48,7 +48,7 @@    hs-source-dirs: src   Build-depends:-      aeson                    >= 0.6   && < 1.3+      aeson                    >= 0.6   && < 1.4     , base                     >= 4     && < 5     , blaze-builder            >= 0.3   && < 0.5     , blaze-html               >= 0.6   && < 0.10@@ -62,19 +62,19 @@     , digestive-functors-snap  >= 0.3   && < 0.8     , directory-tree           >= 0.10  && < 0.13     , filepath                 >= 1.1   && < 1.5-    , heist                    >= 0.14  && < 1.1+    , heist                    >= 0.14  && < 1.2     , jmacro                   >= 0.6   && < 0.7     , lens                     < 5     , mtl                      >= 2.0   && < 2.3     , pcre-light               >= 0.4   && < 0.5     , readable                 >= 0.1   && < 0.4     , safe                     >= 0.3   && < 0.4-    , snap                     >= 0.9  && < 1.1-    , snap-core                >= 0.9   && < 1.1+    , snap                     >= 0.9  && < 1.2+    , snap-core                >= 0.9   && < 1.2     , text                     >= 0.11  && < 1.3     , time                     >= 1.4   && < 1.9     , transformers             >= 0.2   && < 0.6-    , wl-pprint-text           >= 1.1   && < 1.2+    , wl-pprint-text           >= 1.1   && < 1.3     , xmlhtml                  >= 0.1.6 && < 0.3     , map-syntax 

@@ -68,7 +68,9 @@  where    ta = do      hs <- getHS-     n@(Element t ats _) <- getParamNode+     n <- getParamNode+     -- TODO Incomplete pattern matching.+     let (Element t ats _) = n      let nm = nodeText n      case lookupSplice nm hs of        Just spl -> do@@ -146,7 +148,9 @@ -- > beta-functions-enabled = true ifFlagSplice :: SnapletISplice b ifFlagSplice = do-  Element _ ats es <- getParamNode+  e <- getParamNode+  -- TODO Incomplete pattern matching!+  let (Element _ ats es) = e   conf <- lift getSnapletUserConfig   case lookup "ref" ats of     Nothing -> return []

@@ -76,7 +76,9 @@ -- attributes in order to get ${} splice substitution. tabCSplice :: Monad m => RuntimeSplice m Text -> C.Splice m tabCSplice getCtx = do-    (Element _ attrs ch) <- getParamNode+    e <- getParamNode+    -- TODO Incomplete pattern matching!+    let (Element _ attrs ch) = e     attrsAction <- C.runAttributesRaw attrs     nodes <- C.codeGen `fmap` C.runNodeList ch     let ps as context = do