Initial commit.

Author: wraithm

.gitignore

@@ -0,0 +1,28 @@
+.*.swp
+dist
+.cabal-sandbox
+cabal.sandbox.config
+.ghci
+*.o
+*.hi
+*.chi
+*.chs.h
+.virthualenv
+log
+node_modules
+.tmp
+static/bower_components
+
+# Project specifics
+users.json
+site_key.txt
+codex.tags
+tags
+fabfile.pyc
+*.tpl
+
+*.cfg
+
+# p2p picks
+guardian_linux
+PT_Prosper*

LICENSE

@@ -0,0 +1,32 @@
+'PeerTrader' is a trademark of Deck Technologies, Inc.
+
+Copyright (c) 2015, Matthew Wraith
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Matthew Wraith nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

README.md

@@ -0,0 +1,94 @@
+PeerTrader
+----------
+
+To get PeerTrader up and runnging:
+
+### Clone peertrader, notescript, and groundhog-utils repositories
+
+```
+$ git clone [email protected]:WraithM/notescript.git
+$ git clone [email protected]:WraithM/peertrader-backend.git
+$ git clone [email protected]:Soostone/groundhog-utils.git
+$ git clone [email protected]:ocharles/snaplet-ekg.git
+```
+
+### Create a cabal sandbox in notescript
+
+```
+$ cd notescript
+$ cabal sandbox init
+```
+
+
+### Create a sandbox in peertrader, link up notescript, and build
+
+```
+$ cd ../peertrader
+$ cabal sandbox init
+$ cabal sandbox add-source ../notescript
+$ cabal sandbox add-source ../groundhog-utils
+$ cabal sandbox add-source ../snaplet-ekg
+$ cabal install -j
+```
+
+(hint: It might be helpful to install Snap first. `cabal install snap -j`)
+
+### Assuming that building was successful, create a peertrader database and load the schema.
+
+Run peertrader (`.cabal-sandbox/bin/peertrader`), and the program will probably
+fail with various postgres errors. Allow peertrader to connect to postgres, and
+create the `snap_auth_user` table.
+
+```
+$ createdb peertrader
+$ createuser -s -U postgres --interactive
+$ psql -d peertrader -U postgres < sql/createtables.sql
+```
+
+### Configure your market data account
+
+Open prosper.cfg:
+
+```
+prosper {
+    apiurl = "api.prosper.com"
+    username = "[email protected]"
+    password = "ProsperAPIPassword"
+
+    log {
+        logger = "MarketData"
+        enabled = false # You can enable market data to be logged to a file
+        location = "log/prosper.log"
+        level = "DEBUG"
+    }
+}
+```
+
+Open devel.cfg:
+
+```
+groundhog {
+    host = "localhost"
+    name = "peertrader"
+    user = "postgres"
+}
+
+p2ppicks {
+    apikey = "YourAPIKey"
+    apisecret = "YourAPISecret"
+    email = "yourp2ppicksemail"
+    password = "p2ppickspassword"
+}
+```
+
+### You're ready to run PeerTrader!
+
+```
+$ .cabal-sandbox/bin/peertraderOps
+$ .cabal-sandbox/bin/peertrader -p 8000 +RTS -N
+```
+
+
+### Trademark notice
+
+'PeerTrader' is a trademark of Deck Technologies, Inc.

Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

bench/RunBench.hs

@@ -0,0 +1,62 @@
+module Main where
+
+import           Criterion.Main
+
+import           Control.Exception          as X
+import           Control.Exception.Enclosed
+import           Control.Monad.Reader
+
+import           Prosper
+import           Prosper.Monad
+
+someException :: SomeException -> IO ()
+someException _ = putStrLn "Caught some exception..."
+
+someException' :: SomeException -> Prosper ()
+someException' _ = liftIO $ putStrLn "Caught some exception..."
+
+noExceptions :: ProsperState -> IO ()
+noExceptions = runReaderT updateAllListings
+
+oldExceptions :: ProsperState -> IO ()
+oldExceptions ps = runReaderT updateAllListings ps `X.catch` someException
+
+enclosedExceptionsInside :: ProsperState -> IO ()
+enclosedExceptionsInside = runReaderT (updateAllListings `catchAny` someException')
+
+enclosedExceptionsOutside :: ProsperState -> IO ()
+enclosedExceptionsOutside ps = runReaderT updateAllListings ps `catchAny` someException
+
+foreverExceptions :: ProsperState -> IO ()
+foreverExceptions ps = replicateM_ 10 $ enclosedExceptionsOutside ps
+
+-- | This uses recursion to handle an exception, it starts a new loop.
+exceptionLoop :: Int -> ProsperState -> IO ()
+exceptionLoop 0 _ = return ()
+exceptionLoop n ps = do
+    runReaderT updateAllListings ps `catchAny` handleExceptionLoop
+    exceptionLoop (n - 1) ps
+  where
+    handleExceptionLoop :: SomeException -> IO ()
+    handleExceptionLoop _ = do
+        putStrLn "Caught some exception..."
+        exceptionLoop (n - 1) ps
+
+main :: IO ()
+main = do
+    ps <- initializeProsper "prosper.cfg"
+    defaultMain
+        [ bgroup "update"
+            [ bench "Update" (replicateM_ 10 $ noExceptions ps)
+            ]
+        , bgroup "exceptions"
+            [ bench "No exception handling" (noExceptions ps)
+            , bench "Old exception handling" (oldExceptions ps)
+            , bench "Enclosed exceptions: forever inside" (enclosedExceptionsInside ps)
+            , bench "Enclosed exceptions: forever outside" (enclosedExceptionsOutside ps)
+            ]
+        , bgroup "loop"
+            [ bench "Forever" (foreverExceptions ps)
+            , bench "Exception loop" (exceptionLoop 10 ps)
+            ]
+        ]