happstack-dlg 0.1 → 0.1.1

raw patch · 2 files changed

+7/−10 lines, 2 filesdep −happstackPVP ok

version bump matches the API change (PVP)

Dependencies removed: happstack

API changes (from Hackage documentation)

Files

• happstack-dlg.cabal +2/−2
• src/Happstack/Server/Dialogs/Scaffold.hs +5/−8

@@ -1,5 +1,5 @@ Name:                happstack-dlg-Version:             0.1+Version:             0.1.1 Cabal-Version:       >= 1.2 Synopsis:            Cross-request user interactions for Happstack Description:         A mechanism for user interactions that extend through@@ -15,7 +15,7 @@ Build-Type:          Simple  Library-    Build-Depends:   base <5, containers, mtl, happstack,+    Build-Depends:   base <5, containers, mtl,                      happstack-server, time, random,                      template-haskell     Exposed-Modules: Happstack.Server.Dialogs,

@@ -72,20 +72,17 @@     parse  pfx   = fmap read $ parse pfx  instance (Scaffolded a, Scaffolded b) => Scaffolded (a, b) where-    render pfx (x,y) = render (pfx ++ "_1") x-                       ++ "<br>"-                       ++ render (pfx ++ "_2") y+    render pfx (x,y) = render (pfx ++ "_1") x ++ "<br>"+                    ++ render (pfx ++ "_2") y ++ "<br>"     parse  pfx       = do x <- parse (pfx ++ "_1")                           y <- parse (pfx ++ "_2")                           return (x,y)  instance (Scaffolded a, Scaffolded b, Scaffolded c)         => Scaffolded (a, b, c) where-    render pfx (x,y,z) = render (pfx ++ "_1") x-                         ++ "<br>"-                         ++ render (pfx ++ "_2") y-                         ++ "<br>"-                         ++ render (pfx ++ "_3") z+    render pfx (x,y,z) = render (pfx ++ "_1") x ++ "<br>"+                      ++ render (pfx ++ "_2") y ++ "<br>"+                      ++ render (pfx ++ "_3") z ++ "<br>"     parse  pfx       = do x <- parse (pfx ++ "_1")                           y <- parse (pfx ++ "_2")                           z <- parse (pfx ++ "_3")