nuttycom/aftok - Change 4R7XIYK3BP664CO3YJ2VM64ES2JYN27UTQG5KS34OTEPAIODSZLQC

Switch from ClassyPrelude to Relude

Created by Kris Nuttycombe on May 29, 2020

4R7XIYK3BP664CO3YJ2VM64ES2JYN27UTQG5KS34OTEPAIODSZLQC

Dependencies

In channels

main

Change contents

Insertion in aftok.cabal at line 1 [3.1]
[3.1]
[4.37]
```
cabal-version: 2.4
```
Replacement in aftok.cabal at line 7 [3.1]
∅:D[5.1008] → [3.262:295]
B:BD[3.262] → [3.262:295]
```
License:       AllRightsReserved
```
[5.1008]
[3.295]
```
License:       NONE
```
Deletion in aftok.cabal at line 13 [3.1]
B:BD[3.426] → [6.95:117]
```
Cabal-version: >= 2.0
```
Replacement in aftok.cabal at line 14 [3.1]
B:BD[3.450] → [3.450:458]
```
library
```
[3.450]
[3.458]
```
common buildenv
```

Replacement in aftok.cabal at line 17 [3.1]

B:BD[3.528] → [7.244:270]

B:BD[7.270] → [8.4:44]

  hs-source-dirs:     lib
  default-extensions: NoImplicitPrelude

[3.528]

[8.44]

  default-extensions: KindSignatures
                    , LambdaCase

Deletion in aftok.cabal at line 20 [3.1]
B:BD[8.84] → [8.84:122]
```
                    , RecordWildCards
```

Replacement in aftok.cabal at line 21 [3.1]

B:BD[8.164] → [9.80:117]

                    , KindSignatures

[8.164]

[6.118]

  build-depends:      
      base                
    , relude
  mixins: base hiding (Prelude)
        , relude (Relude as Prelude)
library
  import:             buildenv
  hs-source-dirs:     lib

Deletion in aftok.cabal at line 49 [3.1]
B:BD[10.1607] → [11.45:72]
```
      base                
```
Deletion in aftok.cabal at line 51 [3.1]
∅:D[12.14] → [11.99:126]
B:BD[11.99] → [11.99:126]
```
    , classy-prelude      
```
Insertion in aftok.cabal at line 78 [3.1]
[13.30]
[11.456]
```
    , relude
```
Replacement in aftok.cabal at line 95 [3.1]
B:BD[3.1328] → [3.1328:1362]
```
  default-language:   Haskell2010
```
[3.1328]
[3.1362]
```
  import:             buildenv
```
Deletion in aftok.cabal at line 97 [3.1]
B:BD[3.1403] → [3.1403:1439]
```
  ghc-options:        -Wall -Werror
```

Deletion in aftok.cabal at line 99 [3.1]

B:BD[3.1496] → [8.165:325]

B:BD[8.325] → [9.376:413]

  default-extensions: NoImplicitPrelude
                    , OverloadedStrings
                    , RecordWildCards
                    , ScopedTypeVariables
                    , KindSignatures

Deletion in aftok.cabal at line 107 [3.1]
∅:D[4.480] → [10.2148:2159]
B:BD[10.2148] → [10.2148:2159]
∅:D[14.2931] → [15.3090:3111]
B:BD[10.2159] → [15.3090:3111]
```
    , base
    , classy-prelude
```
Replacement in aftok.cabal at line 125 [3.1]
∅:D[4.505] → [3.1734:1768]
B:BD[3.1734] → [3.1734:1768]
```
  default-language:   Haskell2010
```
[4.505]
[3.1768]
```
  import:             buildenv
```

Deletion in aftok.cabal at line 128 [3.1]

B:BD[3.1833] → [8.326:486]

B:BD[8.486] → [9.414:451]

  default-extensions: NoImplicitPrelude
                    , OverloadedStrings
                    , RecordWildCards
                    , ScopedTypeVariables
                    , KindSignatures

Deletion in aftok.cabal at line 144 [3.1]
∅:D[4.518] → [16.1266:1277]
B:BD[17.71] → [16.1266:1277]
```
    , base
```
Deletion in aftok.cabal at line 150 [3.1]
∅:D[18.55] → [19.1144:1177]
∅:D[9.758] → [19.1144:1177]
B:BD[8.504] → [19.1144:1177]
```
    , classy-prelude            
```

Replacement in aftok.cabal at line 184 [3.1]

B:BD[20.396] → [20.396:466]

  default-language:   Haskell2010
  ghc-options:        -Wall -Werror

[20.396]

[20.466]

  import:             buildenv

Deletion in aftok.cabal at line 186 [3.1]

B:BD[20.495] → [20.495:692]

  default-extensions: NoImplicitPrelude
                    , OverloadedStrings
                    , RecordWildCards
                    , ScopedTypeVariables
                    , KindSignatures

Deletion in aftok.cabal at line 192 [3.1]
B:BD[20.823] → [20.823:834]
```
    , base
```
Deletion in aftok.cabal at line 198 [3.1]
B:BD[20.929] → [20.929:962]
```
    , classy-prelude            
```
Deletion in daemon/AftokD/AftokM.hs at line 7 [20.1458]
B:BD[20.1643] → [6.405:426]
```
import ClassyPrelude
```
Insertion in daemon/AftokD/AftokM.hs at line 8 [20.1458]
[20.1666]
[20.1666]
Replacement in daemon/AftokD/AftokM.hs at line 21 [20.1458]
B:BD[20.2209] → [20.2209:2238]
```
import Data.Thyme.Time  as T
```
[20.2209]
[6.427]
```
import Data.Thyme.Time  as C
import qualified Data.Text as T
```

Replacement in daemon/AftokD/AftokM.hs at line 124 [20.1458]

B:BD[20.6219] → [20.6219:6326]

  let billTemplate = (newSTMP . unpack) <$> req ^. (subscription . billable . paymentRequestEmailTemplate)

[20.6219]

[20.6326]

  let billTemplate = (newSTMP . T.unpack) <$> req ^. (subscription . billable . paymentRequestEmailTemplate)

Replacement in daemon/AftokD/AftokM.hs at line 137 [20.1458]

B:BD[20.6975] → [20.6975:7078]

            , ("amount_due", tshow $ total ^. satoshi)
            , ("payment_url", tshow paymentUrl)

[20.6975]

[20.7078]

            , ("amount_due", show $ total ^. satoshi)
            , ("payment_url", show paymentUrl)

Replacement in daemon/AftokD/AftokM.hs at line 147 [20.1458]
B:BD[6.1645] → [6.1645:1662]
```
        -> T.Day
```
[6.1645]
[6.1662]
```
        -> C.Day
```

Replacement in daemon/AftokD/AftokM.hs at line 152 [20.1458]

B:BD[20.7639] → [20.7639:7728]

  let template = (newSTMP . unpack) <$> (sub ^. (billable . paymentRequestMemoTemplate))

[20.7639]

[6.1684]

  let template = (newSTMP . T.unpack) <$> (sub ^. (billable . paymentRequestMemoTemplate))

Replacement in daemon/AftokD/AftokM.hs at line 156 [20.1458]

B:BD[20.7883] → [20.7883:7973]

        , ("billing_date", tshow billingDate)
        , ("issue_time", tshow requestTime)

[20.7883]

[20.7973]

        , ("billing_date", show billingDate)
        , ("issue_time", show requestTime)

Replacement in daemon/AftokD/AftokM.hs at line 173 [20.1458]

B:BD[20.8505] → [20.8505:8606]

payloadGen :: Monad m => Subscription' UserId Billable -> T.Day -> C.UTCTime -> m (Maybe ByteString)

[20.8505]

[20.8606]

payloadGen :: Monad m => Subscription' UserId Billable -> C.Day -> C.UTCTime -> m (Maybe ByteString)

Deletion in daemon/AftokD.hs at line 4 [20.8674]
B:BD[20.8729] → [20.8729:8769]
```
import ClassyPrelude hiding (FilePath)
```

Replacement in daemon/AftokD.hs at line 10 [20.8674]

B:BD[20.8947] → [20.8947:9015]

import Filesystem.Path.CurrentOS (FilePath, fromText, encodeString)

[20.8947]

[20.9015]

import Filesystem.Path.CurrentOS (fromText, encodeString)
import qualified Filesystem.Path.CurrentOS as P

Replacement in daemon/AftokD.hs at line 18 [20.8674]
B:BD[20.9150] → [20.9150:9180]
```
  , _templatePath :: FilePath
```
[20.9150]
[20.9180]
```
  , _templatePath :: P.FilePath
```
Replacement in daemon/AftokD.hs at line 31 [20.8674]
B:BD[20.9458] → [20.9458:9494]
```
loadConfig :: FilePath -> IO Config
```
[20.9458]
[6.1749]
```
loadConfig :: P.FilePath -> IO Config
```
Insertion in daemon/Main.hs at line 2 [20.10159]
[20.10199]
[20.10199]
```
{-# LANGUAGE TypeApplications      #-}
```
Replacement in daemon/Main.hs at line 5 [20.10159]
B:BD[20.10225] → [20.10225:10246]
```
import ClassyPrelude
```
[20.10225]
[20.10246]
Insertion in daemon/Main.hs at line 7 [20.10159]
[20.10247]
[20.10247]
```
import Control.Exception (try)
```
Insertion in daemon/Main.hs at line 9 [20.10159]
[20.10293]
[20.10293]
```
import System.IO.Error            (IOError)
```
Replacement in daemon/Main.hs at line 15 [20.10159]
B:BD[20.10420] → [20.10420:10435]
```
main :: IO () 
```
[20.10420]
[20.10435]
```
main :: IO ()
```

Replacement in daemon/Main.hs at line 17 [20.10159]

B:BD[20.10445] → [20.10445:10513]

  cfgPath <- try $ getEnv "AFTOK_CFG" :: IO (Either IOError String)

[20.10445]

[20.10513]

  cfgPath <- try @IOError $ getEnv "AFTOK_CFG"

Deletion in lib/Aftok/Auction.hs at line 5 [21.5084]
B:BD[21.5192] → [6.1857:1901]
```
import           ClassyPrelude hiding (rem)
```
Deletion in lib/Aftok/Auction.hs at line 6 [21.5084]
B:BD[22.64] → [23.15:52]
```
import           Control.Monad.State
```

Replacement in lib/Aftok/Auction.hs at line 78 [21.5084]

B:BD[24.228] → [6.2464:2737]

          let winFraction rem = rem % (bid ^. bidAmount . satoshi)
              remainderSeconds (Satoshi rem) = Seconds . round $ winFraction rem * fromIntegral (bid ^. bidSeconds)
              adjustBid rem = bid & bidSeconds .~ remainderSeconds rem & bidAmount .~ rem

[24.228]

[6.2737]

          let winFraction r = r % (bid ^. bidAmount . satoshi)
              remainderSeconds (Satoshi r) = Seconds . round $ winFraction r * fromIntegral (bid ^. bidSeconds)
              adjustBid r = bid & bidSeconds .~ remainderSeconds r & bidAmount .~ r

Replacement in lib/Aftok/Auction.hs at line 103 [21.5084]

B:BD[23.763] → [6.3047:3222]

      let winFraction rem = rem % (bid ^. bidAmount . satoshi)
          remainderSeconds (Satoshi rem) = Seconds . round $ winFraction rem * fromIntegral (bid ^. bidSeconds)

[23.763]

[6.3222]

      let winFraction r = r % (bid ^. bidAmount . satoshi)
          remainderSeconds (Satoshi r) = Seconds . round $ winFraction r * fromIntegral (bid ^. bidSeconds)

Deletion in lib/Aftok/Billables.hs at line 9 [9.760]
B:BD[9.825] → [9.825:856]
```
import           ClassyPrelude
```
Insertion in lib/Aftok/Billables.hs at line 10 [9.760]
[9.857]
[25.110]
Deletion in lib/Aftok/Config.hs at line 4 [20.10763]
B:BD[20.10824] → [20.10824:10874]
```
import           ClassyPrelude hiding (FilePath)
```

Replacement in lib/Aftok/Config.hs at line 11 [20.10763]

B:BD[6.3625] → [6.3625:3703]

import           Filesystem.Path.CurrentOS (FilePath, fromText, encodeString)

[6.3625]

[20.11258]

import           Filesystem.Path.CurrentOS (fromText, encodeString)
import qualified Filesystem.Path.CurrentOS as P
import           Safe (headMay)

Replacement in lib/Aftok/Config.hs at line 32 [20.10763]

∅:D[6.3792] → [20.11728:11808]

B:BD[20.11728] → [20.11728:11808]

  , _signingKeyFile         :: FilePath
  , _certsFile              :: FilePath

[6.3792]

[20.11808]

  , _signingKeyFile         :: P.FilePath
  , _certsFile              :: P.FilePath

Replacement in lib/Aftok/Currency/Bitcoin.hs at line 7 [6.4272]
B:BD[6.4443] → [6.4443:4474]
```
import           ClassyPrelude
```
[6.4443]
[6.4474]
Deletion in lib/Aftok/Database/PostgreSQL/Types.hs at line 3 [6.6073]
B:BD[6.6120] → [6.6120:6188]
```
import           ClassyPrelude                        hiding (null)
```
Insertion in lib/Aftok/Database/PostgreSQL.hs at line 3 [26.456]
[22.937]
[20.13497]
```
{-# LANGUAGE LambdaCase                 #-}
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 8 [26.456]

B:BD[26.623] → [6.6666:6734]

import           ClassyPrelude                        hiding (null)

[26.623]

[22.969]

import           Prelude                              hiding (null)

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 28 [26.456]
[27.65]
[26.1011]
```
import           Safe                                 (headMay)
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 196 [26.456]

B:BD[11.3624] → [25.1153:1250]

∅:D[25.1250] → [28.2107:2168]

B:BD[11.3727] → [28.2107:2168]

B:BD[28.2168] → [25.1251:1420]

      prec "annually" = nullField *> pure B.Annually
      prec "monthly"  = B.Monthly <$> field
      --prec "semimonthly" = nullField *> pure B.SemiMonthly
      prec "weekly"   = B.Weekly <$> field
      prec "onetime"  = nullField *> pure B.OneTime
      prec s          = fail $ "Unrecognized recurrence type: " ++ show s

[11.3624]

[11.3920]

      prec = \case
        "annually" -> nullField *> pure B.Annually
        "monthly"  -> B.Monthly <$> field
        --"semimonthly" = nullField *> pure B.SemiMonthly
        "weekly"   -> B.Weekly <$> field
        "onetime"  -> nullField *> pure B.OneTime
        _          -> empty

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 215 [26.456]

B:BD[29.263] → [29.263:338]

                 <*> ((either fail pure . runGet decodeMessage) =<< field)

[29.263]

[29.338]

                 <*> ((either (const empty) pure . runGet decodeMessage) =<< field)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 223 [26.456]

B:BD[28.2624] → [28.2624:2692]

          <*> (field >>= (either fail pure . runGet decodeMessage))

[28.2624]

[28.2692]

          <*> (field >>= (either (const empty) pure . runGet decodeMessage))

Replacement in lib/Aftok/Database.hs at line 10 [3.4936]
B:BD[3.4986] → [30.112:143]
```
import           ClassyPrelude
```
[3.4986]
[20.24463]
Insertion in lib/Aftok/Database.hs at line 16 [3.4936]
[31.1410]
[26.6576]
```
import           Safe (headMay)
```
Deletion in lib/Aftok/Interval.hs at line 10 [32.1422]
B:BD[32.1494] → [22.3658:3689]
```
import           ClassyPrelude
```
Insertion in lib/Aftok/Interval.hs at line 11 [32.1422]
[33.1727]
[22.3690]

Deletion in lib/Aftok/Json.hs at line 11 [34.19]

B:BD[34.156] → [6.20419:20510]

import           ClassyPrelude                    hiding (Day, fail, fromEitherM, UTCTime)

Insertion in lib/Aftok/Json.hs at line 27 [34.19]
[9.5025]
[25.2070]
```
import qualified Data.Text.Encoding               as T
```

Replacement in lib/Aftok/Json.hs at line 57 [34.19]

B:BD[6.20940] → [6.20940:21035]

printVersion Version{..} = T.intercalate "." $ fmap (pack . show) [majorVersion, minorVersion]

[6.20940]

[33.2225]

printVersion Version{..} = T.intercalate "." $ fmap (T.pack . show) [majorVersion, minorVersion]

Replacement in lib/Aftok/Json.hs at line 88 [34.19]

B:BD[35.803] → [6.21626:21704]

  vers   <- fromEitherM fail $ PC.parseOnly versionParser (encodeUtf8 verstr)

[35.803]

[35.804]

  vers   <- fromEitherM fail $ PC.parseOnly versionParser (T.encodeUtf8 verstr)

Replacement in lib/Aftok/Json.hs at line 108 [34.19]

B:BD[6.21727] → [6.21727:21820]

  const . fail $ "Unrecognized " <> name <> " schema version: " <> unpack (printVersion ver)

[6.21727]

[36.5114]

  const . fail $ "Unrecognized " <> name <> " schema version: " <> T.unpack (printVersion ver)

Replacement in lib/Aftok/Json.hs at line 137 [34.19]

B:BD[35.1445] → [35.1445:1508]

      , "initiator"      .= tshow (p ^. (P.initiator._UserId))

[35.1445]

[35.1508]

      , "initiator"      .= (p ^. P.initiator . _UserId)

Replacement in lib/Aftok/Json.hs at line 155 [34.19]
B:BD[37.533] → [35.1759:1802]
```
  obj [ "bidId" .= tshow (pid ^. _BidId) ]
```
[37.533]
[6.21865]
```
  obj [ "bidId" .= (pid ^. _BidId) ]
```

Replacement in lib/Aftok/Json.hs at line 184 [34.19]

B:BD[6.22744] → [6.22744:22838]

    (fail . unpack $ "Address " <> addrText <> " cannot be parsed as a BTC network address.")

[6.22744]

[6.22838]

    (fail . T.unpack $ "Address " <> addrText <> " cannot be parsed as a BTC network address.")

Replacement in lib/Aftok/Json.hs at line 329 [34.19]

∅:D[6.25331] → [31.2803:2890]

B:BD[31.2803] → [31.2803:2890]

    prBytes = (paymentRequest . to (decodeUtf8 . B64.encode . runPut . encodeMessage))

[6.25331]

[18.4011]

    prBytes = paymentRequest . to (T.decodeUtf8 . B64.encode . runPut . encodeMessage)

Replacement in lib/Aftok/Json.hs at line 354 [34.19]

∅:D[6.25340] → [31.3027:3110]

B:BD[31.3027] → [31.3027:3110]

    paymentBytes = payment . to (decodeUtf8 . B64.encode . runPut . encodeMessage)

[6.25340]

[38.2430]

    paymentBytes = payment . to (T.decodeUtf8 . B64.encode . runPut . encodeMessage)

Replacement in lib/Aftok/Json.hs at line 387 [34.19]

B:BD[35.4292] → [6.26000:26082]

      parseA tid = fail . unpack $ "Amendment type " <> tid <> " not recognized."

[35.4292]

[39.1328]

      parseA tid = fail . T.unpack $ "Amendment type " <> tid <> " not recognized."

Replacement in lib/Aftok/Json.hs at line 400 [34.19]

B:BD[35.4637] → [6.26379:26462]

      parseA tid = fail . unpack  $ "Amendment type " <> tid <> " not recognized."

[35.4637]

[39.1363]

      parseA tid = fail . T.unpack  $ "Amendment type " <> tid <> " not recognized."

Deletion in lib/Aftok/Payments/Types.hs at line 9 [11.10545]
B:BD[11.10615] → [11.10615:10646]
```
import           ClassyPrelude
```
Insertion in lib/Aftok/Payments/Types.hs at line 10 [11.10545]
[11.10647]
[29.1902]

Replacement in lib/Aftok/Payments/Types.hs at line 15 [11.10545]

B:BD[29.2019] → [29.2019:2064]

import           Data.Thyme.Time        as T

[29.2019]

[11.10746]

import           Data.Thyme.Time        as C
import qualified Data.Text              as T

Replacement in lib/Aftok/Payments/Types.hs at line 42 [11.10545]
B:BD[28.6833] → [28.6833:6866]
```
  , _billingDate        :: T.Day
```
[28.6833]
[28.6866]
```
  , _billingDate        :: C.Day
```
Replacement in lib/Aftok/Payments/Types.hs at line 65 [11.10545]
∅:D[25.2509] → [28.7170:7223]
B:BD[28.7170] → [28.7170:7223]
```
  let check = any ((now >) . T.toThyme . expiryTime)
```
[25.2509]
[25.2510]
```
  let check = any ((now >) . C.toThyme . expiryTime)
```

Replacement in lib/Aftok/Payments/Types.hs at line 68 [11.10545]

B:BD[28.7313] → [18.4707:4793]

  in  either error (check . getExpires) $ getPaymentDetails (view paymentRequest req)

[28.7313]

[25.2571]

  in  either (error . T.pack) (check . getExpires) $ getPaymentDetails (view paymentRequest req)

Deletion in lib/Aftok/Payments.hs at line 10 [9.5686]
B:BD[9.5750] → [9.5750:5781]
```
import           ClassyPrelude
```
Insertion in lib/Aftok/Payments.hs at line 11 [9.5686]
[9.5782]
[25.2715]
Deletion in lib/Aftok/Project.hs at line 5 [40.1031]
B:BD[40.1097] → [40.1097:1128]
```
import           ClassyPrelude
```
Insertion in lib/Aftok/Project.hs at line 6 [40.1031]
[40.1129]
[40.1129]
Insertion in lib/Aftok/Project.hs at line 10 [40.1031]
[9.6469]
[40.1198]
```
import qualified Data.ByteString            as BS
```
Replacement in lib/Aftok/Project.hs at line 35 [40.1031]
B:BD[40.1961] → [40.1961:1984]
```
  if length code == 32
```
[40.1961]
[40.1984]
```
  if BS.length code == 32
```
Deletion in lib/Aftok/TimeLog/Serialization.hs at line 2 [6.29337]
B:BD[6.29374] → [6.29374:29410]
```
{-# LANGUAGE NoImplicitPrelude  #-}
```
Replacement in lib/Aftok/TimeLog/Serialization.hs at line 8 [6.29337]
B:BD[6.29489] → [6.29489:29510]
```
import ClassyPrelude
```
[6.29489]
[6.29510]
Insertion in lib/Aftok/TimeLog/Serialization.hs at line 14 [6.29337]
[6.29676]
[6.29676]
```
import Data.Text           (unpack)
```
Deletion in lib/Aftok/TimeLog.hs at line 2 [41.846]
B:BD[6.30600] → [6.30600:30636]
```
{-# LANGUAGE NoImplicitPrelude  #-}
```
Deletion in lib/Aftok/Types.hs at line 2 [42.805]
B:BD[6.32395] → [6.32395:32431]
```
{-# LANGUAGE NoImplicitPrelude  #-}
```
Deletion in lib/Aftok/Util/Http.hs at line 3 [43.260]
B:BD[43.294] → [22.5325:5356]
```
import           ClassyPrelude
```
Insertion in lib/Aftok/Util/Http.hs at line 4 [43.260]
[43.317]
[22.5357]
Deletion in lib/Aftok/Util.hs at line 6 [44.10061]
B:BD[44.10116] → [22.5563:5594]
```
import           ClassyPrelude
```
Insertion in lib/Aftok/Util.hs at line 7 [44.10061]
[20.30980]
[20.30980]
Deletion in server/Aftok/QConfig.hs at line 6 [45.4500]
B:BD[45.4529] → [20.32376:32425]
```
import           ClassyPrelude hiding (FilePath)
```
Replacement in server/Aftok/QConfig.hs at line 7 [45.4500]
B:BD[45.4552] → [2.24952:24991]
```
import Control.Lens (makeLenses, (^.))
```
[45.4552]
[20.32426]
```
import           Control.Lens (makeLenses, (^.))
```

Replacement in server/Aftok/QConfig.hs at line 11 [45.4500]

B:BD[22.6698] → [2.24992:25085]

import           System.Directory              (doesFileExist, doesPathExist, listDirectory)

[22.6698]

[20.32480]

import qualified Data.List                     as L

Replacement in server/Aftok/QConfig.hs at line 13 [45.4500]

B:BD[20.32544] → [2.25086:25162]

import Filesystem.Path.CurrentOS (FilePath, fromText, encodeString, parent)

[20.32544]

[45.4736]

import           Filesystem.Path.CurrentOS (fromText, encodeString)
import qualified Filesystem.Path.CurrentOS as P

Replacement in server/Aftok/QConfig.hs at line 23 [45.4500]
B:BD[45.4863] → [2.25163:25196]
```
  { _hostname      :: ByteString
```
[45.4863]
[2.25196]
```
  { _hostname      :: C8.ByteString
```
Replacement in server/Aftok/QConfig.hs at line 25 [45.4500]
B:BD[2.25222] → [2.25222:25253]
```
  , _authSiteKey   :: FilePath
```
[2.25222]
[2.25253]
```
  , _authSiteKey   :: P.FilePath
```

Replacement in server/Aftok/QConfig.hs at line 30 [45.4500]

B:BD[2.25386] → [2.25386:25450]

  , _templatePath  :: FilePath
  , _staticAssetPath :: FilePath

[2.25386]

[46.534]

  , _templatePath  :: P.FilePath
  , _staticAssetPath :: P.FilePath

Replacement in server/Aftok/QConfig.hs at line 35 [45.4500]
B:BD[45.5085] → [20.32738:32776]
```
loadQConfig :: FilePath -> IO QConfig
```
[45.5085]
[22.7326]
```
loadQConfig :: P.FilePath -> IO QConfig
```

Deletion in server/Aftok/QConfig.hs at line 38 [45.4500]

B:BD[45.5183] → [2.25473:25962]

  cfgExists <- doesFileExist $ encodeString cfgFile
  pathExists <- doesPathExist $ encodeString cfgFile
  files <- listDirectory (encodeString $ parent cfgFile)
  putStrLn $ "Loading config from: " <> (pack . encodeString $ cfgFile)
          <> "; file exists = " <> (pack . show $ cfgExists)
          <> "; path exists = " <> (pack . show $ pathExists)
          <> "; parent dir = " <> (pack . encodeString $ parent cfgFile)
          <> "; dir contents = " <> (pack . show $ files)

Replacement in server/Aftok/QConfig.hs at line 39 [45.4500]

B:BD[20.32829] → [20.32829:32903]

B:BD[20.32903] → [2.25963:26053]

  let dbEnvCfg = pgsDefaultConfig . C8.pack <$> lookup "DATABASE_URL" env
  conf <- readQConfig cfg dbEnvCfg
  putStrLn $ "Config loaded successfully."
  pure conf

[20.32829]

[45.5321]

  let dbEnvCfg = pgsDefaultConfig . C8.pack <$> L.lookup "DATABASE_URL" env
  readQConfig cfg dbEnvCfg

Replacement in server/Aftok/Snaplet/Auctions.hs at line 9 [40.2441]
B:BD[40.2542] → [40.2542:2573]
```
import           ClassyPrelude
```
[40.2542]
[20.33151]

Replacement in server/Aftok/Snaplet/Auctions.hs at line 49 [40.2441]

B:BD[40.3470] → [40.3470:3561]

  req <- either (snapError 400 . tshow) pure $ parseEither auctionCreateParser requestBody

[40.3470]

[47.591]

  req <- either (snapError 400 . show) pure $ parseEither auctionCreateParser requestBody

Replacement in server/Aftok/Snaplet/Auctions.hs at line 59 [40.2441]

B:BD[20.33263] → [20.33263:33326]

    (snapError 404 $ "Auction not found for id " <> tshow aid)

[20.33263]

[20.33326]

    (snapError 404 $ "Auction not found for id " <> show aid)

Replacement in server/Aftok/Snaplet/Auctions.hs at line 68 [40.2441]

B:BD[37.1438] → [37.1438:1541]

  bid <- either (snapError 400 . tshow) pure $ parseEither (bidCreateParser uid timestamp) requestBody

[37.1438]

[37.1541]

  bid <- either (snapError 400 . show) pure $ parseEither (bidCreateParser uid timestamp) requestBody

Replacement in server/Aftok/Snaplet/Auth.hs at line 3 [48.203]
B:BD[48.240] → [22.7604:7635]
```
import           ClassyPrelude
```
[48.240]
[48.262]
Replacement in server/Aftok/Snaplet/Auth.hs at line 49 [48.203]
B:BD[48.2922] → [48.2922:2973]
```
    writeText $ "Access Denied: " <> tshow failure
```
[48.2922]
[48.2973]
```
    writeText $ "Access Denied: " <> show failure
```
Replacement in server/Aftok/Snaplet/Billing.hs at line 9 [20.33730]
B:BD[20.33876] → [20.33876:33907]
```
import           ClassyPrelude
```
[20.33876]
[20.33907]

Replacement in server/Aftok/Snaplet/Billing.hs at line 50 [20.33730]

B:BD[20.35259] → [20.35259:35358]

  b <- either (snapError 400 . tshow) pure $ parseEither (parseCreateBillable uid pid) requestBody

[20.35259]

[20.35358]

  b <- either (snapError 400 . show) pure $ parseEither (parseCreateBillable uid pid) requestBody

Deletion in server/Aftok/Snaplet/Payments.hs at line 9 [9.9762]
B:BD[9.9800] → [20.35870:35902]
```
import           ClassyPrelude 
```
Insertion in server/Aftok/Snaplet/Payments.hs at line 10 [9.9762]
[18.5783]
[20.35903]
Insertion in server/Aftok/Snaplet/Payments.hs at line 13 [9.9762]
[20.36052]
[20.36052]
```
import           Control.Exception    (try)
```
Insertion in server/Aftok/Snaplet/Payments.hs at line 18 [9.9762]
[29.3707]
[29.3707]
```
import qualified Data.Text.Encoding   as T
```
Replacement in server/Aftok/Snaplet/Payments.hs at line 31 [9.9762]
B:BD[29.3883] → [20.36099:36138]
```
import           Aftok.Payments       
```
[29.3883]
[20.36138]
```
import           Aftok.Payments
```

Replacement in server/Aftok/Snaplet/Payments.hs at line 53 [9.9762]

B:BD[29.4144] → [29.4144:4231]

          (\msg -> snapError 400 $ "Could not decode payment response: " <> tshow msg)

[29.4144]

[29.4231]

          (\msg -> snapError 400 $ "Could not decode payment response: " <> show msg)

Replacement in server/Aftok/Snaplet/Payments.hs at line 61 [9.9762]

B:BD[49.2064] → [20.36255:36358]

∅:D[20.36358] → [49.2164:2253]

B:BD[49.2164] → [49.2164:2253]

  exchResp  <- liftIO . try $ asValue =<< (withOpenSSL $ getWith opts (cfg ^. exchangeRateServiceURI))
  _ <- traverse (logError . encodeUtf8 . tshow @ HttpException) (preview _Left exchResp)

[49.2064]

[49.2253]

  exchResp  <- liftIO . try @HttpException $ asValue =<< (withOpenSSL $ getWith opts (cfg ^. exchangeRateServiceURI))
  _ <- traverse (logError . T.encodeUtf8 . show) (preview _Left exchResp)

Deletion in server/Aftok/Snaplet/Projects.hs at line 11 [43.2363]
B:BD[43.2463] → [20.36523:36572]
```
import           ClassyPrelude hiding (FilePath)
```

Replacement in server/Aftok/Snaplet/Projects.hs at line 17 [43.2363]

B:BD[30.2263] → [20.36640:36708]

import           Filesystem.Path.CurrentOS (FilePath, encodeString)

[30.2263]

import           Filesystem.Path.CurrentOS  (encodeString)
import qualified Filesystem.Path.CurrentOS  as F

Replacement in server/Aftok/Snaplet/Projects.hs at line 48 [43.2363]

B:BD[43.3231] → [50.373:446]

  cp <- either (snapError 400 . tshow) pure $ A.eitherDecode requestBody

[43.3231]

[19.8840]

  cp <- either (snapError 400 . show) pure $ A.eitherDecode requestBody

Replacement in server/Aftok/Snaplet/Projects.hs at line 62 [43.2363]

B:BD[20.36833] → [20.36833:36896]

    (snapError 404 $ "Project not found for id " <> tshow pid)

[20.36833]

[20.36896]

    (snapError 404 $ "Project not found for id " <> show pid)

Replacement in server/Aftok/Snaplet/Projects.hs at line 91 [43.2363]
B:BD[19.9688] → [20.37210:37246]
```
buildProjectInviteEmail :: FilePath
```
[19.9688]
[30.2969]
```
buildProjectInviteEmail :: F.FilePath
```
Deletion in server/Aftok/Snaplet/Users.hs at line 9 [8.3234]
B:BD[8.3487] → [22.8605:8636]
```
import           ClassyPrelude
```
Insertion in server/Aftok/Snaplet/Users.hs at line 10 [8.3234]
[8.3510]
[22.8637]
Insertion in server/Aftok/Snaplet/Users.hs at line 13 [8.3234]
[22.8708]
[22.8708]
```
import qualified Data.Map.Strict    as M
```
Replacement in server/Aftok/Snaplet/Users.hs at line 78 [8.3234]
B:BD[51.859] → [51.859:889]
```
    (lookup "invCode" params)
```
[51.859]
[22.9309]
```
    (M.lookup "invCode" params)
```
Deletion in server/Aftok/Snaplet/Util.hs at line 3 [52.4207]
B:BD[52.4244] → [22.9324:9355]
```
import           ClassyPrelude
```
Replacement in server/Aftok/Snaplet/Util.hs at line 4 [52.4207]
B:BD[52.4267] → [22.9356:9399]
```
import           Control.Monad.Trans.Maybe
```
[52.4267]
[22.9399]
Deletion in server/Aftok/Snaplet/WorkLog.hs at line 3 [8.5424]
B:BD[8.5522] → [22.9593:9624]
```
import           ClassyPrelude
```
Insertion in server/Aftok/Snaplet/WorkLog.hs at line 4 [8.5424]
[8.5545]
[22.9625]
Insertion in server/Aftok/Snaplet/WorkLog.hs at line 10 [8.5424]
[22.9730]
[22.9730]
```
import qualified Data.Text          as T
```

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 40 [8.5424]

B:BD[6.35511] → [6.35511:35606]

      snapError 400 $ "Unable to parse log entry " <> (tshow requestBody) <> ": " <> tshow err

[6.35511]

[6.35606]

      snapError 400 $ "Unable to parse log entry " <> (show requestBody) <> ": " <> show err

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 55 [8.5424]

∅:D[22.10164] → [44.12673:12756]

B:BD[44.12673] → [44.12673:12756]

      snapError 400 $ "Unable to parse bitcoin address from " <> (tshow addrBytes)

[22.10164]

[22.10165]

      snapError 400 $ "Unable to parse bitcoin address from " <> (show addrBytes)

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 85 [8.5424]

B:BD[20.37430] → [20.37430:37493]

    (snapError 400 $ "Project not found for id " <> tshow pid)

[20.37430]

[20.37493]

    (snapError 400 $ "Project not found for id " <> show pid)

Replacement in server/Aftok/Snaplet/WorkLog.hs at line 103 [8.5424]
∅:D[22.10354] → [44.13350:13377]
B:BD[44.13350] → [44.13350:13377]
```
    (snapError 400 . pack)
```
[22.10354]
[44.13377]
```
    (snapError 400 . T.pack)
```
Deletion in server/Aftok/Snaplet.hs at line 6 [8.1088]
B:BD[8.1192] → [22.10427:10458]
```
import           ClassyPrelude
```
Insertion in server/Aftok/Snaplet.hs at line 7 [8.1088]
[8.1215]
[22.10459]
Deletion in server/Aftok/Snaplet.hs at line 9 [8.1088]
B:BD[22.10489] → [22.10489:10564]
```
import           Control.Monad.Reader
import           Control.Monad.State
```

Replacement in server/Aftok/Snaplet.hs at line 52 [8.1088]

∅:D[22.11123] → [19.11678:11748]

B:BD[19.11678] → [19.11678:11748]

        snapError 403 $ tshow reason <> " (User " <> tshow uid <> ")"

[22.11123]

[22.11124]

        snapError 403 $ show reason <> " (User " <> show uid <> ")"

Replacement in server/Aftok/Snaplet.hs at line 65 [8.1088]
B:BD[8.3026] → [8.3026:3066]
```
  writeText $ ((tshow c) <> " - " <> t)
```
[8.3026]
[8.3066]
```
  writeText $ ((show c) <> " - " <> t)
```

Replacement in server/Aftok/Snaplet.hs at line 76 [8.1088]

B:BD[12.2105] → [12.2105:2190]

  maybe (snapError 400 $ "Parameter "<> tshow name <>" is required") pure maybeBytes

[12.2105]

[12.2190]

  maybe (snapError 400 $ "Parameter "<> show name <>" is required") pure maybeBytes

Replacement in server/Aftok/Snaplet.hs at line 85 [8.1088]

B:BD[12.2230] → [12.2230:2338]

    (const . snapError 400 $ "Value of parameter "<> tshow name <>" could not be parsed to a valid value.")

[12.2230]

[12.2338]

    (const . snapError 400 $ "Value of parameter "<> show name <>" could not be parsed to a valid value.")

Insertion in server/Main.hs at line 1 [53.5188]
[53.5188]
[54.129]
```
{-# LANGUAGE TypeApplications #-}
```
Deletion in server/Main.hs at line 5 [53.5188]
B:BD[16.1461] → [20.37690:37739]
∅:D[54.170] → [53.5259:5260]
∅:D[55.1340] → [53.5259:5260]
∅:D[16.1482] → [53.5259:5260]
∅:D[22.11227] → [53.5259:5260]
∅:D[20.37739] → [53.5259:5260]
B:BD[53.5259] → [53.5259:5260]
```
import           ClassyPrelude hiding (FilePath)
```
Insertion in server/Main.hs at line 6 [53.5188]
[2.26398]
[22.11228]
```
import Control.Exception (try)
```
Deletion in server/Main.hs at line 8 [53.5188]
B:BD[22.11294] → [20.37740:37783]
```
import Data.Either.Combinators (fromRight)
```
Insertion in server/Main.hs at line 12 [53.5188]
[22.11330]
[34.918]
```
import           System.IO.Error (IOError)
```

Replacement in server/Main.hs at line 37 [53.5188]

B:BD[26.8195] → [56.1662:1730]

  cfgPath <- try $ getEnv "AFTOK_CFG" :: IO (Either IOError String)

[26.8195]

[20.37887]

  cfgPath <- try @IOError $ getEnv "AFTOK_CFG"

Deletion in test/Aftok/AuctionSpec.hs at line 3 [57.89]
B:BD[57.162] → [57.162:193]
```
import           ClassyPrelude
```
Insertion in test/Aftok/AuctionSpec.hs at line 4 [57.89]
[58.543]
[58.543]
Deletion in test/Aftok/Generators.hs at line 3 [59.398]
B:BD[59.430] → [59.430:461]
```
import           ClassyPrelude
```
Insertion in test/Aftok/Generators.hs at line 4 [59.398]
[59.462]
[59.462]
Replacement in test/Aftok/PaymentsSpec.hs at line 5 [59.964]
B:BD[59.1057] → [59.1057:1088]
```
import           ClassyPrelude
```
[59.1057]
[59.1088]
Deletion in test/Aftok/TimeLogSpec.hs at line 1 [41.3665]
B:BD[41.3665] → [22.12023:12060]
```
{-# LANGUAGE NoImplicitPrelude   #-}
```
Replacement in test/Aftok/TimeLogSpec.hs at line 7 [41.3665]
B:BD[16.1660] → [22.12135:12166]
```
import           ClassyPrelude
```
[16.1660]
[60.2656]
Deletion in test/Aftok/Util/HttpSpec.hs at line 1 [43.4932]
B:BD[43.4932] → [22.12907:12944]
```
{-# LANGUAGE NoImplicitPrelude   #-}
```
Replacement in test/Aftok/Util/HttpSpec.hs at line 6 [43.4932]
B:BD[43.5046] → [22.13019:13050]
```
import           ClassyPrelude
```
[43.5046]
[43.5067]

Switch from ClassyPrelude to Relude

Dependencies

In channels

Change contents

Insertion in aftok.cabal at line 1 [3.1]

Replacement in aftok.cabal at line 7 [3.1]

Deletion in aftok.cabal at line 13 [3.1]

Replacement in aftok.cabal at line 14 [3.1]

Replacement in aftok.cabal at line 17 [3.1]

Deletion in aftok.cabal at line 20 [3.1]

Replacement in aftok.cabal at line 21 [3.1]

Deletion in aftok.cabal at line 49 [3.1]

Deletion in aftok.cabal at line 51 [3.1]

Insertion in aftok.cabal at line 78 [3.1]

Replacement in aftok.cabal at line 95 [3.1]

Deletion in aftok.cabal at line 97 [3.1]

Deletion in aftok.cabal at line 99 [3.1]

Deletion in aftok.cabal at line 107 [3.1]

Replacement in aftok.cabal at line 125 [3.1]

Deletion in aftok.cabal at line 128 [3.1]

Deletion in aftok.cabal at line 144 [3.1]

Deletion in aftok.cabal at line 150 [3.1]

Replacement in aftok.cabal at line 184 [3.1]

Deletion in aftok.cabal at line 186 [3.1]

Deletion in aftok.cabal at line 192 [3.1]

Deletion in aftok.cabal at line 198 [3.1]

Deletion in daemon/AftokD/AftokM.hs at line 7 [20.1458]

Insertion in daemon/AftokD/AftokM.hs at line 8 [20.1458]

Replacement in daemon/AftokD/AftokM.hs at line 21 [20.1458]

Replacement in daemon/AftokD/AftokM.hs at line 124 [20.1458]

Replacement in daemon/AftokD/AftokM.hs at line 137 [20.1458]

Replacement in daemon/AftokD/AftokM.hs at line 147 [20.1458]

Replacement in daemon/AftokD/AftokM.hs at line 152 [20.1458]

Replacement in daemon/AftokD/AftokM.hs at line 156 [20.1458]

Replacement in daemon/AftokD/AftokM.hs at line 173 [20.1458]

Deletion in daemon/AftokD.hs at line 4 [20.8674]

Replacement in daemon/AftokD.hs at line 10 [20.8674]

Replacement in daemon/AftokD.hs at line 18 [20.8674]

Replacement in daemon/AftokD.hs at line 31 [20.8674]

Insertion in daemon/Main.hs at line 2 [20.10159]

Replacement in daemon/Main.hs at line 5 [20.10159]

Insertion in daemon/Main.hs at line 7 [20.10159]

Insertion in daemon/Main.hs at line 9 [20.10159]

Replacement in daemon/Main.hs at line 15 [20.10159]

Replacement in daemon/Main.hs at line 17 [20.10159]

Deletion in lib/Aftok/Auction.hs at line 5 [21.5084]

Deletion in lib/Aftok/Auction.hs at line 6 [21.5084]

Replacement in lib/Aftok/Auction.hs at line 78 [21.5084]

Replacement in lib/Aftok/Auction.hs at line 103 [21.5084]

Deletion in lib/Aftok/Billables.hs at line 9 [9.760]

Insertion in lib/Aftok/Billables.hs at line 10 [9.760]

Deletion in lib/Aftok/Config.hs at line 4 [20.10763]

Replacement in lib/Aftok/Config.hs at line 11 [20.10763]

Replacement in lib/Aftok/Config.hs at line 32 [20.10763]

Replacement in lib/Aftok/Currency/Bitcoin.hs at line 7 [6.4272]

Deletion in lib/Aftok/Database/PostgreSQL/Types.hs at line 3 [6.6073]

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 3 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 8 [26.456]

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 28 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 196 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 215 [26.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 223 [26.456]

Replacement in lib/Aftok/Database.hs at line 10 [3.4936]

Insertion in lib/Aftok/Database.hs at line 16 [3.4936]

Deletion in lib/Aftok/Interval.hs at line 10 [32.1422]

Insertion in lib/Aftok/Interval.hs at line 11 [32.1422]