snap-extras 0.11 → 0.11.0.1

raw patch · 4 files changed

+13/−7 lines, 4 filesdep −errors

Dependencies removed: errors

Files

• snap-extras.cabal +2/−3
• src/Snap/Extras/FormUtils.hs +3/−1
• src/Snap/Extras/PollStatus.hs +2/−1
• src/Snap/Extras/Tabs.hs +6/−2

@@ -1,5 +1,5 @@ Name:                snap-extras-Version:             0.11+Version:             0.11.0.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@@ -55,11 +55,10 @@     , configurator             >= 0.2   && < 0.4     , containers               >= 0.3   && < 0.6     , data-default             >= 0.5   && < 0.6-    , digestive-functors       >= 0.3   && < 0.8+    , digestive-functors       >= 0.3   && < 0.9     , digestive-functors-heist >= 0.8   && < 0.9     , digestive-functors-snap  >= 0.3   && < 0.7     , directory-tree           >= 0.10  && < 0.13-    , errors                   >= 1.4   && < 1.5     , filepath                 >= 1.1   && < 1.5     , heist                    >= 0.14  && < 0.15     , jmacro                   >= 0.6   && < 0.7

@@ -23,13 +23,15 @@     ) where  --------------------------------------------------------------------------------import           Control.Error+import           Control.Monad.Trans.Maybe import qualified Data.ByteString.Char8 as B+import           Data.Maybe import           Data.String import           Data.Text             (Text) import qualified Data.Text             as T import           Data.Text.Encoding import           Heist                 hiding (Error)+import           Safe import           Snap.Core import           Text.Digestive import qualified Text.XmlHtml          as X

@@ -92,10 +92,11 @@ import           Blaze.ByteString.Builder import qualified Blaze.ByteString.Builder.Char8 as BB import           Control.Applicative-import           Control.Error import           Control.Monad import           Control.Monad.Trans+import           Control.Monad.Trans.Maybe import           Data.ByteString                (ByteString)+import           Data.Maybe import           Data.Monoid import           Data.Readable import           Data.Text

@@ -22,11 +22,10 @@  ------------------------------------------------------------------------------- import qualified Blaze.ByteString.Builder as B-import           Control.Error import           Control.Lens import           Control.Monad import           Control.Monad.Trans-+import           Data.Maybe import           Data.Monoid import           Data.Text                (Text) import qualified Data.Text                as T@@ -234,3 +233,8 @@ ------------------------------------------------------------------------------- tlink :: Text -> Text -> Node tlink target text = X.Element "a" [("href", target)] [X.TextNode text]++-------------------------------------------------------------------------------++note :: a -> Maybe b -> Either a b+note a = maybe (Left a) Right