continuum 0.1.0.6 → 0.1.0.7

raw patch · 4 files changed

+30/−2 lines, 4 filesnew-component:exe:continuum-client

Files

continuum.cabal +17/−1
src/Continuum/Client/Base.hs +1/−1
src/Continuum/Client/Tryout.hs +11/−0
src/Continuum/Common/Types.hs +1/−0

continuum.cabal view

@@ -1,7 +1,7 @@ name:                continuum stability:           experimental description:         Continuum Database Client-version:             0.1.0.6+version:             0.1.0.7 license:             MIT license-file:        LICENSE author:              Alex Petrov@@ -41,6 +41,22 @@                         , time                   >=1.4.2                         , mtl                    >2.1 +executable continuum-client+  hs-source-dirs:      src+  default-language:    Haskell2010+  if flag(Binaries)+    buildable:      True+  else+    buildable:      False+  build-depends:          base                   >= 4 && < 5+                        , containers             >0.5+                        , bytestring             >= 0.10.4.0+                        , cereal                 >= 0.4.0.1+                        , nanomsg-haskell        >= 0.2.2+                        , time                   >=1.4.2+                        , mtl                    >2.1++  main-is:              Continuum/Client/Tryout.hs executable continuum-server   if flag(Binaries)     buildable:      True

src/Continuum/Client/Base.hs view

@@ -29,6 +29,6 @@              -> IO (DbErrorMonad DbResult) executeQuery client query = do   let sock = (clientSocket client)-  _      <-  N.send sock (encode query)+  _      <-  N.send sock (encode (Query query))   bs     <-  N.recv sock   return $ (S.decodeDbResult bs)

+ src/Continuum/Client/Tryout.hs view

@@ -0,0 +1,11 @@+{-# LANGUAGE OverloadedStrings #-}++module Main where++import Continuum.Client.Base++main = do+  client <- connect "127.0.0.1" "5566"+  res    <- executeQuery client (FetchAll "memory")+  print $  res+  return ()

src/Continuum/Common/Types.hs view

@@ -152,6 +152,7 @@   | Distinct   | Min   | Max+  | FetchAll              ByteString   | Group                 Query   | Insert                ByteString DbRecord   | CreateDb              ByteString DbSchema