Adrift.

Dependencies

• [2] 64VI73NP Server now compiles using abstracted SQLite
• [3] ADMKQQGC Initial empty Snap project.
• [4] RSEB2NFG Replacing Snap with Scotty.
• [5] 64C6AWH6 Rename Ananke -> Quixotic, project reboot.

Change contents

• replacement in quixotic.cabal at line 23
  [3.751]→[3.751:805](∅→∅)
  − build-depends: base >= 4.7.0.1
  [3.751]

  [3.805]
  + build-depends: base
• edit in quixotic.cabal at line 63
  [3.2091]

  [3.2091]
  + , configurator == 0.2.*
• edit in server/Main.hs at line 5
  [3.5260]

  [3.2336]
  + import Control.Applicative
• edit in server/Main.hs at line 9
  [3.2439]

  [3.2439]
  + import qualified Data.Configurator as C
• edit in server/Main.hs at line 20
  [3.1381]→[3.2568:2593](∅→∅)
  −

  − port :: Int

  − port = 8028
• replacement in server/Main.hs at line 23
  [2.229]→[2.229:266](∅→∅)
  − db <- openConnection "quixotic.db"
  [2.229]

  [2.266]
  + cfg <- parseConfig "quixotic.cfg"

  + db <- openConnection $ dbName cfg
• replacement in server/Main.hs at line 26
  [2.288]→[2.288:304](∅→∅)
  − dbMain db adb
  [2.288]

  [3.2594]
  + dbMain cfg db adb
• replacement in server/Main.hs at line 28
  [3.2595]→[2.305:338](∅→∅),[2.338]→[3.2625:2644](∅→∅),[3.2625]→[3.2625:2644](∅→∅),[3.2644]→[3.1579:1598](∅→∅),[3.1579]→[3.1579:1598](∅→∅)
  − dbMain :: a -> ADB IO a -> IO ()

  − dbMain db adb = do

  − scotty port $ do
  [3.2595]

  [3.1598]
  + data QConfig

  + = QConfig

  + { port :: Int

  + , dbName :: String

  + }

  +

  + parseConfig :: FilePath -> IO QConfig

  + parseConfig cfgFile = do

  + cfg <- C.load [C.Required cfgFile]

  + QConfig <$> C.require cfg "port" <*> C.require cfg "db"

  +

  +

  + dbMain :: QConfig -> a -> ADB IO a -> IO ()

  + dbMain cfg db adb = do

  + scotty (port cfg) $ do
• replacement in server/Main.hs at line 82
  [3.3506]→[3.3506:3566](∅→∅)
  − toJSON (PayoutsResponse p) = A.toJSON (mapKeys address p)
  [3.3506]
  + toJSON (PayoutsResponse p) = A.toJSON m where

  + m :: Map T.Text Double

  + m = fmap fromRational (mapKeys address p)