nuttycom/aftok - Change VJPT6HDRMJAJD5PT3VOYJYW43ISKLICEHLSDWSROX2XZWO2OFZPQC

Created by Kris Nuttycombe on January 20, 2015

VJPT6HDRMJAJD5PT3VOYJYW43ISKLICEHLSDWSROX2XZWO2OFZPQC

main

Deletion in server/Main.hs at line 8 [3.5188]
B:BD[3.5260] → [4.623:643]
B:BD[4.643] → [5.1110:1165]
B:BD[5.1165] → [6.2:35]
```
import Control.Lens
import Control.Monad.Reader
import Control.Monad.State
import qualified Data.Aeson as A
```
Deletion in server/Main.hs at line 10 [3.5188]
B:BD[7.170] → [6.36:52]
∅:D[6.52] → [8.7590:7624]
B:BD[8.7590] → [8.7590:7624]
```
import Data.Map
import Database.PostgreSQL.Simple
```
Deletion in server/Main.hs at line 11 [3.5188]
∅:D[9.184] → [10.2502:2543]
∅:D[11.256] → [10.2502:2543]
∅:D[12.919] → [10.2502:2543]
B:BD[10.2502] → [10.2502:2543]
B:BD[10.2543] → [8.7625:7661]
B:BD[8.7661] → [6.53:74]
```
import Quixotic
import Quixotic.Database
import Quixotic.Database.PostgreSQL
import Quixotic.Json
```
Deletion in server/Main.hs at line 12 [3.5188]
B:BD[10.2567] → [5.1166:1188]
```
import Quixotic.Users
```
Deletion in server/Main.hs at line 22 [3.5188]
B:BD[5.1226] → [5.1226:1267]
```
import qualified Snap.Snaplet.Auth as AU
```
Deletion in server/Main.hs at line 23 [3.5188]
B:BD[8.7795] → [8.7795:7823]
```
import Snap.Snaplet.Session
```

B:BD[8.8476] → [8.8476:8526]

  qdbs  <- nestSnaplet "qdb" qdb qdbpgSnapletInit

[8.8476]

[8.8526]

  qms  <- nestSnaplet "qmodules" qm qdbpgSnapletInit

B:BD[8.8755] → [2.784:823]

  addRoutes [ ("login", loginHandler)

[8.8755]

[2.823]

  addRoutes [ ("login", loginHandler (const ok))

B:BD[8.8878] → [2.930:1047]

            , ("loggedIntervals/:btcAddr", loggedIntervalsHandler qdb)
            , ("payouts", payoutsHandler qdb)

[8.8878]

[8.8999]

            , ("loggedIntervals/:btcAddr", loggedIntervalsHandler)
            , ("payouts", payoutsHandler)