{"header":{"message":"Rename Ananke -> Quixotic, project reboot.","description":null,"timestamp":"2014-10-19T16:23:52Z","authors":[{"email":"kris@simpleenergy.com","name":"Kris Nuttycombe"}]},"hash":"64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","authors":[],"deps":{"hashes":[["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["AA",null],["RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC","Replacing Snap with Scotty."],["TJEUE7TYDFZQL4E5LUVEEIPOIM3AN3PCV4NWODGDCOXSN4KON74QC","Added OverloadedStrings to eliminate Text fiddling."],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."],["Y35QCWYW2OTZ27ZVTH2BA3XJTUCJ2WMLKU32ZCOCDY3AW7TIZXRAC","Minor improvement in WorkIndex type to eliminate duplicated information."],["2OIPAQCBDIUJBXB4K2QVP3IEBIUOCQHSWSWFVMVSVZC7GHX2VK7AC","Merge branch 'master' of github.com:nuttycom/ananke"],["EQXRXRZDYCM7BDAVBOXQYPG6C7IJT3OFGNIXCDAHJJBRKAXNGL7AC","Changed to use tasty instead of test-framework"],["2KZPOGRBY6KBMO76F55ZKIVOLSG3O63VP3RHRZVANXYT3OLZ3OWQC","Once you get Haskell to compile, the tests pass!"],["T44T2PDLUBJBWMPWG3IYLXOJON6PKDIJFOTKA4ZL2UCOSZNQCUMAC","Rename trust.txt to README.md"],["NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","Initial failing tests."],["GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","Added JSON serialization to TimeLog"],["7DBNV3GV773FH5ZLQWFX4RBOS4Q3CIK2RYZNNABY3ZOETYZCXRNQC","Initial, stack-based impl of time log event reduction."],["4QX5E5ACVN57KJLCWOM4JEI6JSV4XZNCWVYPOTKSOMUW3SOMCNJAC","Initial compilation of payouts function succeeds."],["NMWWP4ZNOKHZKSJ6F5KYEREWXXR5F4UD35WOKI3EH42AZWVCTCJAC","Trying out Hspec"],["N4NDAZYTLSI2W22KT3SYXL257DBMSH3UT2BXOYM7LH7FSZAY4RLAC","Initial implementation of payouts."],["AXKKXBWN4EMUOLV43WN52JSKJPBV7TLSGLNJW5EZXHSJNKCYUWOQC","Initial attempt at writing down my ideas for a company based on trust."],["P6NR2CGXCWAW6GXXSIXCGOBIRAS2BM4LEM6D5ADPN4IL7TMW6UVAC","Beginning of implementation of depreciation."]],"deps":["RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC"],"known":["AXKKXBWN4EMUOLV43WN52JSKJPBV7TLSGLNJW5EZXHSJNKCYUWOQC","ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","T44T2PDLUBJBWMPWG3IYLXOJON6PKDIJFOTKA4ZL2UCOSZNQCUMAC","EQXRXRZDYCM7BDAVBOXQYPG6C7IJT3OFGNIXCDAHJJBRKAXNGL7AC","7DBNV3GV773FH5ZLQWFX4RBOS4Q3CIK2RYZNNABY3ZOETYZCXRNQC","2KZPOGRBY6KBMO76F55ZKIVOLSG3O63VP3RHRZVANXYT3OLZ3OWQC","N4NDAZYTLSI2W22KT3SYXL257DBMSH3UT2BXOYM7LH7FSZAY4RLAC","4QX5E5ACVN57KJLCWOM4JEI6JSV4XZNCWVYPOTKSOMUW3SOMCNJAC","Y35QCWYW2OTZ27ZVTH2BA3XJTUCJ2WMLKU32ZCOCDY3AW7TIZXRAC","TJEUE7TYDFZQL4E5LUVEEIPOIM3AN3PCV4NWODGDCOXSN4KON74QC","NMWWP4ZNOKHZKSJ6F5KYEREWXXR5F4UD35WOKI3EH42AZWVCTCJAC","P6NR2CGXCWAW6GXXSIXCGOBIRAS2BM4LEM6D5ADPN4IL7TMW6UVAC","GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","2OIPAQCBDIUJBXB4K2QVP3IEBIUOCQHSWSWFVMVSVZC7GHX2VK7AC"]},"hunks":[{"FileDel":{"deleted_names":[{"basename":"ananke.cabal","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2},"to":{"change":3,"start":2388,"end":2424},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2424},"to":{"change":3,"start":213,"end":213},"introduced_by":3}],"inode":{"change":3,"pos":213}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":213},"to":{"change":3,"start":214,"end":267},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":267},"to":{"change":3,"start":14,"end":225},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":225},"to":{"change":3,"start":356,"end":395},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":356},"to":{"change":3,"start":356,"end":395},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":395},"to":{"change":3,"start":226,"end":302},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":302},"to":{"change":3,"start":467,"end":554},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":467},"to":{"change":3,"start":467,"end":554},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":2,"pos":30},"to":{"change":3,"start":693,"end":694},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":693},"to":{"change":3,"start":693,"end":694},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":694},"to":{"change":3,"start":43,"end":85},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":2,"pos":67},"to":{"change":3,"start":85,"end":111},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":85},"to":{"change":3,"start":85,"end":111},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":2,"pos":650},"to":{"change":3,"start":180,"end":181},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":180},"to":{"change":3,"start":180,"end":181},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":742},"to":{"change":3,"start":1,"end":17},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":17},"to":{"change":3,"start":546,"end":621},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":546},"to":{"change":3,"start":546,"end":621},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":621},"to":{"change":2,"start":651,"end":687},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":687},"to":{"change":3,"start":621,"end":648},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":621},"to":{"change":3,"start":621,"end":648},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":648},"to":{"change":3,"start":18,"end":48},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":87},"to":{"change":3,"start":801,"end":802},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":837},"to":{"change":3,"start":801,"end":802},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":2,"pos":964},"to":{"change":3,"start":801,"end":802},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":801},"to":{"change":3,"start":801,"end":802},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":802},"to":{"change":3,"start":838,"end":897},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":897},"to":{"change":2,"start":965,"end":1001},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":1001},"to":{"change":3,"start":897,"end":956},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":897},"to":{"change":3,"start":897,"end":956},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":956},"to":{"change":2,"start":1002,"end":1276},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":48},"to":{"change":2,"start":688,"end":964},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":111},"to":{"change":2,"start":68,"end":650},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":85},"to":{"change":2,"start":31,"end":67},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":554},"to":{"change":2,"start":1,"end":30},"introduced_by":2}],"inode":{"change":3,"pos":213}},"content":[{"Del":"Name: ananke\nVersion: 0.1\n"},{"Del":"Synopsis: The Ananke Collaboration Platform\nDescription: A service to enable groups of trusted contributors to be paid for their efforts in collaboratively developing commercial applications.\n"},{"Del":"License: AllRightsReserved\n"},{"Del":"Author: Kris Nuttycombe\nMaintainer: kris@hylotech.com\n"},{"Del":"Stability: Experimental\nCategory: Web\nBuild-type: Simple\n"},{"Del":"\n"},{"Del":"library\n default-language: Haskell2010\n"},{"Del":" hs-source-dirs: src\n"},{"Del":"\n"},{"Del":"Test-Suite spec\n"},{"Del":" default-language: Haskell2010\n type: exitcode-stdio-1.0\n"},{"Del":" ghc-options: -Wall -Werror\n"},{"Del":" hs-source-dirs: test\n"},{"Del":" main-is: Spec.hs\n"},{"Del":"\n"},{"Del":"Executable ananke-server\n default-language: Haskell2010\n"},{"Del":" ghc-options: -Wall -Werror\n"},{"Del":" hs-source-dirs: server\n main-is: Main.hs\n"},{"Del":" build-depends: base\n , text\n , time\n , mtl\n , bytestring >= 0.9.1 && < 0.11\n , scotty >=0.7 && <0.8\n , sqlite == 0.5.2.2\n , ananke\n"},{"Del":" build-depends: base\n , hspec >= 1.8.1\n , ananke\n , aeson\n , bifunctors\n , containers\n , iso8601-time\n , text\n , time\n"},{"Del":" exposed-modules: Ananke\n Ananke.TimeLog\n Ananke.Interval\n build-depends: base >= 4.4 && < 5\n , lens >= 3.7.6 && < 3.11\n , bifunctors\n , aeson >= 0.7.0.2\n , text >= 0.11 && < 0.12\n , time >= 1.1 && < 1.5\n , iso8601-time == 0.1.1\n , containers == 0.5.*\n"},{"Del":" ghc-options: -Wall -Werror\n"},{"Del":"Cabal-version: >= 1.20\n"}]}},{"FileAdd":{"meta":{"basename":"quixotic.cabal","metadata":0},"context":[{"change":3,"pos":2}],"contents":[{"Add":"Name: quixotic"},{"Add":"Version: 0.1"},{"Add":"Synopsis: The Quixotic Collaboration Platform"},{"Add":"Description: A service to enable groups of trusted contributors to be paid for their efforts "},{"Add":" in collaboratively developing commercial applications."},{"Add":"License: AllRightsReserved"},{"Add":"Author: Kris Nuttycombe"},{"Add":"Maintainer: kris@nutty.lang"},{"Add":"Stability: Experimental"},{"Add":"Category: Web"},{"Add":"Build-type: Simple"},{"Add":"Cabal-version: >= 1.20"},{"Add":""},{"Add":"library"},{"Add":" default-language: Haskell2010"},{"Add":" ghc-options: -Wall -Werror"},{"Add":" hs-source-dirs: src"},{"Add":" exposed-modules: Quixotic"},{"Add":" Quixotic.Database"},{"Add":" Quixotic.Database.SQLite"},{"Add":" Quixotic.Interval"},{"Add":" Quixotic.TimeLog"},{"Add":" build-depends: base >= 4.7.0.1"},{"Add":" , bifunctors"},{"Add":" , aeson >= 0.8.0.2"},{"Add":" , cassandra-cql >= 0.4.0.1"},{"Add":" , containers >= 0.5.5.1"},{"Add":" , either >= 4.3.1"},{"Add":" , lens >= 4.4.0.2"},{"Add":" , old-locale"},{"Add":" , sqlite == 0.5.2.2"},{"Add":" , text >= 1.2.0.0"},{"Add":" , time >= 1.4.2 && < 1.5"},{"Add":""},{"Add":"Test-Suite spec"},{"Add":" default-language: Haskell2010"},{"Add":" type: exitcode-stdio-1.0"},{"Add":" ghc-options: -Wall -Werror"},{"Add":" hs-source-dirs: test"},{"Add":" main-is: Spec.hs"},{"Add":" build-depends: quixotic"},{"Add":" , base"},{"Add":" , aeson"},{"Add":" , containers"},{"Add":" , text"},{"Add":" , time"},{"Add":" , hspec >= 1.8.1"},{"Add":""},{"Add":"Executable quixotic-server"},{"Add":" default-language: Haskell2010"},{"Add":" ghc-options: -Wall -Werror"},{"Add":" hs-source-dirs: server"},{"Add":" main-is: Main.hs"},{"Add":" build-depends: quixotic"},{"Add":" , base"},{"Add":" , aeson"},{"Add":" , containers"},{"Add":" , either"},{"Add":" , mtl"},{"Add":" , text"},{"Add":" , time"},{"Add":" , optparse-applicative >= 0.9.0 && < 0.10"},{"Add":" , bytestring >= 0.9.1 && < 0.11"},{"Add":" , scotty >= 0.9.0"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":5,"ins":{"up_context":[{"change":3,"pos":5260}],"down_context":[{"change":2,"pos":1363}],"flag":"BLOCK","start":2315,"end":2567,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5260},"to":{"change":2,"start":1341,"end":1363},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"import Control.Monad"},{"Add":"import Control.Monad.Trans (liftIO)"},{"Add":"import Control.Monad.Trans.Either"},{"Add":"import qualified Data.Aeson as A"},{"Add":"import Data.Map"},{"Add":"import Data.Time.Clock"},{"Add":"import Data.Time.Format"},{"Add":"import Quixotic"},{"Add":"import Quixotic.Database"},{"Add":"import Quixotic.TimeLog"}],"del_contents":[{"Del":"import Data.Text.Lazy\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":16,"ins":{"up_context":[{"change":2,"pos":1381}],"down_context":[{"change":3,"pos":5492}],"flag":"BLOCK","start":2568,"end":2593,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":1381},"to":{"change":2,"start":1381,"end":1477},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":""},{"Add":"port :: Int"},{"Add":"port = 8028"}],"del_contents":[{"Del":"import Data.Time.Clock\nimport Database.SQLite\nimport Control.Monad.Trans (liftIO)\nimport Ananke\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":21,"ins":{"up_context":[{"change":2,"pos":1492}],"down_context":[{"change":2,"pos":1579}],"flag":"BLOCK","start":2594,"end":2644,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":1492},"to":{"change":2,"start":1492,"end":1579},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":""},{"Add":"dbMain :: a -> ADB a -> IO ()"},{"Add":"dbMain db adb = do"}],"del_contents":[{"Del":"main = do\n db <- openConnection \"ananke.db\"\n _ <- defineTableOpt db True eventTable\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":32,"ins":{"up_context":[{"change":2,"pos":1816}],"down_context":[{"change":3,"pos":5695}],"flag":"BLOCK","start":2645,"end":2767,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":1816},"to":{"change":2,"start":1816,"end":1977},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":" post \"/logStart/:btcAddr\" $ handleLogRequest adb StartWork"},{"Add":" post \"/logEnd/:btcAddr\" $ handleLogRequest db StopWork"}],"del_contents":[{"Del":" post \"/logStart/:btcAddr\" $ do\n addr <- param \"btcAddr\"\n timestamp <- liftIO getCurrentTime\n liftIO $ recordStart db (btcAddr addr) timestamp\n"}]}},{"Edit":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":35,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":5696}],"down_context":[{"change":3,"pos":5717}],"flag":"BLOCK","start":2768,"end":2808,"inode":{"change":3,"pos":5188}}},"contents":[{"Add":" get \"/payouts\" $ currentPayouts adb"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":37,"ins":{"up_context":[{"change":3,"pos":5718}],"down_context":[{"change":3,"pos":6062}],"flag":"BLOCK","start":2809,"end":3037,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5718},"to":{"change":2,"start":1978,"end":2061},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"handleLogRequest :: ADB a -> (UTCTime -> WorkEvent) -> ActionM ()"},{"Add":"handleLogRequest db ev = do "},{"Add":" BtcAddrParam addr <- param \"btcAddr\""},{"Add":" timestamp <- liftIO getCurrentTime"},{"Add":" liftIO . recordEvent db $ LogEntry addr (ev timestamp)"}],"del_contents":[{"Del":"recordStart :: SQLiteHandle -> BtcAddr -> UTCTime -> IO ()\nrecordStart = undefined\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":43,"ins":{"up_context":[{"change":3,"pos":6063}],"down_context":[{"change":3,"pos":6168}],"flag":"BLOCK","start":3038,"end":3259,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6063},"to":{"change":2,"start":2062,"end":2086},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"currentPayouts :: ADB a -> ActionM ()"},{"Add":"currentPayouts db = do "},{"Add":" ptime <- liftIO getCurrentTime"},{"Add":" let dep = linearDepreciation (Months 6) (Months 60) "},{"Add":" widx <- undefined "},{"Add":" json . PayoutsResponse $ payouts dep ptime widx"}],"del_contents":[{"Del":"port :: Int\nport = 8028\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":50,"ins":{"up_context":[{"change":3,"pos":6169}],"down_context":[{"change":3,"pos":8456}],"flag":"BLOCK","start":3260,"end":3305,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6169},"to":{"change":2,"start":2087,"end":2339},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":2339},"to":{"change":3,"start":6169,"end":6170},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6169},"to":{"change":3,"start":6169,"end":6170},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6170},"to":{"change":2,"start":2340,"end":2399},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"newtype BtcAddrParam = BtcAddrParam BtcAddr "}],"del_contents":[{"Del":"eventTable :: SQLTable\neventTable = Table \"workEvents\" [ Column \"btcAddr\" (SQLVarChar 256) []\n , Column \"event\" (SQLVarChar 64) []\n , Column \"eventTime\" (SQLDateTime DATETIME) [] ] []\n"},{"Del":"\n"},{"Del":"newtype BtcAddrParam = BtcAddrParam { btcAddr :: BtcAddr }\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":53,"ins":{"up_context":[{"change":2,"pos":2437}],"down_context":[{"change":3,"pos":8536}],"flag":"BLOCK","start":3306,"end":3465,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":2437},"to":{"change":2,"start":2437,"end":2542},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":" parseParam t = maybe (Left \"Invalid BTC address\") (Right . BtcAddrParam) $ (parseBtcAddr . LT.toStrict) t"},{"Add":""},{"Add":"newtype PayoutsResponse = PayoutsResponse Payouts"}],"del_contents":[{"Del":" parseParam t = maybe (Left \"Invalid BTC address\") (Right . BtcAddrParam) $ (parseBtcAddr . toStrict) t\n"}]}},{"Edit":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":57,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":8537}],"down_context":[],"flag":"BLOCK","start":3466,"end":3566,"inode":{"change":3,"pos":5188}}},"contents":[{"Add":"instance A.ToJSON PayoutsResponse where"},{"Add":" toJSON (PayoutsResponse p) = A.toJSON (mapKeys address p)"}]}},{"FileDel":{"deleted_names":[{"basename":"Ananke","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":4286},"to":{"change":3,"start":827,"end":844},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":844},"to":{"change":3,"start":826,"end":826},"introduced_by":3}],"inode":{"change":3,"pos":826}}},"content_edges":null,"content":[]}},{"FileAdd":{"meta":{"basename":"Quixotic","metadata":576},"context":[{"change":3,"pos":4286}],"contents":[]}},{"FileAdd":{"meta":{"basename":"Database","metadata":576},"context":[{"change":0,"pos":3568}],"contents":[]}},{"FileAdd":{"meta":{"basename":"SQLite.hs","metadata":0},"context":[{"change":0,"pos":3590}],"contents":[{"Add":"module Quixotic.Database.SQLite (sqliteADB) where"},{"Add":""},{"Add":"import Control.Monad"},{"Add":"import Control.Monad.Trans.Either"},{"Add":"import qualified Data.Text as T"},{"Add":"import Data.Time.Clock"},{"Add":"import Data.Time.Format"},{"Add":"import Database.SQLite"},{"Add":"import Quixotic"},{"Add":"import qualified Quixotic.Database as D"},{"Add":"import Quixotic.TimeLog"},{"Add":"import System.Locale"},{"Add":""},{"Add":"sqliteADB :: String -> IO (D.ADB IO SQLiteHandle)"},{"Add":"sqliteADB dbName = do"},{"Add":" db <- openConnection \"quixotic.db\""},{"Add":" return $ D.ADB recordEvent readWorkIndex "},{"Add":""},{"Add":"recordEvent :: SQLiteHandle -> LogEntry -> IO ()"},{"Add":"recordEvent h (LogEntry ba ev) = "},{"Add":" void $ insertRow h \"workEvents\" [ (\"btcAddr\", T.unpack (address ba))"},{"Add":" , (\"event\", eventName ev)"},{"Add":" , (\"eventTime\", formatSqlTime (logTime ev)) ]"},{"Add":""},{"Add":"readWorkIndex :: SQLiteHandle -> EitherT String IO WorkIndex"},{"Add":"readWorkIndex db = do"},{"Add":" rows <- EitherT $ execStatement db \"SELECT btcAddr, event, eventTime from workEvents\""},{"Add":" undefined"},{"Add":""},{"Add":"formatSqlTime :: UTCTime -> String"},{"Add":"formatSqlTime t = formatTime defaultTimeLocale \"%c\" t"},{"Add":""},{"Add":"eventTable :: SQLTable"},{"Add":"eventTable = Table \"workEvents\" [ Column \"btcAddr\" (SQLVarChar 256) []"},{"Add":" , Column \"event\" (SQLVarChar 64) []"},{"Add":" , Column \"eventTime\" (SQLDateTime DATETIME) [] ] []"},{"Add":""}]}},{"FileAdd":{"meta":{"basename":"Database.hs","metadata":0},"context":[{"change":0,"pos":3568}],"contents":[{"Add":"module Quixotic.Database "},{"Add":" ( ADB(..)"},{"Add":" ) where"},{"Add":""},{"Add":"import Control.Monad.Trans.Either"},{"Add":"import Quixotic.TimeLog"},{"Add":""},{"Add":"data ADB m a = ADB "},{"Add":" { recordEvent :: a -> LogEntry -> m ()"},{"Add":" , readWorkIndex :: a -> EitherT String m WorkIndex"},{"Add":" }"}]}},{"FileMove":{"meta":{"basename":"Interval.hs","metadata":0},"old":[{"basename":"Interval.hs","metadata":0}],"up":[{"change":0,"pos":3568}],"down":[{"change":3,"pos":1422}],"show_perms":false}},{"Replacement":{"inode":{"change":3,"pos":1422},"path":"src/Quixotic/Interval.hs","line":1,"ins":{"up_context":[{"change":3,"pos":1422}],"down_context":[{"change":3,"pos":3}],"flag":"BLOCK","start":5237,"end":5263,"inode":{"change":3,"pos":1422}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1422},"to":{"change":3,"start":1423,"end":1447},"introduced_by":3}],"inode":{"change":3,"pos":1422}},"ins_contents":[{"Add":"module Quixotic.Interval "}],"del_contents":[{"Del":"module Ananke.Interval \n"}]}},{"FileMove":{"meta":{"basename":"TimeLog.hs","metadata":0},"old":[{"basename":"TimeLog.hs","metadata":0}],"up":[{"change":0,"pos":3568}],"down":[{"change":3,"pos":846}],"show_perms":false}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"src/Quixotic/TimeLog.hs","line":3,"ins":{"up_context":[{"change":3,"pos":884}],"down_context":[{"change":3,"pos":907}],"flag":"BLOCK","start":5300,"end":5325,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":884},"to":{"change":3,"start":884,"end":907},"introduced_by":3}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":"module Quixotic.TimeLog "}],"del_contents":[{"Del":"module Ananke.TimeLog \n"}]}},{"Edit":{"inode":{"change":3,"pos":846},"path":"src/Quixotic/TimeLog.hs","line":9,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":24}],"down_context":[{"change":3,"pos":961}],"flag":"BLOCK","start":5326,"end":5371,"inode":{"change":3,"pos":846}}},"contents":[{"Add":" , Months(Months)"},{"Add":" , Payouts"},{"Add":" , eventName"}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"src/Quixotic/TimeLog.hs","line":17,"ins":{"up_context":[{"change":3,"pos":998}],"down_context":[{"change":3,"pos":4}],"flag":"BLOCK","start":5372,"end":5413,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":998},"to":{"change":3,"start":998,"end":1012},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1012},"to":{"change":3,"start":1785,"end":1808},"introduced_by":3}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":"import Quixotic"},{"Add":"import Quixotic.Interval"}],"del_contents":[{"Del":"import Ananke\n"},{"Del":"import Ananke.Interval\n"}]}},{"Edit":{"inode":{"change":3,"pos":846},"path":"src/Quixotic/TimeLog.hs","line":33,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":2736}],"down_context":[{"change":3,"pos":1282}],"flag":"BLOCK","start":5414,"end":5515,"inode":{"change":3,"pos":846}}},"contents":[{"Add":""},{"Add":"eventName :: WorkEvent -> String"},{"Add":"eventName (StartWork _) = \"start\""},{"Add":"eventName (StopWork _) = \"stop\""}]}},{"FileMove":{"meta":{"basename":"Quixotic.hs","metadata":0},"old":[{"basename":"Ananke.hs","metadata":0}],"up":[{"change":3,"pos":4286}],"down":[{"change":3,"pos":2457}],"show_perms":false}},{"Replacement":{"inode":{"change":3,"pos":2457},"path":"src/Quixotic.hs","line":1,"ins":{"up_context":[{"change":3,"pos":2457}],"down_context":[{"change":3,"pos":2472}],"flag":"BLOCK","start":5553,"end":5569,"inode":{"change":3,"pos":2457}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2457},"to":{"change":3,"start":2458,"end":2472},"introduced_by":3}],"inode":{"change":3,"pos":2457}},"ins_contents":[{"Add":"module Quixotic"}],"del_contents":[{"Del":"module Ananke\n"}]}},{"Replacement":{"inode":{"change":3,"pos":3665},"path":"test/Ananke/TimeLogSpec.hs","line":3,"ins":{"up_context":[{"change":3,"pos":149}],"down_context":[{"change":3,"pos":2656}],"flag":"BLOCK","start":5573,"end":5607,"inode":{"change":3,"pos":3665}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":149},"to":{"change":3,"start":149,"end":181},"introduced_by":3}],"inode":{"change":3,"pos":3665}},"ins_contents":[{"Add":"module Quixotic.TimeLogSpec where"}],"del_contents":[{"Del":"module Ananke.TimeLogSpec where\n"}]}},{"Replacement":{"inode":{"change":3,"pos":3665},"path":"test/Ananke/TimeLogSpec.hs","line":6,"ins":{"up_context":[{"change":3,"pos":200}],"down_context":[{"change":3,"pos":269}],"flag":"BLOCK","start":5608,"end":5683,"inode":{"change":3,"pos":3665}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":200},"to":{"change":3,"start":200,"end":269},"introduced_by":3}],"inode":{"change":3,"pos":3665}},"ins_contents":[{"Add":"import Quixotic"},{"Add":"import Quixotic.Interval as I"},{"Add":"import Quixotic.TimeLog as L"}],"del_contents":[{"Del":"import Ananke\nimport Ananke.Interval as I\nimport Ananke.TimeLog as L\n"}]}}],"owner":"nuttycom","repo":"aftok","token":"gHejlev29o85y5VdyIp4I9PK3cb+PACU7pVVvzGWlg4=","login":null}

…

Dependencies

Change contents