jmacro-rpc-happstack 0.2 → 0.2.1
raw patch · 2 files changed
+3/−2 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
Network/JMacroRPC/Happstack.hs view
@@ -20,6 +20,7 @@ > import Control.Concurrent > import Network.JMacroRPC.Base > import Text.XHtml hiding(dir)+> import Control.Monad.Trans(lift) > > jsScript f = script (primHtml f) ! [thetype "text/javascript"] > jsScript' = jsScript . show . renderJs@@ -41,7 +42,7 @@ > |]); > jRpcs = [getCounterRPC] > getCounterRPC =-> toJsonConvRPC "getCounter" $ \s -> retRight =<< modifyMVar s (\i -> return (i+1,i))+> toJsonConvRPC "getCounter" $ \s -> (lift $ retRight =<< modifyMVar s (\i -> return (i+1,i)) :: ServerPartT IO (Either String Int)) > > retRight :: a -> IO (Either String a) > retRight = return . Right
jmacro-rpc-happstack.cabal view
@@ -1,5 +1,5 @@ Name: jmacro-rpc-happstack-Version: 0.2+Version: 0.2.1 Homepage: http://patch-tag.com/r/gershomb/jmacro-rpc License: BSD3 License-file: LICENSE