nuttycom/aftok - Change SQ7UMLN5WCPHIF66RO4UQVX6RSNRRZBOVZP7HEMSKP7VO6YNQPRAC

Get z-addr checks working.

Created by Kris Nuttycombe on October 11, 2020

SQ7UMLN5WCPHIF66RO4UQVX6RSNRRZBOVZP7HEMSKP7VO6YNQPRAC

Dependencies

In channels

main

Change contents

Replacement in aftok.cabal at line 17 [4.1]

B:BD[4.528] → [5.59:96]

  default-extensions: KindSignatures

[4.528]

[5.96]

  default-extensions: GADTs
                    , KindSignatures

Replacement in aftok.cabal at line 34 [4.1]

∅:D[6.154] → [7.118:156]

B:BD[8.203] → [7.118:156]

                      Aftok.Billables

[6.154]

[9.40]

                      Aftok.Billing

Deletion in aftok.cabal at line 50 [4.1]
B:BD[10.35] → [11.45:79]
```
                      Aftok.Users
```

Replacement in conf/server/aftok.cfg at line 43 [12.19]

B:BD[2.2689] → [2.2689:2739]

  zcashdHost = "aftok-zcashd"
  zcashdPort = 8232

[2.2689]

[2.2739]

  rpcHost = "aftok-zcashd"
  rpcPort = 8232
  rpcUser = "your_user"
  rpcPassword = "your_pass"

Insertion in conf/zcashd/zcash-data/zcash.conf at line 3 [2.2787]
[2.2821]
[2.2821]
```
rpcuser=your_user
rpcpassword=your_pass
```

Replacement in daemon/AftokD/AftokM.hs at line 52 [9.1458]

B:BD[13.2894] → [13.2894:2953]

import           Aftok.Billables                ( Billable

[13.2894]

[13.2953]

import           Aftok.Billing                  ( Billable

Insertion in docker-compose.yml at line 69 [14.23741]
[2.3028]
[2.3028]
```
    expose:
      - "18232"
```
Replacement in docker-compose.yml at line 72 [14.23741]
B:BD[2.3039] → [2.3039:3059]
```
      - "8232:8232"
```
[2.3039]
[2.3059]
```
      - "18232:18232"
```

File deletion: Users.hs

BF:BFD[8.679] → [11.4413:4445]

BF:BFD[11.4445] → [11.4049:4049]

B:BD[11.4049] → [11.4050:4308]

∅:D[3.4244] → [11.4365:4412]

B:BD[11.4365] → [11.4365:4412]

B:BD[11.4308] → [3.4190:4244]

module Aftok.Users
  ( RegisterOps(..)
  , RegisterError(..)
  )
  where
import           Aftok.Types (Email(..))
import           Aftok.Currency.Zcash (ZAddr, ZAddrError)
data RegisterError
  = ZAddrParseError ZAddrError
data RegisterOps m = RegisterOps
  , sendConfirmationEmail :: Email -> m ()
  }
  { parseZAddr :: Text -> m (Either ZAddrError ZAddr)

File move: Billables.hs → Billing.hs
BF:BFD[8.679] → [7.1731:1767]
BF:BF[7.1767] → [7.760:760]
[8.679]
[7.760]
Replacement in lib/Aftok/Billing.hs at line 7 [7.760]
B:BD[7.795] → [7.795:824]
```
module Aftok.Billables where
```
[7.795]
[7.824]
```
module Aftok.Billing where
```
Replacement in lib/Aftok/Currency/Zcash.hs at line 6 [11.428]
B:BD[11.519] → [11.519:538]
```
  , ZAddrError(..)
```
[11.519]
[11.538]
```
  , RPCError(..)
  , ZValidateAddressErr(..)
```
Insertion in lib/Aftok/Currency/Zcash.hs at line 9 [11.428]
[11.559]
[11.559]
```
  , Zatoshi
  , ToZatoshi(..)
  , rpcAddViewingKey
```
Insertion in lib/Aftok/Currency/Zcash.hs at line 15 [11.428]
[11.591]
[11.591]
```
import           Control.Exception              ( catch )
```
Insertion in lib/Aftok/Currency/Zcash.hs at line 17 [11.428]
[11.654]
[11.654]
```
import           Control.Monad.Trans.Except     ( except )
```

Insertion in lib/Aftok/Currency/Zcash.hs at line 26 [11.428]

[11.1037]

                                                , HttpException

Insertion in lib/Aftok/Currency/Zcash.hs at line 32 [11.428]

[11.1370]

                                                , applyBasicAuth

Insertion in lib/Aftok/Currency/Zcash.hs at line 35 [11.428]
[11.1491]
[11.1491]
```
coin :: Word64
coin = 100000000
maxMoney :: Word64
maxMoney = 21000000 * coin
```

Insertion in lib/Aftok/Currency/Zcash.hs at line 45 [11.428]

[11.1582]


newtype Zatoshi = Zatoshi Word64
  deriving (Eq, Ord, Show)
makePrisms ''Zatoshi
class ToZatoshi a where
  toZatoshi :: a -> Maybe Zatoshi

Insertion in lib/Aftok/Currency/Zcash.hs at line 53 [11.428]

[11.1583]

instance ToZatoshi Word64 where
  toZatoshi amt =
    if amt > maxMoney then Nothing else Just (Zatoshi amt)

Insertion in lib/Aftok/Currency/Zcash.hs at line 64 [11.428]
[11.1700]
[11.1700]
```
  , rpcUser :: Text
  , rpcPassword :: Text
```

Insertion in lib/Aftok/Currency/Zcash.hs at line 67 [11.428]

[11.1704]


data RPCCall a where
  ZValidateAddress  :: Text -> RPCCall ZValidateAddressResp
  ZImportViewingKey :: Text -> RPCCall ZImportViewingKeyResp

Replacement in lib/Aftok/Currency/Zcash.hs at line 72 [11.428]
B:BD[11.1705] → [11.1705:1745]
```
data ZAddrError
  = ServiceError Status
```
[11.1705]
[11.1745]
```
data RPCError e
  = HttpError HttpException
  | ServiceError Status
```

Replacement in lib/Aftok/Currency/Zcash.hs at line 76 [11.428]

B:BD[11.1767] → [11.1767:1784]

  | ZAddrInvalid

[11.1767]

[11.1784]

  | RPCError e
  deriving (Show)
toRequestBody :: RPCCall a -> Value
toRequestBody = \case
  ZValidateAddress addr -> validateZAddrRequest addr
  ZImportViewingKey vk -> importViewingKeyRequest vk
rpcEval :: A.FromJSON a => Manager -> ZcashdConfig -> RPCCall a -> ExceptT (RPCError e) IO a
rpcEval mgr cfg call = do
  let req = applyBasicAuth (T.encodeUtf8 $ rpcUser cfg) (T.encodeUtf8 $ rpcPassword cfg) $
            defaultRequest { host = T.encodeUtf8 $ zcashdHost cfg
                           , port = zcashdPort cfg
                           , method = "POST"
                           , requestBody = RequestBodyLBS . encode $ toRequestBody call
                           }
  response <- ExceptT $ catch
    (Right <$> httpLbs req mgr)
    (pure . Left . HttpError)
  let status = responseStatus response
  except $ case statusCode status of
    200 -> first ParseError $ A.eitherDecode (responseBody response)
    _   -> Left (ServiceError status)
-- Address Validation
data ZValidateAddressErr
  = ZAddrInvalid

Insertion in lib/Aftok/Currency/Zcash.hs at line 108 [11.428]

[11.1818]

  deriving (Eq, Show)
data ZValidateAddressResp = ZValidateAddressResp
  { vzrIsValid  :: Bool
  --, vzrAddress  :: Maybe Text
  , vzrAddrType :: Maybe ZAddrType
  }
instance A.FromJSON ZValidateAddressResp where
  parseJSON = parseValidateZAddrResponse

Replacement in lib/Aftok/Currency/Zcash.hs at line 127 [11.428]

B:BD[11.2054] → [11.2054:2342]

data ValidateZAddrResponse = ValidateZAddrResponse
  { isValid :: Bool
  , _address :: Maybe Text
  , addrType :: Maybe ZAddrType
  }
instance A.FromJSON ValidateZAddrResponse where
  parseJSON = parseValidateZAddrResponse
parseAddrType :: Text -> Maybe ZAddrType
parseAddrType = \case

[11.2054]

[11.2342]

decodeAddrType :: Text -> Maybe ZAddrType
decodeAddrType = \case

Replacement in lib/Aftok/Currency/Zcash.hs at line 133 [11.428]

B:BD[11.2412] → [11.2412:2480]

parseValidateZAddrResponse :: Value -> Parser ValidateZAddrResponse

[11.2412]

[11.2480]

parseAddrType :: A.Object -> Parser (Maybe ZAddrType)
parseAddrType res = do
  typeStr <- res .:? "type"
  let typeMay = decodeAddrType <$> typeStr
  traverse (maybe (fail $ "Not a recognized zaddr type: " <> show typeStr) pure) typeMay
parseValidateZAddrResponse :: Value -> Parser ZValidateAddressResp

Replacement in lib/Aftok/Currency/Zcash.hs at line 141 [11.428]

B:BD[11.2515] → [11.2515:2755]

  (A.Object v) ->
    ValidateZAddrResponse <$> v .: "isvalid"
                          <*> v .:? "address"
                          <*> ((traverse (maybe (fail "Not a recognized zaddr type") pure) . fmap parseAddrType) =<< v .:? "type")

[11.2515]

[11.2755]

  (A.Object v) -> do
    res <- v .: "result"
    ZValidateAddressResp <$> res .: "isvalid"
                         -- <*> res .:? "address"
                         <*> parseAddrType res

Insertion in lib/Aftok/Currency/Zcash.hs at line 150 [11.428]

[11.2834]

rpcValidateZAddr :: Manager -> ZcashdConfig -> Text -> IO (Either (RPCError ZValidateAddressErr) ZAddr)
rpcValidateZAddr mgr cfg addr = runExceptT $ do
  resp <- rpcEval mgr cfg (ZValidateAddress addr)
  except $ if vzrIsValid resp
    then
      case vzrAddrType resp of
        Nothing      -> Left (RPCError DataMissing)
        Just Sprout  -> Left (RPCError SproutAddress)
        Just Sapling -> Right (ZAddr addr)
    else
      Left $ RPCError ZAddrInvalid

Replacement in lib/Aftok/Currency/Zcash.hs at line 162 [11.428]

B:BD[11.2835] → [11.2835:3240]

rpcValidateZAddr :: Manager -> ZcashdConfig -> Text -> IO (Either ZAddrError ZAddr)
rpcValidateZAddr mgr cfg addr = do
  let req = defaultRequest { host = T.encodeUtf8 $ zcashdHost cfg
                           , port = zcashdPort cfg
                           , method = "POST"
                           , requestBody = RequestBodyLBS $ encode (validateZAddrRequest addr)
                           }

[11.2835]

[11.3240]

-- Viewing Keys

Replacement in lib/Aftok/Currency/Zcash.hs at line 164 [11.428]

B:BD[11.3241] → [11.3241:3782]

  response <- httpLbs req mgr
  let status = responseStatus response
  pure $ case statusCode status of
    200 ->
      case A.eitherDecode (responseBody response) of
        Left err -> Left (ParseError err)
        Right resp ->
          if isValid resp
            then
              case addrType resp of
                Just Sprout -> Left SproutAddress
                Just Sapling -> Right (ZAddr addr)
                _ -> Left DataMissing
            else
              Left ZAddrInvalid
    _ ->
      Left (ServiceError status)

[11.3241]

data ZImportViewingKeyResp = ZImportViewingKeyResp
  { addressType :: ZAddrType
  -- , address :: ZAddr
  }
parseImportViewingKeyResponse :: Value -> Parser ZImportViewingKeyResp
parseImportViewingKeyResponse = \case
  (A.Object v) -> do
    ZImportViewingKeyResp
      <$> (maybe (fail "Missing address type.") pure =<< parseAddrType v)
      -- <*> (ZAddr <$> v .: "address")
  _ ->
    fail "z_importviewingkey response body was not a valid JSON object"
instance A.FromJSON ZImportViewingKeyResp where
  parseJSON = parseImportViewingKeyResponse
data ZImportViewingKeyError
  = SproutViewingKey
importViewingKeyRequest :: Text -> Value
importViewingKeyRequest vk = object
  [ "jsonrpc" .= ("1.0" :: Text)
  , "id"      .= ("aftok-z_importviewingkey" :: Text)
  , "method"  .= ("z_importviewingkey" :: Text)
  , "params"  .= [vk, "no"] -- no need to rescan, for our purposes
  ]
rpcAddViewingKey :: Manager -> ZcashdConfig -> Text -> IO (Either (RPCError ZImportViewingKeyError) ())
rpcAddViewingKey mgr cfg vk = runExceptT $ do
  resp <- rpcEval mgr cfg (ZImportViewingKey vk)
  except $ case addressType resp of
    Sprout -> Left . RPCError $ SproutViewingKey
    Sapling -> Right ()

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 42 [15.456]
B:BD[13.14753] → [13.14753:14805]
```
import qualified Aftok.Billables               as B
```
[13.14753]
[6.6735]
```
import qualified Aftok.Billing                 as B
```
Replacement in lib/Aftok/Database.hs at line 25 [4.4936]
B:BD[13.26021] → [13.26021:26073]
```
import           Aftok.Billables               as B
```
[13.26021]
[13.26073]
```
import           Aftok.Billing                 as B
```
Replacement in lib/Aftok/Json.hs at line 44 [16.19]
B:BD[13.32326] → [13.32326:32378]
```
import qualified Aftok.Billables               as B
```
[13.32326]
[17.1326]
```
import qualified Aftok.Billing                 as B
```
Replacement in lib/Aftok/Payments/Types.hs at line 30 [18.10545]
B:BD[18.10817] → [13.40746:40805]
```
import           Aftok.Billables                ( Billable
```
[18.10817]
[13.40805]
```
import           Aftok.Billing                  ( Billable
```
Replacement in lib/Aftok/Payments.hs at line 50 [7.5686]
∅:D[19.3623] → [20.2319:2352]
∅:D[21.6794] → [20.2319:2352]
∅:D[18.12295] → [20.2319:2352]
∅:D[6.27398] → [20.2319:2352]
B:BD[7.5960] → [20.2319:2352]
```
import           Aftok.Billables
```
[21.6794]
[21.6795]
```
import           Aftok.Billing
```

Replacement in server/Aftok/QConfig.hs at line 73 [22.4500]

B:BD[11.4670] → [11.4670:4762]

  ZcashdConfig <$> C.require cfg "zcashdHost"
               <*> C.require cfg "zcashdPort"

[11.4670]

[23.7968]

  ZcashdConfig <$> C.require cfg "rpcHost"
               <*> C.require cfg "rpcPort"
               <*> C.require cfg "rpcUser"
               <*> C.require cfg "rpcPassword"

Replacement in server/Aftok/Snaplet/Billing.hs at line 20 [9.33730]
∅:D[13.48557] → [6.34368:34401]
B:BD[6.34368] → [6.34368:34401]
```
import           Aftok.Billables
```
[9.34143]
[21.14755]
```
import           Aftok.Billing
```
Replacement in server/Aftok/Snaplet/Payments.hs at line 49 [7.9762]
∅:D[9.36098] → [24.5963:5996]
∅:D[13.51517] → [24.5963:5996]
B:BD[24.5963] → [24.5963:5996]
```
import           Aftok.Billables
```
[13.51517]
[25.3851]
```
import           Aftok.Billing
```
Replacement in server/Aftok/Snaplet/Users.hs at line 18 [27.3234]
∅:D[5.5632] → [26.8637:8667]
B:BD[27.3510] → [26.8637:8667]
```
import           Control.Lens
```
[5.5632]
[28.4445]
```
import           Control.Lens                   ( makeLenses, (^.) )
```

Insertion in server/Aftok/Snaplet/Users.hs at line 23 [27.3234]

[28.4620]

                                                , (.=)

Replacement in server/Aftok/Snaplet/Users.hs at line 42 [27.3234]

B:BD[23.10432] → [3.4320:4378]

import           Aftok.Currency.Zcash           ( ZAddr )

[23.10432]

[11.4786]

import           Aftok.Currency.Zcash           ( ZAddr, RPCError, ZValidateAddressErr )

Deletion in server/Aftok/Snaplet/Users.hs at line 45 [27.3234]
B:BD[11.4948] → [11.4948:5016]
```
import           Aftok.Users                    ( RegisterOps(..) )
```

Insertion in server/Aftok/Snaplet/Users.hs at line 57 [27.3234]

[13.56003]

[11.5338]


data RegisterOps m = RegisterOps
  { validateZAddr :: Text -> m (Either (RPCError ZValidateAddressErr) ZAddr)
  , sendConfirmationEmail :: Email -> m ()
  }

Insertion in server/Aftok/Snaplet/Users.hs at line 98 [27.3234]

[29.656]

[27.4424]


data RegisterError
  = RegParseError String
  | RegCaptchaError [CaptchaError]
  | RegZAddrError (RPCError ZValidateAddressErr)
instance A.ToJSON RegisterError where
  toJSON = \case
    RegParseError msg -> A.object
      [ "parseError" .= msg ]
    RegCaptchaError e -> A.object
      [ "captchaError" .= (show e :: Text) ]
    RegZAddrError zerr -> A.object
      [ "zaddrError" .= (show zerr :: Text) ]

Replacement in server/Aftok/Snaplet/Users.hs at line 120 [27.3234]

B:BD[3.4785] → [3.4785:4852]

  zaddrEither <- liftIO $ parseZAddr ops (T.decodeUtf8 zaddrBytes)

[3.4785]

[3.4852]

  zaddrEither <- liftIO $ validateZAddr ops (T.decodeUtf8 zaddrBytes)

Deletion in server/Aftok/Snaplet/Users.hs at line 128 [27.3234]
B:BD[3.5006] → [3.5006:5007]

Replacement in server/Aftok/Snaplet/Users.hs at line 134 [27.3234]

B:BD[28.6484] → [11.5911:6061]

  let captchaFailed = throwDenied $ AU.AuthError "Captcha check failed, please try again."
  void . either (const captchaFailed) pure $ captchaResult

[28.6484]

[28.6600]

  case captchaResult of
    Left err ->
      let cmsg = "Captcha check failed, please try again."
       in snapErrorJS 400 cmsg (RegCaptchaError err)
    Right _ -> pure ()

Replacement in server/Aftok/Snaplet/Users.hs at line 145 [27.3234]
B:BD[11.6259] → [11.6259:6305]
```
      zaddrValid <- liftIO $ parseZAddr ops z
```
[11.6259]
[11.6305]
```
      zaddrValid <- liftIO $ validateZAddr ops z
```

Replacement in server/Aftok/Snaplet/Users.hs at line 147 [27.3234]

B:BD[11.6330] → [3.5010:5112]

        Left _  ->
          snapError 400 "The Z-Address provided for account recovery was invalid."

[11.6330]

[3.5112]

        Left err  ->
          let msg = "The Z-Address provided for account recovery was invalid."
           in snapErrorJS 400 msg (RegZAddrError err)

Insertion in server/Aftok/Snaplet/Users.hs at line 180 [27.3234]
[26.9320]
[30.10692]
Replacement in server/Aftok/Snaplet.hs at line 14 [27.1088]
∅:D[13.60270] → [24.6969:6996]
B:BD[24.6969] → [24.6969:6996]
```
import           Data.UUID
```
[13.60270]
[27.1324]
```
import           Data.UUID                      ( UUID, fromASCIIBytes )
```

Replacement in server/Aftok/Snaplet.hs at line 18 [27.1088]

∅:D[24.7061] → [26.10751:10826]

∅:D[6.36308] → [26.10751:10826]

∅:D[13.60405] → [26.10751:10826]

B:BD[26.10751] → [26.10751:10826]

import           Aftok.Database
import           Aftok.Database.PostgreSQL

[13.60405]

[13.60406]

import           Aftok.Database                 ( DBError(..)
                                                , DBOp
                                                , liftdb
                                                )
import           Aftok.Database.PostgreSQL      ( runQDBM )

Replacement in server/Aftok/Snaplet.hs at line 28 [27.1088]

B:BD[27.1433] → [26.10855:10882]

import           Snap.Core

[27.1433]

[18.18755]

import           Snap.Core                      ( MonadSnap
                                                , getParam
                                                , readRequestBody
                                                , setResponseCode
                                                , modifyResponse
                                                , finishWith
                                                , getResponse
                                                , writeText
                                                , writeLBS
                                                , setResponseStatus
                                                , logError
                                                )

Replacement in server/Aftok/Snaplet.hs at line 42 [27.1088]

B:BD[26.10965] → [26.10965:11050]

import           Snap.Snaplet.PostgresqlSimple
import           Snap.Snaplet.Session

[26.10965]

[27.1688]

import           Snap.Snaplet.PostgresqlSimple  ( Postgres
                                                , HasPostgres(..)
                                                , setLocalPostgresState
                                                , liftPG
                                                )
import           Snap.Snaplet.Session           ( SessionManager )

Insertion in server/Aftok/Snaplet.hs at line 49 [27.1088]
[27.1689]
[26.11051]

Replacement in server/Aftok/Snaplet.hs at line 86 [27.1088]

B:BD[27.2972] → [27.2972:3026]

B:BD[27.3026] → [5.6098:6137]

  modifyResponse $ setResponseStatus c $ encodeUtf8 t
  writeText $ ((show c) <> " - " <> t)

[27.2972]

[27.3066]

  let errBytes = encodeUtf8 t
  logError errBytes
  modifyResponse $ setResponseStatus c errBytes
  writeText (show c <> " - " <> t)
  getResponse >>= finishWith
snapErrorJS :: (A.ToJSON err, MonadSnap m) => Int -> Text -> err -> m a
snapErrorJS c t err = do
  let errBytes = A.encode err
  logError (fromLazy errBytes)
  modifyResponse $ setResponseStatus c (encodeUtf8 t)
  writeLBS errBytes

Insertion in server/Aftok/Snaplet.hs at line 100 [27.1088]
[27.3096]
[31.3802]

Replacement in server/Main.hs at line 51 [32.5188]

B:BD[11.7004] → [3.5167:5225]

  { parseZAddr = rpcValidateZAddr mgr (_zcashdConfig cfg)

[11.7004]

[11.7109]

  { validateZAddr = rpcValidateZAddr mgr (_zcashdConfig cfg)

Get z-addr checks working.

Dependencies

In channels

Change contents

Replacement in aftok.cabal at line 17 [4.1]

Replacement in aftok.cabal at line 34 [4.1]

Deletion in aftok.cabal at line 50 [4.1]

Replacement in conf/server/aftok.cfg at line 43 [12.19]

Insertion in conf/zcashd/zcash-data/zcash.conf at line 3 [2.2787]

Replacement in daemon/AftokD/AftokM.hs at line 52 [9.1458]

Insertion in docker-compose.yml at line 69 [14.23741]

Replacement in docker-compose.yml at line 72 [14.23741]

File deletion: Users.hs

File move: Billables.hs → Billing.hs

Replacement in lib/Aftok/Billing.hs at line 7 [7.760]

Replacement in lib/Aftok/Currency/Zcash.hs at line 6 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 9 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 15 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 17 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 26 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 32 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 35 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 45 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 53 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 64 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 67 [11.428]

Replacement in lib/Aftok/Currency/Zcash.hs at line 72 [11.428]

Replacement in lib/Aftok/Currency/Zcash.hs at line 76 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 108 [11.428]

Replacement in lib/Aftok/Currency/Zcash.hs at line 127 [11.428]

Replacement in lib/Aftok/Currency/Zcash.hs at line 133 [11.428]

Replacement in lib/Aftok/Currency/Zcash.hs at line 141 [11.428]

Insertion in lib/Aftok/Currency/Zcash.hs at line 150 [11.428]

Replacement in lib/Aftok/Currency/Zcash.hs at line 162 [11.428]

Replacement in lib/Aftok/Currency/Zcash.hs at line 164 [11.428]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 42 [15.456]

Replacement in lib/Aftok/Database.hs at line 25 [4.4936]

Replacement in lib/Aftok/Json.hs at line 44 [16.19]

Replacement in lib/Aftok/Payments/Types.hs at line 30 [18.10545]

Replacement in lib/Aftok/Payments.hs at line 50 [7.5686]

Replacement in server/Aftok/QConfig.hs at line 73 [22.4500]

Replacement in server/Aftok/Snaplet/Billing.hs at line 20 [9.33730]

Replacement in server/Aftok/Snaplet/Payments.hs at line 49 [7.9762]

Replacement in server/Aftok/Snaplet/Users.hs at line 18 [27.3234]

Insertion in server/Aftok/Snaplet/Users.hs at line 23 [27.3234]

Replacement in server/Aftok/Snaplet/Users.hs at line 42 [27.3234]

Deletion in server/Aftok/Snaplet/Users.hs at line 45 [27.3234]

Insertion in server/Aftok/Snaplet/Users.hs at line 57 [27.3234]

Insertion in server/Aftok/Snaplet/Users.hs at line 98 [27.3234]

Replacement in server/Aftok/Snaplet/Users.hs at line 120 [27.3234]

Deletion in server/Aftok/Snaplet/Users.hs at line 128 [27.3234]

Replacement in server/Aftok/Snaplet/Users.hs at line 134 [27.3234]

Replacement in server/Aftok/Snaplet/Users.hs at line 145 [27.3234]

Replacement in server/Aftok/Snaplet/Users.hs at line 147 [27.3234]

Insertion in server/Aftok/Snaplet/Users.hs at line 180 [27.3234]

Replacement in server/Aftok/Snaplet.hs at line 14 [27.1088]

Replacement in server/Aftok/Snaplet.hs at line 18 [27.1088]

Replacement in server/Aftok/Snaplet.hs at line 28 [27.1088]

Replacement in server/Aftok/Snaplet.hs at line 42 [27.1088]

Insertion in server/Aftok/Snaplet.hs at line 49 [27.1088]

Replacement in server/Aftok/Snaplet.hs at line 86 [27.1088]

Insertion in server/Aftok/Snaplet.hs at line 100 [27.1088]

Replacement in server/Main.hs at line 51 [32.5188]