MaxGabriel

test/main.hs:(41,124)-(56,2): Splicing expression
    template-haskell-2.14.0.0:Language.Haskell.TH.Quote.quoteExp
      persistUpperCase
      "\n\
      \Person json\n\
      \    name Text\n\
      \    age Int Maybe\n\
      \    foo Foo\n\
      \    address Address\n\
      \    deriving Show Eq\n\

MaxGabriel

Testing Plan / How I Tested

• Wrote a test
• Tested locally (running SHA)
• Tested on staging (running SHA)
• Will test in production

Database

MaxGabriel

- aeson
- aeson-casing
- aeson-iproute
- aeson-pretty
- aeson-typescript
- amazonka
- amazonka-core
- amazonka-s3
- amazonka-sqs
- async

MaxGabriel

import * as P from 'parsimmon'
import Day from '~/utils/Day'
import Month from '~/utils/Month'

const shortMonths = {
  jan: 1,
  feb: 2,
  mar: 3,
  apr: 4,
  may: 5,

MaxGabriel

❄️  ✔︎ ~/D/M/h/mercury-web-backend> cabal build                                                                                                                                        15:31:54
Warning: The package list for 'hackage.haskell.org' does not exist. Run 'cabal
update' to download it.
Resolving dependencies...
Configuring mercury-web-backend-0.0.0...
clang-5.0: warning: argument unused during compilation: '-nopie' [-Wunused-command-line-argument]
Preprocessing library for mercury-web-backend-0.0.0..
Building library for mercury-web-backend-0.0.0..
[  1 of 141] Compiling AWS.Types        ( src/AWS/Types.hs, dist/build/AWS/Types.o )
stgEqType: unequal

MaxGabriel

[
    "qwertyuiop",
    "1234567890",
    "q1w2e3r4t5",
    "1q2w3e4r5t",
    "4815162342",
    "0987654321",
    "12345qwert",
    "123456789a",
    "1234554321",

MaxGabriel

derivePostgresEnum :: String -> String -> Q [Dec]
derivePostgresEnum s postgresType = do
    ss <- [|SqlOther (pack postgresType)|]
    tpv <- [|PersistText . pack . show|]
    fpv <- [|\dt v ->
                case fromPersistValue v of
                    Left e -> Left e
                    Right s' ->
                        case reads $ unpack s' of
                            (x, _):_ -> Right x

MaxGabriel

maximiliantagher@Maximilians-MBP ~/D/M/mercury-web> git diff yarn.lock
diff --git a/yarn.lock b/yarn.lock
index 441ccf1..b1df352 100644
--- a/yarn.lock
+++ b/yarn.lock
@@ -188,13 +188,14 @@
   version "6.0.90"
   resolved "https://registry.yarnpkg.com/@types/node/-/node-6.0.90.tgz#0ed74833fa1b73dcdb9409dcb1c97ec0a8b13b02"

-"@types/qrcode-generator@^0.0.16":

MaxGabriel

cabal: Entering directory '/var/folders/v7/5k06hq7d3wbb4cvk8smv6kl00000gn/T/cabal-tmp-26452/HsOpenSSL-0.11.4.11'
[1 of 1] Compiling Main             ( /var/folders/v7/5k06hq7d3wbb4cvk8smv6kl00000gn/T/cabal-tmp-26452/HsOpenSSL-0.11.4.11/dist/setup/setup.hs, /var/folders/v7/5k06hq7d3wbb4cvk8smv6kl00000gn/T/cabal-tmp-26452/HsOpenSSL-0.11.4.11/dist/setup/Main.o )
Linking /var/folders/v7/5k06hq7d3wbb4cvk8smv6kl00000gn/T/cabal-tmp-26452/HsOpenSSL-0.11.4.11/dist/setup/setup ...
Configuring HsOpenSSL-0.11.4.11...
Flags chosen: macports-openssl=False, homebrew-openssl=False, fast-bignum=True
Dependency base ==4.10.0.0: using base-4.10.0.0
Dependency bytestring ==0.10.8.2: using bytestring-0.10.8.2
Dependency integer-gmp ==1.0.1.0: using integer-gmp-1.0.1.0
Dependency network ==2.6.3.2: using network-2.6.3.2
Dependency time ==1.8.0.2: using time-1.8.0.2

MaxGabriel

maximiliantagher@Maximilians-MacBook-Pro ~> cabal install HsOpenSSL --verbose
/usr/local/bin/alex --version
/usr/bin/gcc -dumpversion
looking for tool haddock near compiler in /usr/local/bin
found haddock in /usr/local/bin/haddock
/usr/local/bin/haddock --version
/usr/local/bin/happy --version
looking for tool hpc near compiler in /usr/local/bin
found hpc in /usr/local/bin/hpc
/usr/local/bin/hpc version