coin 1.2 → 1.2.1

raw patch · 3 files changed

+13/−15 lines, 3 files

Files

• coin.cabal +1/−1
• src/Coin/UI/Accounts/AccountsTransfer.hs +6/−11
• stack.yaml +6/−3

@@ -1,5 +1,5 @@ name:              coin-version:           1.2+version:           1.2.1 Build-Type:        Simple cabal-version:     >= 1.16 author:            Piotr Borek <piotrborek@op.pl>

@@ -200,7 +200,7 @@         entity <- historyViewGetSelected operationsView         case entity of             Just entity' -> do-                accountsTransferRemove accountsBox accountName entity'+                accountsTransferRemove entity'                 accountsTransferViewUpdate mainState operationsView accountName cal                 accountsTransferBalanceUpdate accountName balance                 name <- Gtk.labelGetText accountName@@ -286,20 +286,15 @@         update toID [AccountsTableBalance +=. (fromIntegral value)]         update fromID [AccountsTableBalance -=. (fromIntegral value)] -accountsTransferRemove :: Gtk.ComboBox -> Gtk.Label -> Entity OperationsTable -> IO ()-accountsTransferRemove accountsBox accountName entity = do-    let (Entity entityID op) = entity--    (Just toAccount) <- Gtk.comboBoxGetActiveText accountsBox-    toID <- accountsTableSelectID $ T.unpack toAccount--    fromName <- Gtk.labelGetText accountName-    fromID <- accountsTableSelectID fromName-+accountsTransferRemove :: Entity OperationsTable -> IO ()+accountsTransferRemove (Entity entityID op) =     runDB $ do         delete entityID         update toID [AccountsTableBalance -=. (fromIntegral $ operationsTableValue op)]         update fromID [AccountsTableBalance +=. (fromIntegral $ operationsTableValue op)]+  where+    toID = operationsTableTo op+    fromID = operationsTableFrom op  accountsTransferBalanceUpdate :: Gtk.Label -> Gtk.Label -> IO () accountsTransferBalanceUpdate accountName balanceLabel = do

@@ -1,5 +1,8 @@-flags: {}+flags:+  text:+    integer-simple: false packages: - '.'-extra-deps: []-resolver: lts-7.7+extra-deps:+- text-1.2.2.1+resolver: lts-8.18