Skip to content

Instantly share code, notes, and snippets.

@haitlahcen
Created January 22, 2019 10:35
Show Gist options
  • Select an option

  • Save haitlahcen/3f1e83cdc78d48ed2100d51a0ea05844 to your computer and use it in GitHub Desktop.

Select an option

Save haitlahcen/3f1e83cdc78d48ed2100d51a0ea05844 to your computer and use it in GitHub Desktop.
Stack dump-hi
==================== FINAL INTERFACE ====================
2019-01-22 10:12:16.006575114 UTC
interface main:DB.QueryLineSpecs 8044
interface hash: d03191514f73c041eb6604fb6258090c
ABI hash: e0b08fb5b41eabcd21eb03791960814a
export-list hash: 1f51434d86438386375a39f852e60287
orphan hash: f2f94d0ba3bb20cd4cc684b4de178bd4
flag hash: 8ba54d655c55d48965b87370f5486c43
opt_hash: 14e536840aca4e889cad654e6f9b79c1
hpc_hash: 93b885adfe0da089cdf634904fd59f71
sig of: Nothing
used TH splices: False
where
exports:
DB.QueryLineSpecs.specs
module dependencies: DB.Scenario Expectations
package dependencies: HUnit-1.6.0.0 OneTuple-0.2.2 Only-0.1
QuickCheck-2.11.3 StateVar-1.1.1.1 adjunctions-4.4 aeson-1.3.1.1
ansi-terminal-0.8.2 array-0.5.2.0 attoparsec-0.13.2.2
attoparsec-iso8601-1.0.1.0 base-4.11.1.0 base-compat-0.10.5
base-orphans-0.7 base-prelude-1.3 basement-0.0.8 bifunctors-5.5.3
binary-0.8.5.1 binary-parser-0.5.5 bytestring-0.10.8.2
bytestring-strict-builder-0.4.5.1 call-stack-0.1.0
carrier-directory-0.1.0.0 case-insensitive-1.2.0.11 cassava-0.5.1.0
cereal-0.5.7.0 charset-0.3.7.1 clock-0.7.2 colour-2.3.4
comonad-5.0.4 constraints-0.10.1 containers-0.5.11.0
contravariant-1.4.1 cryptonite-0.25 data-bword-0.1.0.1
data-checked-0.3 data-default-class-0.1.2.0 data-dword-0.3.1.2
data-endian-0.1.1 data-serializer-0.3.4 data-textual-0.3.0.2
deepseq-1.4.3.0 directory-1.3.1.5 distributive-0.5.3 dlist-0.8.0.5
entropy-0.4.1.4 exceptions-0.10.0 filepath-1.4.2 free-5.0.2
generics-sop-0.3.2.0 ghc-boot-th-8.4.4 ghc-prim-0.5.2.0
hashable-1.2.7.0 haskell-commons-0.1.0.0 hspec-2.5.5
hspec-core-2.5.5 hspec-expectations-0.8.2 http-api-data-0.3.8.1
http-types-0.12.2 integer-gmp-1.0.2.0 integer-logarithms-1.0.2.2
kan-extensions-5.2 lens-4.16.1 lens-aeson-1.0.2
lifted-base-0.2.3.12 loch-th-0.2.2 memory-0.14.18 mmorph-1.1.2
monad-control-1.0.2.3 mono-traversable-1.0.9.0 mtl-2.2.2
network-2.6.3.6 network-ip-0.3.0.2 parsec-3.1.13.0 parsers-0.12.9
pg-transact-0.1.0.1 placeholders-0.1 postgresql-binary-0.12.1.2
postgresql-libpq-0.9.4.2 postgresql-simple-0.5.4.0 pretty-1.1.3.6
primitive-0.6.3.0 process-1.6.3.0 profunctors-5.2.2
quickcheck-io-0.2.0 random-1.1 records-sop-0.1.0.2 reflection-2.1.4
resource-pool-0.2.3.2 safe-0.3.17 safe-exceptions-0.1.7.0
safe-money-0.3 scientific-0.3.6.2 semigroupoids-5.2.2
setenv-0.1.1.3 split-0.2.3.3 squeal-hspec-0.1.0.0
squeal-postgresql-0.4.0.0 stm-2.4.5.1 store-0.5.0.1
store-core-0.4.4 syb-0.7 tagged-0.8.5 template-haskell-2.13.0.0
temporary-1.3 text-1.2.3.1 text-latin1-0.3.1 text-printer-0.5
text-short-0.1.2 tf-random-0.5 th-abstraction-0.2.8.0
th-expand-syns-0.4.4.0 th-lift-0.7.11 th-lift-instances-0.1.11
th-orphans-0.13.6 th-reify-many-0.1.8 th-utilities-0.2.0.1
time-1.8.0.2 time-locale-compat-0.1.1.5 tmp-postgres-0.1.1.0
transformers-0.5.5.0 transformers-base-0.4.5.2
transformers-compat-0.6.2 tuple-0.3.0.2 type-hint-0.1 unix-2.7.2.2
unordered-containers-0.2.9.0 uuid-1.3.13 uuid-types-1.0.3
vector-0.12.0.1 vector-algorithms-0.7.0.4
orphans: lens-aeson-1.0.2:Data.Aeson.Lens
reflection-2.1.4:Data.Reflection
basement-0.0.8:Basement.UArray.Base basement-0.0.8:Basement.Block
safe-money-0.3:Money store-0.5.0.1:Data.Store.Internal
store-0.5.0.1:Data.Store.TH.Internal
th-utilities-0.2.0.1:TH.Derive.Storable
th-orphans-0.13.6:Language.Haskell.TH.Instances
th-lift-instances-0.1.11:Instances.TH.Lift
th-lift-0.7.11:Language.Haskell.TH.Lift
syb-0.7:Data.Generics.Instances network-2.6.3.6:Network.Socket
attoparsec-0.13.2.2:Data.Attoparsec.Text.Internal
attoparsec-0.13.2.2:Data.Attoparsec.ByteString.Char8
vector-0.12.0.1:Data.Vector.Unboxed
vector-0.12.0.1:Data.Vector.Fusion.Bundle
hashable-1.2.7.0:Data.Hashable.Generic text-1.2.3.1:Data.Text.Lazy
generics-sop-0.3.2.0:Generics.SOP.Instances
generics-sop-0.3.2.0:Generics.SOP.Constraint text-1.2.3.1:Data.Text
binary-0.8.5.1:Data.Binary.Generic text-1.2.3.1:Data.Text.Show
bytestring-0.10.8.2:Data.ByteString.Builder
colour-2.3.4:Data.Colour quickcheck-io-0.2.0:Test.QuickCheck.IO
transformers-0.5.5.0:Control.Monad.Trans.Error
time-1.8.0.2:Data.Time.Format.Parse
time-1.8.0.2:Data.Time.LocalTime.Internal.ZonedTime
time-1.8.0.2:Data.Time.LocalTime.Internal.LocalTime
time-1.8.0.2:Data.Time.Calendar.Gregorian
stm-2.4.5.1:Control.Monad.STM base-4.11.1.0:GHC.Float
base-4.11.1.0:GHC.Base
family instance modules: Only-0.1:Data.Tuple.Only
adjunctions-4.4:Data.Functor.Rep
aeson-1.3.1.1:Data.Aeson.Types.Internal
attoparsec-0.13.2.2:Data.Attoparsec.Internal.Types
base-4.11.1.0:Control.Applicative base-4.11.1.0:Data.Complex
base-4.11.1.0:Data.Functor.Compose base-4.11.1.0:Data.Functor.Const
base-4.11.1.0:Data.Functor.Identity
base-4.11.1.0:Data.Functor.Product base-4.11.1.0:Data.Functor.Sum
base-4.11.1.0:Data.Monoid base-4.11.1.0:Data.Semigroup
base-4.11.1.0:Data.Semigroup.Internal base-4.11.1.0:Data.Version
base-4.11.1.0:Data.Void base-4.11.1.0:GHC.Exts
base-4.11.1.0:GHC.Generics base-4.11.1.0:GHC.IO.Exception
basement-0.0.8:Basement.Block.Base basement-0.0.8:Basement.Monad
basement-0.0.8:Basement.MutableBuilder basement-0.0.8:Basement.Nat
basement-0.0.8:Basement.NonEmpty
basement-0.0.8:Basement.Numerical.Subtractive
basement-0.0.8:Basement.PrimType basement-0.0.8:Basement.String
basement-0.0.8:Basement.String.Encoding.ASCII7
basement-0.0.8:Basement.String.Encoding.ISO_8859_1
basement-0.0.8:Basement.String.Encoding.UTF16
basement-0.0.8:Basement.String.Encoding.UTF32
basement-0.0.8:Basement.Types.OffsetSize
basement-0.0.8:Basement.UArray.Base
basement-0.0.8:Basement.UTF8.Base
bifunctors-5.5.3:Data.Bifunctor.Biff
bifunctors-5.5.3:Data.Bifunctor.Clown
bifunctors-5.5.3:Data.Bifunctor.Fix
bifunctors-5.5.3:Data.Bifunctor.Flip
bifunctors-5.5.3:Data.Bifunctor.Join
bifunctors-5.5.3:Data.Bifunctor.Joker
bifunctors-5.5.3:Data.Bifunctor.Product
bifunctors-5.5.3:Data.Bifunctor.Sum
bifunctors-5.5.3:Data.Bifunctor.Tannen
bifunctors-5.5.3:Data.Bifunctor.Wrapped
carrier-directory-0.1.0.0:Sourcing.API.Carriers.Types
carrier-directory-0.1.0.0:Sourcing.API.LineQuery.Types
carrier-directory-0.1.0.0:Sourcing.API.V3.Types.Carrier
carrier-directory-0.1.0.0:Sourcing.API.V3.Types.Contact
carrier-directory-0.1.0.0:Sourcing.API.V3.Types.Depot
carrier-directory-0.1.0.0:Sourcing.API.V3.Types.Line
carrier-directory-0.1.0.0:Sourcing.DB.CarrierAndDepot.Types
carrier-directory-0.1.0.0:Sourcing.DB.Contact.Search.Criteria
carrier-directory-0.1.0.0:Sourcing.DB.Contact.Search.Detailed
carrier-directory-0.1.0.0:Sourcing.DB.Coverage.Search
carrier-directory-0.1.0.0:Sourcing.DB.Depot.Search
carrier-directory-0.1.0.0:Sourcing.DB.Events.Search
carrier-directory-0.1.0.0:Sourcing.DB.Fleet.Search
carrier-directory-0.1.0.0:Sourcing.DB.Geo.Search
carrier-directory-0.1.0.0:Sourcing.DB.Line.Search
carrier-directory-0.1.0.0:Sourcing.DB.Types
carrier-directory-0.1.0.0:Sourcing.Model.Campaign
carrier-directory-0.1.0.0:Sourcing.Model.Carrier
carrier-directory-0.1.0.0:Sourcing.Model.Depot
carrier-directory-0.1.0.0:Sourcing.Model.Events
carrier-directory-0.1.0.0:Sourcing.Model.Flag
carrier-directory-0.1.0.0:Sourcing.Model.Geography
clock-0.7.2:System.Clock containers-0.5.11.0:Data.IntMap.Internal
containers-0.5.11.0:Data.IntSet.Internal
containers-0.5.11.0:Data.Map.Internal
containers-0.5.11.0:Data.Sequence.Internal
containers-0.5.11.0:Data.Set.Internal containers-0.5.11.0:Data.Tree
cryptonite-0.25:Crypto.Hash.Blake2
cryptonite-0.25:Crypto.Hash.Blake2b
cryptonite-0.25:Crypto.Hash.Blake2bp
cryptonite-0.25:Crypto.Hash.Blake2s
cryptonite-0.25:Crypto.Hash.Blake2sp
cryptonite-0.25:Crypto.Hash.Keccak cryptonite-0.25:Crypto.Hash.MD2
cryptonite-0.25:Crypto.Hash.MD4 cryptonite-0.25:Crypto.Hash.MD5
cryptonite-0.25:Crypto.Hash.RIPEMD160
cryptonite-0.25:Crypto.Hash.SHA1 cryptonite-0.25:Crypto.Hash.SHA224
cryptonite-0.25:Crypto.Hash.SHA256 cryptonite-0.25:Crypto.Hash.SHA3
cryptonite-0.25:Crypto.Hash.SHA384
cryptonite-0.25:Crypto.Hash.SHA512
cryptonite-0.25:Crypto.Hash.SHA512t
cryptonite-0.25:Crypto.Hash.SHAKE
cryptonite-0.25:Crypto.Hash.Skein256
cryptonite-0.25:Crypto.Hash.Skein512
cryptonite-0.25:Crypto.Hash.Tiger
cryptonite-0.25:Crypto.Hash.Whirlpool
data-bword-0.1.0.1:Data.BinaryWord
data-dword-0.3.1.2:Data.DoubleWord
data-dword-0.3.1.2:Data.DoubleWord.Base
data-endian-0.1.1:Data.Endian
data-serializer-0.3.4:Data.Deserializer
data-serializer-0.3.4:Data.Serializer dlist-0.8.0.5:Data.DList
free-5.0.2:Control.Comonad.Cofree
free-5.0.2:Control.Comonad.Trans.Cofree
free-5.0.2:Control.Monad.Free free-5.0.2:Control.Monad.Trans.Free
generics-sop-0.3.2.0:Generics.SOP.BasicFunctors
generics-sop-0.3.2.0:Generics.SOP.GGP
generics-sop-0.3.2.0:Generics.SOP.Instances
generics-sop-0.3.2.0:Generics.SOP.NP
generics-sop-0.3.2.0:Generics.SOP.NS
ghc-boot-th-8.4.4:GHC.ForeignSrcLang.Type
ghc-boot-th-8.4.4:GHC.LanguageExtensions.Type
hspec-core-2.5.5:Test.Hspec.Core.Example
kan-extensions-5.2:Data.Functor.Day
kan-extensions-5.2:Data.Functor.Yoneda lens-4.16.1:Control.Lens.At
lens-4.16.1:Control.Lens.Internal.Indexed
lens-4.16.1:Control.Lens.Reified lens-4.16.1:Control.Lens.Tuple
lens-4.16.1:Control.Lens.Wrapped lens-4.16.1:Control.Lens.Zoom
lens-aeson-1.0.2:Data.Aeson.Lens
monad-control-1.0.2.3:Control.Monad.Trans.Control
mono-traversable-1.0.9.0:Data.Containers
mono-traversable-1.0.9.0:Data.MonoTraversable
mono-traversable-1.0.9.0:Data.Sequences
network-ip-0.3.0.2:Network.IP.Addr
pretty-1.1.3.6:Text.PrettyPrint.Annotated.HughesPJ
pretty-1.1.3.6:Text.PrettyPrint.HughesPJ
primitive-0.6.3.0:Control.Monad.Primitive
primitive-0.6.3.0:Data.Primitive.Array
primitive-0.6.3.0:Data.Primitive.ByteArray
profunctors-5.2.2:Data.Profunctor.Composition
profunctors-5.2.2:Data.Profunctor.Rep
records-sop-0.1.0.2:Generics.SOP.Record safe-money-0.3:Money
safe-money-0.3:Money.Internal
squeal-postgresql-0.4.0.0:Squeal.PostgreSQL.Binary
squeal-postgresql-0.4.0.0:Squeal.PostgreSQL.Definition
squeal-postgresql-0.4.0.0:Squeal.PostgreSQL.Expression
squeal-postgresql-0.4.0.0:Squeal.PostgreSQL.Manipulation
squeal-postgresql-0.4.0.0:Squeal.PostgreSQL.PQ
squeal-postgresql-0.4.0.0:Squeal.PostgreSQL.Pool
squeal-postgresql-0.4.0.0:Squeal.PostgreSQL.Query
squeal-postgresql-0.4.0.0:Squeal.PostgreSQL.Schema
store-0.5.0.1:Data.Store.Internal store-core-0.4.4:Data.Store.Core
tagged-0.8.5:Data.Tagged
template-haskell-2.13.0.0:Language.Haskell.TH.Syntax
text-1.2.3.1:Data.Text text-1.2.3.1:Data.Text.Lazy
text-printer-0.5:Text.Printer
text-printer-0.5:Text.Printer.Fractional
text-printer-0.5:Text.Printer.Integral
text-short-0.1.2:Data.Text.Short.Internal
th-abstraction-0.2.8.0:Language.Haskell.TH.Datatype
th-utilities-0.2.0.1:TH.ReifySimple
tmp-postgres-0.1.1.0:Database.Postgres.Temp.Internal
unordered-containers-0.2.9.0:Data.HashMap.Base
unordered-containers-0.2.9.0:Data.HashSet
uuid-types-1.0.3:Data.UUID.Types.Internal
uuid-types-1.0.3:Data.UUID.Types.Internal.Builder
vector-0.12.0.1:Data.Vector vector-0.12.0.1:Data.Vector.Primitive
vector-0.12.0.1:Data.Vector.Storable
vector-0.12.0.1:Data.Vector.Unboxed
vector-0.12.0.1:Data.Vector.Unboxed.Base
import -/ base-4.11.1.0:Data.Tuple 3af66f3ac61ed95ba8a3a3f68ebc5003
import -/ base-4.11.1.0:GHC.Base 604111500e81281298777e721c75643b
import -/ base-4.11.1.0:GHC.List 1e4357702d8d00cded0703bd293e50e8
import -/ base-4.11.1.0:GHC.Stack.Types 360ee252ea3c3e8890713bd0b82ba2f8
import -/ base-4.11.1.0:Prelude 0750c25585e2b797cd78291d423d39dd
import -/ carrier-directory-0.1.0.0:Sourcing.API.LineQuery.Types ea0640611fa527d7d7c7787b3d6fbc56
import -/ carrier-directory-0.1.0.0:Sourcing.API.V3.Types.Line 9b807d9c72c8eb5780e8c6657b0438f9
import -/ carrier-directory-0.1.0.0:Sourcing.DB.Line.Search 063c47672b72bdee772f87806996fecd
import -/ carrier-directory-0.1.0.0:Sourcing.DB.Persistence 2d257ee8ec178eac50850e04e096ba81
import -/ carrier-directory-0.1.0.0:Sourcing.DB.Types 66066ce3b4771868b906447dc9f070c8
import -/ carrier-directory-0.1.0.0:Sourcing.Model.Carrier 149d8948bbcb32fdbfe4731e8f173f40
import -/ carrier-directory-0.1.0.0:Sourcing.Model.Flag a1b004e0ee8e357a6fa2599fb86808e1
import -/ carrier-directory-0.1.0.0:Sourcing.Model.Geography bca21ba0514302d45ab1695dd513a3d6
import -/ carrier-directory-0.1.0.0:Sourcing.Model.Types a8e47d50bf76b3da550ef92570541d8e
import -/ containers-0.5.11.0:Data.Set 7d3c64a641be4cacbcd8119445bab919
import -/ containers-0.5.11.0:Data.Set.Internal 7c23d64c612d25581166e736f62b7377
import -/ ghc-prim-0.5.2.0:GHC.Types d9b3023de7feae4a5308d643da5543f7
import -/ hspec-2.5.5:Test.Hspec 38d54284efb2dc78db91250f8f0f857a
import -/ hspec-core-2.5.5:Test.Hspec.Core.Spec ee8ed8a75602ff899d0d8b6ae1216d76
import -/ hspec-core-2.5.5:Test.Hspec.Core.Spec.Monad a72d2fe45dd57d843a6188a7bb7c3b2e
import -/ integer-gmp-1.0.2.0:GHC.Integer.Type f3d5169c3d3830854b19f6565b265403
import -/ DB.Scenario 85e9dfeff40a8ebbeb4f60e8f9f254d3
exports: 14994ed70ec348b1be2618f2aa212d79
DepotName 9496b15c4af867c13467fa3b9642fe73
DepotName 840b79538aed4580a0806711d2fb37bc
ScenarioM d796dcb5065b13b2f38a83512744a24d
countryDivisions fd3b2e89157acdc8f7eb70a4399a6c9d
depotCoverage 6de6faccd48b18938a10a92dcb79130a
depotEvent fea9ee59699bdc5c54997c965b94de99
depotFlags 48fc54ec43e98f58fbe3bb6b3f0ebd74
depotFleet 0db06c43a1c4535f28246960340e66ea
newCarrierWith b7de1821748e84954ef74171b1ab829a
newDepot 70bcb6ac26dd3e485c6d38b88729f0e9
newDepotWith d522b03c2bd03223c7337c32b4febbe6
withScenario 49e0ae03a275c58f93b60e89865bea39
|>> 86e9c5a09160281bb139cb6564ec1fb9
import -/ Expectations 677252666e392971a27d2da2290c3728
exports: c29676bc3e230358f5441452411ca8ec
shouldContain c30c49152fb50209ead2b6d29fa8def4
shouldNotContain 881096e55815113ade691562ace42b35
shouldReturn 18babfd986f41d03ea1e53c0eb397229
import -/ monad-control-1.0.2.3:Control.Monad.Trans.Control 09090fb0467b6605098a53c54e9d5f3d
import -/ squeal-hspec-0.1.0.0:Squeal.PostgreSQL.Hspec d23e45bae59217aaa418aaecfdac1df6
44d39a99021a30ad47deb119c4c9fe9b
$s$fApplicativePoolPQ ::
GHC.Base.Applicative
(Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO)
{- Strictness: m, Inline: CONLIKE,
Unfolding: DFun: @ schema :: Squeal.PostgreSQL.Schema.SchemaType.
@ (Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO)
(DB.QueryLineSpecs.$s$fApplicativePoolPQ_$s$fFunctorPoolPQ
@ schema)
(\ @ a
(eta :: a)
(eta1 :: Data.Pool.Pool
(Generics.SOP.BasicFunctors.K
Database.PostgreSQL.LibPQ.Internal.Connection schema))
(s :: GHC.Prim.State# GHC.Prim.RealWorld) ->
(# s, eta #))
`cast`
(forall (a :: <*>_N).
<a>_R
->_R (<Data.Pool.Pool
(Generics.SOP.BasicFunctors.K
Database.PostgreSQL.LibPQ.Internal.Connection schema)>_R
->_R Sym (GHC.Types.N:IO[0]
<a>_R)) ; Sym (Squeal.PostgreSQL.Pool.N:PoolPQ[0]
<*>_N <schema>_P <GHC.Types.IO>_R <a>_N))
(Squeal.PostgreSQL.Pool.$fApplicativePoolPQ4
@ GHC.Types.IO
@ schema
GHC.Base.$fMonadIO)
`cast`
(forall (a :: <*>_N) (b :: <*>_N).
<Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO (a -> b)>_R
->_R <Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO a>_R
->_R Sym (Squeal.PostgreSQL.Pool.N:PoolPQ[0]
<*>_N <schema>_P <GHC.Types.IO>_R <b>_N))
(Squeal.PostgreSQL.Pool.$fApplicativePoolPQ2
@ GHC.Types.IO
@ schema
GHC.Base.$fMonadIO)
`cast`
(forall (a :: <*>_N) (b :: <*>_N) (c :: <*>_N).
<a -> b -> c>_R
->_R <Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO a>_R
->_R <Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO b>_R
->_R Sym (Squeal.PostgreSQL.Pool.N:PoolPQ[0]
<*>_N <schema>_P <GHC.Types.IO>_R <c>_N))
(Squeal.PostgreSQL.Pool.$fApplicativePoolPQ3
@ GHC.Types.IO
@ schema
GHC.Base.$fMonadIO)
`cast`
(forall (a :: <*>_N) (b :: <*>_N).
<Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO a>_R
->_R <Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO b>_R
->_R Sym (Squeal.PostgreSQL.Pool.N:PoolPQ[0]
<*>_N <schema>_P <GHC.Types.IO>_R <b>_N))
(\ @ a @ b ->
Squeal.PostgreSQL.Pool.$fApplicativePoolPQ2
@ GHC.Types.IO
@ schema
GHC.Base.$fMonadIO
@ a
@ b
@ a
(GHC.Base.const @ a @ b))
`cast`
(forall (a :: <*>_N) (b :: <*>_N).
<Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO a>_R
->_R <Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO b>_R
->_R Sym (Squeal.PostgreSQL.Pool.N:PoolPQ[0]
<*>_N <schema>_P <GHC.Types.IO>_R <a>_N)) -}
4ee6667df930f3c2894deb3686407f41
$s$fApplicativePoolPQ1 ::
Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO a
-> Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO b
-> Data.Pool.Pool
(Generics.SOP.BasicFunctors.K
Database.PostgreSQL.LibPQ.Internal.Connection schema)
-> GHC.Types.IO a
{- Arity: 3,
Unfolding: InlineRule (0, True, False)
(\ @ schema :: Squeal.PostgreSQL.Schema.SchemaType @ a @ b ->
Squeal.PostgreSQL.Pool.$fApplicativePoolPQ2
@ GHC.Types.IO
@ schema
GHC.Base.$fMonadIO
@ a
@ b
@ a
(GHC.Base.const @ a @ b)) -}
f1c03d33d35db57966c1427937e71fd2
$s$fApplicativePoolPQ_$s$fFunctorPoolPQ ::
GHC.Base.Functor
(Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO)
{- HasNoCafRefs, Strictness: m, Inline: CONLIKE,
Unfolding: DFun: @ schema :: Squeal.PostgreSQL.Schema.SchemaType.
@ (Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO)
(\ @ a
@ b
(f :: a -> b)
(ds :: Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO a)
(b3 :: Data.Pool.Pool
(Generics.SOP.BasicFunctors.K
Database.PostgreSQL.LibPQ.Internal.Connection schema))
(s :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (ds
`cast`
(Squeal.PostgreSQL.Pool.N:PoolPQ[0]
<*>_N <schema>_P <GHC.Types.IO>_R <a>_N)
b3)
`cast`
(GHC.Types.N:IO[0] <a>_R)
s of ds1 { (#,#) ipv ipv1 ->
(# ipv, f ipv1 #) })
`cast`
(forall (a :: <*>_N) (b :: <*>_N).
<a -> b>_R
->_R <Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO a>_R
->_R (<Data.Pool.Pool
(Generics.SOP.BasicFunctors.K
Database.PostgreSQL.LibPQ.Internal.Connection schema)>_R
->_R Sym (GHC.Types.N:IO[0]
<b>_R)) ; Sym (Squeal.PostgreSQL.Pool.N:PoolPQ[0]
<*>_N <schema>_P <GHC.Types.IO>_R <b>_N))
(\ @ a
@ b
(z :: a)
(ds :: Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO b)
(b4 :: Data.Pool.Pool
(Generics.SOP.BasicFunctors.K
Database.PostgreSQL.LibPQ.Internal.Connection schema))
(eta1 :: GHC.Prim.State# GHC.Prim.RealWorld) ->
case (ds
`cast`
(Squeal.PostgreSQL.Pool.N:PoolPQ[0]
<*>_N <schema>_P <GHC.Types.IO>_R <b>_N)
b4)
`cast`
(GHC.Types.N:IO[0] <b>_R)
eta1 of ds1 { (#,#) ipv ipv1 ->
(# ipv, z #) })
`cast`
(forall (a :: <*>_N) (b :: <*>_N).
<a>_R
->_R <Squeal.PostgreSQL.Pool.PoolPQ schema GHC.Types.IO b>_R
->_R (<Data.Pool.Pool
(Generics.SOP.BasicFunctors.K
Database.PostgreSQL.LibPQ.Internal.Connection schema)>_R
->_R Sym (GHC.Types.N:IO[0]
<a>_R)) ; Sym (Squeal.PostgreSQL.Pool.N:PoolPQ[0]
<*>_N
<schema>_P
<GHC.Types.IO>_R
<a>_N)) -}
2c90176934e12091c3ddd5f8516d9f2f
$s$fApplicativeStateT ::
GHC.Base.Applicative
(Control.Monad.Trans.State.Lazy.StateT
s
(Squeal.PostgreSQL.Pool.PoolPQ
'['("shipmenttype",
'Squeal.PostgreSQL.Schema.Typedef
('Squeal.PostgreSQL.Schema.PGenum
'["Distribution", "Partial", "Complete", "Express"])),
'("qualification",
'Squeal.PostgreSQL.Schema.Typedef
('Squeal.PostgreSQL.Schema.PGenum
'["None", "Qualified", "Onboard"])),
'("carrierstatus",
'Squeal.PostgreSQL.Schema.Typedef
('Squeal.PostgreSQL.Schema.PGenum
'["Ok", "Competitor", "Closed", "OutOfTarget", "Blacklisted"])),
'("eventstatus",
'Squeal.PostgreSQL.Schema.Typedef
('Squeal.PostgreSQL.Schema.PGenum
'["Success", "Late", "Incident", "Failure"])),
'("countries",
'Squeal.PostgreSQL.Schema.Table Sourcing.DB.Schema.TableCountries),
'("divisions",
'Squeal.PostgreSQL.Schema.Table Sourcing.DB.Schema.TableDivisions),
'("segmentations",
'Squeal.PostgreSQL.Schema.Table
Sourcing.DB.Schema.TableSegmentations),
'("carriers",
'Squeal.PostgreSQL.Schema.Table
('["carriers_pkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.PrimaryKey
'["carrier_id"],
"carriers_country_id_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["country_id"] "countries" '["country_id"],
"carriers_division_id_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["division_id"] "divisions" '["division_id"],
"carriers_segmentation_id_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["segmentation_id"]
"segmentations"
'["segmentation_id"],
"carriers_country_id_company_num_key"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.Unique
'["country_id", "company_num"]]
Squeal.PostgreSQL.Schema.:=> '["carrier_id"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtext),
"company_num"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtext),
"company_name"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtext),
"street"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtext),
"zipcode"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtext),
"city"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtext),
"country_id"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGint4),
"division_id"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGint4),
"active_since"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.Null
'Squeal.PostgreSQL.Schema.PGint2),
"headcount"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGint2),
"catname"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtext),
"qualification"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
('Squeal.PostgreSQL.Schema.PGenum
'["None",
"Qualified",
"Onboard"])),
"premiumship"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGint2),
"segmentation_id"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGint4),
"status"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
('Squeal.PostgreSQL.Schema.PGenum
'["Ok",
"Competitor",
"Closed",
"OutOfTarget",
"Blacklisted"])),
"vatin"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.Null
'Squeal.PostgreSQL.Schema.PGtext)])),
'("contacts",
'Squeal.PostgreSQL.Schema.Table Sourcing.DB.Schema.TableContacts),
'("emails",
'Squeal.PostgreSQL.Schema.Table Sourcing.DB.Schema.TableEmails),
'("phone_numbers",
'Squeal.PostgreSQL.Schema.Table
Sourcing.DB.Schema.TablePhoneNumbers),
'("depots",
'Squeal.PostgreSQL.Schema.Table Sourcing.DB.Schema.TableDepots),
'("flags",
'Squeal.PostgreSQL.Schema.Table Sourcing.DB.Schema.TableFlags),
'("depots_flags",
'Squeal.PostgreSQL.Schema.Table
Sourcing.DB.Schema.TableDepotsFlags),
'("truck_models",
'Squeal.PostgreSQL.Schema.Table
Sourcing.DB.Schema.TableTruckModels),
'("depots_fleets",
'Squeal.PostgreSQL.Schema.Table
Sourcing.DB.Schema.TableDepotsFleets),
'("depots_contacts",
'Squeal.PostgreSQL.Schema.Table
Sourcing.DB.Schema.TableDepotsContacts),
'("depots_coverages",
'Squeal.PostgreSQL.Schema.Table
Sourcing.DB.Schema.TableDepotsCoverages),
'("depots_shipment_types",
'Squeal.PostgreSQL.Schema.Table
('["depots_shipment_types_pkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.PrimaryKey
'["depot_uuid", "shipment_type"],
"depots_fleets_depot_uuid_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["depot_uuid"] "depots" '["uuid"]]
Squeal.PostgreSQL.Schema.:=> '["depot_uuid"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGuuid),
"shipment_type"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
('Squeal.PostgreSQL.Schema.PGenum
'["Distribution",
"Partial",
"Complete",
"Express"]))])),
'("events",
'Squeal.PostgreSQL.Schema.Table
('["events_pkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.PrimaryKey
'["event_id"],
"events_carrier_id_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["carrier_id"] "carriers" '["carrier_id"],
"events_depot_uuid_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["depot_uuid"] "depots" '["uuid"],
"events_destination_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["destination"] "divisions" '["division_id"],
"events_origin_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["origin"] "divisions" '["division_id"]]
Squeal.PostgreSQL.Schema.:=> '["event_id"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.Def
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGint4),
"carrier_id"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtext),
"origin"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGint4),
"destination"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGint4),
"occurred_at"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtimestamptz),
"status"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
('Squeal.PostgreSQL.Schema.PGenum
'["Success",
"Late",
"Incident",
"Failure"])),
"shipment_type"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.Null
('Squeal.PostgreSQL.Schema.PGenum
'["Distribution",
"Partial",
"Complete",
"Express"])),
"depot_uuid"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.Null
'Squeal.PostgreSQL.Schema.PGuuid)])),
'("callstatus",
'Squeal.PostgreSQL.Schema.Typedef
('Squeal.PostgreSQL.Schema.PGenum
'["Planned", "NoAnswer", "WillCallBack", "Reserved", "Refused",
"Negociating", "CouldNotCall", "Cancelled", "NotPertinent",
"Accepted"])),
'("campaigns",
'Squeal.PostgreSQL.Schema.Table
('["campaigns_pkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.PrimaryKey
'["campaign_id"],
"campaigns_origin_id_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["origin"] "divisions" '["division_id"],
"campaigns_destination_id_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["destination"] "divisions" '["division_id"]]
Squeal.PostgreSQL.Schema.:=> '["campaign_id"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGuuid),
"order_id"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtext),
"shipper_id"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtext),
"required_shipment_type"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
('Squeal.PostgreSQL.Schema.PGenum
'["Distribution",
"Partial",
"Complete",
"Express"])),
"origin"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGint4),
"destination"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGint4),
"started_at"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGtimestamptz),
"closed_at"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.Null
'Squeal.PostgreSQL.Schema.PGtimestamptz)])),
'("campaign_trucks",
'Squeal.PostgreSQL.Schema.Table
Sourcing.DB.Schema.TableCampaignTrucks),
'("campaign_flags",
'Squeal.PostgreSQL.Schema.Table
Sourcing.DB.Schema.TableCampaignFlags),
'("call_refusal_reasons",
'Squeal.PostgreSQL.Schema.Table
Sourcing.DB.Schema.TableCallRefusalReasons),
'("carrier_calls",
'Squeal.PostgreSQL.Schema.Table
('["carrier_call_pkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.PrimaryKey
'["carrier_call_id"],
"carrier_call_depot_id_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["depot_uuid"] "depots" '["uuid"],
"carrier_call_campaign_id_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["campaign_id"] "campaigns" '["campaign_id"],
"carrier_call_call_refusal_reason_id_fkey"
Squeal.PostgreSQL.Schema.::: 'Squeal.PostgreSQL.Schema.ForeignKey
'["call_refusal_reason_id"]
"call_refusal_reasons"
'["call_refusal_reason_id"]]
Squeal.PostgreSQL.Schema.:=> '["carrier_call_id"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGuuid),
"campaign_id"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGuuid),
"depot_uuid"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
'Squeal.PostgreSQL.Schema.PGuuid),
"call_time"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.Null
'Squeal.PostgreSQL.Schema.PGtimestamptz),
"call_status"
Squeal.PostgreSQL.Schema.::: ('Squeal.PostgreSQL.Schema.NoDef
Squeal.PostgreSQL.Schema.:=> 'Squeal.PostgreSQL.Schema.NotNull
('Squeal.PostgreSQL.Schema.PGenum
'["Planned",
"NoAnswer",
"WillCallBack",
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment