Build #1 for persistent-test-2.13.2.1
| Package | persistent-test-2.13.2.1 |
|---|
| Install | InstallOk |
|---|---|
| Docs | Ok |
| Tests | NotTried |
| Time submitted | 2025-12-02 22:08:45.283235758 UTC |
|---|---|
| Compiler | ghc-9.8.4 |
| OS | linux |
| Arch | x86_64 |
| Dependencies | HUnit-1.6.2.0, QuickCheck-2.16.0.0, aeson-2.2.3.0, base-4.19.2.0, blaze-html-0.9.2.0, bytestring-0.12.1.0, conduit-1.3.6.1, containers-0.6.8, exceptions-0.10.7, hspec-2.11.14, hspec-expectations-0.8.4, http-api-data-0.6.2, monad-control-1.0.3.1, monad-logger-0.3.42, mtl-2.3.1, path-pieces-0.2.1, persistent-2.18.0.0, quickcheck-instances-0.3.33, random-1.3.1, resourcet-1.3.0, text-2.1.1, time-1.12.2, transformers-0.6.1.0, transformers-base-0.4.6, unliftio-0.2.25.1, unliftio-core-0.2.1.0, unordered-containers-0.2.20.1 |
| Flags | none |
Code Coverage
No Code Coverage was submitted for this report.
Build log
[view raw]
Resolving dependencies...
Configuring OneTuple-0.4.2...
Preprocessing library for OneTuple-0.4.2..
Building library for OneTuple-0.4.2..
[1 of 3] Compiling Data.Tuple.Solo ( src/Data/Tuple/Solo.hs, dist/build/Data/Tuple/Solo.o, dist/build/Data/Tuple/Solo.dyn_o )
[2 of 3] Compiling Data.Tuple.OneTuple ( src/Data/Tuple/OneTuple.hs, dist/build/Data/Tuple/OneTuple.o, dist/build/Data/Tuple/OneTuple.dyn_o )
[3 of 3] Compiling Data.Tuple.Solo.TH ( src/Data/Tuple/Solo/TH.hs, dist/build/Data/Tuple/Solo/TH.o, dist/build/Data/Tuple/Solo/TH.dyn_o )
Preprocessing library for OneTuple-0.4.2..
Running Haddock on library for OneTuple-0.4.2..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Data.Tuple.Solo ( src/Data/Tuple/Solo.hs, nothing )
[2 of 3] Compiling Data.Tuple.OneTuple ( src/Data/Tuple/OneTuple.hs, nothing )
[3 of 3] Compiling Data.Tuple.Solo.TH ( src/Data/Tuple/Solo/TH.hs, nothing )
Haddock coverage:
Warning: 'Solo' is ambiguous. It is defined
* in GHC.Tuple
* in GHC.Tuple.Prim
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Tuple.Prim
100% ( 3 / 3) in 'Data.Tuple.Solo'
25% ( 1 / 4) in 'Data.Tuple.OneTuple'
Missing documentation for:
OneTuple (src/Data/Tuple/OneTuple.hs:21)
OneTuple (src/Data/Tuple/OneTuple.hs:30)
only (src/Data/Tuple/OneTuple.hs:24)
Warning: 'Solo' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
50% ( 1 / 2) in 'Data.Tuple.Solo.TH'
Missing documentation for:
tupE
Warning: Data.Tuple.Solo: could not find link destinations for:
- GHC.Generics.Rep1_Solo
- GHC.Generics.Rep_Solo
Documentation created: dist/doc/html/OneTuple/,
dist/doc/html/OneTuple/OneTuple.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/OneTuple-0.4.2-ATtFINcmw7oK2Yohb9PBmz
Completed OneTuple-0.4.2
Configuring StateVar-1.2.2...
Preprocessing library for StateVar-1.2.2..
Building library for StateVar-1.2.2..
[1 of 1] Compiling Data.StateVar ( src/Data/StateVar.hs, dist/build/Data/StateVar.o, dist/build/Data/StateVar.dyn_o )
src/Data/StateVar.hs:220:33: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
220 | default ($~) :: (MonadIO m, a ~ b, HasGetter t a) => t -> (a -> b) -> m ()
| ^
src/Data/StateVar.hs:226:34: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
226 | default ($~!) :: (MonadIO m, a ~ b, HasGetter t a) => t -> (a -> b) -> m ()
| ^
src/Data/StateVar.hs:230:32: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
230 | defaultUpdate :: (MonadIO m, a ~ b, HasGetter t a, HasSetter t a) => t -> (a -> b) -> m ()
| ^
src/Data/StateVar.hs:235:38: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
235 | defaultUpdateStrict :: (MonadIO m, a ~ b, HasGetter t a, HasSetter t a) => t -> (a -> b) -> m ()
| ^
Preprocessing library for StateVar-1.2.2..
Running Haddock on library for StateVar-1.2.2..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Data.StateVar ( src/Data/StateVar.hs, nothing )
src/Data/StateVar.hs:220:33: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
220 | default ($~) :: (MonadIO m, a ~ b, HasGetter t a) => t -> (a -> b) -> m ()
| ^
src/Data/StateVar.hs:226:34: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
226 | default ($~!) :: (MonadIO m, a ~ b, HasGetter t a) => t -> (a -> b) -> m ()
| ^
src/Data/StateVar.hs:230:32: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
230 | defaultUpdate :: (MonadIO m, a ~ b, HasGetter t a, HasSetter t a) => t -> (a -> b) -> m ()
| ^
src/Data/StateVar.hs:235:38: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
235 | defaultUpdateStrict :: (MonadIO m, a ~ b, HasGetter t a, HasSetter t a) => t -> (a -> b) -> m ()
| ^
Haddock coverage:
Warning: 'StateVar' is ambiguous. It is defined
* at src/Data/StateVar.hs:125:19
* at src/Data/StateVar.hs:125:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/StateVar.hs:125:1
Warning: 'SettableStateVar' is ambiguous. It is defined
* at src/Data/StateVar.hs:148:30
* at src/Data/StateVar.hs:148:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/StateVar.hs:148:1
100% ( 15 / 15) in 'Data.StateVar'
Documentation created: dist/doc/html/StateVar/,
dist/doc/html/StateVar/StateVar.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/StateVar-1.2.2-FkX29h2fwdP2Mo2NQELJhZ
Completed StateVar-1.2.2
Configuring assoc-1.1.1...
Preprocessing library for assoc-1.1.1..
Building library for assoc-1.1.1..
[1 of 2] Compiling Data.Bifunctor.Assoc ( src/Data/Bifunctor/Assoc.hs, dist/build/Data/Bifunctor/Assoc.o, dist/build/Data/Bifunctor/Assoc.dyn_o )
[2 of 2] Compiling Data.Bifunctor.Swap ( src/Data/Bifunctor/Swap.hs, dist/build/Data/Bifunctor/Swap.o, dist/build/Data/Bifunctor/Swap.dyn_o )
Preprocessing library for assoc-1.1.1..
Running Haddock on library for assoc-1.1.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling Data.Bifunctor.Assoc ( src/Data/Bifunctor/Assoc.hs, nothing )
[2 of 2] Compiling Data.Bifunctor.Swap ( src/Data/Bifunctor/Swap.hs, nothing )
Haddock coverage:
50% ( 1 / 2) in 'Data.Bifunctor.Assoc'
Missing documentation for:
Module header
50% ( 1 / 2) in 'Data.Bifunctor.Swap'
Missing documentation for:
Module header
Documentation created: dist/doc/html/assoc/, dist/doc/html/assoc/assoc.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/assoc-1.1.1-IR5FZLHpO7uKvKwb4BxhYj
Completed assoc-1.1.1
Configuring auto-update-0.2.6...
Preprocessing library for auto-update-0.2.6..
Building library for auto-update-0.2.6..
[1 of 9] Compiling Control.AutoUpdate.Types ( Control/AutoUpdate/Types.hs, dist/build/Control/AutoUpdate/Types.o, dist/build/Control/AutoUpdate/Types.dyn_o )
[2 of 9] Compiling Control.AutoUpdate.Thread ( Control/AutoUpdate/Thread.hs, dist/build/Control/AutoUpdate/Thread.o, dist/build/Control/AutoUpdate/Thread.dyn_o )
[3 of 9] Compiling Control.AutoUpdate.Event ( Control/AutoUpdate/Event.hs, dist/build/Control/AutoUpdate/Event.o, dist/build/Control/AutoUpdate/Event.dyn_o )
[4 of 9] Compiling Control.AutoUpdate.Internal ( Control/AutoUpdate/Internal.hs, dist/build/Control/AutoUpdate/Internal.o, dist/build/Control/AutoUpdate/Internal.dyn_o )
[5 of 9] Compiling Control.AutoUpdate ( Control/AutoUpdate.hs, dist/build/Control/AutoUpdate.o, dist/build/Control/AutoUpdate.dyn_o )
[6 of 9] Compiling Control.Debounce.Internal ( Control/Debounce/Internal.hs, dist/build/Control/Debounce/Internal.o, dist/build/Control/Debounce/Internal.dyn_o )
[7 of 9] Compiling Control.Debounce ( Control/Debounce.hs, dist/build/Control/Debounce.o, dist/build/Control/Debounce.dyn_o )
[8 of 9] Compiling Control.Reaper.Internal ( Control/Reaper/Internal.hs, dist/build/Control/Reaper/Internal.o, dist/build/Control/Reaper/Internal.dyn_o )
[9 of 9] Compiling Control.Reaper ( Control/Reaper.hs, dist/build/Control/Reaper.o, dist/build/Control/Reaper.dyn_o )
Preprocessing library for auto-update-0.2.6..
Running Haddock on library for auto-update-0.2.6..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 9] Compiling Control.AutoUpdate.Types ( Control/AutoUpdate/Types.hs, nothing )
[2 of 9] Compiling Control.AutoUpdate.Thread ( Control/AutoUpdate/Thread.hs, nothing )
[3 of 9] Compiling Control.AutoUpdate.Event ( Control/AutoUpdate/Event.hs, nothing )
[4 of 9] Compiling Control.AutoUpdate.Internal ( Control/AutoUpdate/Internal.hs, nothing )
[5 of 9] Compiling Control.AutoUpdate ( Control/AutoUpdate.hs, nothing )
[6 of 9] Compiling Control.Debounce.Internal ( Control/Debounce/Internal.hs, nothing )
[7 of 9] Compiling Control.Debounce ( Control/Debounce.hs, nothing )
[8 of 9] Compiling Control.Reaper.Internal ( Control/Reaper/Internal.hs, nothing )
[9 of 9] Compiling Control.Reaper ( Control/Reaper.hs, nothing )
Haddock coverage:
Warning: 'threadDelay' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'UpdateSettings' is ambiguous. It is defined
* at Control/AutoUpdate/Types.hs:13:25
* at Control/AutoUpdate/Types.hs:13:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/AutoUpdate/Types.hs:13:1
Warning: 'UpdateState' is ambiguous. It is defined
* at Control/AutoUpdate/Event.hs:43:5
* at Control/AutoUpdate/Event.hs:42:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/AutoUpdate/Event.hs:42:1
60% ( 3 / 5) in 'Control.AutoUpdate.Internal'
Missing documentation for:
Module header
UpdateState (Control/AutoUpdate/Event.hs:42)
Warning: 'IORef' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'getCurrentTime' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
83% ( 10 / 12) in 'Control.AutoUpdate'
Missing documentation for:
mkAutoUpdate (Control/AutoUpdate.hs:58)
mkAutoUpdateWithModify (Control/AutoUpdate.hs:65)
Warning: 'defaultDebounceSettings' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
87% ( 7 / 8) in 'Control.Debounce.Internal'
Missing documentation for:
mkDebounceInternal (Control/Debounce/Internal.hs:167)
Warning: 'debounceAction' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'debounceFreq' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'debounceEdge' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'DebounceSettings' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 16 / 16) in 'Control.Debounce'
Warning: 'reaperEmpty' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'reaperAction' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'reaperNull' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
50% ( 1 / 2) in 'Control.Reaper.Internal'
Missing documentation for:
Module header
Warning: 'Reaper' is ambiguous. It is defined
* at Control/Reaper/Internal.hs:4:29
* at Control/Reaper/Internal.hs:4:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Reaper/Internal.hs:4:1
100% ( 24 / 24) in 'Control.Reaper'
Documentation created: dist/doc/html/auto-update/,
dist/doc/html/auto-update/auto-update.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/auto-update-0.2.6-Ehn22ADx6c0KLKy1In2HqR
Completed auto-update-0.2.6
Configuring base-orphans-0.9.3...
Preprocessing library for base-orphans-0.9.3..
Building library for base-orphans-0.9.3..
[1 of 2] Compiling Data.Orphans.Prelude ( src/Data/Orphans/Prelude.hs, dist/build/Data/Orphans/Prelude.o, dist/build/Data/Orphans/Prelude.dyn_o )
[2 of 2] Compiling Data.Orphans ( src/Data/Orphans.hs, dist/build/Data/Orphans.o, dist/build/Data/Orphans.dyn_o )
Preprocessing library for base-orphans-0.9.3..
Running Haddock on library for base-orphans-0.9.3..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling Data.Orphans.Prelude ( src/Data/Orphans/Prelude.hs, nothing )
[2 of 2] Compiling Data.Orphans ( src/Data/Orphans.hs, nothing )
Haddock coverage:
100% ( 1 / 1) in 'Data.Orphans'
Documentation created: dist/doc/html/base-orphans/,
dist/doc/html/base-orphans/base-orphans.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/base-orphans-0.9.3-FO1MOLOK3e83158jMAOVc9
Completed base-orphans-0.9.3
Configuring base64-bytestring-1.2.1.0...
Preprocessing library for base64-bytestring-1.2.1.0..
Building library for base64-bytestring-1.2.1.0..
[1 of 5] Compiling Data.ByteString.Base64.Internal ( Data/ByteString/Base64/Internal.hs, dist/build/Data/ByteString/Base64/Internal.o, dist/build/Data/ByteString/Base64/Internal.dyn_o )
[2 of 5] Compiling Data.ByteString.Base64 ( Data/ByteString/Base64.hs, dist/build/Data/ByteString/Base64.o, dist/build/Data/ByteString/Base64.dyn_o )
[3 of 5] Compiling Data.ByteString.Base64.Lazy ( Data/ByteString/Base64/Lazy.hs, dist/build/Data/ByteString/Base64/Lazy.o, dist/build/Data/ByteString/Base64/Lazy.dyn_o )
[4 of 5] Compiling Data.ByteString.Base64.URL ( Data/ByteString/Base64/URL.hs, dist/build/Data/ByteString/Base64/URL.o, dist/build/Data/ByteString/Base64/URL.dyn_o )
[5 of 5] Compiling Data.ByteString.Base64.URL.Lazy ( Data/ByteString/Base64/URL/Lazy.hs, dist/build/Data/ByteString/Base64/URL/Lazy.o, dist/build/Data/ByteString/Base64/URL/Lazy.dyn_o )
Preprocessing library for base64-bytestring-1.2.1.0..
Running Haddock on library for base64-bytestring-1.2.1.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 5] Compiling Data.ByteString.Base64.Internal ( Data/ByteString/Base64/Internal.hs, nothing )
[2 of 5] Compiling Data.ByteString.Base64 ( Data/ByteString/Base64.hs, nothing )
[3 of 5] Compiling Data.ByteString.Base64.Lazy ( Data/ByteString/Base64/Lazy.hs, nothing )
[4 of 5] Compiling Data.ByteString.Base64.URL ( Data/ByteString/Base64/URL.hs, nothing )
[5 of 5] Compiling Data.ByteString.Base64.URL.Lazy ( Data/ByteString/Base64/URL/Lazy.hs, nothing )
Haddock coverage:
100% ( 4 / 4) in 'Data.ByteString.Base64'
100% ( 4 / 4) in 'Data.ByteString.Base64.Lazy'
100% ( 7 / 7) in 'Data.ByteString.Base64.URL'
100% ( 7 / 7) in 'Data.ByteString.Base64.URL.Lazy'
Documentation created: dist/doc/html/base64-bytestring/,
dist/doc/html/base64-bytestring/base64-bytestring.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/base64-bytestring-1.2.1.0-AIN2dTo0IeiEPRnFKNxiRV
Completed base64-bytestring-1.2.1.0
Configuring blaze-builder-0.4.4.1...
Preprocessing library for blaze-builder-0.4.4.1..
Building library for blaze-builder-0.4.4.1..
[ 1 of 11] Compiling Blaze.ByteString.Builder.Internal.Write ( Blaze/ByteString/Builder/Internal/Write.hs, dist/build/Blaze/ByteString/Builder/Internal/Write.o, dist/build/Blaze/ByteString/Builder/Internal/Write.dyn_o )
[ 2 of 11] Compiling Blaze.ByteString.Builder.Compat.Write ( Blaze/ByteString/Builder/Compat/Write.hs, dist/build/Blaze/ByteString/Builder/Compat/Write.o, dist/build/Blaze/ByteString/Builder/Compat/Write.dyn_o )
[ 3 of 11] Compiling Blaze.ByteString.Builder.Int ( Blaze/ByteString/Builder/Int.hs, dist/build/Blaze/ByteString/Builder/Int.o, dist/build/Blaze/ByteString/Builder/Int.dyn_o )
[ 4 of 11] Compiling Blaze.ByteString.Builder.Html.Word ( Blaze/ByteString/Builder/Html/Word.hs, dist/build/Blaze/ByteString/Builder/Html/Word.o, dist/build/Blaze/ByteString/Builder/Html/Word.dyn_o )
[ 5 of 11] Compiling Blaze.ByteString.Builder.Char8 ( Blaze/ByteString/Builder/Char8.hs, dist/build/Blaze/ByteString/Builder/Char8.o, dist/build/Blaze/ByteString/Builder/Char8.dyn_o )
[ 6 of 11] Compiling Blaze.ByteString.Builder.Char.Utf8 ( Blaze/ByteString/Builder/Char/Utf8.hs, dist/build/Blaze/ByteString/Builder/Char/Utf8.o, dist/build/Blaze/ByteString/Builder/Char/Utf8.dyn_o )
[ 7 of 11] Compiling Blaze.ByteString.Builder.Html.Utf8 ( Blaze/ByteString/Builder/Html/Utf8.hs, dist/build/Blaze/ByteString/Builder/Html/Utf8.o, dist/build/Blaze/ByteString/Builder/Html/Utf8.dyn_o )
[ 8 of 11] Compiling Blaze.ByteString.Builder.ByteString ( Blaze/ByteString/Builder/ByteString.hs, dist/build/Blaze/ByteString/Builder/ByteString.o, dist/build/Blaze/ByteString/Builder/ByteString.dyn_o )
[ 9 of 11] Compiling Blaze.ByteString.Builder.HTTP ( Blaze/ByteString/Builder/HTTP.hs, dist/build/Blaze/ByteString/Builder/HTTP.o, dist/build/Blaze/ByteString/Builder/HTTP.dyn_o )
[10 of 11] Compiling Blaze.ByteString.Builder.Word ( Blaze/ByteString/Builder/Word.hs, dist/build/Blaze/ByteString/Builder/Word.o, dist/build/Blaze/ByteString/Builder/Word.dyn_o )
[11 of 11] Compiling Blaze.ByteString.Builder ( Blaze/ByteString/Builder.hs, dist/build/Blaze/ByteString/Builder.o, dist/build/Blaze/ByteString/Builder.dyn_o )
Preprocessing library for blaze-builder-0.4.4.1..
Running Haddock on library for blaze-builder-0.4.4.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 11] Compiling Blaze.ByteString.Builder.Internal.Write ( Blaze/ByteString/Builder/Internal/Write.hs, nothing )
[ 2 of 11] Compiling Blaze.ByteString.Builder.Compat.Write ( Blaze/ByteString/Builder/Compat/Write.hs, nothing )
[ 3 of 11] Compiling Blaze.ByteString.Builder.Int ( Blaze/ByteString/Builder/Int.hs, nothing )
[ 4 of 11] Compiling Blaze.ByteString.Builder.Html.Word ( Blaze/ByteString/Builder/Html/Word.hs, nothing )
[ 5 of 11] Compiling Blaze.ByteString.Builder.Char8 ( Blaze/ByteString/Builder/Char8.hs, nothing )
[ 6 of 11] Compiling Blaze.ByteString.Builder.Char.Utf8 ( Blaze/ByteString/Builder/Char/Utf8.hs, nothing )
[ 7 of 11] Compiling Blaze.ByteString.Builder.Html.Utf8 ( Blaze/ByteString/Builder/Html/Utf8.hs, nothing )
[ 8 of 11] Compiling Blaze.ByteString.Builder.ByteString ( Blaze/ByteString/Builder/ByteString.hs, nothing )
[ 9 of 11] Compiling Blaze.ByteString.Builder.HTTP ( Blaze/ByteString/Builder/HTTP.hs, nothing )
[10 of 11] Compiling Blaze.ByteString.Builder.Word ( Blaze/ByteString/Builder/Word.hs, nothing )
[11 of 11] Compiling Blaze.ByteString.Builder ( Blaze/ByteString/Builder.hs, nothing )
Haddock coverage:
Warning: 'Poke' is ambiguous. It is defined
* at Blaze/ByteString/Builder/Internal/Write.hs:77:5
* at Blaze/ByteString/Builder/Internal/Write.hs:76:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Blaze/ByteString/Builder/Internal/Write.hs:76:1
Warning: 'Write' is ambiguous. It is defined
* at Blaze/ByteString/Builder/Internal/Write.hs:93:14
* at Blaze/ByteString/Builder/Internal/Write.hs:93:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Blaze/ByteString/Builder/Internal/Write.hs:93:1
96% ( 24 / 25) in 'Blaze.ByteString.Builder.Internal.Write'
Missing documentation for:
fromWriteSingleton (Blaze/ByteString/Builder/Internal/Write.hs:245)
50% ( 2 / 4) in 'Blaze.ByteString.Builder.Compat.Write'
Missing documentation for:
writePrimFixed (Blaze/ByteString/Builder/Compat/Write.hs:25)
writePrimBounded (Blaze/ByteString/Builder/Compat/Write.hs:29)
100% ( 43 / 43) in 'Blaze.ByteString.Builder.Int'
88% ( 8 / 9) in 'Blaze.ByteString.Builder.Html.Word'
Missing documentation for:
wordHtmlEscaped (Blaze/ByteString/Builder/Html/Word.hs:40)
Warning: 'bytestring' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 9 / 9) in 'Blaze.ByteString.Builder.Char8'
100% ( 9 / 9) in 'Blaze.ByteString.Builder.Char.Utf8'
Warning: 'Builder' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 10 / 10) in 'Blaze.ByteString.Builder.Html.Utf8'
100% ( 12 / 12) in 'Blaze.ByteString.Builder.ByteString'
100% ( 4 / 4) in 'Blaze.ByteString.Builder.HTTP'
100% ( 43 / 43) in 'Blaze.ByteString.Builder.Word'
Warning: 'fromString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'toLazyByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Write' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'fromWrite' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
91% ( 22 / 24) in 'Blaze.ByteString.Builder'
Missing documentation for:
toByteStringIOWith (Blaze/ByteString/Builder.hs:187)
fromWriteSingleton (Blaze/ByteString/Builder/Internal/Write.hs:245)
Documentation created: dist/doc/html/blaze-builder/,
dist/doc/html/blaze-builder/blaze-builder.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/blaze-builder-0.4.4.1-8j2XeR06mxnJMf1nnbZvi2
Completed blaze-builder-0.4.4.1
Configuring call-stack-0.4.0...
Preprocessing library for call-stack-0.4.0..
Building library for call-stack-0.4.0..
[1 of 3] Compiling Data.SrcLoc ( src/Data/SrcLoc.hs, dist/build/Data/SrcLoc.o, dist/build/Data/SrcLoc.dyn_o )
[2 of 3] Compiling Data.CallStack ( src/Data/CallStack.hs, dist/build/Data/CallStack.o, dist/build/Data/CallStack.dyn_o )
[3 of 3] Compiling Paths_call_stack ( dist/build/autogen/Paths_call_stack.hs, dist/build/Paths_call_stack.o, dist/build/Paths_call_stack.dyn_o )
Preprocessing library for call-stack-0.4.0..
Running Haddock on library for call-stack-0.4.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Data.SrcLoc ( src/Data/SrcLoc.hs, nothing )
[2 of 3] Compiling Data.CallStack ( src/Data/CallStack.hs, nothing )
[3 of 3] Compiling Paths_call_stack ( dist/build/autogen/Paths_call_stack.hs, nothing )
Haddock coverage:
33% ( 2 / 6) in 'Data.CallStack'
Missing documentation for:
Module header
CallStack (src/Data/CallStack.hs:42)
callStack (src/Data/CallStack.hs:45)
callSite (src/Data/CallStack.hs:55)
Warning: Data.CallStack: could not find link destinations for:
- GHC.Generics.Rep_SrcLoc
Documentation created: dist/doc/html/call-stack/,
dist/doc/html/call-stack/call-stack.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/call-stack-0.4.0-6toa6qiMTfCIj9v12ifnhn
Completed call-stack-0.4.0
Configuring character-ps-0.1...
Preprocessing library for character-ps-0.1..
Building library for character-ps-0.1..
[1 of 3] Compiling Data.Char.Patterns ( src/Data/Char/Patterns.hs, dist/build/Data/Char/Patterns.o, dist/build/Data/Char/Patterns.dyn_o )
[2 of 3] Compiling Data.Word16.Patterns ( src/Data/Word16/Patterns.hs, dist/build/Data/Word16/Patterns.o, dist/build/Data/Word16/Patterns.dyn_o )
[3 of 3] Compiling Data.Word8.Patterns ( src/Data/Word8/Patterns.hs, dist/build/Data/Word8/Patterns.o, dist/build/Data/Word8/Patterns.dyn_o )
Preprocessing library for character-ps-0.1..
Running Haddock on library for character-ps-0.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Data.Char.Patterns ( src/Data/Char/Patterns.hs, nothing )
[2 of 3] Compiling Data.Word16.Patterns ( src/Data/Word16/Patterns.hs, nothing )
[3 of 3] Compiling Data.Word8.Patterns ( src/Data/Word8/Patterns.hs, nothing )
Haddock coverage:
100% (137 /137) in 'Data.Char.Patterns'
100% (137 /137) in 'Data.Word16.Patterns'
100% (137 /137) in 'Data.Word8.Patterns'
Documentation created: dist/doc/html/character-ps/,
dist/doc/html/character-ps/character-ps.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/character-ps-0.1-AUtJVqsxjke1Iwdfhhw7tZ
Completed character-ps-0.1
Configuring colour-2.3.6...
Preprocessing library for colour-2.3.6..
Building library for colour-2.3.6..
[ 1 of 14] Compiling Data.Colour.CIE.Chromaticity ( Data/Colour/CIE/Chromaticity.hs, dist/build/Data/Colour/CIE/Chromaticity.o, dist/build/Data/Colour/CIE/Chromaticity.dyn_o )
[ 2 of 14] Compiling Data.Colour.CIE.Illuminant ( Data/Colour/CIE/Illuminant.hs, dist/build/Data/Colour/CIE/Illuminant.o, dist/build/Data/Colour/CIE/Illuminant.dyn_o )
[ 3 of 14] Compiling Data.Colour.Chan ( Data/Colour/Chan.hs, dist/build/Data/Colour/Chan.o, dist/build/Data/Colour/Chan.dyn_o )
[ 4 of 14] Compiling Data.Colour.Internal ( Data/Colour/Internal.hs, dist/build/Data/Colour/Internal.o, dist/build/Data/Colour/Internal.dyn_o )
[ 5 of 14] Compiling Data.Colour.Matrix ( Data/Colour/Matrix.hs, dist/build/Data/Colour/Matrix.o, dist/build/Data/Colour/Matrix.dyn_o )
[ 6 of 14] Compiling Data.Colour.RGB ( Data/Colour/RGB.hs, dist/build/Data/Colour/RGB.o, dist/build/Data/Colour/RGB.dyn_o )
[ 7 of 14] Compiling Data.Colour.RGBSpace.HSL ( Data/Colour/RGBSpace/HSL.hs, dist/build/Data/Colour/RGBSpace/HSL.o, dist/build/Data/Colour/RGBSpace/HSL.dyn_o )
[ 8 of 14] Compiling Data.Colour.RGBSpace.HSV ( Data/Colour/RGBSpace/HSV.hs, dist/build/Data/Colour/RGBSpace/HSV.o, dist/build/Data/Colour/RGBSpace/HSV.dyn_o )
[ 9 of 14] Compiling Data.Colour.SRGB.Linear ( Data/Colour/SRGB/Linear.hs, dist/build/Data/Colour/SRGB/Linear.o, dist/build/Data/Colour/SRGB/Linear.dyn_o )
[10 of 14] Compiling Data.Colour.RGBSpace ( Data/Colour/RGBSpace.hs, dist/build/Data/Colour/RGBSpace.o, dist/build/Data/Colour/RGBSpace.dyn_o )
[11 of 14] Compiling Data.Colour.SRGB ( Data/Colour/SRGB.hs, dist/build/Data/Colour/SRGB.o, dist/build/Data/Colour/SRGB.dyn_o )
Data/Colour/SRGB.hs:117:8: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
117 | x' | head x == '#' = tail x
| ^^^^
Data/Colour/SRGB.hs:117:24: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
117 | x' | head x == '#' = tail x
| ^^^^
Data/Colour/SRGB.hs:127:50: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
127 | sRGB24read x | length rx /= 1 || not (null (snd (head rx))) =
| ^^^^
Data/Colour/SRGB.hs:129:33: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
129 | | otherwise = fst (head rx)
| ^^^^
[12 of 14] Compiling Data.Colour ( Data/Colour.hs, dist/build/Data/Colour.o, dist/build/Data/Colour.dyn_o )
[13 of 14] Compiling Data.Colour.Names ( Data/Colour/Names.hs, dist/build/Data/Colour/Names.o, dist/build/Data/Colour/Names.dyn_o )
[14 of 14] Compiling Data.Colour.CIE ( Data/Colour/CIE.hs, dist/build/Data/Colour/CIE.o, dist/build/Data/Colour/CIE.dyn_o )
Preprocessing library for colour-2.3.6..
Running Haddock on library for colour-2.3.6..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 14] Compiling Data.Colour.CIE.Chromaticity ( Data/Colour/CIE/Chromaticity.hs, nothing )
[ 2 of 14] Compiling Data.Colour.CIE.Illuminant ( Data/Colour/CIE/Illuminant.hs, nothing )
[ 3 of 14] Compiling Data.Colour.Chan ( Data/Colour/Chan.hs, nothing )
[ 4 of 14] Compiling Data.Colour.Internal ( Data/Colour/Internal.hs, nothing )
[ 5 of 14] Compiling Data.Colour.Matrix ( Data/Colour/Matrix.hs, nothing )
[ 6 of 14] Compiling Data.Colour.RGB ( Data/Colour/RGB.hs, nothing )
[ 7 of 14] Compiling Data.Colour.RGBSpace.HSL ( Data/Colour/RGBSpace/HSL.hs, nothing )
[ 8 of 14] Compiling Data.Colour.RGBSpace.HSV ( Data/Colour/RGBSpace/HSV.hs, nothing )
[ 9 of 14] Compiling Data.Colour.SRGB.Linear ( Data/Colour/SRGB/Linear.hs, nothing )
[10 of 14] Compiling Data.Colour.RGBSpace ( Data/Colour/RGBSpace.hs, nothing )
[11 of 14] Compiling Data.Colour.SRGB ( Data/Colour/SRGB.hs, nothing )
Data/Colour/SRGB.hs:117:8: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
117 | x' | head x == '#' = tail x
| ^^^^
Data/Colour/SRGB.hs:117:24: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
117 | x' | head x == '#' = tail x
| ^^^^
Data/Colour/SRGB.hs:127:50: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
127 | sRGB24read x | length rx /= 1 || not (null (snd (head rx))) =
| ^^^^
Data/Colour/SRGB.hs:129:33: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
129 | | otherwise = fst (head rx)
| ^^^^
[12 of 14] Compiling Data.Colour ( Data/Colour.hs, nothing )
[13 of 14] Compiling Data.Colour.Names ( Data/Colour/Names.hs, nothing )
[14 of 14] Compiling Data.Colour.CIE ( Data/Colour/CIE.hs, nothing )
Haddock coverage:
100% ( 21 / 21) in 'Data.Colour.CIE.Illuminant'
Warning: 'RGBGamut' is ambiguous. It is defined
* at Data/Colour/RGB.hs:54:17
* at Data/Colour/RGB.hs:54:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Colour/RGB.hs:54:1
Warning: 'RGB' is ambiguous. It is defined
* at Data/Colour/RGB.hs:30:14
* at Data/Colour/RGB.hs:30:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Colour/RGB.hs:30:1
Warning: 'RGB' is ambiguous. It is defined
* at Data/Colour/RGB.hs:30:14
* at Data/Colour/RGB.hs:30:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Colour/RGB.hs:30:1
85% ( 6 / 7) in 'Data.Colour.RGBSpace.HSL'
Missing documentation for:
Module header
Warning: 'RGB' is ambiguous. It is defined
* at Data/Colour/RGB.hs:30:14
* at Data/Colour/RGB.hs:30:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Colour/RGB.hs:30:1
85% ( 6 / 7) in 'Data.Colour.RGBSpace.HSV'
Missing documentation for:
Module header
100% ( 6 / 6) in 'Data.Colour.SRGB.Linear'
Warning: 'RGBSpace' is ambiguous. It is defined
* at Data/Colour/RGBSpace.hs:122:19
* at Data/Colour/RGBSpace.hs:122:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Colour/RGBSpace.hs:122:1
Warning: 'TransferFunction' is ambiguous. It is defined
* at Data/Colour/RGBSpace.hs:92:27
* at Data/Colour/RGBSpace.hs:92:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Colour/RGBSpace.hs:92:1
Warning: 'RGB' is ambiguous. It is defined
* at Data/Colour/RGB.hs:30:14
* at Data/Colour/RGB.hs:30:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Colour/RGB.hs:30:1
Warning: 'RGBGamut' is ambiguous. It is defined
* at Data/Colour/RGB.hs:54:17
* at Data/Colour/RGB.hs:54:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Colour/RGB.hs:54:1
83% ( 20 / 24) in 'Data.Colour.RGBSpace'
Missing documentation for:
primaries
whitePoint
gamut
transferFunction
100% ( 14 / 14) in 'Data.Colour.SRGB'
85% ( 17 / 20) in 'Data.Colour'
Missing documentation for:
black (Data/Colour/Internal.hs:53)
AffineSpace (Data/Colour/Internal.hs:110)
ColourOps (Data/Colour/Internal.hs:147)
0% ( 1 /149) in 'Data.Colour.Names'
Missing documentation for:
readColourName (Data/Colour/Names.hs:190)
aliceblue (Data/Colour/Names.hs:341)
antiquewhite (Data/Colour/Names.hs:344)
aqua (Data/Colour/Names.hs:347)
aquamarine (Data/Colour/Names.hs:350)
azure (Data/Colour/Names.hs:353)
beige (Data/Colour/Names.hs:356)
bisque (Data/Colour/Names.hs:359)
black (Data/Colour/Internal.hs:53)
blanchedalmond (Data/Colour/Names.hs:364)
blue (Data/Colour/Names.hs:367)
blueviolet (Data/Colour/Names.hs:370)
brown (Data/Colour/Names.hs:373)
burlywood (Data/Colour/Names.hs:376)
cadetblue (Data/Colour/Names.hs:379)
chartreuse (Data/Colour/Names.hs:382)
chocolate (Data/Colour/Names.hs:385)
coral (Data/Colour/Names.hs:388)
cornflowerblue (Data/Colour/Names.hs:391)
cornsilk (Data/Colour/Names.hs:394)
crimson (Data/Colour/Names.hs:397)
cyan (Data/Colour/Names.hs:400)
darkblue (Data/Colour/Names.hs:403)
darkcyan (Data/Colour/Names.hs:406)
darkgoldenrod (Data/Colour/Names.hs:409)
darkgray (Data/Colour/Names.hs:412)
darkgreen (Data/Colour/Names.hs:415)
darkgrey (Data/Colour/Names.hs:418)
darkkhaki (Data/Colour/Names.hs:421)
darkmagenta (Data/Colour/Names.hs:424)
darkolivegreen (Data/Colour/Names.hs:427)
darkorange (Data/Colour/Names.hs:430)
darkorchid (Data/Colour/Names.hs:433)
darkred (Data/Colour/Names.hs:436)
darksalmon (Data/Colour/Names.hs:439)
darkseagreen (Data/Colour/Names.hs:442)
darkslateblue (Data/Colour/Names.hs:445)
darkslategray (Data/Colour/Names.hs:448)
darkslategrey (Data/Colour/Names.hs:451)
darkturquoise (Data/Colour/Names.hs:454)
darkviolet (Data/Colour/Names.hs:457)
deeppink (Data/Colour/Names.hs:460)
deepskyblue (Data/Colour/Names.hs:463)
dimgray (Data/Colour/Names.hs:466)
dimgrey (Data/Colour/Names.hs:469)
dodgerblue (Data/Colour/Names.hs:472)
firebrick (Data/Colour/Names.hs:475)
floralwhite (Data/Colour/Names.hs:478)
forestgreen (Data/Colour/Names.hs:481)
fuchsia (Data/Colour/Names.hs:484)
gainsboro (Data/Colour/Names.hs:487)
ghostwhite (Data/Colour/Names.hs:490)
gold (Data/Colour/Names.hs:493)
goldenrod (Data/Colour/Names.hs:496)
gray (Data/Colour/Names.hs:499)
grey (Data/Colour/Names.hs:502)
green (Data/Colour/Names.hs:505)
greenyellow (Data/Colour/Names.hs:508)
honeydew (Data/Colour/Names.hs:511)
hotpink (Data/Colour/Names.hs:514)
indianred (Data/Colour/Names.hs:517)
indigo (Data/Colour/Names.hs:520)
ivory (Data/Colour/Names.hs:523)
khaki (Data/Colour/Names.hs:526)
lavender (Data/Colour/Names.hs:529)
lavenderblush (Data/Colour/Names.hs:532)
lawngreen (Data/Colour/Names.hs:535)
lemonchiffon (Data/Colour/Names.hs:538)
lightblue (Data/Colour/Names.hs:541)
lightcoral (Data/Colour/Names.hs:544)
lightcyan (Data/Colour/Names.hs:547)
lightgoldenrodyellow (Data/Colour/Names.hs:550)
lightgray (Data/Colour/Names.hs:553)
lightgreen (Data/Colour/Names.hs:556)
lightgrey (Data/Colour/Names.hs:559)
lightpink (Data/Colour/Names.hs:562)
lightsalmon (Data/Colour/Names.hs:565)
lightseagreen (Data/Colour/Names.hs:568)
lightskyblue (Data/Colour/Names.hs:571)
lightslategray (Data/Colour/Names.hs:574)
lightslategrey (Data/Colour/Names.hs:577)
lightsteelblue (Data/Colour/Names.hs:580)
lightyellow (Data/Colour/Names.hs:583)
lime (Data/Colour/Names.hs:586)
limegreen (Data/Colour/Names.hs:589)
linen (Data/Colour/Names.hs:592)
magenta (Data/Colour/Names.hs:595)
maroon (Data/Colour/Names.hs:598)
mediumaquamarine (Data/Colour/Names.hs:601)
mediumblue (Data/Colour/Names.hs:604)
mediumorchid (Data/Colour/Names.hs:607)
mediumpurple (Data/Colour/Names.hs:610)
mediumseagreen (Data/Colour/Names.hs:613)
mediumslateblue (Data/Colour/Names.hs:616)
mediumspringgreen (Data/Colour/Names.hs:619)
mediumturquoise (Data/Colour/Names.hs:622)
mediumvioletred (Data/Colour/Names.hs:625)
midnightblue (Data/Colour/Names.hs:628)
mintcream (Data/Colour/Names.hs:631)
mistyrose (Data/Colour/Names.hs:634)
moccasin (Data/Colour/Names.hs:637)
navajowhite (Data/Colour/Names.hs:640)
navy (Data/Colour/Names.hs:643)
oldlace (Data/Colour/Names.hs:646)
olive (Data/Colour/Names.hs:649)
olivedrab (Data/Colour/Names.hs:652)
orange (Data/Colour/Names.hs:655)
orangered (Data/Colour/Names.hs:658)
orchid (Data/Colour/Names.hs:661)
palegoldenrod (Data/Colour/Names.hs:664)
palegreen (Data/Colour/Names.hs:667)
paleturquoise (Data/Colour/Names.hs:670)
palevioletred (Data/Colour/Names.hs:673)
papayawhip (Data/Colour/Names.hs:676)
peachpuff (Data/Colour/Names.hs:679)
peru (Data/Colour/Names.hs:682)
pink (Data/Colour/Names.hs:685)
plum (Data/Colour/Names.hs:688)
powderblue (Data/Colour/Names.hs:691)
purple (Data/Colour/Names.hs:694)
red (Data/Colour/Names.hs:697)
rosybrown (Data/Colour/Names.hs:700)
royalblue (Data/Colour/Names.hs:703)
saddlebrown (Data/Colour/Names.hs:706)
salmon (Data/Colour/Names.hs:709)
sandybrown (Data/Colour/Names.hs:712)
seagreen (Data/Colour/Names.hs:715)
seashell (Data/Colour/Names.hs:718)
sienna (Data/Colour/Names.hs:721)
silver (Data/Colour/Names.hs:724)
skyblue (Data/Colour/Names.hs:727)
slateblue (Data/Colour/Names.hs:730)
slategray (Data/Colour/Names.hs:733)
slategrey (Data/Colour/Names.hs:736)
snow (Data/Colour/Names.hs:739)
springgreen (Data/Colour/Names.hs:742)
steelblue (Data/Colour/Names.hs:745)
tan (Data/Colour/Names.hs:748)
teal (Data/Colour/Names.hs:751)
thistle (Data/Colour/Names.hs:754)
tomato (Data/Colour/Names.hs:757)
turquoise (Data/Colour/Names.hs:760)
violet (Data/Colour/Names.hs:763)
wheat (Data/Colour/Names.hs:766)
white (Data/Colour/Names.hs:769)
whitesmoke (Data/Colour/Names.hs:772)
yellow (Data/Colour/Names.hs:775)
yellowgreen (Data/Colour/Names.hs:778)
Warning: 'toCIEXYZ' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'cieXYZView' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
88% ( 15 / 17) in 'Data.Colour.CIE'
Missing documentation for:
toCIEXYZ (Data/Colour/CIE.hs:65)
Chromaticity (Data/Colour/CIE/Chromaticity.hs:25)
Documentation created: dist/doc/html/colour/, dist/doc/html/colour/colour.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/colour-2.3.6-JegldMtiv9a8c4VaIBFkGx
Completed colour-2.3.6
Configuring data-default-0.8.0.1...
Preprocessing library for data-default-0.8.0.1..
Building library for data-default-0.8.0.1..
[1 of 2] Compiling Data.Default.Internal ( Data/Default/Internal.hs, dist/build/Data/Default/Internal.o, dist/build/Data/Default/Internal.dyn_o )
[2 of 2] Compiling Data.Default ( Data/Default.hs, dist/build/Data/Default.o, dist/build/Data/Default.dyn_o )
Preprocessing library for data-default-0.8.0.1..
Running Haddock on library for data-default-0.8.0.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling Data.Default.Internal ( Data/Default/Internal.hs, nothing )
[2 of 2] Compiling Data.Default ( Data/Default.hs, nothing )
Haddock coverage:
100% ( 3 / 3) in 'Data.Default.Internal'
100% ( 2 / 2) in 'Data.Default'
Documentation created: dist/doc/html/data-default/,
dist/doc/html/data-default/data-default.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/data-default-0.8.0.1-1xCv6D5orjY6O9aT2YDXOA
Completed data-default-0.8.0.1
Configuring dlist-1.0...
Preprocessing library for dlist-1.0..
Building library for dlist-1.0..
[1 of 5] Compiling Data.DList.Internal ( Data/DList/Internal.hs, dist/build/Data/DList/Internal.o, dist/build/Data/DList/Internal.dyn_o )
Data/DList/Internal.hs:642:12: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
642 | instance a ~ Char => IsString (DList a) where
| ^
[2 of 5] Compiling Data.DList ( Data/DList.hs, dist/build/Data/DList.o, dist/build/Data/DList.dyn_o )
[3 of 5] Compiling Data.DList.DNonEmpty.Internal ( Data/DList/DNonEmpty/Internal.hs, dist/build/Data/DList/DNonEmpty/Internal.o, dist/build/Data/DList/DNonEmpty/Internal.dyn_o )
Data/DList/DNonEmpty/Internal.hs:459:12: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
459 | instance a ~ Char => IsString (DNonEmpty a) where
| ^
[4 of 5] Compiling Data.DList.DNonEmpty ( Data/DList/DNonEmpty.hs, dist/build/Data/DList/DNonEmpty.o, dist/build/Data/DList/DNonEmpty.dyn_o )
[5 of 5] Compiling Data.DList.Unsafe ( Data/DList/Unsafe.hs, dist/build/Data/DList/Unsafe.o, dist/build/Data/DList/Unsafe.dyn_o )
Preprocessing library for dlist-1.0..
Running Haddock on library for dlist-1.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 5] Compiling Data.DList.Internal ( Data/DList/Internal.hs, nothing )
Data/DList/Internal.hs:642:12: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
642 | instance a ~ Char => IsString (DList a) where
| ^
[2 of 5] Compiling Data.DList ( Data/DList.hs, nothing )
[3 of 5] Compiling Data.DList.DNonEmpty.Internal ( Data/DList/DNonEmpty/Internal.hs, nothing )
Data/DList/DNonEmpty/Internal.hs:459:12: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
459 | instance a ~ Char => IsString (DNonEmpty a) where
| ^
[4 of 5] Compiling Data.DList.DNonEmpty ( Data/DList/DNonEmpty.hs, nothing )
[5 of 5] Compiling Data.DList.Unsafe ( Data/DList/Unsafe.hs, nothing )
Haddock coverage:
100% ( 21 / 21) in 'Data.DList'
100% ( 17 / 17) in 'Data.DList.DNonEmpty'
Warning: Data.DList: could not find link destinations for:
- Data.DList.Internal.D:R:ItemDList
Warning: Data.DList.DNonEmpty: could not find link destinations for:
- Data.DList.DNonEmpty.Internal.D:R:ItemDNonEmpty
Documentation created: dist/doc/html/dlist/, dist/doc/html/dlist/dlist.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/dlist-1.0-64eJjLRuD1sLrW6rorjot6
Completed dlist-1.0
Configuring easy-file-0.2.5...
Preprocessing library for easy-file-0.2.5..
Building library for easy-file-0.2.5..
[1 of 4] Compiling System.EasyFile.Directory ( System/EasyFile/Directory.hs, dist/build/System/EasyFile/Directory.o, dist/build/System/EasyFile/Directory.dyn_o )
[2 of 4] Compiling System.EasyFile.FilePath ( System/EasyFile/FilePath.hs, dist/build/System/EasyFile/FilePath.o, dist/build/System/EasyFile/FilePath.dyn_o )
System/EasyFile/FilePath.hs:517:63: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
517 | combine a b | hasDrive b || (not (null b) && isPathSeparator (head b)) = b
| ^^^^
System/EasyFile/FilePath.hs:561:31: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
561 | if hasDrive path then head pathComponents : f (tail pathComponents)
| ^^^^
System/EasyFile/FilePath.hs:561:56: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
561 | if hasDrive path then head pathComponents : f (tail pathComponents)
| ^^^^
[3 of 4] Compiling System.EasyFile.Missing ( System/EasyFile/Missing.hs, dist/build/System/EasyFile/Missing.o, dist/build/System/EasyFile/Missing.dyn_o )
[4 of 4] Compiling System.EasyFile ( System/EasyFile.hs, dist/build/System/EasyFile.o, dist/build/System/EasyFile.dyn_o )
Preprocessing library for easy-file-0.2.5..
Running Haddock on library for easy-file-0.2.5..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 4] Compiling System.EasyFile.Directory ( System/EasyFile/Directory.hs, nothing )
[2 of 4] Compiling System.EasyFile.FilePath ( System/EasyFile/FilePath.hs, nothing )
System/EasyFile/FilePath.hs:517:63: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
517 | combine a b | hasDrive b || (not (null b) && isPathSeparator (head b)) = b
| ^^^^
System/EasyFile/FilePath.hs:561:31: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
561 | if hasDrive path then head pathComponents : f (tail pathComponents)
| ^^^^
System/EasyFile/FilePath.hs:561:56: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
561 | if hasDrive path then head pathComponents : f (tail pathComponents)
| ^^^^
[3 of 4] Compiling System.EasyFile.Missing ( System/EasyFile/Missing.hs, nothing )
[4 of 4] Compiling System.EasyFile ( System/EasyFile.hs, nothing )
Haddock coverage:
Warning: 'HardwareFault' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'isDoesNotExistError' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'NoSuchThing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'isPermissionError' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'PermissionDenied' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ResourceExhausted' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'UnsupportedOperation' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: System.EasyFile.Directory: Could not find documentation for exported module: System.EasyFile.Directory
Warning: 'isPermissionError' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'isDoesNotExistError' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ClockTime' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'UTCTime' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
98% ( 83 / 84) in 'System.EasyFile'
Missing documentation for:
Permissions
Documentation created: dist/doc/html/easy-file/,
dist/doc/html/easy-file/easy-file.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/easy-file-0.2.5-I4fqOg3gbxNK5ixEQNQkLS
Completed easy-file-0.2.5
Configuring generically-0.1.1...
Preprocessing library for generically-0.1.1..
Building library for generically-0.1.1..
[1 of 1] Compiling GHC.Generics.Generically ( src/GHC/Generics/Generically.hs, dist/build/GHC/Generics/Generically.o, dist/build/GHC/Generics/Generically.dyn_o )
Preprocessing library for generically-0.1.1..
Running Haddock on library for generically-0.1.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling GHC.Generics.Generically ( src/GHC/Generics/Generically.hs, nothing )
Haddock coverage:
Warning: 'Generically' is ambiguous. It is defined
* in GHC.Generics
* in GHC.Generics
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Generics
100% ( 3 / 3) in 'GHC.Generics.Generically'
Documentation created: dist/doc/html/generically/,
dist/doc/html/generically/generically.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/generically-0.1.1-vTL0zKNdCC1ZY9eXzpWeP
Completed generically-0.1.1
Configuring haskell-lexer-1.2.1...
Preprocessing library for haskell-lexer-1.2.1..
Building library for haskell-lexer-1.2.1..
[1 of 6] Compiling Language.Haskell.Lexer.Position ( Language/Haskell/Lexer/Position.hs, dist/build/Language/Haskell/Lexer/Position.o, dist/build/Language/Haskell/Lexer/Position.dyn_o )
[2 of 6] Compiling Language.Haskell.Lexer.Tokens ( Language/Haskell/Lexer/Tokens.hs, dist/build/Language/Haskell/Lexer/Tokens.o, dist/build/Language/Haskell/Lexer/Tokens.dyn_o )
[3 of 6] Compiling Language.Haskell.Lexer.Layout ( Language/Haskell/Lexer/Layout.hs, dist/build/Language/Haskell/Lexer/Layout.o, dist/build/Language/Haskell/Lexer/Layout.dyn_o )
[4 of 6] Compiling Language.Haskell.Lexer.Utils ( Language/Haskell/Lexer/Utils.hs, dist/build/Language/Haskell/Lexer/Utils.o, dist/build/Language/Haskell/Lexer/Utils.dyn_o )
[5 of 6] Compiling Language.Haskell.Lexer.Lex ( Language/Haskell/Lexer/Lex.hs, dist/build/Language/Haskell/Lexer/Lex.o, dist/build/Language/Haskell/Lexer/Lex.dyn_o )
[6 of 6] Compiling Language.Haskell.Lexer ( Language/Haskell/Lexer.hs, dist/build/Language/Haskell/Lexer.o, dist/build/Language/Haskell/Lexer.dyn_o )
Preprocessing library for haskell-lexer-1.2.1..
Running Haddock on library for haskell-lexer-1.2.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 6] Compiling Language.Haskell.Lexer.Position ( Language/Haskell/Lexer/Position.hs, nothing )
[2 of 6] Compiling Language.Haskell.Lexer.Tokens ( Language/Haskell/Lexer/Tokens.hs, nothing )
[3 of 6] Compiling Language.Haskell.Lexer.Layout ( Language/Haskell/Lexer/Layout.hs, nothing )
[4 of 6] Compiling Language.Haskell.Lexer.Utils ( Language/Haskell/Lexer/Utils.hs, nothing )
[5 of 6] Compiling Language.Haskell.Lexer.Lex ( Language/Haskell/Lexer/Lex.hs, nothing )
[6 of 6] Compiling Language.Haskell.Lexer ( Language/Haskell/Lexer.hs, nothing )
Haddock coverage:
Warning: Language.Haskell.Lexer.Utils: Could not find documentation for exported module: Language.Haskell.Lexer.Utils
84% ( 11 / 13) in 'Language.Haskell.Lexer'
Missing documentation for:
Module header
PosToken (Language/Haskell/Lexer/Layout.hs:6)
Documentation created: dist/doc/html/haskell-lexer/,
dist/doc/html/haskell-lexer/haskell-lexer.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/haskell-lexer-1.2.1-5D7BleVUwq58CSz4mUgrgH
Completed haskell-lexer-1.2.1
Configuring hspec-discover-2.11.14...
Preprocessing library for hspec-discover-2.11.14..
Building library for hspec-discover-2.11.14..
[1 of 4] Compiling Paths_hspec_discover ( dist/build/autogen/Paths_hspec_discover.hs, dist/build/Paths_hspec_discover.o, dist/build/Paths_hspec_discover.dyn_o )
[2 of 4] Compiling Test.Hspec.Discover.Config ( src/Test/Hspec/Discover/Config.hs, dist/build/Test/Hspec/Discover/Config.o, dist/build/Test/Hspec/Discover/Config.dyn_o )
[3 of 4] Compiling Test.Hspec.Discover.Sort ( src/Test/Hspec/Discover/Sort.hs, dist/build/Test/Hspec/Discover/Sort.o, dist/build/Test/Hspec/Discover/Sort.dyn_o )
[4 of 4] Compiling Test.Hspec.Discover.Run ( src/Test/Hspec/Discover/Run.hs, dist/build/Test/Hspec/Discover/Run.o, dist/build/Test/Hspec/Discover/Run.dyn_o )
Preprocessing executable 'hspec-discover' for hspec-discover-2.11.14..
Building executable 'hspec-discover' for hspec-discover-2.11.14..
[1 of 2] Compiling Main ( driver/hspec-discover.hs, dist/build/hspec-discover/hspec-discover-tmp/Main.o )
[2 of 2] Compiling Paths_hspec_discover ( dist/build/hspec-discover/autogen/Paths_hspec_discover.hs, dist/build/hspec-discover/hspec-discover-tmp/Paths_hspec_discover.o )
[3 of 3] Linking dist/build/hspec-discover/hspec-discover
Preprocessing library for hspec-discover-2.11.14..
Running Haddock on library for hspec-discover-2.11.14..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 4] Compiling Paths_hspec_discover ( dist/build/autogen/Paths_hspec_discover.hs, nothing )
[2 of 4] Compiling Test.Hspec.Discover.Config ( src/Test/Hspec/Discover/Config.hs, nothing )
[3 of 4] Compiling Test.Hspec.Discover.Sort ( src/Test/Hspec/Discover/Sort.hs, nothing )
[4 of 4] Compiling Test.Hspec.Discover.Run ( src/Test/Hspec/Discover/Run.hs, nothing )
Haddock coverage:
20% ( 1 / 5) in 'Test.Hspec.Discover.Config'
Missing documentation for:
Config (src/Test/Hspec/Discover/Config.hs:14)
defaultConfig (src/Test/Hspec/Discover/Config.hs:22)
parseConfig (src/Test/Hspec/Discover/Config.hs:36)
usage (src/Test/Hspec/Discover/Config.hs:33)
25% ( 1 / 4) in 'Test.Hspec.Discover.Sort'
Missing documentation for:
sortNaturallyBy (src/Test/Hspec/Discover/Sort.hs:16)
NaturalSortKey (src/Test/Hspec/Discover/Sort.hs:18)
naturalSortKey (src/Test/Hspec/Discover/Sort.hs:25)
36% ( 4 / 11) in 'Test.Hspec.Discover.Run'
Missing documentation for:
run (src/Test/Hspec/Discover/Run.hs:43)
Spec (src/Test/Hspec/Discover/Run.hs:39)
driverWithFormatter (src/Test/Hspec/Discover/Run.hs:92)
Tree (src/Test/Hspec/Discover/Run.hs:160)
Forest (src/Test/Hspec/Discover/Run.hs:163)
Hook (src/Test/Hspec/Discover/Run.hs:166)
discover (src/Test/Hspec/Discover/Run.hs:175)
Documentation created: dist/doc/html/hspec-discover/,
dist/doc/html/hspec-discover/hspec-discover.txt
Preprocessing executable 'hspec-discover' for hspec-discover-2.11.14..
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-discover-2.11.14-3h9ooJb2OALK4G1Q3YtrT6
Installing executable hspec-discover in /var/lib/hackage-doc-builder/build-cache/tmp-install/bin
Warning: The directory
/var/lib/hackage-doc-builder/build-cache/tmp-install/bin is not in the system
search path.
Completed hspec-discover-2.11.14
Configuring indexed-traversable-0.1.4...
Preprocessing library for indexed-traversable-0.1.4..
Building library for indexed-traversable-0.1.4..
[1 of 7] Compiling CoerceCompat ( src/CoerceCompat.hs, dist/build/CoerceCompat.o, dist/build/CoerceCompat.dyn_o )
[2 of 7] Compiling GhcList ( src/GhcList.hs, dist/build/GhcList.o, dist/build/GhcList.dyn_o )
[3 of 7] Compiling WithIndex ( src/WithIndex.hs, dist/build/WithIndex.o, dist/build/WithIndex.dyn_o )
[4 of 7] Compiling Data.Traversable.WithIndex ( src/Data/Traversable/WithIndex.hs, dist/build/Data/Traversable/WithIndex.o, dist/build/Data/Traversable/WithIndex.dyn_o )
[5 of 7] Compiling Data.Functor.WithIndex ( src/Data/Functor/WithIndex.hs, dist/build/Data/Functor/WithIndex.o, dist/build/Data/Functor/WithIndex.dyn_o )
[6 of 7] Compiling Data.Foldable1.WithIndex ( src/Data/Foldable1/WithIndex.hs, dist/build/Data/Foldable1/WithIndex.o, dist/build/Data/Foldable1/WithIndex.dyn_o )
[7 of 7] Compiling Data.Foldable.WithIndex ( src/Data/Foldable/WithIndex.hs, dist/build/Data/Foldable/WithIndex.o, dist/build/Data/Foldable/WithIndex.dyn_o )
Preprocessing library for indexed-traversable-0.1.4..
Running Haddock on library for indexed-traversable-0.1.4..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 7] Compiling CoerceCompat ( src/CoerceCompat.hs, nothing )
[2 of 7] Compiling GhcList ( src/GhcList.hs, nothing )
[3 of 7] Compiling WithIndex ( src/WithIndex.hs, nothing )
[4 of 7] Compiling Data.Traversable.WithIndex ( src/Data/Traversable/WithIndex.hs, nothing )
[5 of 7] Compiling Data.Functor.WithIndex ( src/Data/Functor/WithIndex.hs, nothing )
[6 of 7] Compiling Data.Foldable1.WithIndex ( src/Data/Foldable1/WithIndex.hs, nothing )
[7 of 7] Compiling Data.Foldable.WithIndex ( src/Data/Foldable/WithIndex.hs, nothing )
Haddock coverage:
Warning: 'a' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'const' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Identity' is ambiguous. It is defined
* in Data.Functor.Identity
* in Data.Functor.Identity
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Functor.Identity
Warning: 'itraverseOf' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'itraversed' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ifoldr1' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ifoldl1'' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ifoldl1' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ifoldr1'' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'for' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: '.' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'const' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'mapM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'forM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
83% ( 10 / 12) in 'Data.Traversable.WithIndex'
Missing documentation for:
imapDefault (src/WithIndex.hs:81)
ifoldMapDefault (src/WithIndex.hs:162)
66% ( 2 / 3) in 'Data.Functor.WithIndex'
Missing documentation for:
Module header
100% ( 3 / 3) in 'Data.Foldable1.WithIndex'
Warning: 'const' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'all' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'traverse_' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'for_' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'IndexedFold' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'mapM_' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'imapM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'iforM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'concatMap' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'find' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'foldrM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'foldlM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'toList' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'snd' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 17 / 17) in 'Data.Foldable.WithIndex'
Documentation created: dist/doc/html/indexed-traversable/,
dist/doc/html/indexed-traversable/indexed-traversable.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/indexed-traversable-0.1.4-5JdsPOnURa2E0CZ9MR1Y0G
Completed indexed-traversable-0.1.4
Configuring integer-logarithms-1.0.4...
Preprocessing library for integer-logarithms-1.0.4..
Building library for integer-logarithms-1.0.4..
[1 of 4] Compiling GHC.Integer.Logarithms.Compat ( src/GHC/Integer/Logarithms/Compat.hs, dist/build/GHC/Integer/Logarithms/Compat.o, dist/build/GHC/Integer/Logarithms/Compat.dyn_o )
[2 of 4] Compiling Math.NumberTheory.Logarithms ( src/Math/NumberTheory/Logarithms.hs, dist/build/Math/NumberTheory/Logarithms.o, dist/build/Math/NumberTheory/Logarithms.dyn_o )
[3 of 4] Compiling Math.NumberTheory.Powers.Integer ( src/Math/NumberTheory/Powers/Integer.hs, dist/build/Math/NumberTheory/Powers/Integer.o, dist/build/Math/NumberTheory/Powers/Integer.dyn_o )
[4 of 4] Compiling Math.NumberTheory.Powers.Natural ( src/Math/NumberTheory/Powers/Natural.hs, dist/build/Math/NumberTheory/Powers/Natural.o, dist/build/Math/NumberTheory/Powers/Natural.dyn_o )
Preprocessing library for integer-logarithms-1.0.4..
Running Haddock on library for integer-logarithms-1.0.4..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 4] Compiling GHC.Integer.Logarithms.Compat ( src/GHC/Integer/Logarithms/Compat.hs, nothing )
[2 of 4] Compiling Math.NumberTheory.Logarithms ( src/Math/NumberTheory/Logarithms.hs, nothing )
[3 of 4] Compiling Math.NumberTheory.Powers.Integer ( src/Math/NumberTheory/Powers/Integer.hs, nothing )
[4 of 4] Compiling Math.NumberTheory.Powers.Natural ( src/Math/NumberTheory/Powers/Natural.hs, nothing )
Haddock coverage:
40% ( 2 / 5) in 'GHC.Integer.Logarithms.Compat'
Missing documentation for:
integerLogBase#
integerLog2#
wordLog2#
100% ( 17 / 17) in 'Math.NumberTheory.Logarithms'
100% ( 3 / 3) in 'Math.NumberTheory.Powers.Integer'
100% ( 3 / 3) in 'Math.NumberTheory.Powers.Natural'
Documentation created: dist/doc/html/integer-logarithms/,
dist/doc/html/integer-logarithms/integer-logarithms.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/integer-logarithms-1.0.4-KzAgsevoV5Y6IrFUclFTyp
Completed integer-logarithms-1.0.4
Configuring lift-type-0.1.2.0...
Preprocessing library for lift-type-0.1.2.0..
Building library for lift-type-0.1.2.0..
src/LiftType.hs:7:14: warning: [GHC-53692] [-Wdeprecated-flags]
-XTypeInType is deprecated: use -XDataKinds and -XPolyKinds instead
|
7 | {-# LANGUAGE TypeInType #-}
| ^^^^^^^^^^
[1 of 1] Compiling LiftType ( src/LiftType.hs, dist/build/LiftType.o, dist/build/LiftType.dyn_o )
Preprocessing library for lift-type-0.1.2.0..
Running Haddock on library for lift-type-0.1.2.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
src/LiftType.hs:7:14: warning: [GHC-53692] [-Wdeprecated-flags]
-XTypeInType is deprecated: use -XDataKinds and -XPolyKinds instead
|
7 | {-# LANGUAGE TypeInType #-}
| ^^^^^^^^^^
[1 of 1] Compiling LiftType ( src/LiftType.hs, nothing )
Haddock coverage:
Warning: 'Q' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* in Language.Haskell.TH.Syntax
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Syntax
Warning: 'TExp' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* in Language.Haskell.TH.Syntax
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Syntax
Warning: 'SomeTypeRep' is ambiguous. It is defined
* in Data.Typeable.Internal
* in Data.Typeable.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Typeable.Internal
Warning: 'Name' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* in Language.Haskell.TH.Syntax
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Syntax
100% ( 8 / 8) in 'LiftType'
Documentation created: dist/doc/html/lift-type/,
dist/doc/html/lift-type/lift-type.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/lift-type-0.1.2.0-Bezc4YE1qkJCzmMxrrewIC
Completed lift-type-0.1.2.0
Configuring monad-loops-0.4.3...
Preprocessing library for monad-loops-0.4.3..
Building library for monad-loops-0.4.3..
[1 of 1] Compiling Control.Monad.Loops ( src/Control/Monad/Loops.hs, dist/build/Control/Monad/Loops.o, dist/build/Control/Monad/Loops.dyn_o )
Preprocessing library for monad-loops-0.4.3..
Running Haddock on library for monad-loops-0.4.3..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Control.Monad.Loops ( src/Control/Monad/Loops.hs, nothing )
Haddock coverage:
Warning: Control.Monad.Loops: Could not find documentation for exported module: Control.Monad.Loops
75% ( 36 / 48) in 'Control.Monad.Loops'
Missing documentation for:
minimaOnByM (src/Control/Monad/Loops.hs:406)
maximaOnByM (src/Control/Monad/Loops.hs:421)
minimaByM (src/Control/Monad/Loops.hs:424)
maximaByM (src/Control/Monad/Loops.hs:427)
minimaOnM (src/Control/Monad/Loops.hs:430)
maximaOnM (src/Control/Monad/Loops.hs:433)
minimumOnByM (src/Control/Monad/Loops.hs:437)
maximumOnByM (src/Control/Monad/Loops.hs:452)
minimumByM (src/Control/Monad/Loops.hs:455)
maximumByM (src/Control/Monad/Loops.hs:458)
minimumOnM (src/Control/Monad/Loops.hs:461)
maximumOnM (src/Control/Monad/Loops.hs:464)
Documentation created: dist/doc/html/monad-loops/,
dist/doc/html/monad-loops/monad-loops.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/monad-loops-0.4.3-E8lkPrSfxqUDEDJGlndSx6
Completed monad-loops-0.4.3
Configuring network-3.2.8.0...
configure: WARNING: unrecognized options: --with-compiler
checking build system type... x86_64-pc-linux-gnu
checking host system type... x86_64-pc-linux-gnu
checking for gcc... /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables...
checking whether we are cross compiling... no
checking for suffix of object files... o
checking whether the compiler supports GNU C... yes
checking whether /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc accepts -g... yes
checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc option to enable C11 features... none needed
checking for an ANSI C-conforming const... yes
checking for stdio.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for inttypes.h... yes
checking for stdint.h... yes
checking for strings.h... yes
checking for sys/stat.h... yes
checking for sys/types.h... yes
checking for unistd.h... yes
checking for limits.h... yes
checking for stdlib.h... (cached) yes
checking for unistd.h... (cached) yes
checking for sys/types.h... (cached) yes
checking for fcntl.h... yes
checking for sys/uio.h... yes
checking for sys/socket.h... yes
checking for netinet/in.h... yes
checking for netinet/tcp.h... yes
checking for sys/un.h... yes
checking for arpa/inet.h... yes
checking for netdb.h... yes
checking for net/if.h... yes
checking for netioapi.h... no
checking for struct ucred... yes
checking for gai_strerror... yes
checking for gethostent... yes
checking for accept4... yes
checking for getpeereid... no
checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc options needed to detect all undeclared functions... none needed
checking whether AI_ADDRCONFIG is declared... yes
checking whether AI_ALL is declared... yes
checking whether AI_NUMERICSERV is declared... yes
checking whether AI_V4MAPPED is declared... yes
checking whether IPV6_V6ONLY is declared... yes
checking whether IPPROTO_IP is declared... yes
checking whether IPPROTO_TCP is declared... yes
checking whether IPPROTO_IPV6 is declared... yes
checking whether SO_PEERCRED is declared... yes
checking whether IP_DONTFRAG is declared... no
checking whether IP_MTU_DISCOVER is declared... yes
checking for struct msghdr.msg_control... yes
checking for struct msghdr.msg_accrights... no
checking for struct sockaddr.sa_len... no
configure: creating ./network.buildinfo
configure: creating ./config.status
config.status: creating include/HsNetworkConfig.h
configure: WARNING: unrecognized options: --with-compiler
Preprocessing library for network-3.2.8.0..
Building library for network-3.2.8.0..
[ 1 of 29] Compiling Network.Socket.Imports ( Network/Socket/Imports.hs, dist/build/Network/Socket/Imports.o, dist/build/Network/Socket/Imports.dyn_o )
[ 2 of 29] Compiling Network.Socket.If ( Network/Socket/If.hs, dist/build/Network/Socket/If.o, dist/build/Network/Socket/If.dyn_o )
[ 3 of 29] Compiling Network.Socket.Flag ( dist/build/Network/Socket/Flag.hs, dist/build/Network/Socket/Flag.o, dist/build/Network/Socket/Flag.dyn_o )
[ 4 of 29] Compiling Network.Socket.Cbits ( dist/build/Network/Socket/Cbits.hs, dist/build/Network/Socket/Cbits.o, dist/build/Network/Socket/Cbits.dyn_o )
[ 5 of 29] Compiling Network.Socket.Fcntl ( Network/Socket/Fcntl.hs, dist/build/Network/Socket/Fcntl.o, dist/build/Network/Socket/Fcntl.dyn_o )
[ 6 of 29] Compiling Network.Socket.Posix.IOVec ( dist/build/Network/Socket/Posix/IOVec.hs, dist/build/Network/Socket/Posix/IOVec.o, dist/build/Network/Socket/Posix/IOVec.dyn_o )
[ 7 of 29] Compiling Network.Socket.ReadShow ( Network/Socket/ReadShow.hs, dist/build/Network/Socket/ReadShow.o, dist/build/Network/Socket/ReadShow.dyn_o )
[ 8 of 29] Compiling Network.Socket.Types ( dist/build/Network/Socket/Types.hs, dist/build/Network/Socket/Types.o, dist/build/Network/Socket/Types.dyn_o )
[ 9 of 29] Compiling Network.Socket.STM ( Network/Socket/STM.hs, dist/build/Network/Socket/STM.o, dist/build/Network/Socket/STM.dyn_o )
[10 of 29] Compiling Network.Socket.Posix.Cmsg ( dist/build/Network/Socket/Posix/Cmsg.hs, dist/build/Network/Socket/Posix/Cmsg.o, dist/build/Network/Socket/Posix/Cmsg.dyn_o )
[11 of 29] Compiling Network.Socket.Internal ( Network/Socket/Internal.hs, dist/build/Network/Socket/Internal.o, dist/build/Network/Socket/Internal.dyn_o )
[12 of 29] Compiling Network.Socket.Posix.MsgHdr ( dist/build/Network/Socket/Posix/MsgHdr.hs, dist/build/Network/Socket/Posix/MsgHdr.o, dist/build/Network/Socket/Posix/MsgHdr.dyn_o )
[13 of 29] Compiling Network.Socket.Posix.CmsgHdr ( dist/build/Network/Socket/Posix/CmsgHdr.hs, dist/build/Network/Socket/Posix/CmsgHdr.o, dist/build/Network/Socket/Posix/CmsgHdr.dyn_o )
[14 of 29] Compiling Network.Socket.Options ( dist/build/Network/Socket/Options.hs, dist/build/Network/Socket/Options.o, dist/build/Network/Socket/Options.dyn_o )
[15 of 29] Compiling Network.Socket.Syscall ( Network/Socket/Syscall.hs, dist/build/Network/Socket/Syscall.o, dist/build/Network/Socket/Syscall.dyn_o )
[16 of 29] Compiling Network.Socket.Name ( Network/Socket/Name.hs, dist/build/Network/Socket/Name.o, dist/build/Network/Socket/Name.dyn_o )
[17 of 29] Compiling Network.Socket.Info ( dist/build/Network/Socket/Info.hs, dist/build/Network/Socket/Info.o, dist/build/Network/Socket/Info.dyn_o )
[18 of 29] Compiling Network.Socket.Handle ( Network/Socket/Handle.hs, dist/build/Network/Socket/Handle.o, dist/build/Network/Socket/Handle.dyn_o )
[19 of 29] Compiling Network.Socket.ByteString.Internal ( Network/Socket/ByteString/Internal.hs, dist/build/Network/Socket/ByteString/Internal.o, dist/build/Network/Socket/ByteString/Internal.dyn_o )
[20 of 29] Compiling Network.Socket.Buffer ( dist/build/Network/Socket/Buffer.hs, dist/build/Network/Socket/Buffer.o, dist/build/Network/Socket/Buffer.dyn_o )
[21 of 29] Compiling Network.Socket.SockAddr ( Network/Socket/SockAddr.hs, dist/build/Network/Socket/SockAddr.o, dist/build/Network/Socket/SockAddr.dyn_o )
[22 of 29] Compiling Network.Socket.Shutdown ( Network/Socket/Shutdown.hs, dist/build/Network/Socket/Shutdown.o, dist/build/Network/Socket/Shutdown.dyn_o )
[23 of 29] Compiling Network.Socket.ByteString.IO ( dist/build/Network/Socket/ByteString/IO.hs, dist/build/Network/Socket/ByteString/IO.o, dist/build/Network/Socket/ByteString/IO.dyn_o )
[24 of 29] Compiling Network.Socket.ByteString.Lazy.Posix ( Network/Socket/ByteString/Lazy/Posix.hs, dist/build/Network/Socket/ByteString/Lazy/Posix.o, dist/build/Network/Socket/ByteString/Lazy/Posix.dyn_o )
[25 of 29] Compiling Network.Socket.ByteString ( Network/Socket/ByteString.hs, dist/build/Network/Socket/ByteString.o, dist/build/Network/Socket/ByteString.dyn_o )
[26 of 29] Compiling Network.Socket.Address ( Network/Socket/Address.hs, dist/build/Network/Socket/Address.o, dist/build/Network/Socket/Address.dyn_o )
[27 of 29] Compiling Network.Socket.Unix ( dist/build/Network/Socket/Unix.hs, dist/build/Network/Socket/Unix.o, dist/build/Network/Socket/Unix.dyn_o )
[28 of 29] Compiling Network.Socket ( Network/Socket.hs, dist/build/Network/Socket.o, dist/build/Network/Socket.dyn_o )
[29 of 29] Compiling Network.Socket.ByteString.Lazy ( Network/Socket/ByteString/Lazy.hs, dist/build/Network/Socket/ByteString/Lazy.o, dist/build/Network/Socket/ByteString/Lazy.dyn_o )
Preprocessing library for network-3.2.8.0..
Running Haddock on library for network-3.2.8.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 29] Compiling Network.Socket.Imports ( Network/Socket/Imports.hs, nothing )
[ 2 of 29] Compiling Network.Socket.If ( Network/Socket/If.hs, nothing )
[ 3 of 29] Compiling Network.Socket.Flag ( dist/build/Network/Socket/Flag.hs, nothing )
[ 4 of 29] Compiling Network.Socket.Cbits ( dist/build/Network/Socket/Cbits.hs, nothing )
[ 5 of 29] Compiling Network.Socket.Fcntl ( Network/Socket/Fcntl.hs, nothing )
[ 6 of 29] Compiling Network.Socket.Posix.IOVec ( dist/build/Network/Socket/Posix/IOVec.hs, nothing )
[ 7 of 29] Compiling Network.Socket.ReadShow ( Network/Socket/ReadShow.hs, nothing )
[ 8 of 29] Compiling Network.Socket.Types ( dist/build/Network/Socket/Types.hs, nothing )
[ 9 of 29] Compiling Network.Socket.STM ( Network/Socket/STM.hs, nothing )
[10 of 29] Compiling Network.Socket.Posix.Cmsg ( dist/build/Network/Socket/Posix/Cmsg.hs, nothing )
[11 of 29] Compiling Network.Socket.Internal ( Network/Socket/Internal.hs, nothing )
[12 of 29] Compiling Network.Socket.Posix.MsgHdr ( dist/build/Network/Socket/Posix/MsgHdr.hs, nothing )
[13 of 29] Compiling Network.Socket.Posix.CmsgHdr ( dist/build/Network/Socket/Posix/CmsgHdr.hs, nothing )
[14 of 29] Compiling Network.Socket.Options ( dist/build/Network/Socket/Options.hs, nothing )
[15 of 29] Compiling Network.Socket.Syscall ( Network/Socket/Syscall.hs, nothing )
[16 of 29] Compiling Network.Socket.Name ( Network/Socket/Name.hs, nothing )
[17 of 29] Compiling Network.Socket.Info ( dist/build/Network/Socket/Info.hs, nothing )
[18 of 29] Compiling Network.Socket.Handle ( Network/Socket/Handle.hs, nothing )
[19 of 29] Compiling Network.Socket.ByteString.Internal ( Network/Socket/ByteString/Internal.hs, nothing )
[20 of 29] Compiling Network.Socket.Buffer ( dist/build/Network/Socket/Buffer.hs, nothing )
[21 of 29] Compiling Network.Socket.SockAddr ( Network/Socket/SockAddr.hs, nothing )
[22 of 29] Compiling Network.Socket.Shutdown ( Network/Socket/Shutdown.hs, nothing )
[23 of 29] Compiling Network.Socket.ByteString.IO ( dist/build/Network/Socket/ByteString/IO.hs, nothing )
[24 of 29] Compiling Network.Socket.ByteString.Lazy.Posix ( Network/Socket/ByteString/Lazy/Posix.hs, nothing )
[25 of 29] Compiling Network.Socket.ByteString ( Network/Socket/ByteString.hs, nothing )
[26 of 29] Compiling Network.Socket.Address ( Network/Socket/Address.hs, nothing )
[27 of 29] Compiling Network.Socket.Unix ( dist/build/Network/Socket/Unix.hs, nothing )
[28 of 29] Compiling Network.Socket ( Network/Socket.hs, nothing )
[29 of 29] Compiling Network.Socket.ByteString.Lazy ( Network/Socket/ByteString/Lazy.hs, nothing )
Haddock coverage:
Warning: 'Socket' is ambiguous. It is defined
* at dist/build/Network/Socket/Types.hs:112:15
* at dist/build/Network/Socket/Types.hs:112:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at dist/build/Network/Socket/Types.hs:112:1
Warning: 'getAddrInfo' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'CInt' is ambiguous. It is defined
* in Foreign.C.Types
* in Foreign.C.Types
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Foreign.C.Types
Warning: 'Family' is ambiguous. It is defined
* at Network/Socket/Types.hsc:398:18
* at Network/Socket/Types.hsc:398:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/Socket/Types.hsc:398:1
Warning: 'CmsgId' is ambiguous. It is defined
* at Network/Socket/Posix/Cmsg.hsc:38:15
* at Network/Socket/Posix/Cmsg.hsc:38:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:38:1
Warning: 'Fds' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'IPv6PktInfo' is ambiguous. It is defined
* at Network/Socket/Posix/Cmsg.hsc:215:20
* at Network/Socket/Posix/Cmsg.hsc:215:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:215:1
Warning: 'IPv4PktInfo' is ambiguous. It is defined
* at Network/Socket/Posix/Cmsg.hsc:182:20
* at Network/Socket/Posix/Cmsg.hsc:182:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:182:1
Warning: 'IPv6TClass' is ambiguous. It is defined
* at Network/Socket/Posix/Cmsg.hsc:172:22
* at Network/Socket/Posix/Cmsg.hsc:172:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:172:1
Warning: 'IPv4TOS' is ambiguous. It is defined
* at Network/Socket/Posix/Cmsg.hsc:162:19
* at Network/Socket/Posix/Cmsg.hsc:162:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:162:1
Warning: 'IPv6HopLimit' is ambiguous. It is defined
* at Network/Socket/Posix/Cmsg.hsc:152:24
* at Network/Socket/Posix/Cmsg.hsc:152:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:152:1
Warning: 'IPv4TTL' is ambiguous. It is defined
* at Network/Socket/Posix/Cmsg.hsc:141:19
* at Network/Socket/Posix/Cmsg.hsc:141:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:141:1
100% ( 20 / 20) in 'Network.Socket.Internal'
Warning: 'sendmsg' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'StructLinger' is ambiguous. It is defined
* at Network/Socket/Options.hsc:500:21
* at Network/Socket/Options.hsc:500:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/Socket/Options.hsc:500:1
Warning: 'CInt' is ambiguous. It is defined
* in Foreign.C.Types
* in Foreign.C.Types
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Foreign.C.Types
Warning: 'setSocOptValue' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'SockOptValue' is ambiguous. It is defined
* at Network/Socket/Options.hsc:528:3
* at Network/Socket/Options.hsc:527:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/Socket/Options.hsc:527:1
Warning: 'AddrInfo' is ambiguous. It is defined
* at Network/Socket/Info.hsc:104:17
* at Network/Socket/Info.hsc:104:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/Socket/Info.hsc:104:1
Warning: 'inet_ntop' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'hClose' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'gracefulClose' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'socket' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Cannot find documentation for: $vectored
100% ( 17 / 17) in 'Network.Socket.ByteString'
100% ( 19 / 19) in 'Network.Socket.Address'
Warning: 'True' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
97% (127 /130) in 'Network.Socket'
Missing documentation for:
AddrInfo (Network/Socket/Info.hsc:104)
ShutdownCmd (Network/Socket/Shutdown.hs:28)
packFamily
75% ( 6 / 8) in 'Network.Socket.ByteString.Lazy'
Missing documentation for:
send (Network/Socket/ByteString/Lazy/Posix.hs:29)
sendAll (Network/Socket/ByteString/Lazy/Posix.hs:58)
Warning: Network.Socket: could not find link destinations for:
- Network.Socket.Info.GetAddrInfo
Documentation created: dist/doc/html/network/,
dist/doc/html/network/network.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/network-3.2.8.0-2mBD7NmHSYt6MqMlmsyIDz
Completed network-3.2.8.0
Configuring old-locale-1.0.0.7...
Preprocessing library for old-locale-1.0.0.7..
Building library for old-locale-1.0.0.7..
[1 of 1] Compiling System.Locale ( System/Locale.hs, dist/build/System/Locale.o, dist/build/System/Locale.dyn_o )
Preprocessing library for old-locale-1.0.0.7..
Running Haddock on library for old-locale-1.0.0.7..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling System.Locale ( System/Locale.hs, nothing )
Haddock coverage:
60% ( 3 / 5) in 'System.Locale'
Missing documentation for:
TimeLocale (System/Locale.hs:36)
defaultTimeLocale (System/Locale.hs:50)
Documentation created: dist/doc/html/old-locale/,
dist/doc/html/old-locale/old-locale.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/old-locale-1.0.0.7-2YowMuiAcJ5JaeIIGUyoRA
Completed old-locale-1.0.0.7
Configuring os-string-2.0.8...
Preprocessing library for os-string-2.0.8..
Building library for os-string-2.0.8..
[ 1 of 11] Compiling System.OsString.Data.ByteString.Short.Internal ( System/OsString/Data/ByteString/Short/Internal.hs, dist/build/System/OsString/Data/ByteString/Short/Internal.o, dist/build/System/OsString/Data/ByteString/Short/Internal.dyn_o )
[ 2 of 11] Compiling System.OsString.Data.ByteString.Short ( System/OsString/Data/ByteString/Short.hs, dist/build/System/OsString/Data/ByteString/Short.o, dist/build/System/OsString/Data/ByteString/Short.dyn_o )
[ 3 of 11] Compiling System.OsString.Data.ByteString.Short.Word16 ( System/OsString/Data/ByteString/Short/Word16.hs, dist/build/System/OsString/Data/ByteString/Short/Word16.o, dist/build/System/OsString/Data/ByteString/Short/Word16.dyn_o )
[ 4 of 11] Compiling System.OsString.Internal.Exception ( System/OsString/Internal/Exception.hs, dist/build/System/OsString/Internal/Exception.o, dist/build/System/OsString/Internal/Exception.dyn_o )
[ 5 of 11] Compiling System.OsString.Encoding.Internal ( System/OsString/Encoding/Internal.hs, dist/build/System/OsString/Encoding/Internal.o, dist/build/System/OsString/Encoding/Internal.dyn_o )
System/OsString/Encoding/Internal.hs:23:42: warning: [GHC-38856] [-Wunused-imports]
The import of try from module Control.Exception is redundant
|
23 | import Control.Exception (SomeException, try, Exception (displayException), evaluate)
| ^^^
[ 6 of 11] Compiling System.OsString.Encoding ( System/OsString/Encoding.hs, dist/build/System/OsString/Encoding.o, dist/build/System/OsString/Encoding.dyn_o )
[ 7 of 11] Compiling System.OsString.Internal.Types ( System/OsString/Internal/Types.hs, dist/build/System/OsString/Internal/Types.o, dist/build/System/OsString/Internal/Types.dyn_o )
[ 8 of 11] Compiling System.OsString.Posix ( System/OsString/Posix.hs, dist/build/System/OsString/Posix.o, dist/build/System/OsString/Posix.dyn_o )
[ 9 of 11] Compiling System.OsString.Internal ( System/OsString/Internal.hs, dist/build/System/OsString/Internal.o, dist/build/System/OsString/Internal.dyn_o )
[10 of 11] Compiling System.OsString ( System/OsString.hs, dist/build/System/OsString.o, dist/build/System/OsString.dyn_o )
[11 of 11] Compiling System.OsString.Windows ( System/OsString/Windows.hs, dist/build/System/OsString/Windows.o, dist/build/System/OsString/Windows.dyn_o )
Preprocessing library for os-string-2.0.8..
Running Haddock on library for os-string-2.0.8..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 11] Compiling System.OsString.Data.ByteString.Short.Internal ( System/OsString/Data/ByteString/Short/Internal.hs, nothing )
[ 2 of 11] Compiling System.OsString.Data.ByteString.Short ( System/OsString/Data/ByteString/Short.hs, nothing )
[ 3 of 11] Compiling System.OsString.Data.ByteString.Short.Word16 ( System/OsString/Data/ByteString/Short/Word16.hs, nothing )
[ 4 of 11] Compiling System.OsString.Internal.Exception ( System/OsString/Internal/Exception.hs, nothing )
[ 5 of 11] Compiling System.OsString.Encoding.Internal ( System/OsString/Encoding/Internal.hs, nothing )
System/OsString/Encoding/Internal.hs:23:42: warning: [GHC-38856] [-Wunused-imports]
The import of try from module Control.Exception is redundant
|
23 | import Control.Exception (SomeException, try, Exception (displayException), evaluate)
| ^^^
[ 6 of 11] Compiling System.OsString.Encoding ( System/OsString/Encoding.hs, nothing )
[ 7 of 11] Compiling System.OsString.Internal.Types ( System/OsString/Internal/Types.hs, nothing )
[ 8 of 11] Compiling System.OsString.Posix ( System/OsString/Posix.hs, nothing )
[ 9 of 11] Compiling System.OsString.Internal ( System/OsString/Internal.hs, nothing )
[10 of 11] Compiling System.OsString ( System/OsString.hs, nothing )
[11 of 11] Compiling System.OsString.Windows ( System/OsString/Windows.hs, nothing )
Haddock coverage:
Warning: 'ShortByteString' is ambiguous. It is defined
* in Data.ByteString.Short.Internal
* in Data.ByteString.Short.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.ByteString.Short.Internal
26% ( 11 / 41) in 'System.OsString.Data.ByteString.Short.Internal'
Missing documentation for:
_nul (System/OsString/Data/ByteString/Short/Internal.hs:60)
isSpace (System/OsString/Data/ByteString/Short/Internal.hs:63)
create (System/OsString/Data/ByteString/Short/Internal.hs:70)
asBA (System/OsString/Data/ByteString/Short/Internal.hs:80)
BA (System/OsString/Data/ByteString/Short/Internal.hs:84)
MBA (System/OsString/Data/ByteString/Short/Internal.hs:85)
newPinnedByteArray (System/OsString/Data/ByteString/Short/Internal.hs:89)
newByteArray (System/OsString/Data/ByteString/Short/Internal.hs:94)
copyByteArray (System/OsString/Data/ByteString/Short/Internal.hs:99)
unsafeFreezeByteArray (System/OsString/Data/ByteString/Short/Internal.hs:104)
copyAddrToByteArray (System/OsString/Data/ByteString/Short/Internal.hs:109)
moduleErrorIO (System/OsString/Data/ByteString/Short/Internal.hs:244)
moduleErrorMsg (System/OsString/Data/ByteString/Short/Internal.hs:248)
packWord16 (System/OsString/Data/ByteString/Short/Internal.hs:251)
packLenWord16 (System/OsString/Data/ByteString/Short/Internal.hs:254)
unpackWord16 (System/OsString/Data/ByteString/Short/Internal.hs:265)
packWord16Rev (System/OsString/Data/ByteString/Short/Internal.hs:274)
packLenWord16Rev (System/OsString/Data/ByteString/Short/Internal.hs:277)
indexWord8Array (System/OsString/Data/ByteString/Short/Internal.hs:299)
word16ToLE# (System/OsString/Data/ByteString/Short/Internal.hs:320)
word16FromLE# (System/OsString/Data/ByteString/Short/Internal.hs:322)
setByteArray (System/OsString/Data/ByteString/Short/Internal.hs:325)
copyMutableByteArray (System/OsString/Data/ByteString/Short/Internal.hs:330)
createAndTrim' (System/OsString/Data/ByteString/Short/Internal.hs:356)
createAndTrim'' (System/OsString/Data/ByteString/Short/Internal.hs:372)
findIndexOrLength (System/OsString/Data/ByteString/Short/Internal.hs:397)
assertEven (System/OsString/Data/ByteString/Short/Internal.hs:422)
errorEmptySBS (System/OsString/Data/ByteString/Short/Internal.hs:430)
moduleError (System/OsString/Data/ByteString/Short/Internal.hs:434)
compareByteArraysOff (System/OsString/Data/ByteString/Short/Internal.hs:444)
Warning: 'ShortByteString' is ambiguous. It is defined
* in Data.ByteString.Short.Internal
* in Data.ByteString.Short.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.ByteString.Short.Internal
96% ( 93 / 96) in 'System.OsString.Data.ByteString.Short'
Missing documentation for:
append
uncons2 (System/OsString/Data/ByteString/Short.hs:184)
concat
Warning: 'ShortByteString' is ambiguous. It is defined
* in Data.ByteString.Short.Internal
* in Data.ByteString.Short.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.ByteString.Short.Internal
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'CString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
96% ( 92 / 95) in 'System.OsString.Data.ByteString.Short.Word16'
Missing documentation for:
append
concat
breakSubstring (System/OsString/Data/ByteString/Short/Word16.hs:663)
Warning: 'try' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
33% ( 1 / 3) in 'System.OsString.Internal.Exception'
Missing documentation for:
Module header
isAsyncException (System/OsString/Internal/Exception.hs:17)
Warning: 'TextEncoding' is ambiguous. It is defined
* in GHC.IO.Encoding.Types
* in GHC.IO.Encoding.Types
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.IO.Encoding.Types
27% ( 9 / 33) in 'System.OsString.Encoding.Internal'
Missing documentation for:
Module header
ucs2le (System/OsString/Encoding/Internal.hs:42)
mkUcs2le (System/OsString/Encoding/Internal.hs:45)
ucs2le_DF (System/OsString/Encoding/Internal.hs:50)
ucs2le_EF (System/OsString/Encoding/Internal.hs:60)
ucs2le_decode (System/OsString/Encoding/Internal.hs:71)
ucs2le_encode (System/OsString/Encoding/Internal.hs:96)
mkUTF16le_b (System/OsString/Encoding/Internal.hs:131)
utf16le_b_DF (System/OsString/Encoding/Internal.hs:136)
utf16le_b_EF (System/OsString/Encoding/Internal.hs:146)
utf16le_b_decode (System/OsString/Encoding/Internal.hs:157)
utf16le_b_encode (System/OsString/Encoding/Internal.hs:195)
cWcharsToChars_UCS2 (System/OsString/Encoding/Internal.hs:231)
cWcharsToChars (System/OsString/Encoding/Internal.hs:238)
charsToCWchars (System/OsString/Encoding/Internal.hs:248)
withWindowsString (System/OsString/Encoding/Internal.hs:264)
peekWindowsString (System/OsString/Encoding/Internal.hs:267)
withPosixString (System/OsString/Encoding/Internal.hs:272)
withPosixString' (System/OsString/Encoding/Internal.hs:275)
peekPosixString (System/OsString/Encoding/Internal.hs:278)
peekPosixString' (System/OsString/Encoding/Internal.hs:281)
EncodingException (System/OsString/Encoding/Internal.hs:340)
showEncodingException (System/OsString/Encoding/Internal.hs:348)
wNUL (System/OsString/Encoding/Internal.hs:367)
44% ( 11 / 25) in 'System.OsString.Encoding'
Missing documentation for:
Module header
EncodingException (System/OsString/Encoding/Internal.hs:340)
showEncodingException (System/OsString/Encoding/Internal.hs:348)
ucs2le (System/OsString/Encoding/Internal.hs:42)
mkUcs2le (System/OsString/Encoding/Internal.hs:45)
ucs2le_DF (System/OsString/Encoding/Internal.hs:50)
ucs2le_EF (System/OsString/Encoding/Internal.hs:60)
ucs2le_decode (System/OsString/Encoding/Internal.hs:71)
ucs2le_encode (System/OsString/Encoding/Internal.hs:96)
mkUTF16le_b (System/OsString/Encoding/Internal.hs:131)
utf16le_b_DF (System/OsString/Encoding/Internal.hs:136)
utf16le_b_EF (System/OsString/Encoding/Internal.hs:146)
utf16le_b_decode (System/OsString/Encoding/Internal.hs:157)
utf16le_b_encode (System/OsString/Encoding/Internal.hs:195)
Warning: 'WindowsString' is ambiguous. It is defined
* at System/OsString/Internal/Types.hs:60:25
* at System/OsString/Internal/Types.hs:60:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal/Types.hs:60:1
Warning: 'PosixString' is ambiguous. It is defined
* at System/OsString/Internal/Types.hs:87:23
* at System/OsString/Internal/Types.hs:87:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal/Types.hs:87:1
Warning: 'ShortByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'PosixChar' is ambiguous. It is defined
* at System/OsString/Internal/Types.hs:123:23
* at System/OsString/Internal/Types.hs:123:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal/Types.hs:123:1
Warning: 'WindowsChar' is ambiguous. It is defined
* at System/OsString/Internal/Types.hs:117:23
* at System/OsString/Internal/Types.hs:117:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal/Types.hs:117:1
Warning: 'OsChar' is ambiguous. It is defined
* at System/OsString/Internal/Types.hs:210:18
* at System/OsString/Internal/Types.hs:210:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal/Types.hs:210:1
Warning: 'OsString' is ambiguous. It is defined
* at System/OsString/Internal/Types.hs:161:20
* at System/OsString/Internal/Types.hs:161:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal/Types.hs:161:1
Warning: '(</>)' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
50% ( 9 / 18) in 'System.OsString.Internal.Types'
Missing documentation for:
Module header
unWS (System/OsString/Internal/Types.hs:70)
unPS (System/OsString/Internal/Types.hs:96)
PlatformString (System/OsString/Internal/Types.hs:114)
WindowsChar (System/OsString/Internal/Types.hs:117)
unWW (System/OsString/Internal/Types.hs:131)
PosixChar (System/OsString/Internal/Types.hs:123)
unPW (System/OsString/Internal/Types.hs:139)
PlatformChar (System/OsString/Internal/Types.hs:148)
Warning: 'setFileSystemEncoding' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'getLocaleEncoding' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'PosixString' is ambiguous. It is defined
* at System/OsString/Internal/Types.hs:87:23
* at System/OsString/Internal/Types.hs:87:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal/Types.hs:87:1
Warning: 'OsString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
95% ( 95 /100) in 'System.OsString.Posix'
Missing documentation for:
Module header
PosixChar (System/OsString/Internal/Types.hs:123)
singleton (System/OsString/Common.hs:526)
empty (System/OsString/Common.hs:529)
concat (System/OsString/Common.hs:737)
Warning: 'setFileSystemEncoding' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'unsafePerformIO' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'getLocaleEncoding' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'OsString' is ambiguous. It is defined
* at System/OsString/Internal/Types.hs:161:20
* at System/OsString/Internal/Types.hs:161:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal/Types.hs:161:1
Warning: 'OsChar' is ambiguous. It is defined
* at System/OsString/Internal/Types.hs:210:18
* at System/OsString/Internal/Types.hs:210:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal/Types.hs:210:1
Warning: 'head' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:293:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:293:1
Warning: 'tail' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:277:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:277:1
Warning: 'init' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:302:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:302:1
Warning: 'last' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:268:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:268:1
Warning: 'map' is ambiguous. It is defined
* in GHC.Base
* at System/OsString/Internal.hs:332:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:332:1
Warning: 'reverse' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:338:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:338:1
Warning: 'foldl' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:354:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:354:1
Warning: 'foldl1' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:368:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:368:1
Warning: 'foldr' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:384:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:384:1
Warning: 'foldr1' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:398:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:398:1
Warning: 'all' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:412:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:412:1
Warning: 'any' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:419:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:419:1
Warning: 'replicate' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:434:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:434:1
Warning: 'take' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:476:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:476:1
Warning: 'length' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:325:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:325:1
Warning: 'drop' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:513:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:513:1
Warning: 'takeWhile' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:507:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:507:1
Warning: 'dropWhile' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:535:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:535:1
Warning: 'break' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:564:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:564:1
Warning: 'span' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:574:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:574:1
Warning: 'splitAt' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:599:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:599:1
Warning: 'elem' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:702:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:702:1
Warning: 'filter' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:720:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal.hs:720:1
94% ( 75 / 79) in 'System.OsString.Internal'
Missing documentation for:
Module header
empty (System/OsString/Internal.hs:233)
singleton (System/OsString/Internal.hs:236)
concat (System/OsString/Internal.hs:425)
Warning: 'setFileSystemEncoding' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'unsafePerformIO' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
96% ( 96 / 99) in 'System.OsString'
Missing documentation for:
empty (System/OsString/Internal.hs:233)
singleton (System/OsString/Internal.hs:236)
concat (System/OsString/Internal.hs:425)
Warning: 'unsafeDupablePerformIO' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'WindowsString' is ambiguous. It is defined
* at System/OsString/Internal/Types.hs:60:25
* at System/OsString/Internal/Types.hs:60:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/OsString/Internal/Types.hs:60:1
Warning: 'OsString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
94% ( 94 / 99) in 'System.OsString.Windows'
Missing documentation for:
Module header
WindowsChar (System/OsString/Internal/Types.hs:117)
singleton (System/OsString/Common.hs:526)
empty (System/OsString/Common.hs:529)
concat (System/OsString/Common.hs:737)
Warning: System.OsString.Data.ByteString.Short: could not find link destinations for:
- Data.ByteString.Short.Internal.Rep_ShortByteString
- Data.ByteString.Short.Internal.D:R:ItemShortByteString
Warning: System.OsString.Data.ByteString.Short.Word16: could not find link destinations for:
- Data.ByteString.Short.Internal.Rep_ShortByteString
- Data.ByteString.Short.Internal.D:R:ItemShortByteString
Warning: System.OsString.Internal.Types: could not find link destinations for:
- System.OsString.Internal.Types.Rep_OsChar
- System.OsString.Internal.Types.Rep_OsString
- System.OsString.Internal.Types.Rep_PosixChar
- System.OsString.Internal.Types.Rep_WindowsChar
- System.OsString.Internal.Types.Rep_PosixString
- System.OsString.Internal.Types.Rep_WindowsString
Warning: System.OsString.Posix: could not find link destinations for:
- System.OsString.Internal.Types.Rep_PosixChar
- System.OsString.Internal.Types.Rep_PosixString
Warning: System.OsString: could not find link destinations for:
- System.OsString.Internal.Types.Rep_OsChar
- System.OsString.Internal.Types.Rep_OsString
Warning: System.OsString.Windows: could not find link destinations for:
- System.OsString.Internal.Types.Rep_WindowsChar
- System.OsString.Internal.Types.Rep_WindowsString
Documentation created: dist/doc/html/os-string/,
dist/doc/html/os-string/os-string.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/os-string-2.0.8-JLOCx5syZ3qViIHERGXha
Completed os-string-2.0.8
Configuring parser-combinators-1.3.0...
Preprocessing library for parser-combinators-1.3.0..
Building library for parser-combinators-1.3.0..
[1 of 7] Compiling Control.Applicative.Combinators ( Control/Applicative/Combinators.hs, dist/build/Control/Applicative/Combinators.o, dist/build/Control/Applicative/Combinators.dyn_o )
Control/Applicative/Combinators.hs:87:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Foldable is redundant
except perhaps to import instances from Data.Foldable
To import instances alone, use: import Data.Foldable()
|
87 | import Data.Foldable
| ^^^^^^^^^^^^^^^^^^^^
[2 of 7] Compiling Control.Applicative.Combinators.NonEmpty ( Control/Applicative/Combinators/NonEmpty.hs, dist/build/Control/Applicative/Combinators/NonEmpty.o, dist/build/Control/Applicative/Combinators/NonEmpty.dyn_o )
[3 of 7] Compiling Control.Applicative.Permutations ( Control/Applicative/Permutations.hs, dist/build/Control/Applicative/Permutations.o, dist/build/Control/Applicative/Permutations.dyn_o )
[4 of 7] Compiling Control.Monad.Combinators ( Control/Monad/Combinators.hs, dist/build/Control/Monad/Combinators.o, dist/build/Control/Monad/Combinators.dyn_o )
[5 of 7] Compiling Control.Monad.Combinators.Expr ( Control/Monad/Combinators/Expr.hs, dist/build/Control/Monad/Combinators/Expr.o, dist/build/Control/Monad/Combinators/Expr.dyn_o )
[6 of 7] Compiling Control.Monad.Combinators.NonEmpty ( Control/Monad/Combinators/NonEmpty.hs, dist/build/Control/Monad/Combinators/NonEmpty.o, dist/build/Control/Monad/Combinators/NonEmpty.dyn_o )
[7 of 7] Compiling Control.Monad.Permutations ( Control/Monad/Permutations.hs, dist/build/Control/Monad/Permutations.o, dist/build/Control/Monad/Permutations.dyn_o )
Preprocessing library for parser-combinators-1.3.0..
Running Haddock on library for parser-combinators-1.3.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 7] Compiling Control.Applicative.Combinators ( Control/Applicative/Combinators.hs, nothing )
Control/Applicative/Combinators.hs:87:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Foldable is redundant
except perhaps to import instances from Data.Foldable
To import instances alone, use: import Data.Foldable()
|
87 | import Data.Foldable
| ^^^^^^^^^^^^^^^^^^^^
[2 of 7] Compiling Control.Applicative.Combinators.NonEmpty ( Control/Applicative/Combinators/NonEmpty.hs, nothing )
[3 of 7] Compiling Control.Applicative.Permutations ( Control/Applicative/Permutations.hs, nothing )
[4 of 7] Compiling Control.Monad.Combinators ( Control/Monad/Combinators.hs, nothing )
[5 of 7] Compiling Control.Monad.Combinators.Expr ( Control/Monad/Combinators/Expr.hs, nothing )
[6 of 7] Compiling Control.Monad.Combinators.NonEmpty ( Control/Monad/Combinators/NonEmpty.hs, nothing )
[7 of 7] Compiling Control.Monad.Permutations ( Control/Monad/Permutations.hs, nothing )
Haddock coverage:
100% ( 34 / 34) in 'Control.Applicative.Combinators'
100% ( 6 / 6) in 'Control.Applicative.Combinators.NonEmpty'
100% ( 9 / 9) in 'Control.Applicative.Permutations'
100% ( 32 / 32) in 'Control.Monad.Combinators'
100% ( 3 / 3) in 'Control.Monad.Combinators.Expr'
100% ( 6 / 6) in 'Control.Monad.Combinators.NonEmpty'
100% ( 9 / 9) in 'Control.Monad.Permutations'
Documentation created: dist/doc/html/parser-combinators/,
dist/doc/html/parser-combinators/parser-combinators.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/parser-combinators-1.3.0-FahW63iF2QD8c93hboguXT
Completed parser-combinators-1.3.0
Configuring path-pieces-0.2.1...
Preprocessing library for path-pieces-0.2.1..
Building library for path-pieces-0.2.1..
[1 of 1] Compiling Web.PathPieces ( Web/PathPieces.hs, dist/build/Web/PathPieces.o, dist/build/Web/PathPieces.dyn_o )
Web/PathPieces.hs:15:19: warning: [GHC-38856] [-Wunused-imports]
The import of Word from module Data.Word is redundant
|
15 | import Data.Word (Word, Word8, Word16, Word32, Word64)
| ^^^^
Web/PathPieces.hs:49:5: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding:
Patterns of type Maybe a not matched: Nothing
|
49 | Just witness = n
| ^^^^^^^^^^^^^^^^
Preprocessing library for path-pieces-0.2.1..
Running Haddock on library for path-pieces-0.2.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Web.PathPieces ( Web/PathPieces.hs, nothing )
Web/PathPieces.hs:15:19: warning: [GHC-38856] [-Wunused-imports]
The import of Word from module Data.Word is redundant
|
15 | import Data.Word (Word, Word8, Word16, Word32, Word64)
| ^^^^
Haddock coverage:
30% ( 3 / 10) in 'Web.PathPieces'
Missing documentation for:
Module header
PathPiece (Web/PathPieces.hs:23)
PathMultiPiece (Web/PathPieces.hs:124)
toSinglePiece (Web/PathPieces.hs:155)
toMultiPiece (Web/PathPieces.hs:163)
fromSinglePiece (Web/PathPieces.hs:159)
fromMultiPiece (Web/PathPieces.hs:167)
Documentation created: dist/doc/html/path-pieces/,
dist/doc/html/path-pieces/path-pieces.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/path-pieces-0.2.1-FMpWGLsLCs17X59OilBcU7
Completed path-pieces-0.2.1
Configuring prettyprinter-1.7.1...
Preprocessing library for prettyprinter-1.7.1..
Building library for prettyprinter-1.7.1..
[ 1 of 28] Compiling Prettyprinter.Render.Util.Panic ( src/Prettyprinter/Render/Util/Panic.hs, dist/build/Prettyprinter/Render/Util/Panic.o, dist/build/Prettyprinter/Render/Util/Panic.dyn_o )
[ 2 of 28] Compiling Prettyprinter.Internal ( src/Prettyprinter/Internal.hs, dist/build/Prettyprinter/Internal.o, dist/build/Prettyprinter/Internal.dyn_o )
[ 3 of 28] Compiling Prettyprinter.Render.String ( src/Prettyprinter/Render/String.hs, dist/build/Prettyprinter/Render/String.o, dist/build/Prettyprinter/Render/String.dyn_o )
[ 4 of 28] Compiling Data.Text.Prettyprint.Doc.Render.String ( src/Data/Text/Prettyprint/Doc/Render/String.hs, dist/build/Data/Text/Prettyprint/Doc/Render/String.o, dist/build/Data/Text/Prettyprint/Doc/Render/String.dyn_o )
[ 5 of 28] Compiling Prettyprinter.Internal.Type ( src/Prettyprinter/Internal/Type.hs, dist/build/Prettyprinter/Internal/Type.o, dist/build/Prettyprinter/Internal/Type.dyn_o )
[ 6 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Type ( src/Data/Text/Prettyprint/Doc/Internal/Type.hs, dist/build/Data/Text/Prettyprint/Doc/Internal/Type.o, dist/build/Data/Text/Prettyprint/Doc/Internal/Type.dyn_o )
[ 7 of 28] Compiling Prettyprinter.Internal.Debug ( src/Prettyprinter/Internal/Debug.hs, dist/build/Prettyprinter/Internal/Debug.o, dist/build/Prettyprinter/Internal/Debug.dyn_o )
[ 8 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Debug ( src/Data/Text/Prettyprint/Doc/Internal/Debug.hs, dist/build/Data/Text/Prettyprint/Doc/Internal/Debug.o, dist/build/Data/Text/Prettyprint/Doc/Internal/Debug.dyn_o )
[ 9 of 28] Compiling Data.Text.Prettyprint.Doc.Internal ( src/Data/Text/Prettyprint/Doc/Internal.hs, dist/build/Data/Text/Prettyprint/Doc/Internal.o, dist/build/Data/Text/Prettyprint/Doc/Internal.dyn_o )
[10 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.Panic ( src/Data/Text/Prettyprint/Doc/Render/Util/Panic.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Util/Panic.o, dist/build/Data/Text/Prettyprint/Doc/Render/Util/Panic.dyn_o )
[11 of 28] Compiling Prettyprinter.Render.Util.StackMachine ( src/Prettyprinter/Render/Util/StackMachine.hs, dist/build/Prettyprinter/Render/Util/StackMachine.o, dist/build/Prettyprinter/Render/Util/StackMachine.dyn_o )
src/Prettyprinter/Render/Util/StackMachine.hs:34:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
34 | import Control.Applicative
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[12 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.StackMachine ( src/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.o, dist/build/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.dyn_o )
[13 of 28] Compiling Prettyprinter.Symbols.Ascii ( src/Prettyprinter/Symbols/Ascii.hs, dist/build/Prettyprinter/Symbols/Ascii.o, dist/build/Prettyprinter/Symbols/Ascii.dyn_o )
[14 of 28] Compiling Prettyprinter ( src/Prettyprinter.hs, dist/build/Prettyprinter.o, dist/build/Prettyprinter.dyn_o )
[15 of 28] Compiling Prettyprinter.Render.Util.SimpleDocTree ( src/Prettyprinter/Render/Util/SimpleDocTree.hs, dist/build/Prettyprinter/Render/Util/SimpleDocTree.o, dist/build/Prettyprinter/Render/Util/SimpleDocTree.dyn_o )
[16 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.SimpleDocTree ( src/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.o, dist/build/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.dyn_o )
[17 of 28] Compiling Prettyprinter.Render.Tutorials.TreeRenderingTutorial ( src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs, dist/build/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.o, dist/build/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.dyn_o )
[18 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.TreeRenderingTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.o, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.dyn_o )
[19 of 28] Compiling Prettyprinter.Render.Tutorials.StackMachineTutorial ( src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs, dist/build/Prettyprinter/Render/Tutorials/StackMachineTutorial.o, dist/build/Prettyprinter/Render/Tutorials/StackMachineTutorial.dyn_o )
[20 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.StackMachineTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.o, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.dyn_o )
src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs:7:1: warning: [GHC-15328] [-Wdeprecations]
Module Prettyprinter.Render.Tutorials.StackMachineTutorial is deprecated:
"Writing your own stack machine is probably more efficient and customizable; also consider using �renderSimplyDecorated(A)� instead"
|
7 | import Prettyprinter.Render.Tutorials.StackMachineTutorial
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[21 of 28] Compiling Prettyprinter.Render.Text ( src/Prettyprinter/Render/Text.hs, dist/build/Prettyprinter/Render/Text.o, dist/build/Prettyprinter/Render/Text.dyn_o )
[22 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Text ( src/Data/Text/Prettyprint/Doc/Render/Text.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Text.o, dist/build/Data/Text/Prettyprint/Doc/Render/Text.dyn_o )
[23 of 28] Compiling Data.Text.Prettyprint.Doc ( src/Data/Text/Prettyprint/Doc.hs, dist/build/Data/Text/Prettyprint/Doc.o, dist/build/Data/Text/Prettyprint/Doc.dyn_o )
[24 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Ascii ( src/Data/Text/Prettyprint/Doc/Symbols/Ascii.hs, dist/build/Data/Text/Prettyprint/Doc/Symbols/Ascii.o, dist/build/Data/Text/Prettyprint/Doc/Symbols/Ascii.dyn_o )
[25 of 28] Compiling Prettyprinter.Symbols.Unicode ( src/Prettyprinter/Symbols/Unicode.hs, dist/build/Prettyprinter/Symbols/Unicode.o, dist/build/Prettyprinter/Symbols/Unicode.dyn_o )
[26 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Unicode ( src/Data/Text/Prettyprint/Doc/Symbols/Unicode.hs, dist/build/Data/Text/Prettyprint/Doc/Symbols/Unicode.o, dist/build/Data/Text/Prettyprint/Doc/Symbols/Unicode.dyn_o )
[27 of 28] Compiling Prettyprinter.Util ( src/Prettyprinter/Util.hs, dist/build/Prettyprinter/Util.o, dist/build/Prettyprinter/Util.dyn_o )
[28 of 28] Compiling Data.Text.Prettyprint.Doc.Util ( src/Data/Text/Prettyprint/Doc/Util.hs, dist/build/Data/Text/Prettyprint/Doc/Util.o, dist/build/Data/Text/Prettyprint/Doc/Util.dyn_o )
Preprocessing library for prettyprinter-1.7.1..
Running Haddock on library for prettyprinter-1.7.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 28] Compiling Prettyprinter.Render.Util.Panic ( src/Prettyprinter/Render/Util/Panic.hs, nothing )
[ 2 of 28] Compiling Prettyprinter.Internal ( src/Prettyprinter/Internal.hs, nothing )
[ 3 of 28] Compiling Prettyprinter.Render.String ( src/Prettyprinter/Render/String.hs, nothing )
[ 4 of 28] Compiling Data.Text.Prettyprint.Doc.Render.String ( src/Data/Text/Prettyprint/Doc/Render/String.hs, nothing )
[ 5 of 28] Compiling Prettyprinter.Internal.Type ( src/Prettyprinter/Internal/Type.hs, nothing )
[ 6 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Type ( src/Data/Text/Prettyprint/Doc/Internal/Type.hs, nothing )
[ 7 of 28] Compiling Prettyprinter.Internal.Debug ( src/Prettyprinter/Internal/Debug.hs, nothing )
[ 8 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Debug ( src/Data/Text/Prettyprint/Doc/Internal/Debug.hs, nothing )
[ 9 of 28] Compiling Data.Text.Prettyprint.Doc.Internal ( src/Data/Text/Prettyprint/Doc/Internal.hs, nothing )
[10 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.Panic ( src/Data/Text/Prettyprint/Doc/Render/Util/Panic.hs, nothing )
[11 of 28] Compiling Prettyprinter.Render.Util.StackMachine ( src/Prettyprinter/Render/Util/StackMachine.hs, nothing )
src/Prettyprinter/Render/Util/StackMachine.hs:34:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
34 | import Control.Applicative
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[12 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.StackMachine ( src/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.hs, nothing )
[13 of 28] Compiling Prettyprinter.Symbols.Ascii ( src/Prettyprinter/Symbols/Ascii.hs, nothing )
[14 of 28] Compiling Prettyprinter ( src/Prettyprinter.hs, nothing )
[15 of 28] Compiling Prettyprinter.Render.Util.SimpleDocTree ( src/Prettyprinter/Render/Util/SimpleDocTree.hs, nothing )
[16 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.SimpleDocTree ( src/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.hs, nothing )
[17 of 28] Compiling Prettyprinter.Render.Tutorials.TreeRenderingTutorial ( src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs, nothing )
[18 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.TreeRenderingTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.hs, nothing )
[19 of 28] Compiling Prettyprinter.Render.Tutorials.StackMachineTutorial ( src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs, nothing )
[20 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.StackMachineTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs, nothing )
src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs:7:1: warning: [GHC-15328] [-Wdeprecations]
Module Prettyprinter.Render.Tutorials.StackMachineTutorial is deprecated:
"Writing your own stack machine is probably more efficient and customizable; also consider using �renderSimplyDecorated(A)� instead"
|
7 | import Prettyprinter.Render.Tutorials.StackMachineTutorial
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[21 of 28] Compiling Prettyprinter.Render.Text ( src/Prettyprinter/Render/Text.hs, nothing )
[22 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Text ( src/Data/Text/Prettyprint/Doc/Render/Text.hs, nothing )
[23 of 28] Compiling Data.Text.Prettyprint.Doc ( src/Data/Text/Prettyprint/Doc.hs, nothing )
[24 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Ascii ( src/Data/Text/Prettyprint/Doc/Symbols/Ascii.hs, nothing )
[25 of 28] Compiling Prettyprinter.Symbols.Unicode ( src/Prettyprinter/Symbols/Unicode.hs, nothing )
[26 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Unicode ( src/Data/Text/Prettyprint/Doc/Symbols/Unicode.hs, nothing )
[27 of 28] Compiling Prettyprinter.Util ( src/Prettyprinter/Util.hs, nothing )
[28 of 28] Compiling Data.Text.Prettyprint.Doc.Util ( src/Data/Text/Prettyprint/Doc/Util.hs, nothing )
Haddock coverage:
57% ( 4 / 7) in 'Prettyprinter.Render.Util.Panic'
Missing documentation for:
Module header
panicPeekedEmpty (src/Prettyprinter/Render/Util/Panic.hs:36)
panicPoppedEmpty (src/Prettyprinter/Render/Util/Panic.hs:36)
Warning: 'Text' is ambiguous. It is defined
* at src/Prettyprinter/Internal.hs:159:7
* in Data.Text.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7
Warning: 'parens' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'space' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'doc' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'putDoc' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'hPutDoc' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'reAnnotateST' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'comma' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
98% ( 77 / 78) in 'Prettyprinter.Internal'
Missing documentation for:
defaultPageWidth (src/Prettyprinter/Internal.hs:1778)
66% ( 2 / 3) in 'Prettyprinter.Render.String'
Missing documentation for:
Module header
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.String'
Missing documentation for:
Module header
100% ( 2 / 2) in 'Prettyprinter.Internal.Type'
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Internal.Type'
Missing documentation for:
Module header
75% ( 3 / 4) in 'Prettyprinter.Internal.Debug'
Missing documentation for:
diag' (src/Prettyprinter/Internal/Debug.hs:76)
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Internal.Debug'
Missing documentation for:
Module header
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Internal'
Missing documentation for:
Module header
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Util.Panic'
Missing documentation for:
Module header
Warning: 'Text' is ambiguous. It is defined
* at src/Prettyprinter/Internal.hs:159:7
* in Data.Text.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7
100% ( 13 / 13) in 'Prettyprinter.Render.Util.StackMachine'
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Util.StackMachine'
Missing documentation for:
Module header
100% ( 27 / 27) in 'Prettyprinter.Symbols.Ascii'
Warning: 'Keyword' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Red' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'color' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'colorDull' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'bgColor' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'bgColorDull' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% (112 /112) in 'Prettyprinter'
Warning: 'Text' is ambiguous. It is defined
* at src/Prettyprinter/Internal.hs:159:7
* in Data.Text.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7
100% ( 11 / 11) in 'Prettyprinter.Render.Util.SimpleDocTree'
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Util.SimpleDocTree'
Missing documentation for:
Module header
61% ( 11 / 18) in 'Prettyprinter.Render.Tutorials.TreeRenderingTutorial'
Missing documentation for:
SimpleHtml (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:40)
Color (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:41)
bold (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:46)
italics (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:47)
paragraph (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:48)
headline (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:49)
color (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:52)
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Tutorials.TreeRenderingTutorial'
Missing documentation for:
Module header
61% ( 11 / 18) in 'Prettyprinter.Render.Tutorials.StackMachineTutorial'
Missing documentation for:
SimpleHtml (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:43)
Color (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:44)
bold (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:49)
italics (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:50)
paragraph (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:51)
headline (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:52)
color (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:55)
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Tutorials.StackMachineTutorial'
Missing documentation for:
Module header
Warning: 'Text' is ambiguous. It is defined
* at src/Prettyprinter/Internal.hs:159:7
* in Data.Text.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7
100% ( 9 / 9) in 'Prettyprinter.Render.Text'
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Text'
Missing documentation for:
Module header
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc'
Missing documentation for:
Module header
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Symbols.Ascii'
Missing documentation for:
Module header
100% ( 30 / 30) in 'Prettyprinter.Symbols.Unicode'
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Symbols.Unicode'
Missing documentation for:
Module header
Warning: Prettyprinter.Util: Could not find documentation for exported module: Prettyprinter.Util
100% ( 4 / 4) in 'Prettyprinter.Util'
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Util'
Missing documentation for:
Module header
Warning: Prettyprinter.Internal: could not find link destinations for:
- Prettyprinter.Internal.Rep_Doc
- Prettyprinter.Internal.Rep_SimpleDocStream
Warning: Prettyprinter.Internal.Type: could not find link destinations for:
- Prettyprinter.Internal.Rep_Doc
Warning: Prettyprinter: could not find link destinations for:
- Prettyprinter.Internal.Rep_Doc
- Prettyprinter.Internal.Rep_SimpleDocStream
Warning: Prettyprinter.Render.Util.SimpleDocTree: could not find link destinations for:
- Prettyprinter.Render.Util.SimpleDocTree.Rep_SimpleDocTree
Documentation created: dist/doc/html/prettyprinter/,
dist/doc/html/prettyprinter/prettyprinter.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/prettyprinter-1.7.1-UnQFunVR8xJApG1SQhvgB
Completed prettyprinter-1.7.1
Configuring primitive-0.9.1.0...
Preprocessing library for primitive-0.9.1.0..
Building library for primitive-0.9.1.0..
[ 1 of 14] Compiling Data.Primitive.Internal.Read ( Data/Primitive/Internal/Read.hs, dist/build/Data/Primitive/Internal/Read.o, dist/build/Data/Primitive/Internal/Read.dyn_o )
[ 2 of 14] Compiling Data.Primitive.MachDeps ( Data/Primitive/MachDeps.hs, dist/build/Data/Primitive/MachDeps.o, dist/build/Data/Primitive/MachDeps.dyn_o )
[ 3 of 14] Compiling Data.Primitive.Internal.Operations ( Data/Primitive/Internal/Operations.hs, dist/build/Data/Primitive/Internal/Operations.o, dist/build/Data/Primitive/Internal/Operations.dyn_o )
[ 4 of 14] Compiling Control.Monad.Primitive ( Control/Monad/Primitive.hs, dist/build/Control/Monad/Primitive.o, dist/build/Control/Monad/Primitive.dyn_o )
[ 5 of 14] Compiling Data.Primitive.MVar ( Data/Primitive/MVar.hs, dist/build/Data/Primitive/MVar.o, dist/build/Data/Primitive/MVar.dyn_o )
[ 6 of 14] Compiling Data.Primitive.Array ( Data/Primitive/Array.hs, dist/build/Data/Primitive/Array.o, dist/build/Data/Primitive/Array.dyn_o )
[ 7 of 14] Compiling Data.Primitive.MutVar ( Data/Primitive/MutVar.hs, dist/build/Data/Primitive/MutVar.o, dist/build/Data/Primitive/MutVar.dyn_o )
[ 8 of 14] Compiling Data.Primitive.SmallArray ( Data/Primitive/SmallArray.hs, dist/build/Data/Primitive/SmallArray.o, dist/build/Data/Primitive/SmallArray.dyn_o )
[ 9 of 14] Compiling Data.Primitive.Types ( Data/Primitive/Types.hs, dist/build/Data/Primitive/Types.o, dist/build/Data/Primitive/Types.dyn_o )
[10 of 14] Compiling Data.Primitive.ByteArray ( Data/Primitive/ByteArray.hs, dist/build/Data/Primitive/ByteArray.o, dist/build/Data/Primitive/ByteArray.dyn_o )
[11 of 14] Compiling Data.Primitive.PrimArray ( Data/Primitive/PrimArray.hs, dist/build/Data/Primitive/PrimArray.o, dist/build/Data/Primitive/PrimArray.dyn_o )
[12 of 14] Compiling Data.Primitive.Ptr ( Data/Primitive/Ptr.hs, dist/build/Data/Primitive/Ptr.o, dist/build/Data/Primitive/Ptr.dyn_o )
[13 of 14] Compiling Data.Primitive ( Data/Primitive.hs, dist/build/Data/Primitive.o, dist/build/Data/Primitive.dyn_o )
[14 of 14] Compiling Data.Primitive.PrimVar ( Data/Primitive/PrimVar.hs, dist/build/Data/Primitive/PrimVar.o, dist/build/Data/Primitive/PrimVar.dyn_o )
Preprocessing library for primitive-0.9.1.0..
Running Haddock on library for primitive-0.9.1.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 14] Compiling Data.Primitive.Internal.Read ( Data/Primitive/Internal/Read.hs, nothing )
[ 2 of 14] Compiling Data.Primitive.MachDeps ( Data/Primitive/MachDeps.hs, nothing )
[ 3 of 14] Compiling Data.Primitive.Internal.Operations ( Data/Primitive/Internal/Operations.hs, nothing )
[ 4 of 14] Compiling Control.Monad.Primitive ( Control/Monad/Primitive.hs, nothing )
[ 5 of 14] Compiling Data.Primitive.MVar ( Data/Primitive/MVar.hs, nothing )
[ 6 of 14] Compiling Data.Primitive.Array ( Data/Primitive/Array.hs, nothing )
[ 7 of 14] Compiling Data.Primitive.MutVar ( Data/Primitive/MutVar.hs, nothing )
[ 8 of 14] Compiling Data.Primitive.SmallArray ( Data/Primitive/SmallArray.hs, nothing )
[ 9 of 14] Compiling Data.Primitive.Types ( Data/Primitive/Types.hs, nothing )
[10 of 14] Compiling Data.Primitive.ByteArray ( Data/Primitive/ByteArray.hs, nothing )
[11 of 14] Compiling Data.Primitive.PrimArray ( Data/Primitive/PrimArray.hs, nothing )
[12 of 14] Compiling Data.Primitive.Ptr ( Data/Primitive/Ptr.hs, nothing )
[13 of 14] Compiling Data.Primitive ( Data/Primitive.hs, nothing )
[14 of 14] Compiling Data.Primitive.PrimVar ( Data/Primitive/PrimVar.hs, nothing )
Haddock coverage:
2% ( 1 / 35) in 'Data.Primitive.MachDeps'
Missing documentation for:
sIZEOF_CHAR (Data/Primitive/MachDeps.hs:68)
aLIGNMENT_CHAR (Data/Primitive/MachDeps.hs:69)
sIZEOF_INT (Data/Primitive/MachDeps.hs:71)
aLIGNMENT_INT (Data/Primitive/MachDeps.hs:72)
sIZEOF_WORD (Data/Primitive/MachDeps.hs:74)
aLIGNMENT_WORD (Data/Primitive/MachDeps.hs:75)
sIZEOF_DOUBLE (Data/Primitive/MachDeps.hs:77)
aLIGNMENT_DOUBLE (Data/Primitive/MachDeps.hs:78)
sIZEOF_FLOAT (Data/Primitive/MachDeps.hs:80)
aLIGNMENT_FLOAT (Data/Primitive/MachDeps.hs:81)
sIZEOF_PTR (Data/Primitive/MachDeps.hs:83)
aLIGNMENT_PTR (Data/Primitive/MachDeps.hs:84)
sIZEOF_FUNPTR (Data/Primitive/MachDeps.hs:86)
aLIGNMENT_FUNPTR (Data/Primitive/MachDeps.hs:87)
sIZEOF_STABLEPTR (Data/Primitive/MachDeps.hs:89)
aLIGNMENT_STABLEPTR (Data/Primitive/MachDeps.hs:90)
sIZEOF_INT8 (Data/Primitive/MachDeps.hs:92)
aLIGNMENT_INT8 (Data/Primitive/MachDeps.hs:93)
sIZEOF_WORD8 (Data/Primitive/MachDeps.hs:95)
aLIGNMENT_WORD8 (Data/Primitive/MachDeps.hs:96)
sIZEOF_INT16 (Data/Primitive/MachDeps.hs:98)
aLIGNMENT_INT16 (Data/Primitive/MachDeps.hs:99)
sIZEOF_WORD16 (Data/Primitive/MachDeps.hs:101)
aLIGNMENT_WORD16 (Data/Primitive/MachDeps.hs:102)
sIZEOF_INT32 (Data/Primitive/MachDeps.hs:104)
aLIGNMENT_INT32 (Data/Primitive/MachDeps.hs:105)
sIZEOF_WORD32 (Data/Primitive/MachDeps.hs:107)
aLIGNMENT_WORD32 (Data/Primitive/MachDeps.hs:108)
sIZEOF_INT64 (Data/Primitive/MachDeps.hs:110)
aLIGNMENT_INT64 (Data/Primitive/MachDeps.hs:111)
sIZEOF_WORD64 (Data/Primitive/MachDeps.hs:113)
aLIGNMENT_WORD64 (Data/Primitive/MachDeps.hs:114)
Word64_# (Data/Primitive/MachDeps.hs:117)
Int64_# (Data/Primitive/MachDeps.hs:118)
Warning: 'IO' is ambiguous. It is defined
* in GHC.Types
* in GHC.Types
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Types
Warning: 'ST' is ambiguous. It is defined
* in GHC.ST
* in GHC.ST
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.ST
89% ( 26 / 29) in 'Control.Monad.Primitive'
Missing documentation for:
unsafeInterleave (Control/Monad/Primitive.hs:408)
unsafeDupableInterleave (Control/Monad/Primitive.hs:409)
noDuplicate (Control/Monad/Primitive.hs:401)
Warning: 'MVar' is ambiguous. It is defined
* at Data/Primitive/MVar.hs:41:17
* at Data/Primitive/MVar.hs:41:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Primitive/MVar.hs:41:1
100% ( 11 / 11) in 'Data.Primitive.MVar'
Warning: 'Array' is ambiguous. It is defined
* at Data/Primitive/Array.hs:65:16
* at Data/Primitive/Array.hs:65:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Primitive/Array.hs:65:1
Warning: 'MutableArray' is ambiguous. It is defined
* at Data/Primitive/Array.hs:108:25
* at Data/Primitive/Array.hs:108:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Primitive/Array.hs:108:1
100% ( 27 / 27) in 'Data.Primitive.Array'
Warning: 'MutVar' is ambiguous. It is defined
* at Data/Primitive/MutVar.hs:44:19
* at Data/Primitive/MutVar.hs:44:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Primitive/MutVar.hs:44:1
Warning: 'IORef' is ambiguous. It is defined
* in GHC.IORef
* in GHC.IORef
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.IORef
Warning: 'STRef' is ambiguous. It is defined
* in GHC.STRef
* in GHC.STRef
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.STRef
100% ( 15 / 15) in 'Data.Primitive.MutVar'
Warning: 'SmallArray' is ambiguous. It is defined
* at Data/Primitive/SmallArray.hs:95:21
* at Data/Primitive/SmallArray.hs:95:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Primitive/SmallArray.hs:95:1
Warning: 'Identity' is ambiguous. It is defined
* in Data.Functor.Identity
* in Data.Functor.Identity
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Functor.Identity
Warning: 'SmallMutableArray' is ambiguous. It is defined
* at Data/Primitive/SmallArray.hs:106:30
* at Data/Primitive/SmallArray.hs:106:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Primitive/SmallArray.hs:106:1
93% ( 27 / 29) in 'Data.Primitive.SmallArray'
Missing documentation for:
SmallArray (Data/Primitive/SmallArray.hs:95)
SmallMutableArray (Data/Primitive/SmallArray.hs:106)
100% ( 10 / 10) in 'Data.Primitive.Types'
Warning: 'MutableByteArray' is ambiguous. It is defined
* in Data.Array.Byte
* in Data.Array.Byte
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Array.Byte
Warning: 'ByteArray' is ambiguous. It is defined
* in Data.Array.Byte
* in Data.Array.Byte
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Array.Byte
98% ( 61 / 62) in 'Data.Primitive.ByteArray'
Missing documentation for:
createByteArray (Data/Primitive/ByteArray.hs:672)
Warning: 'PrimArray' is ambiguous. It is defined
* at Data/Primitive/PrimArray.hs:144:20
* at Data/Primitive/PrimArray.hs:144:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Primitive/PrimArray.hs:144:1
Warning: 'MutablePrimArray' is ambiguous. It is defined
* at Data/Primitive/PrimArray.hs:167:29
* at Data/Primitive/PrimArray.hs:167:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Primitive/PrimArray.hs:167:1
Warning: 'ByteArray' is ambiguous. It is defined
* in Data.Array.Byte
* in Data.Array.Byte
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Array.Byte
100% ( 78 / 78) in 'Data.Primitive.PrimArray'
Warning: 'Ptr' is ambiguous. It is defined
* in GHC.Ptr
* in GHC.Ptr
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Ptr
100% ( 17 / 17) in 'Data.Primitive.Ptr'
100% ( 10 / 10) in 'Data.Primitive'
Warning: 'PrimVar' is ambiguous. It is defined
* at Data/Primitive/PrimVar.hs:49:23
* at Data/Primitive/PrimVar.hs:49:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Primitive/PrimVar.hs:49:1
Warning: 'MutablePrimArray' is ambiguous. It is defined
* at Data/Primitive/PrimArray.hs:167:29
* at Data/Primitive/PrimArray.hs:167:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Primitive/PrimArray.hs:167:1
100% ( 22 / 22) in 'Data.Primitive.PrimVar'
Warning: Control.Monad.Primitive: could not find link destinations for:
- Control.Monad.Primitive.D:R:PrimStateST
- Control.Monad.Primitive.D:R:PrimStateST0
- Control.Monad.Primitive.D:R:PrimStateRWST
- Control.Monad.Primitive.D:R:PrimStateWriterT
- Control.Monad.Primitive.D:R:PrimStateStateT
- Control.Monad.Primitive.D:R:PrimStateSelectT
- Control.Monad.Primitive.D:R:PrimStateAccumT
- Control.Monad.Primitive.D:R:PrimStateExceptT
- Control.Monad.Primitive.D:R:PrimStateRWST0
- Control.Monad.Primitive.D:R:PrimStateRWST1
- Control.Monad.Primitive.D:R:PrimStateWriterT0
- Control.Monad.Primitive.D:R:PrimStateWriterT1
- Control.Monad.Primitive.D:R:PrimStateStateT0
- Control.Monad.Primitive.D:R:PrimStateReaderT
- Control.Monad.Primitive.D:R:PrimStateMaybeT
- Control.Monad.Primitive.D:R:PrimStateIdentityT
- Control.Monad.Primitive.D:R:PrimStateContT
- Control.Monad.Primitive.D:R:PrimStateIO
Warning: Data.Primitive.Array: could not find link destinations for:
- Data.Primitive.Array.D:R:ItemArray
Warning: Data.Primitive.SmallArray: could not find link destinations for:
- Data.Primitive.SmallArray.D:R:ItemSmallArray
Warning: Data.Primitive.Types: could not find link destinations for:
- GHC.Generics.D:R:UReckPtrp0
- GHC.Generics.Rep_R:UReckPtrp
- GHC.Generics.Rep1_R:UReckPtrp
Warning: Data.Primitive.ByteArray: could not find link destinations for:
- Data.Array.Byte.D:R:ItemByteArray
Warning: Data.Primitive.PrimArray: could not find link destinations for:
- Data.Primitive.PrimArray.D:R:ItemPrimArray
Warning: Data.Primitive.Ptr: could not find link destinations for:
- GHC.Generics.D:R:UReckPtrp0
- GHC.Generics.Rep_R:UReckPtrp
- GHC.Generics.Rep1_R:UReckPtrp
Documentation created: dist/doc/html/primitive/,
dist/doc/html/primitive/primitive.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/primitive-0.9.1.0-FI4ablStFrKABDqEidp4iv
Completed primitive-0.9.1.0
Configuring safe-exceptions-0.1.7.4...
Preprocessing library for safe-exceptions-0.1.7.4..
Building library for safe-exceptions-0.1.7.4..
[1 of 1] Compiling Control.Exception.Safe ( src/Control/Exception/Safe.hs, dist/build/Control/Exception/Safe.o, dist/build/Control/Exception/Safe.dyn_o )
Preprocessing library for safe-exceptions-0.1.7.4..
Running Haddock on library for safe-exceptions-0.1.7.4..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Control.Exception.Safe ( src/Control/Exception/Safe.hs, nothing )
Haddock coverage:
Warning: 'StringException' is ambiguous. It is defined
* at src/Control/Exception/Safe.hs:193:24
* at src/Control/Exception/Safe.hs:193:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Control/Exception/Safe.hs:193:1
Warning: 'AsyncExceptionWrapper' is ambiguous. It is defined
* at src/Control/Exception/Safe.hs:553:30
* at src/Control/Exception/Safe.hs:553:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Control/Exception/Safe.hs:553:1
Warning: 'SyncExceptionWrapper' is ambiguous. It is defined
* at src/Control/Exception/Safe.hs:523:29
* at src/Control/Exception/Safe.hs:523:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Control/Exception/Safe.hs:523:1
100% ( 66 / 66) in 'Control.Exception.Safe'
Warning: Control.Exception.Safe: could not find link destinations for:
- GHC.IOPort.IOPortException
Documentation created: dist/doc/html/safe-exceptions/,
dist/doc/html/safe-exceptions/safe-exceptions.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/safe-exceptions-0.1.7.4-HEELpJrHsBu7dCqXXORL1I
Completed safe-exceptions-0.1.7.4
Configuring silently-1.2.5.4...
Preprocessing library for silently-1.2.5.4..
Building library for silently-1.2.5.4..
[1 of 1] Compiling System.IO.Silently ( src/System/IO/Silently.hs, dist/build/System/IO/Silently.o, dist/build/System/IO/Silently.dyn_o )
Preprocessing library for silently-1.2.5.4..
Running Haddock on library for silently-1.2.5.4..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling System.IO.Silently ( src/System/IO/Silently.hs, nothing )
Haddock coverage:
100% ( 7 / 7) in 'System.IO.Silently'
Documentation created: dist/doc/html/silently/,
dist/doc/html/silently/silently.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/silently-1.2.5.4-5U79Y14JDrXFPN2GYa2ShU
Completed silently-1.2.5.4
Configuring split-0.2.5...
Preprocessing library for split-0.2.5..
Building library for split-0.2.5..
[1 of 2] Compiling Data.List.Split.Internals ( src/Data/List/Split/Internals.hs, dist/build/Data/List/Split/Internals.o, dist/build/Data/List/Split/Internals.dyn_o )
[2 of 2] Compiling Data.List.Split ( src/Data/List/Split.hs, dist/build/Data/List/Split.o, dist/build/Data/List/Split.dyn_o )
Preprocessing library for split-0.2.5..
Running Haddock on library for split-0.2.5..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling Data.List.Split.Internals ( src/Data/List/Split/Internals.hs, nothing )
[2 of 2] Compiling Data.List.Split ( src/Data/List/Split.hs, nothing )
Haddock coverage:
Warning: 'Splitter' is ambiguous. It is defined
* at src/Data/List/Split/Internals.hs:21:19
* at src/Data/List/Split/Internals.hs:21:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/List/Split/Internals.hs:21:1
Warning: 'n' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'm' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
91% ( 63 / 69) in 'Data.List.Split.Internals'
Warning: 'Splitter' is ambiguous. It is defined
* at src/Data/List/Split/Internals.hs:21:19
* at src/Data/List/Split/Internals.hs:21:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/List/Split/Internals.hs:21:1
90% ( 46 / 51) in 'Data.List.Split'
Documentation created: dist/doc/html/split/, dist/doc/html/split/split.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/split-0.2.5-HdqIBMrRyNiLuV2hi4AZF8
Completed split-0.2.5
Configuring splitmix-0.1.3.1...
Preprocessing library for splitmix-0.1.3.1..
Building library for splitmix-0.1.3.1..
[1 of 4] Compiling Data.Bits.Compat ( src-compat/Data/Bits/Compat.hs, dist/build/Data/Bits/Compat.o, dist/build/Data/Bits/Compat.dyn_o )
[2 of 4] Compiling System.Random.SplitMix.Init ( src/System/Random/SplitMix/Init.hs, dist/build/System/Random/SplitMix/Init.o, dist/build/System/Random/SplitMix/Init.dyn_o )
[3 of 4] Compiling System.Random.SplitMix ( src/System/Random/SplitMix.hs, dist/build/System/Random/SplitMix.o, dist/build/System/Random/SplitMix.dyn_o )
[4 of 4] Compiling System.Random.SplitMix32 ( src/System/Random/SplitMix32.hs, dist/build/System/Random/SplitMix32.o, dist/build/System/Random/SplitMix32.dyn_o )
Preprocessing library for splitmix-0.1.3.1..
Running Haddock on library for splitmix-0.1.3.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 4] Compiling Data.Bits.Compat ( src-compat/Data/Bits/Compat.hs, nothing )
[2 of 4] Compiling System.Random.SplitMix.Init ( src/System/Random/SplitMix/Init.hs, nothing )
[3 of 4] Compiling System.Random.SplitMix ( src/System/Random/SplitMix.hs, nothing )
[4 of 4] Compiling System.Random.SplitMix32 ( src/System/Random/SplitMix32.hs, nothing )
Haddock coverage:
Warning: 'SMGen' is ambiguous. It is defined
* at src/System/Random/SplitMix.hs:77:14
* at src/System/Random/SplitMix.hs:77:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/SplitMix.hs:77:1
100% ( 22 / 22) in 'System.Random.SplitMix'
Warning: 'SMGen' is ambiguous. It is defined
* at src/System/Random/SplitMix32.hs:61:14
* at src/System/Random/SplitMix32.hs:61:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/SplitMix32.hs:61:1
100% ( 22 / 22) in 'System.Random.SplitMix32'
Documentation created: dist/doc/html/splitmix/,
dist/doc/html/splitmix/splitmix.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/splitmix-0.1.3.1-FLXrwOMCBr82OHyMQoNXPe
Completed splitmix-0.1.3.1
Configuring stm-chans-3.0.0.9...
Preprocessing library for stm-chans-3.0.0.9..
Building library for stm-chans-3.0.0.9..
[1 of 5] Compiling Control.Concurrent.STM.TBChan ( src/Control/Concurrent/STM/TBChan.hs, dist/build/Control/Concurrent/STM/TBChan.o, dist/build/Control/Concurrent/STM/TBChan.dyn_o )
[2 of 5] Compiling Control.Concurrent.STM.TBMChan ( src/Control/Concurrent/STM/TBMChan.hs, dist/build/Control/Concurrent/STM/TBMChan.o, dist/build/Control/Concurrent/STM/TBMChan.dyn_o )
[3 of 5] Compiling Control.Concurrent.STM.TBMQueue ( src/Control/Concurrent/STM/TBMQueue.hs, dist/build/Control/Concurrent/STM/TBMQueue.o, dist/build/Control/Concurrent/STM/TBMQueue.dyn_o )
[4 of 5] Compiling Control.Concurrent.STM.TMChan ( src/Control/Concurrent/STM/TMChan.hs, dist/build/Control/Concurrent/STM/TMChan.o, dist/build/Control/Concurrent/STM/TMChan.dyn_o )
[5 of 5] Compiling Control.Concurrent.STM.TMQueue ( src/Control/Concurrent/STM/TMQueue.hs, dist/build/Control/Concurrent/STM/TMQueue.o, dist/build/Control/Concurrent/STM/TMQueue.dyn_o )
Preprocessing library for stm-chans-3.0.0.9..
Running Haddock on library for stm-chans-3.0.0.9..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 5] Compiling Control.Concurrent.STM.TBChan ( src/Control/Concurrent/STM/TBChan.hs, nothing )
[2 of 5] Compiling Control.Concurrent.STM.TBMChan ( src/Control/Concurrent/STM/TBMChan.hs, nothing )
[3 of 5] Compiling Control.Concurrent.STM.TBMQueue ( src/Control/Concurrent/STM/TBMQueue.hs, nothing )
[4 of 5] Compiling Control.Concurrent.STM.TMChan ( src/Control/Concurrent/STM/TMChan.hs, nothing )
[5 of 5] Compiling Control.Concurrent.STM.TMQueue ( src/Control/Concurrent/STM/TMQueue.hs, nothing )
Haddock coverage:
100% ( 21 / 21) in 'Control.Concurrent.STM.TBChan'
100% ( 24 / 24) in 'Control.Concurrent.STM.TBMChan'
100% ( 24 / 24) in 'Control.Concurrent.STM.TBMQueue'
100% ( 22 / 22) in 'Control.Concurrent.STM.TMChan'
100% ( 19 / 19) in 'Control.Concurrent.STM.TMQueue'
Documentation created: dist/doc/html/stm-chans/,
dist/doc/html/stm-chans/stm-chans.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/stm-chans-3.0.0.9-41ZwzhcTumHBxljpApWY7N
Completed stm-chans-3.0.0.9
Configuring tagged-0.8.9...
Preprocessing library for tagged-0.8.9..
Building library for tagged-0.8.9..
[1 of 2] Compiling Data.Proxy.TH ( src/Data/Proxy/TH.hs, dist/build/Data/Proxy/TH.o, dist/build/Data/Proxy/TH.dyn_o )
[2 of 2] Compiling Data.Tagged ( src/Data/Tagged.hs, dist/build/Data/Tagged.o, dist/build/Data/Tagged.dyn_o )
Preprocessing library for tagged-0.8.9..
Running Haddock on library for tagged-0.8.9..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling Data.Proxy.TH ( src/Data/Proxy/TH.hs, nothing )
[2 of 2] Compiling Data.Tagged ( src/Data/Tagged.hs, nothing )
Haddock coverage:
Warning: 'Proxy' is ambiguous. It is defined
* in Data.Proxy
* in Data.Proxy
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Proxy
66% ( 2 / 3) in 'Data.Proxy.TH'
Missing documentation for:
Module header
Warning: 'Tagged' is ambiguous. It is defined
* at src/Data/Tagged.hs:82:22
* at src/Data/Tagged.hs:82:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Tagged.hs:82:1
Warning: 'Proxy' is ambiguous. It is defined
* in Data.Proxy
* in Data.Proxy
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Proxy
93% ( 14 / 15) in 'Data.Tagged'
Missing documentation for:
witness (src/Data/Tagged.hs:386)
Warning: Data.Tagged: could not find link destinations for:
- Data.Tagged.Rep_Tagged
- Data.Tagged.Rep1_Tagged
Documentation created: dist/doc/html/tagged/, dist/doc/html/tagged/tagged.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/tagged-0.8.9-6aZuwRISGvIHng66Gvw0LY
Completed tagged-0.8.9
Configuring th-abstraction-0.7.1.0...
Preprocessing library for th-abstraction-0.7.1.0..
Building library for th-abstraction-0.7.1.0..
[1 of 3] Compiling Language.Haskell.TH.Datatype.Internal ( src/Language/Haskell/TH/Datatype/Internal.hs, dist/build/Language/Haskell/TH/Datatype/Internal.o, dist/build/Language/Haskell/TH/Datatype/Internal.dyn_o )
[2 of 3] Compiling Language.Haskell.TH.Datatype.TyVarBndr ( src/Language/Haskell/TH/Datatype/TyVarBndr.hs, dist/build/Language/Haskell/TH/Datatype/TyVarBndr.o, dist/build/Language/Haskell/TH/Datatype/TyVarBndr.dyn_o )
[3 of 3] Compiling Language.Haskell.TH.Datatype ( src/Language/Haskell/TH/Datatype.hs, dist/build/Language/Haskell/TH/Datatype.o, dist/build/Language/Haskell/TH/Datatype.dyn_o )
Preprocessing library for th-abstraction-0.7.1.0..
Running Haddock on library for th-abstraction-0.7.1.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Language.Haskell.TH.Datatype.Internal ( src/Language/Haskell/TH/Datatype/Internal.hs, nothing )
[2 of 3] Compiling Language.Haskell.TH.Datatype.TyVarBndr ( src/Language/Haskell/TH/Datatype/TyVarBndr.hs, nothing )
[3 of 3] Compiling Language.Haskell.TH.Datatype ( src/Language/Haskell/TH/Datatype.hs, nothing )
Haddock coverage:
Warning: 'Name' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* in Language.Haskell.TH.Syntax
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Syntax
Warning: 'Name' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* in Language.Haskell.TH.Syntax
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Syntax
76% ( 40 / 52) in 'Language.Haskell.TH.Datatype.TyVarBndr'
Missing documentation for:
TyVarBndrUnit
TyVarBndrSpec
TyVarBndrVis
Specificity
BndrVis
DefaultBndrFlag
plainTV
kindedTV
inferredSpec
specifiedSpec
bndrReq
bndrInvis
Warning: 'DatatypeInfo' is ambiguous. It is defined
* at src/Language/Haskell/TH/Datatype.hs:184:21
* at src/Language/Haskell/TH/Datatype.hs:184:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Language/Haskell/TH/Datatype.hs:184:1
Warning: 'ConstructorInfo' is ambiguous. It is defined
* at src/Language/Haskell/TH/Datatype.hs:229:24
* at src/Language/Haskell/TH/Datatype.hs:229:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Language/Haskell/TH/Datatype.hs:229:1
Warning: 'FieldStrictness' is ambiguous. It is defined
* at src/Language/Haskell/TH/Datatype.hs:272:24
* at src/Language/Haskell/TH/Datatype.hs:272:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Language/Haskell/TH/Datatype.hs:272:1
Warning: '()' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Strict' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* at src/Language/Haskell/TH/Datatype.hs:289:5
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Language/Haskell/TH/Datatype.hs:289:5
Warning: 'datatypeInstVars' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'mbKind' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'resolveFixities' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'FunArg' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Fixity' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* in Language.Haskell.TH.Syntax
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Syntax
92% ( 49 / 53) in 'Language.Haskell.TH.Datatype'
Missing documentation for:
arrowKCompat (src/Language/Haskell/TH/Datatype.hs:2260)
isStrictAnnot (src/Language/Haskell/TH/Datatype.hs:293)
notStrictAnnot (src/Language/Haskell/TH/Datatype.hs:294)
unpackedAnnot (src/Language/Haskell/TH/Datatype.hs:295)
Warning: Language.Haskell.TH.Datatype.TyVarBndr: could not find link destinations for:
- Language.Haskell.TH.Syntax.Rep_BndrVis
- Language.Haskell.TH.Syntax.Rep_Specificity
Warning: Language.Haskell.TH.Datatype: could not find link destinations for:
- Language.Haskell.TH.Datatype.Rep_DatatypeInfo
- Language.Haskell.TH.Datatype.Rep_ConstructorInfo
- Language.Haskell.TH.Datatype.Rep_FieldStrictness
- Language.Haskell.TH.Datatype.Rep_Strictness
- Language.Haskell.TH.Datatype.Rep_Unpackedness
- Language.Haskell.TH.Datatype.Rep_ConstructorVariant
- Language.Haskell.TH.Datatype.Rep_DatatypeVariant
Documentation created: dist/doc/html/th-abstraction/,
dist/doc/html/th-abstraction/th-abstraction.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/th-abstraction-0.7.1.0-5OEkekdo9oT3l4cxHWMApr
Completed th-abstraction-0.7.1.0
Configuring th-compat-0.1.6...
Preprocessing library for th-compat-0.1.6..
Building library for th-compat-0.1.6..
[1 of 1] Compiling Language.Haskell.TH.Syntax.Compat ( src/Language/Haskell/TH/Syntax/Compat.hs, dist/build/Language/Haskell/TH/Syntax/Compat.o, dist/build/Language/Haskell/TH/Syntax/Compat.dyn_o )
Preprocessing library for th-compat-0.1.6..
Running Haddock on library for th-compat-0.1.6..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Language.Haskell.TH.Syntax.Compat ( src/Language/Haskell/TH/Syntax/Compat.hs, nothing )
Haddock coverage:
Warning: 'Code' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* in Language.Haskell.TH.Syntax
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Syntax
Warning: 'm' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'TExp' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'lift' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'newNameQuote' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
97% ( 45 / 46) in 'Language.Haskell.TH.Syntax.Compat'
Missing documentation for:
CodeQ
Documentation created: dist/doc/html/th-compat/,
dist/doc/html/th-compat/th-compat.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/th-compat-0.1.6-3eCsLS8Ko2yHD4T0lSGAtv
Completed th-compat-0.1.6
Configuring transformers-compat-0.7.2...
Preprocessing library for transformers-compat-0.7.2..
Building library for transformers-compat-0.7.2..
[1 of 4] Compiling Control.Monad.Trans.Instances ( src/Control/Monad/Trans/Instances.hs, dist/build/Control/Monad/Trans/Instances.o, dist/build/Control/Monad/Trans/Instances.dyn_o )
[2 of 4] Compiling Data.Functor.Classes.Generic.Internal ( generics/Data/Functor/Classes/Generic/Internal.hs, dist/build/Data/Functor/Classes/Generic/Internal.o, dist/build/Data/Functor/Classes/Generic/Internal.dyn_o )
[3 of 4] Compiling Data.Functor.Classes.Generic ( generics/Data/Functor/Classes/Generic.hs, dist/build/Data/Functor/Classes/Generic.o, dist/build/Data/Functor/Classes/Generic.dyn_o )
[4 of 4] Compiling Paths_transformers_compat ( dist/build/autogen/Paths_transformers_compat.hs, dist/build/Paths_transformers_compat.o, dist/build/Paths_transformers_compat.dyn_o )
Preprocessing library for transformers-compat-0.7.2..
Running Haddock on library for transformers-compat-0.7.2..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 4] Compiling Control.Monad.Trans.Instances ( src/Control/Monad/Trans/Instances.hs, nothing )
[2 of 4] Compiling Data.Functor.Classes.Generic.Internal ( generics/Data/Functor/Classes/Generic/Internal.hs, nothing )
[3 of 4] Compiling Data.Functor.Classes.Generic ( generics/Data/Functor/Classes/Generic.hs, nothing )
[4 of 4] Compiling Paths_transformers_compat ( dist/build/autogen/Paths_transformers_compat.hs, nothing )
Haddock coverage:
100% ( 1 / 1) in 'Control.Monad.Trans.Instances'
Warning: 'String' is ambiguous. It is defined
* in Text.Read.Lex
* in GHC.Base
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Base
Warning: 'Options' is ambiguous. It is defined
* at generics/Data/Functor/Classes/Generic/Internal.hs:146:19
* at generics/Data/Functor/Classes/Generic/Internal.hs:146:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at generics/Data/Functor/Classes/Generic/Internal.hs:146:1
Warning: 'FunctorClassesDefault' is ambiguous. It is defined
* at generics/Data/Functor/Classes/Generic/Internal.hs:1231:3
* at generics/Data/Functor/Classes/Generic/Internal.hs:1230:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at generics/Data/Functor/Classes/Generic/Internal.hs:1230:1
100% ( 48 / 48) in 'Data.Functor.Classes.Generic.Internal'
Warning: 'Eq1' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Ord1' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Read1' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Show1' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'GenericFunctorClasses' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'eq1Default' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'compare1Default' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'readsPrec1Default' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'showsPrec1Default' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 21 / 21) in 'Data.Functor.Classes.Generic'
Warning: Data.Functor.Classes.Generic.Internal: could not find link destinations for:
- Data.Functor.Classes.Generic.Internal.GShowCon
- Data.Functor.Classes.Generic.Internal.GReadCon
Documentation created: dist/doc/html/transformers-compat/,
dist/doc/html/transformers-compat/transformers-compat.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/transformers-compat-0.7.2-Kjd0KzrkeU5ax708EytP3
Completed transformers-compat-0.7.2
Configuring unix-compat-0.7.4.1...
Preprocessing library for unix-compat-0.7.4.1..
Building library for unix-compat-0.7.4.1..
[1 of 8] Compiling System.PosixCompat.Files ( dist/build/System/PosixCompat/Files.hs, dist/build/System/PosixCompat/Files.o, dist/build/System/PosixCompat/Files.dyn_o )
[2 of 8] Compiling System.PosixCompat.Process ( src/System/PosixCompat/Process.hs, dist/build/System/PosixCompat/Process.o, dist/build/System/PosixCompat/Process.dyn_o )
[3 of 8] Compiling System.PosixCompat.Temp ( src/System/PosixCompat/Temp.hs, dist/build/System/PosixCompat/Temp.o, dist/build/System/PosixCompat/Temp.dyn_o )
[4 of 8] Compiling System.PosixCompat.Time ( src/System/PosixCompat/Time.hs, dist/build/System/PosixCompat/Time.o, dist/build/System/PosixCompat/Time.dyn_o )
[5 of 8] Compiling System.PosixCompat.Types ( src/System/PosixCompat/Types.hs, dist/build/System/PosixCompat/Types.o, dist/build/System/PosixCompat/Types.dyn_o )
[6 of 8] Compiling System.PosixCompat.Extensions ( dist/build/System/PosixCompat/Extensions.hs, dist/build/System/PosixCompat/Extensions.o, dist/build/System/PosixCompat/Extensions.dyn_o )
[7 of 8] Compiling System.PosixCompat.Unistd ( src/System/PosixCompat/Unistd.hs, dist/build/System/PosixCompat/Unistd.o, dist/build/System/PosixCompat/Unistd.dyn_o )
[8 of 8] Compiling System.PosixCompat ( src/System/PosixCompat.hs, dist/build/System/PosixCompat.o, dist/build/System/PosixCompat.dyn_o )
Preprocessing library for unix-compat-0.7.4.1..
Running Haddock on library for unix-compat-0.7.4.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 8] Compiling System.PosixCompat.Files ( dist/build/System/PosixCompat/Files.hs, nothing )
[2 of 8] Compiling System.PosixCompat.Process ( src/System/PosixCompat/Process.hs, nothing )
[3 of 8] Compiling System.PosixCompat.Temp ( src/System/PosixCompat/Temp.hs, nothing )
[4 of 8] Compiling System.PosixCompat.Time ( src/System/PosixCompat/Time.hs, nothing )
[5 of 8] Compiling System.PosixCompat.Types ( src/System/PosixCompat/Types.hs, nothing )
[6 of 8] Compiling System.PosixCompat.Extensions ( dist/build/System/PosixCompat/Extensions.hs, nothing )
[7 of 8] Compiling System.PosixCompat.Unistd ( src/System/PosixCompat/Unistd.hs, nothing )
[8 of 8] Compiling System.PosixCompat ( src/System/PosixCompat.hs, nothing )
Haddock coverage:
98% ( 80 / 81) in 'System.PosixCompat.Files'
Missing documentation for:
PathVar
100% ( 2 / 2) in 'System.PosixCompat.Process'
100% ( 2 / 2) in 'System.PosixCompat.Temp'
100% ( 2 / 2) in 'System.PosixCompat.Time'
100% ( 2 / 2) in 'System.PosixCompat.Types'
71% ( 5 / 7) in 'System.PosixCompat.Extensions'
Missing documentation for:
CMajor (src/System/PosixCompat/Extensions.hsc:23)
CMinor (src/System/PosixCompat/Extensions.hsc:24)
75% ( 6 / 8) in 'System.PosixCompat.Unistd'
Missing documentation for:
SystemID
getSystemID
100% ( 8 / 8) in 'System.PosixCompat'
Documentation created: dist/doc/html/unix-compat/,
dist/doc/html/unix-compat/unix-compat.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unix-compat-0.7.4.1-3WW2dYzNjvCGBx3FDUrKMW
Completed unix-compat-0.7.4.1
Configuring unliftio-core-0.2.1.0...
Preprocessing library for unliftio-core-0.2.1.0..
Building library for unliftio-core-0.2.1.0..
[1 of 2] Compiling Control.Monad.IO.Unlift ( src/Control/Monad/IO/Unlift.hs, dist/build/Control/Monad/IO/Unlift.o, dist/build/Control/Monad/IO/Unlift.dyn_o )
[2 of 2] Compiling Paths_unliftio_core ( dist/build/autogen/Paths_unliftio_core.hs, dist/build/Paths_unliftio_core.o, dist/build/Paths_unliftio_core.dyn_o )
Preprocessing library for unliftio-core-0.2.1.0..
Running Haddock on library for unliftio-core-0.2.1.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling Control.Monad.IO.Unlift ( src/Control/Monad/IO/Unlift.hs, nothing )
[2 of 2] Compiling Paths_unliftio_core ( dist/build/autogen/Paths_unliftio_core.hs, nothing )
Haddock coverage:
Warning: 'ReaderT' is ambiguous. It is defined
* in Control.Monad.Trans.Reader
* in Control.Monad.Trans.Reader
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.Reader
Warning: 'IdentityT' is ambiguous. It is defined
* in Control.Monad.Trans.Identity
* in Control.Monad.Trans.Identity
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.Identity
Warning: 'UnliftIO' is ambiguous. It is defined
* at src/Control/Monad/IO/Unlift.hs:27:22
* at src/Control/Monad/IO/Unlift.hs:27:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Control/Monad/IO/Unlift.hs:27:1
100% ( 10 / 10) in 'Control.Monad.IO.Unlift'
Documentation created: dist/doc/html/unliftio-core/,
dist/doc/html/unliftio-core/unliftio-core.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unliftio-core-0.2.1.0-4RRDZLCPaiuAoQNEd4e5m9
Completed unliftio-core-0.2.1.0
Configuring vector-stream-0.1.0.1...
Preprocessing library for vector-stream-0.1.0.1..
Building library for vector-stream-0.1.0.1..
[1 of 1] Compiling Data.Stream.Monadic ( src/Data/Stream/Monadic.hs, dist/build/Data/Stream/Monadic.o, dist/build/Data/Stream/Monadic.dyn_o )
Preprocessing library for vector-stream-0.1.0.1..
Running Haddock on library for vector-stream-0.1.0.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Data.Stream.Monadic ( src/Data/Stream/Monadic.hs, nothing )
Haddock coverage:
Warning: 'Stream' is ambiguous. It is defined
* at src/Data/Stream/Monadic.hs:154:19
* at src/Data/Stream/Monadic.hs:154:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Stream/Monadic.hs:154:1
Warning: 'Bundle' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
81% (110 /135) in 'Data.Stream.Monadic'
Missing documentation for:
liftBox (src/Data/Stream/Monadic.hs:130)
generate (src/Data/Stream/Monadic.hs:210)
unbox (src/Data/Stream/Monadic.hs:462)
concatMap (src/Data/Stream/Monadic.hs:1070)
zipWithM_ (src/Data/Stream/Monadic.hs:531)
zipWith3M (src/Data/Stream/Monadic.hs:535)
zipWith4M (src/Data/Stream/Monadic.hs:565)
zipWith5M (src/Data/Stream/Monadic.hs:572)
zipWith6M (src/Data/Stream/Monadic.hs:579)
zipWith (src/Data/Stream/Monadic.hs:585)
zipWith3 (src/Data/Stream/Monadic.hs:590)
zipWith4 (src/Data/Stream/Monadic.hs:596)
zipWith5 (src/Data/Stream/Monadic.hs:602)
zipWith6 (src/Data/Stream/Monadic.hs:608)
zip (src/Data/Stream/Monadic.hs:612)
zip3 (src/Data/Stream/Monadic.hs:616)
zip4 (src/Data/Stream/Monadic.hs:621)
zip5 (src/Data/Stream/Monadic.hs:626)
zip6 (src/Data/Stream/Monadic.hs:631)
mapMaybe (src/Data/Stream/Monadic.hs:702)
catMaybes (src/Data/Stream/Monadic.hs:716)
and (src/Data/Stream/Monadic.hs:1044)
or (src/Data/Stream/Monadic.hs:1057)
concatMapM (src/Data/Stream/Monadic.hs:1074)
unfoldrN (src/Data/Stream/Monadic.hs:1136)
Documentation created: dist/doc/html/vector-stream/,
dist/doc/html/vector-stream/vector-stream.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/vector-stream-0.1.0.1-6z73n1LRnZvKlURnjwR3rr
Completed vector-stream-0.1.0.1
Configuring zlib-0.7.1.1...
Preprocessing library for zlib-0.7.1.1..
Building library for zlib-0.7.1.1..
[1 of 6] Compiling Codec.Compression.Zlib.ByteStringCompat ( Codec/Compression/Zlib/ByteStringCompat.hs, dist/build/Codec/Compression/Zlib/ByteStringCompat.o, dist/build/Codec/Compression/Zlib/ByteStringCompat.dyn_o )
[2 of 6] Compiling Codec.Compression.Zlib.Stream ( dist/build/Codec/Compression/Zlib/Stream.hs, dist/build/Codec/Compression/Zlib/Stream.o, dist/build/Codec/Compression/Zlib/Stream.dyn_o )
[3 of 6] Compiling Codec.Compression.Zlib.Internal ( Codec/Compression/Zlib/Internal.hs, dist/build/Codec/Compression/Zlib/Internal.o, dist/build/Codec/Compression/Zlib/Internal.dyn_o )
[4 of 6] Compiling Codec.Compression.Zlib.Raw ( Codec/Compression/Zlib/Raw.hs, dist/build/Codec/Compression/Zlib/Raw.o, dist/build/Codec/Compression/Zlib/Raw.dyn_o )
[5 of 6] Compiling Codec.Compression.Zlib ( Codec/Compression/Zlib.hs, dist/build/Codec/Compression/Zlib.o, dist/build/Codec/Compression/Zlib.dyn_o )
[6 of 6] Compiling Codec.Compression.GZip ( Codec/Compression/GZip.hs, dist/build/Codec/Compression/GZip.o, dist/build/Codec/Compression/GZip.dyn_o )
Preprocessing library for zlib-0.7.1.1..
Running Haddock on library for zlib-0.7.1.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 6] Compiling Codec.Compression.Zlib.ByteStringCompat ( Codec/Compression/Zlib/ByteStringCompat.hs, nothing )
[2 of 6] Compiling Codec.Compression.Zlib.Stream ( dist/build/Codec/Compression/Zlib/Stream.hs, nothing )
[3 of 6] Compiling Codec.Compression.Zlib.Internal ( Codec/Compression/Zlib/Internal.hs, nothing )
[4 of 6] Compiling Codec.Compression.Zlib.Raw ( Codec/Compression/Zlib/Raw.hs, nothing )
[5 of 6] Compiling Codec.Compression.Zlib ( Codec/Compression/Zlib.hs, nothing )
[6 of 6] Compiling Codec.Compression.GZip ( Codec/Compression/GZip.hs, nothing )
Haddock coverage:
100% ( 53 / 53) in 'Codec.Compression.Zlib.Internal'
100% ( 35 / 35) in 'Codec.Compression.Zlib.Raw'
100% ( 36 / 36) in 'Codec.Compression.Zlib'
100% ( 36 / 36) in 'Codec.Compression.GZip'
Warning: Codec.Compression.Zlib.Internal: could not find link destinations for:
- Codec.Compression.Zlib.Stream.Rep_CompressionStrategy
- Codec.Compression.Zlib.Stream.Rep_MemoryLevel
- Codec.Compression.Zlib.Stream.Rep_WindowBits
- Codec.Compression.Zlib.Stream.Rep_CompressionLevel
- Codec.Compression.Zlib.Stream.Rep_Method
- Codec.Compression.Zlib.Stream.Rep_Format
- Codec.Compression.Zlib.Internal.Rep_DecompressError
- Codec.Compression.Zlib.Internal.Rep_DecompressParams
- Codec.Compression.Zlib.Internal.Rep_CompressParams
Warning: Codec.Compression.Zlib.Raw: could not find link destinations for:
- Codec.Compression.Zlib.Stream.Rep_CompressionStrategy
- Codec.Compression.Zlib.Stream.Rep_MemoryLevel
- Codec.Compression.Zlib.Stream.Rep_WindowBits
- Codec.Compression.Zlib.Stream.Rep_CompressionLevel
- Codec.Compression.Zlib.Stream.Rep_Method
- Codec.Compression.Zlib.Internal.Rep_DecompressError
- Codec.Compression.Zlib.Internal.Rep_DecompressParams
- Codec.Compression.Zlib.Internal.Rep_CompressParams
Warning: Codec.Compression.Zlib: could not find link destinations for:
- Codec.Compression.Zlib.Stream.Rep_CompressionStrategy
- Codec.Compression.Zlib.Stream.Rep_MemoryLevel
- Codec.Compression.Zlib.Stream.Rep_WindowBits
- Codec.Compression.Zlib.Stream.Rep_CompressionLevel
- Codec.Compression.Zlib.Stream.Rep_Method
- Codec.Compression.Zlib.Internal.Rep_DecompressError
- Codec.Compression.Zlib.Internal.Rep_DecompressParams
- Codec.Compression.Zlib.Internal.Rep_CompressParams
Warning: Codec.Compression.GZip: could not find link destinations for:
- Codec.Compression.Zlib.Stream.Rep_CompressionStrategy
- Codec.Compression.Zlib.Stream.Rep_MemoryLevel
- Codec.Compression.Zlib.Stream.Rep_WindowBits
- Codec.Compression.Zlib.Stream.Rep_CompressionLevel
- Codec.Compression.Zlib.Stream.Rep_Method
- Codec.Compression.Zlib.Internal.Rep_DecompressError
- Codec.Compression.Zlib.Internal.Rep_DecompressParams
- Codec.Compression.Zlib.Internal.Rep_CompressParams
Documentation created: dist/doc/html/zlib/, dist/doc/html/zlib/zlib.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/zlib-0.7.1.1-JJRWuCnd7LR9y9ey9xuk4f
Completed zlib-0.7.1.1
Configuring contravariant-1.5.5...
Preprocessing library for contravariant-1.5.5..
Building library for contravariant-1.5.5..
[1 of 3] Compiling Data.Functor.Contravariant.Divisible ( src/Data/Functor/Contravariant/Divisible.hs, dist/build/Data/Functor/Contravariant/Divisible.o, dist/build/Data/Functor/Contravariant/Divisible.dyn_o )
[2 of 3] Compiling Data.Functor.Contravariant.Compose ( src/Data/Functor/Contravariant/Compose.hs, dist/build/Data/Functor/Contravariant/Compose.o, dist/build/Data/Functor/Contravariant/Compose.dyn_o )
[3 of 3] Compiling Data.Functor.Contravariant.Generic ( src/Data/Functor/Contravariant/Generic.hs, dist/build/Data/Functor/Contravariant/Generic.o, dist/build/Data/Functor/Contravariant/Generic.dyn_o )
Preprocessing library for contravariant-1.5.5..
Running Haddock on library for contravariant-1.5.5..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Data.Functor.Contravariant.Divisible ( src/Data/Functor/Contravariant/Divisible.hs, nothing )
[2 of 3] Compiling Data.Functor.Contravariant.Compose ( src/Data/Functor/Contravariant/Compose.hs, nothing )
[3 of 3] Compiling Data.Functor.Contravariant.Generic ( src/Data/Functor/Contravariant/Generic.hs, nothing )
Haddock coverage:
Warning: 'delta' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 17 / 17) in 'Data.Functor.Contravariant.Divisible'
100% ( 4 / 4) in 'Data.Functor.Contravariant.Compose'
Warning: 'Comparison' is ambiguous. It is defined
* in Data.Functor.Contravariant
* in Data.Functor.Contravariant
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Functor.Contravariant
Warning: 'Equivalence' is ambiguous. It is defined
* in Data.Functor.Contravariant
* in Data.Functor.Contravariant
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Functor.Contravariant
100% ( 3 / 3) in 'Data.Functor.Contravariant.Generic'
Warning: Data.Functor.Contravariant.Generic: could not find link destinations for:
- Data.Functor.Contravariant.Generic.GDeciding1
- Data.Functor.Contravariant.Generic.GDeciding
- Data.Functor.Contravariant.Generic.GG
- Data.Functor.Contravariant.Generic.Rep1'
- Data.Functor.Contravariant.Generic.Rep'
Documentation created: dist/doc/html/contravariant/,
dist/doc/html/contravariant/contravariant.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/contravariant-1.5.5-9OZxSMGmONm3FLxTwjX4ym
Completed contravariant-1.5.5
Configuring blaze-markup-0.8.3.0...
Preprocessing library for blaze-markup-0.8.3.0..
Building library for blaze-markup-0.8.3.0..
[1 of 6] Compiling Text.Blaze.Internal ( src/Text/Blaze/Internal.hs, dist/build/Text/Blaze/Internal.o, dist/build/Text/Blaze/Internal.dyn_o )
src/Text/Blaze/Internal.hs:82:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
82 | import Control.Applicative (Applicative (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Text/Blaze/Internal.hs:84:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
84 | import Data.Monoid (Monoid, mappend, mconcat, mempty)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Text/Blaze/Internal.hs:223:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances]
Noncanonical return definition detected
in the instance declaration for Monad MarkupM.
return will eventually be removed in favour of pure
Suggested fix:
Either remove definition for return (recommended) or define as return = pure
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return
|
223 | return x = Empty x
| ^^^^^^^^^^^^^^^^^^
src/Text/Blaze/Internal.hs:225:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances]
Noncanonical (>>) definition detected
in the instance declaration for Monad MarkupM.
(>>) will eventually be removed in favour of (*>)
Suggested fix:
Either remove definition for (>>) (recommended) or define as (>>) = (*>)
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return
|
225 | (>>) = Append
| ^^^^^^^^^^^^^
src/Text/Blaze/Internal.hs:230:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
230 | instance (a ~ ()) => IsString (MarkupM a) where
| ^
[2 of 6] Compiling Text.Blaze ( src/Text/Blaze.hs, dist/build/Text/Blaze.o, dist/build/Text/Blaze.dyn_o )
src/Text/Blaze.hs:92:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
92 | import Data.Monoid (mconcat)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Text/Blaze.hs:93:42: warning: [GHC-38856] [-Wunused-imports]
The import of Word from module Data.Word is redundant
|
93 | import Data.Word (Word, Word32, Word64)
| ^^^^
[3 of 6] Compiling Text.Blaze.Renderer.String ( src/Text/Blaze/Renderer/String.hs, dist/build/Text/Blaze/Renderer/String.o, dist/build/Text/Blaze/Renderer/String.dyn_o )
[4 of 6] Compiling Text.Blaze.Renderer.Pretty ( src/Text/Blaze/Renderer/Pretty.hs, dist/build/Text/Blaze/Renderer/Pretty.o, dist/build/Text/Blaze/Renderer/Pretty.dyn_o )
[5 of 6] Compiling Text.Blaze.Renderer.Text ( src/Text/Blaze/Renderer/Text.hs, dist/build/Text/Blaze/Renderer/Text.o, dist/build/Text/Blaze/Renderer/Text.dyn_o )
src/Text/Blaze/Renderer/Text.hs:15:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
15 | import Data.Monoid (mappend, mempty)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[6 of 6] Compiling Text.Blaze.Renderer.Utf8 ( src/Text/Blaze/Renderer/Utf8.hs, dist/build/Text/Blaze/Renderer/Utf8.o, dist/build/Text/Blaze/Renderer/Utf8.dyn_o )
src/Text/Blaze/Renderer/Utf8.hs:11:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
11 | import Data.Monoid (mappend, mempty)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Preprocessing library for blaze-markup-0.8.3.0..
Running Haddock on library for blaze-markup-0.8.3.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 6] Compiling Text.Blaze.Internal ( src/Text/Blaze/Internal.hs, nothing )
src/Text/Blaze/Internal.hs:82:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
82 | import Control.Applicative (Applicative (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Text/Blaze/Internal.hs:84:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
84 | import Data.Monoid (Monoid, mappend, mconcat, mempty)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Text/Blaze/Internal.hs:223:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances]
Noncanonical return definition detected
in the instance declaration for Monad MarkupM.
return will eventually be removed in favour of pure
Suggested fix:
Either remove definition for return (recommended) or define as return = pure
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return
|
223 | return x = Empty x
| ^^^^^^^^^^^^^^^^^^
src/Text/Blaze/Internal.hs:225:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances]
Noncanonical (>>) definition detected
in the instance declaration for Monad MarkupM.
(>>) will eventually be removed in favour of (*>)
Suggested fix:
Either remove definition for (>>) (recommended) or define as (>>) = (*>)
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return
|
225 | (>>) = Append
| ^^^^^^^^^^^^^
src/Text/Blaze/Internal.hs:230:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
230 | instance (a ~ ()) => IsString (MarkupM a) where
| ^
[2 of 6] Compiling Text.Blaze ( src/Text/Blaze.hs, nothing )
src/Text/Blaze.hs:92:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
92 | import Data.Monoid (mconcat)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Text/Blaze.hs:93:42: warning: [GHC-38856] [-Wunused-imports]
The import of Word from module Data.Word is redundant
|
93 | import Data.Word (Word, Word32, Word64)
| ^^^^
[3 of 6] Compiling Text.Blaze.Renderer.String ( src/Text/Blaze/Renderer/String.hs, nothing )
[4 of 6] Compiling Text.Blaze.Renderer.Pretty ( src/Text/Blaze/Renderer/Pretty.hs, nothing )
[5 of 6] Compiling Text.Blaze.Renderer.Text ( src/Text/Blaze/Renderer/Text.hs, nothing )
src/Text/Blaze/Renderer/Text.hs:15:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
15 | import Data.Monoid (mappend, mempty)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[6 of 6] Compiling Text.Blaze.Renderer.Utf8 ( src/Text/Blaze/Renderer/Utf8.hs, nothing )
src/Text/Blaze/Renderer/Utf8.hs:11:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
11 | import Data.Monoid (mappend, mempty)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Haddock coverage:
Warning: 'String' is ambiguous. It is defined
* at src/Text/Blaze/Internal.hs:123:7
* in GHC.Base
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Text/Blaze/Internal.hs:123:7
Warning: 'ByteString' is ambiguous. It is defined
* at src/Text/Blaze/Internal.hs:127:7
* in Data.ByteString.Internal.Type
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Text/Blaze/Internal.hs:127:7
Warning: 'Text' is ambiguous. It is defined
* at src/Text/Blaze/Internal.hs:125:7
* in Data.Text.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Text/Blaze/Internal.hs:125:7
Warning: 'Tag' is ambiguous. It is defined
* at src/Text/Blaze/Internal.hs:252:15
* at src/Text/Blaze/Internal.hs:252:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Text/Blaze/Internal.hs:252:1
100% ( 55 / 55) in 'Text.Blaze.Internal'
100% ( 43 / 43) in 'Text.Blaze'
Warning: 'String' is ambiguous. It is defined
* at src/Text/Blaze/Internal.hs:123:7
* in GHC.Base
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Text/Blaze/Internal.hs:123:7
75% ( 3 / 4) in 'Text.Blaze.Renderer.String'
Missing documentation for:
renderHtml (src/Text/Blaze/Renderer/String.hs:94)
Warning: 'String' is ambiguous. It is defined
* at src/Text/Blaze/Internal.hs:123:7
* in GHC.Base
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Text/Blaze/Internal.hs:123:7
66% ( 2 / 3) in 'Text.Blaze.Renderer.Pretty'
Missing documentation for:
renderHtml (src/Text/Blaze/Renderer/Pretty.hs:57)
55% ( 5 / 9) in 'Text.Blaze.Renderer.Text'
Missing documentation for:
renderHtmlBuilder (src/Text/Blaze/Renderer/Text.hs:74)
renderHtmlBuilderWith (src/Text/Blaze/Renderer/Text.hs:136)
renderHtml (src/Text/Blaze/Renderer/Text.hs:150)
renderHtmlWith (src/Text/Blaze/Renderer/Text.hs:167)
85% ( 6 / 7) in 'Text.Blaze.Renderer.Utf8'
Missing documentation for:
Module header
Documentation created: dist/doc/html/blaze-markup/,
dist/doc/html/blaze-markup/blaze-markup.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/blaze-markup-0.8.3.0-BIuxAhh0uThCOjqjFDDCUo
Completed blaze-markup-0.8.3.0
Configuring HUnit-1.6.2.0...
Preprocessing library for HUnit-1.6.2.0..
Building library for HUnit-1.6.2.0..
[1 of 6] Compiling Paths_HUnit ( dist/build/autogen/Paths_HUnit.hs, dist/build/Paths_HUnit.o, dist/build/Paths_HUnit.dyn_o )
[2 of 6] Compiling Test.HUnit.Lang ( src/Test/HUnit/Lang.hs, dist/build/Test/HUnit/Lang.o, dist/build/Test/HUnit/Lang.dyn_o )
[3 of 6] Compiling Test.HUnit.Base ( src/Test/HUnit/Base.hs, dist/build/Test/HUnit/Base.o, dist/build/Test/HUnit/Base.dyn_o )
[4 of 6] Compiling Test.HUnit.Terminal ( src/Test/HUnit/Terminal.hs, dist/build/Test/HUnit/Terminal.o, dist/build/Test/HUnit/Terminal.dyn_o )
src/Test/HUnit/Terminal.hs:41:41: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
41 | | otherwise = ta f (c:bs) (tail as) cs
| ^^^^
[5 of 6] Compiling Test.HUnit.Text ( src/Test/HUnit/Text.hs, dist/build/Test/HUnit/Text.o, dist/build/Test/HUnit/Text.dyn_o )
[6 of 6] Compiling Test.HUnit ( src/Test/HUnit.hs, dist/build/Test/HUnit.o, dist/build/Test/HUnit.dyn_o )
Preprocessing library for HUnit-1.6.2.0..
Running Haddock on library for HUnit-1.6.2.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 6] Compiling Paths_HUnit ( dist/build/autogen/Paths_HUnit.hs, nothing )
[2 of 6] Compiling Test.HUnit.Lang ( src/Test/HUnit/Lang.hs, nothing )
[3 of 6] Compiling Test.HUnit.Base ( src/Test/HUnit/Base.hs, nothing )
[4 of 6] Compiling Test.HUnit.Terminal ( src/Test/HUnit/Terminal.hs, nothing )
src/Test/HUnit/Terminal.hs:41:41: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
41 | | otherwise = ta f (c:bs) (tail as) cs
| ^^^^
[5 of 6] Compiling Test.HUnit.Text ( src/Test/HUnit/Text.hs, nothing )
[6 of 6] Compiling Test.HUnit ( src/Test/HUnit.hs, nothing )
Haddock coverage:
54% ( 6 / 11) in 'Test.HUnit.Lang'
Missing documentation for:
Module header
Result (src/Test/HUnit/Lang.hs:86)
HUnitFailure (src/Test/HUnit/Lang.hs:41)
FailureReason (src/Test/HUnit/Lang.hs:46)
formatFailureReason (src/Test/HUnit/Lang.hs:83)
100% ( 33 / 33) in 'Test.HUnit.Base'
100% ( 2 / 2) in 'Test.HUnit.Terminal'
Warning: 'PutText' is ambiguous. It is defined
* at src/Test/HUnit/Text.hs:40:19
* at src/Test/HUnit/Text.hs:40:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/HUnit/Text.hs:40:1
Warning: 'st' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 9 / 9) in 'Test.HUnit.Text'
100% ( 3 / 3) in 'Test.HUnit'
Documentation created: dist/doc/html/HUnit/, dist/doc/html/HUnit/HUnit.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/HUnit-1.6.2.0-I4Li6SX3p2jHu37LTSBLSu
Completed HUnit-1.6.2.0
Configuring ansi-terminal-types-1.1.3...
Preprocessing library for ansi-terminal-types-1.1.3..
Building library for ansi-terminal-types-1.1.3..
[1 of 2] Compiling System.Console.ANSI.Types ( src/System/Console/ANSI/Types.hs, dist/build/System/Console/ANSI/Types.o, dist/build/System/Console/ANSI/Types.dyn_o )
[2 of 2] Compiling System.Console.ANSI.Codes ( src/System/Console/ANSI/Codes.hs, dist/build/System/Console/ANSI/Codes.o, dist/build/System/Console/ANSI/Codes.dyn_o )
Preprocessing library for ansi-terminal-types-1.1.3..
Running Haddock on library for ansi-terminal-types-1.1.3..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling System.Console.ANSI.Types ( src/System/Console/ANSI/Types.hs, nothing )
[2 of 2] Compiling System.Console.ANSI.Codes ( src/System/Console/ANSI/Codes.hs, nothing )
Haddock coverage:
100% ( 13 / 13) in 'System.Console.ANSI.Types'
66% ( 41 / 62) in 'System.Console.ANSI.Codes'
Missing documentation for:
cursorUpCode (src/System/Console/ANSI/Codes.hs:236)
cursorDownCode (src/System/Console/ANSI/Codes.hs:237)
cursorForwardCode (src/System/Console/ANSI/Codes.hs:238)
cursorBackwardCode (src/System/Console/ANSI/Codes.hs:239)
cursorUpLineCode (src/System/Console/ANSI/Codes.hs:245)
cursorDownLineCode (src/System/Console/ANSI/Codes.hs:244)
clearFromCursorToScreenEndCode (src/System/Console/ANSI/Codes.hs:312)
clearFromCursorToScreenBeginningCode (src/System/Console/ANSI/Codes.hs:313)
clearScreenCode (src/System/Console/ANSI/Codes.hs:314)
clearFromCursorToLineEndCode (src/System/Console/ANSI/Codes.hs:315)
clearFromCursorToLineBeginningCode (src/System/Console/ANSI/Codes.hs:316)
clearLineCode (src/System/Console/ANSI/Codes.hs:317)
enableLineWrapCode (src/System/Console/ANSI/Codes.hs:320)
disableLineWrapCode (src/System/Console/ANSI/Codes.hs:321)
scrollPageUpCode (src/System/Console/ANSI/Codes.hs:326)
scrollPageDownCode (src/System/Console/ANSI/Codes.hs:327)
useAlternateScreenBufferCode (src/System/Console/ANSI/Codes.hs:330)
useNormalScreenBufferCode (src/System/Console/ANSI/Codes.hs:331)
setSGRCode (src/System/Console/ANSI/Codes.hs:339)
hideCursorCode (src/System/Console/ANSI/Codes.hs:344)
showCursorCode (src/System/Console/ANSI/Codes.hs:345)
Documentation created: dist/doc/html/ansi-terminal-types/,
dist/doc/html/ansi-terminal-types/ansi-terminal-types.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/ansi-terminal-types-1.1.3-FbCvCegLPPTJZH2c3Rw7yn
Completed ansi-terminal-types-1.1.3
Configuring data-default-class-0.2.0.0...
Preprocessing library for data-default-class-0.2.0.0..
Building library for data-default-class-0.2.0.0..
[1 of 1] Compiling Data.Default.Class ( Data/Default/Class.hs, dist/build/Data/Default/Class.o, dist/build/Data/Default/Class.dyn_o )
Preprocessing library for data-default-class-0.2.0.0..
Running Haddock on library for data-default-class-0.2.0.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Data.Default.Class ( Data/Default/Class.hs, nothing )
Haddock coverage:
100% ( 2 / 2) in 'Data.Default.Class'
Documentation created: dist/doc/html/data-default-class/,
dist/doc/html/data-default-class/data-default-class.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/data-default-class-0.2.0.0-CjoLsHLNRL5HOmbZU1FvV6
Completed data-default-class-0.2.0.0
Configuring old-time-1.1.0.4...
configure: WARNING: unrecognized options: --with-compiler
checking for gcc... /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables...
checking whether we are cross compiling... no
checking for suffix of object files... o
checking whether the compiler supports GNU C... yes
checking whether /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc accepts -g... yes
checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc option to enable C11 features... none needed
checking for stdio.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for inttypes.h... yes
checking for stdint.h... yes
checking for strings.h... yes
checking for sys/stat.h... yes
checking for sys/types.h... yes
checking for unistd.h... yes
checking for sys/time.h... yes
checking for sys/time.h... (cached) yes
checking for sys/timeb.h... yes
checking for time.h... yes
checking for ftime... yes
checking for gmtime_r... yes
checking for localtime_r... yes
checking for gettimeofday... yes
checking whether struct tm is in sys/time.h or time.h... time.h
checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc options needed to detect all undeclared functions... none needed
checking for struct tm.tm_zone... yes
checking for sys/time.h... (cached) yes
checking whether altzone is declared... no
configure: creating ./config.status
config.status: creating include/HsTimeConfig.h
configure: WARNING: unrecognized options: --with-compiler
Preprocessing library for old-time-1.1.0.4..
Building library for old-time-1.1.0.4..
[1 of 1] Compiling System.Time ( dist/build/System/Time.hs, dist/build/System/Time.o, dist/build/System/Time.dyn_o )
Preprocessing library for old-time-1.1.0.4..
Running Haddock on library for old-time-1.1.0.4..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling System.Time ( dist/build/System/Time.hs, nothing )
Haddock coverage:
Warning: 'CalendarTime' is ambiguous. It is defined
* at System/Time.hsc:186:4
* at System/Time.hsc:185:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/Time.hsc:185:1
Warning: 'TimeDiff' is ambiguous. It is defined
* at System/Time.hsc:208:4
* at System/Time.hsc:207:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/Time.hsc:207:1
95% ( 20 / 21) in 'System.Time'
Missing documentation for:
getClockTime (System/Time.hsc:248)
Documentation created: dist/doc/html/old-time/,
dist/doc/html/old-time/old-time.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/old-time-1.1.0.4-4pJyT14gXlf8eMFtx7lHTi
Completed old-time-1.1.0.4
Configuring hashable-1.5.0.0...
Preprocessing library for hashable-1.5.0.0..
Building library for hashable-1.5.0.0..
[ 1 of 10] Compiling Data.Hashable.FFI ( src/Data/Hashable/FFI.hs, dist/build/Data/Hashable/FFI.o, dist/build/Data/Hashable/FFI.dyn_o )
[ 2 of 10] Compiling Data.Hashable.Imports ( src/Data/Hashable/Imports.hs, dist/build/Data/Hashable/Imports.o, dist/build/Data/Hashable/Imports.dyn_o )
[ 3 of 10] Compiling Data.Hashable.Mix ( src/Data/Hashable/Mix.hs, dist/build/Data/Hashable/Mix.o, dist/build/Data/Hashable/Mix.dyn_o )
[ 4 of 10] Compiling Data.Hashable.XXH3 ( src/Data/Hashable/XXH3.hs, dist/build/Data/Hashable/XXH3.o, dist/build/Data/Hashable/XXH3.dyn_o )
[ 5 of 10] Compiling Data.Hashable.LowLevel ( src/Data/Hashable/LowLevel.hs, dist/build/Data/Hashable/LowLevel.o, dist/build/Data/Hashable/LowLevel.dyn_o )
[ 6 of 10] Compiling Data.Hashable.Class ( src/Data/Hashable/Class.hs, dist/build/Data/Hashable/Class.o, dist/build/Data/Hashable/Class.dyn_o )
[ 7 of 10] Compiling Data.Hashable.Lifted ( src/Data/Hashable/Lifted.hs, dist/build/Data/Hashable/Lifted.o, dist/build/Data/Hashable/Lifted.dyn_o )
[ 8 of 10] Compiling Data.Hashable.Generic.Instances ( src/Data/Hashable/Generic/Instances.hs, dist/build/Data/Hashable/Generic/Instances.o, dist/build/Data/Hashable/Generic/Instances.dyn_o )
src/Data/Hashable/Generic/Instances.hs:5:14: warning: [GHC-19244] [-Wtrustworthy-safe]
Data.Hashable.Generic.Instances is marked as Trustworthy but has been inferred as safe!
|
5 | {-# LANGUAGE Trustworthy #-}
| ^^^^^^^^^^^
[ 9 of 10] Compiling Data.Hashable.Generic ( src/Data/Hashable/Generic.hs, dist/build/Data/Hashable/Generic.o, dist/build/Data/Hashable/Generic.dyn_o )
[10 of 10] Compiling Data.Hashable ( src/Data/Hashable.hs, dist/build/Data/Hashable.o, dist/build/Data/Hashable.dyn_o )
Preprocessing library for hashable-1.5.0.0..
Running Haddock on library for hashable-1.5.0.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 10] Compiling Data.Hashable.FFI ( src/Data/Hashable/FFI.hs, nothing )
[ 2 of 10] Compiling Data.Hashable.Imports ( src/Data/Hashable/Imports.hs, nothing )
[ 3 of 10] Compiling Data.Hashable.Mix ( src/Data/Hashable/Mix.hs, nothing )
[ 4 of 10] Compiling Data.Hashable.XXH3 ( src/Data/Hashable/XXH3.hs, nothing )
[ 5 of 10] Compiling Data.Hashable.LowLevel ( src/Data/Hashable/LowLevel.hs, nothing )
[ 6 of 10] Compiling Data.Hashable.Class ( src/Data/Hashable/Class.hs, nothing )
[ 7 of 10] Compiling Data.Hashable.Lifted ( src/Data/Hashable/Lifted.hs, nothing )
[ 8 of 10] Compiling Data.Hashable.Generic.Instances ( src/Data/Hashable/Generic/Instances.hs, nothing )
src/Data/Hashable/Generic/Instances.hs:5:14: warning: [GHC-19244] [-Wtrustworthy-safe]
Data.Hashable.Generic.Instances is marked as Trustworthy but has been inferred as safe!
|
5 | {-# LANGUAGE Trustworthy #-}
| ^^^^^^^^^^^
[ 9 of 10] Compiling Data.Hashable.Generic ( src/Data/Hashable/Generic.hs, nothing )
[10 of 10] Compiling Data.Hashable ( src/Data/Hashable.hs, nothing )
Haddock coverage:
Warning: 'ByteArray' is ambiguous. It is defined
* in Data.Array.Byte
* in Data.Array.Byte
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Array.Byte
Warning: 'hash' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'defaultHashWith' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Hashed' is ambiguous. It is defined
* at src/Data/Hashable/Class.hs:860:17
* at src/Data/Hashable/Class.hs:860:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Hashable/Class.hs:860:1
Warning: 'Arg' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
80% ( 8 / 10) in 'Data.Hashable.Lifted'
Missing documentation for:
Hashable1 (src/Data/Hashable/Class.hs:252)
Hashable2 (src/Data/Hashable/Class.hs:267)
66% ( 6 / 9) in 'Data.Hashable.Generic'
Missing documentation for:
One (src/Data/Hashable/Class.hs:242)
Zero (src/Data/Hashable/Class.hs:241)
HashArgs (src/Data/Hashable/Class.hs:244)
Warning: 'Generic' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 31 / 31) in 'Data.Hashable'
Warning: Data.Hashable.Generic: could not find link destinations for:
- Data.Hashable.Class.D:R:HashArgsOnea0
- Data.Hashable.Class.D:R:HashArgsZeroa0
- Data.Hashable.Generic.Instances.GSum
Warning: Data.Hashable: could not find link destinations for:
- Data.Hashable.Mix.Salt
Documentation created: dist/doc/html/hashable/,
dist/doc/html/hashable/hashable.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hashable-1.5.0.0-J8fLvwSw9feFf65x5AcaWG
Completed hashable-1.5.0.0
Configuring integer-conversion-0.1.1...
Preprocessing library for integer-conversion-0.1.1..
Building library for integer-conversion-0.1.1..
[1 of 1] Compiling Data.Integer.Conversion ( src/Data/Integer/Conversion.hs, dist/build/Data/Integer/Conversion.o, dist/build/Data/Integer/Conversion.dyn_o )
Preprocessing library for integer-conversion-0.1.1..
Running Haddock on library for integer-conversion-0.1.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Data.Integer.Conversion ( src/Data/Integer/Conversion.hs, nothing )
Haddock coverage:
Warning: 'Text' is ambiguous. It is defined
* in Data.Text.Internal
* in Data.Text.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Text.Internal
100% ( 5 / 5) in 'Data.Integer.Conversion'
Documentation created: dist/doc/html/integer-conversion/,
dist/doc/html/integer-conversion/integer-conversion.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/integer-conversion-0.1.1-CeDtdfh0tTJCMc72X6KfS8
Completed integer-conversion-0.1.1
Configuring random-1.3.1...
Preprocessing library for random-1.3.1..
Building library for random-1.3.1..
[1 of 6] Compiling System.Random.Array ( src/System/Random/Array.hs, dist/build/System/Random/Array.o, dist/build/System/Random/Array.dyn_o )
[2 of 6] Compiling System.Random.GFinite ( src/System/Random/GFinite.hs, dist/build/System/Random/GFinite.o, dist/build/System/Random/GFinite.dyn_o )
[3 of 6] Compiling System.Random.Internal ( src/System/Random/Internal.hs, dist/build/System/Random/Internal.o, dist/build/System/Random/Internal.dyn_o )
[4 of 6] Compiling System.Random.Seed ( src/System/Random/Seed.hs, dist/build/System/Random/Seed.o, dist/build/System/Random/Seed.dyn_o )
[5 of 6] Compiling System.Random ( src/System/Random.hs, dist/build/System/Random.o, dist/build/System/Random.dyn_o )
[6 of 6] Compiling System.Random.Stateful ( src/System/Random/Stateful.hs, dist/build/System/Random/Stateful.o, dist/build/System/Random/Stateful.dyn_o )
Preprocessing library for random-1.3.1..
Running Haddock on library for random-1.3.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 6] Compiling System.Random.Array ( src/System/Random/Array.hs, nothing )
[2 of 6] Compiling System.Random.GFinite ( src/System/Random/GFinite.hs, nothing )
[3 of 6] Compiling System.Random.Internal ( src/System/Random/Internal.hs, nothing )
[4 of 6] Compiling System.Random.Seed ( src/System/Random/Seed.hs, nothing )
[5 of 6] Compiling System.Random ( src/System/Random.hs, nothing )
[6 of 6] Compiling System.Random.Stateful ( src/System/Random/Stateful.hs, nothing )
Haddock coverage:
Warning: 'ST' is ambiguous. It is defined
* in GHC.ST
* in GHC.ST
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.ST
Warning: 'StateGenM' is ambiguous. It is defined
* at src/System/Random/Internal.hs:606:20
* at src/System/Random/Internal.hs:606:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Internal.hs:606:1
Warning: 'StateGen' is ambiguous. It is defined
* at src/System/Random/Internal.hs:612:22
* at src/System/Random/Internal.hs:612:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Internal.hs:612:1
Warning: 'ByteArray' is ambiguous. It is defined
* in Data.Array.Byte
* in Data.Array.Byte
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Array.Byte
Warning: 'StdGen' is ambiguous. It is defined
* at src/System/Random/Internal.hs:749:18
* at src/System/Random/Internal.hs:749:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Internal.hs:749:1
Warning: 'MutableByteArray' is ambiguous. It is defined
* in Data.Array.Byte
* in Data.Array.Byte
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Array.Byte
Warning: 'ST' is ambiguous. It is defined
* in GHC.ST
* in GHC.ST
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.ST
Warning: 'StateT' is ambiguous. It is defined
* in Control.Monad.Trans.State.Strict
* in Control.Monad.Trans.State.Strict
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.State.Strict
Warning: 'Seed' is ambiguous. It is defined
* at src/System/Random/Internal.hs:134:18
* at src/System/Random/Internal.hs:134:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Internal.hs:134:1
Warning: 'StdGen' is ambiguous. It is defined
* at src/System/Random/Internal.hs:749:18
* at src/System/Random/Internal.hs:749:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Internal.hs:749:1
Warning: 'ByteArray' is ambiguous. It is defined
* in Data.Array.Byte
* in Data.Array.Byte
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Array.Byte
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'uniformByteStringM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ShortByteString' is ambiguous. It is defined
* in Data.ByteString.Short.Internal
* in Data.ByteString.Short.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.ByteString.Short.Internal
Warning: 'StdGen' is ambiguous. It is defined
* at src/System/Random/Internal.hs:749:18
* at src/System/Random/Internal.hs:749:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Internal.hs:749:1
100% ( 71 / 71) in 'System.Random'
Warning: 'TGenM' is ambiguous. It is defined
* at src/System/Random/Stateful.hs:719:19
* at src/System/Random/Stateful.hs:719:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Stateful.hs:719:1
Warning: 'STGenM' is ambiguous. It is defined
* at src/System/Random/Stateful.hs:618:22
* at src/System/Random/Stateful.hs:618:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Stateful.hs:618:1
Warning: 'StateGenM' is ambiguous. It is defined
* at src/System/Random/Internal.hs:606:20
* at src/System/Random/Internal.hs:606:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Internal.hs:606:1
Warning: 'IOGenM' is ambiguous. It is defined
* at src/System/Random/Stateful.hs:542:20
* at src/System/Random/Stateful.hs:542:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Stateful.hs:542:1
Warning: 'AtomicGenM' is ambiguous. It is defined
* at src/System/Random/Stateful.hs:428:24
* at src/System/Random/Stateful.hs:428:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Stateful.hs:428:1
Warning: 'Seed' is ambiguous. It is defined
* at src/System/Random/Internal.hs:134:18
* at src/System/Random/Internal.hs:134:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Internal.hs:134:1
Warning: 'StdGen' is ambiguous. It is defined
* at src/System/Random/Internal.hs:749:18
* at src/System/Random/Internal.hs:749:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Internal.hs:749:1
Warning: 'IOGen' is ambiguous. It is defined
* at src/System/Random/Stateful.hs:547:19
* at src/System/Random/Stateful.hs:547:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Stateful.hs:547:1
Warning: 'STGenM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'STM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'STGen' is ambiguous. It is defined
* at src/System/Random/Stateful.hs:623:19
* at src/System/Random/Stateful.hs:623:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/Stateful.hs:623:1
Warning: 'clearBit' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'testBit' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% (137 /137) in 'System.Random.Stateful'
Warning: System.Random: could not find link destinations for:
- System.Random.GFinite.cardinality
- System.Random.GFinite.toFinite
- System.Random.GFinite.fromFinite
- System.Random.GFinite.Cardinality
- System.Random.Seed.D:R:SeedSizeSMGen
- System.Random.Seed.D:R:SeedSizeSMGen0
- System.Random.Seed.D:R:SeedSizeStateGen
- System.Random.Seed.D:R:SeedSizeStdGen
- System.Random.Stateful.D:R:SeedSizeAtomicGen
- System.Random.Stateful.D:R:SeedSizeIOGen
- System.Random.Stateful.D:R:SeedSizeSTGen
- System.Random.Stateful.D:R:SeedSizeTGen
Warning: System.Random.Stateful: could not find link destinations for:
- System.Random.GFinite.GFinite
- System.Random.GFinite.cardinality
- System.Random.GFinite.toFinite
- System.Random.GFinite.fromFinite
- System.Random.GFinite.Cardinality
- System.Random.Internal.GUniformRange
- System.Random.Internal.GUniform
- System.Random.Internal.D:R:MutableGenStateGenm
- System.Random.Seed.D:R:SeedSizeSMGen
- System.Random.Seed.D:R:SeedSizeSMGen0
- System.Random.Seed.D:R:SeedSizeStateGen
- System.Random.Seed.D:R:SeedSizeStdGen
- System.Random.Stateful.D:R:MutableGenAtomicGenm
- System.Random.Stateful.D:R:SeedSizeAtomicGen
- System.Random.Stateful.D:R:MutableGenIOGenm
- System.Random.Stateful.D:R:SeedSizeIOGen
- System.Random.Stateful.D:R:MutableGenSTGenST
- System.Random.Stateful.D:R:SeedSizeSTGen
- System.Random.Stateful.D:R:MutableGenTGenSTM
- System.Random.Stateful.D:R:SeedSizeTGen
Documentation created: dist/doc/html/random/, dist/doc/html/random/random.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/random-1.3.1-3HmCudIQHVrG4RNMrw37d7
Completed random-1.3.1
Configuring distributive-0.6.2.1...
Preprocessing library for distributive-0.6.2.1..
Building library for distributive-0.6.2.1..
[1 of 2] Compiling Data.Distributive ( src/Data/Distributive.hs, dist/build/Data/Distributive.o, dist/build/Data/Distributive.dyn_o )
src/Data/Distributive.hs:157:26: warning: [GHC-47082] [-Woperator-whitespace-ext-conflict]
The prefix use of a $ would denote an untyped splice
were the TemplateHaskell extension enabled.
Suggested fix: Add whitespace after the $.
|
157 | distribute a e = fmap ($e) a
| ^
[2 of 2] Compiling Data.Distributive.Generic ( src/Data/Distributive/Generic.hs, dist/build/Data/Distributive/Generic.o, dist/build/Data/Distributive/Generic.dyn_o )
Preprocessing library for distributive-0.6.2.1..
Running Haddock on library for distributive-0.6.2.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling Data.Distributive ( src/Data/Distributive.hs, nothing )
src/Data/Distributive.hs:157:26: warning: [GHC-47082] [-Woperator-whitespace-ext-conflict]
The prefix use of a $ would denote an untyped splice
were the TemplateHaskell extension enabled.
Suggested fix: Add whitespace after the $.
|
157 | distribute a e = fmap ($e) a
| ^
[2 of 2] Compiling Data.Distributive.Generic ( src/Data/Distributive/Generic.hs, nothing )
Haddock coverage:
Warning: 'Representable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Identity' is ambiguous. It is defined
* in Data.Functor.Identity
* in Data.Functor.Identity
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Functor.Identity
Warning: 'Compose' is ambiguous. It is defined
* in Data.Functor.Compose
* in Data.Functor.Compose
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Functor.Compose
100% ( 4 / 4) in 'Data.Distributive'
75% ( 3 / 4) in 'Data.Distributive.Generic'
Missing documentation for:
GDistributive (src/Data/Distributive/Generic.hs:51)
Documentation created: dist/doc/html/distributive/,
dist/doc/html/distributive/distributive.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/distributive-0.6.2.1-LYGC3cC7tAvDF84yagGUZw
Completed distributive-0.6.2.1
Configuring th-lift-0.8.6...
Preprocessing library for th-lift-0.8.6..
Building library for th-lift-0.8.6..
[1 of 2] Compiling Language.Haskell.TH.Lift.Internal ( src/Language/Haskell/TH/Lift/Internal.hs, dist/build/Language/Haskell/TH/Lift/Internal.o, dist/build/Language/Haskell/TH/Lift/Internal.dyn_o )
[2 of 2] Compiling Language.Haskell.TH.Lift ( src/Language/Haskell/TH/Lift.hs, dist/build/Language/Haskell/TH/Lift.o, dist/build/Language/Haskell/TH/Lift.dyn_o )
Preprocessing library for th-lift-0.8.6..
Running Haddock on library for th-lift-0.8.6..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling Language.Haskell.TH.Lift.Internal ( src/Language/Haskell/TH/Lift/Internal.hs, nothing )
[2 of 2] Compiling Language.Haskell.TH.Lift ( src/Language/Haskell/TH/Lift.hs, nothing )
Haddock coverage:
Warning: 'makeLift' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 3 / 3) in 'Language.Haskell.TH.Lift.Internal'
62% ( 5 / 8) in 'Language.Haskell.TH.Lift'
Missing documentation for:
Module header
deriveLift (src/Language/Haskell/TH/Lift.hs:57)
deriveLiftMany' (src/Language/Haskell/TH/Lift.hs:75)
Documentation created: dist/doc/html/th-lift/,
dist/doc/html/th-lift/th-lift.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/th-lift-0.8.6-4HcLgzDLxGg12EUKIGyxSR
Completed th-lift-0.8.6
Configuring network-uri-2.6.4.2...
Preprocessing library for network-uri-2.6.4.2..
Building library for network-uri-2.6.4.2..
[1 of 3] Compiling Network.URI ( Network/URI.hs, dist/build/Network/URI.o, dist/build/Network/URI.dyn_o )
Network/URI.hs:1131:12: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
1131 | if head (uriPath ref) == '/' then
| ^^^^
Network/URI.hs:1437:16: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
1437 | query = orNull tail . uriQuery
| ^^^^
Network/URI.hs:1441:19: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
1441 | fragment = orNull tail . uriFragment
| ^^^^
[2 of 3] Compiling Network.URI.Lens ( Network/URI/Lens.hs, dist/build/Network/URI/Lens.o, dist/build/Network/URI/Lens.dyn_o )
[3 of 3] Compiling Network.URI.Static ( Network/URI/Static.hs, dist/build/Network/URI/Static.o, dist/build/Network/URI/Static.dyn_o )
Preprocessing library for network-uri-2.6.4.2..
Running Haddock on library for network-uri-2.6.4.2..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Network.URI ( Network/URI.hs, nothing )
Network/URI.hs:1131:12: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
1131 | if head (uriPath ref) == '/' then
| ^^^^
Network/URI.hs:1437:16: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
1437 | query = orNull tail . uriQuery
| ^^^^
Network/URI.hs:1441:19: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
1441 | fragment = orNull tail . uriFragment
| ^^^^
[2 of 3] Compiling Network.URI.Lens ( Network/URI/Lens.hs, nothing )
[3 of 3] Compiling Network.URI.Static ( Network/URI/Static.hs, nothing )
Haddock coverage:
Warning: 'URI' is ambiguous. It is defined
* at Network/URI.hs:184:12
* at Network/URI.hs:184:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/URI.hs:184:1
77% ( 42 / 54) in 'Network.URI'
Missing documentation for:
uriIsAbsolute (Network/URI.hs:388)
uriIsRelative (Network/URI.hs:391)
uriAuthToString (Network/URI.hs:959)
parseabsoluteURI (Network/URI.hs:1400)
escapeString (Network/URI.hs:1404)
reserved (Network/URI.hs:1408)
unreserved (Network/URI.hs:1412)
scheme (Network/URI.hs:1418)
authority (Network/URI.hs:1425)
path (Network/URI.hs:1433)
query (Network/URI.hs:1437)
fragment (Network/URI.hs:1441)
11% ( 1 / 9) in 'Network.URI.Lens'
Missing documentation for:
uriRegNameLens (Network/URI/Lens.hs:32)
uriUserInfoLens (Network/URI/Lens.hs:35)
uriPortLens (Network/URI/Lens.hs:39)
uriAuthorityLens (Network/URI/Lens.hs:42)
uriSchemeLens (Network/URI/Lens.hs:46)
uriPathLens (Network/URI/Lens.hs:49)
uriQueryLens (Network/URI/Lens.hs:52)
uriFragmentLens (Network/URI/Lens.hs:55)
88% ( 8 / 9) in 'Network.URI.Static'
Missing documentation for:
Module header
Warning: Network.URI: could not find link destinations for:
- Network.URI.Rep_URI
- Network.URI.Rep_URIAuth
Warning: Network.URI.Lens: could not find link destinations for:
- Network.URI.Lens.Lens'
Documentation created: dist/doc/html/network-uri/,
dist/doc/html/network-uri/network-uri.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/network-uri-2.6.4.2-3nNQMBMIiS23GiQ0eN39ga
Completed network-uri-2.6.4.2
Configuring transformers-base-0.4.6...
Preprocessing library for transformers-base-0.4.6..
Building library for transformers-base-0.4.6..
[1 of 1] Compiling Control.Monad.Base ( src/Control/Monad/Base.hs, dist/build/Control/Monad/Base.o, dist/build/Control/Monad/Base.dyn_o )
Preprocessing library for transformers-base-0.4.6..
Running Haddock on library for transformers-base-0.4.6..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Control.Monad.Base ( src/Control/Monad/Base.hs, nothing )
Haddock coverage:
33% ( 1 / 3) in 'Control.Monad.Base'
Missing documentation for:
Module header
MonadBase (src/Control/Monad/Base.hs:60)
Documentation created: dist/doc/html/transformers-base/,
dist/doc/html/transformers-base/transformers-base.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/transformers-base-0.4.6-IL0Wd7HO1bp151a2hrrU7W
Completed transformers-base-0.4.6
Configuring resourcet-1.3.0...
Preprocessing library for resourcet-1.3.0..
Building library for resourcet-1.3.0..
[1 of 5] Compiling Data.Acquire.Internal ( Data/Acquire/Internal.hs, dist/build/Data/Acquire/Internal.o, dist/build/Data/Acquire/Internal.dyn_o )
Data/Acquire/Internal.hs:17:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
17 | import Control.Applicative (Applicative (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 5] Compiling Control.Monad.Trans.Resource.Internal ( Control/Monad/Trans/Resource/Internal.hs, dist/build/Control/Monad/Trans/Resource/Internal.o, dist/build/Control/Monad/Trans/Resource/Internal.dyn_o )
Control/Monad/Trans/Resource/Internal.hs:28:29: warning: [GHC-38856] [-Wunused-imports]
The import of Applicative
from module Control.Applicative is redundant
|
28 | import Control.Applicative (Applicative (..), Alternative(..))
| ^^^^^^^^^^^^^^^^
Control/Monad/Trans/Resource/Internal.hs:57:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Monad.IO.Class is redundant
except perhaps to import instances from Control.Monad.IO.Class
To import instances alone, use: import Control.Monad.IO.Class()
|
57 | import Control.Monad.IO.Class (MonadIO (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Control/Monad/Trans/Resource/Internal.hs:67:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Word is redundant
except perhaps to import instances from Data.Word
To import instances alone, use: import Data.Word()
|
67 | import Data.Word(Word)
| ^^^^^^^^^^^^^^^^^^^^^^
[3 of 5] Compiling Data.Acquire ( Data/Acquire.hs, dist/build/Data/Acquire.o, dist/build/Data/Acquire.dyn_o )
[4 of 5] Compiling Control.Monad.Trans.Resource ( Control/Monad/Trans/Resource.hs, dist/build/Control/Monad/Trans/Resource.o, dist/build/Control/Monad/Trans/Resource.dyn_o )
[5 of 5] Compiling UnliftIO.Resource ( UnliftIO/Resource.hs, dist/build/UnliftIO/Resource.o, dist/build/UnliftIO/Resource.dyn_o )
Preprocessing library for resourcet-1.3.0..
Running Haddock on library for resourcet-1.3.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 5] Compiling Data.Acquire.Internal ( Data/Acquire/Internal.hs, nothing )
Data/Acquire/Internal.hs:17:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
17 | import Control.Applicative (Applicative (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 5] Compiling Control.Monad.Trans.Resource.Internal ( Control/Monad/Trans/Resource/Internal.hs, nothing )
Control/Monad/Trans/Resource/Internal.hs:28:29: warning: [GHC-38856] [-Wunused-imports]
The import of Applicative
from module Control.Applicative is redundant
|
28 | import Control.Applicative (Applicative (..), Alternative(..))
| ^^^^^^^^^^^^^^^^
Control/Monad/Trans/Resource/Internal.hs:57:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Monad.IO.Class is redundant
except perhaps to import instances from Control.Monad.IO.Class
To import instances alone, use: import Control.Monad.IO.Class()
|
57 | import Control.Monad.IO.Class (MonadIO (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Control/Monad/Trans/Resource/Internal.hs:67:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Word is redundant
except perhaps to import instances from Data.Word
To import instances alone, use: import Data.Word()
|
67 | import Data.Word(Word)
| ^^^^^^^^^^^^^^^^^^^^^^
[3 of 5] Compiling Data.Acquire ( Data/Acquire.hs, nothing )
[4 of 5] Compiling Control.Monad.Trans.Resource ( Control/Monad/Trans/Resource.hs, nothing )
[5 of 5] Compiling UnliftIO.Resource ( UnliftIO/Resource.hs, nothing )
Haddock coverage:
71% ( 5 / 7) in 'Data.Acquire.Internal'
Missing documentation for:
Module header
Allocated (Data/Acquire/Internal.hs:37)
Warning: 'ResourceT' is ambiguous. It is defined
* at Control/Monad/Trans/Resource/Internal.hs:182:25
* at Control/Monad/Trans/Resource/Internal.hs:182:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:182:1
Warning: 'runResourceT' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'register' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'allocate' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'release' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'hoist' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ResourceCleanupException' is ambiguous. It is defined
* at Control/Monad/Trans/Resource/Internal.hs:343:33
* at Control/Monad/Trans/Resource/Internal.hs:343:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:343:1
64% ( 9 / 14) in 'Control.Monad.Trans.Resource.Internal'
Missing documentation for:
Module header
ReleaseMap (Control/Monad/Trans/Resource/Internal.hs:98)
stateAlloc (Control/Monad/Trans/Resource/Internal.hs:289)
stateCleanup (Control/Monad/Trans/Resource/Internal.hs:297)
register' (Control/Monad/Trans/Resource/Internal.hs:317)
Warning: 'Acquire' is ambiguous. It is defined
* at Data/Acquire/Internal.hs:51:21
* at Data/Acquire/Internal.hs:51:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Acquire/Internal.hs:51:1
100% ( 10 / 10) in 'Data.Acquire'
Warning: 'ReleaseKey' is ambiguous. It is defined
* at Control/Monad/Trans/Resource/Internal.hs:92:19
* at Control/Monad/Trans/Resource/Internal.hs:92:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:92:1
Warning: 'ResourceT' is ambiguous. It is defined
* at Control/Monad/Trans/Resource/Internal.hs:182:25
* at Control/Monad/Trans/Resource/Internal.hs:182:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:182:1
Warning: 'ResourceCleanupException' is ambiguous. It is defined
* at Control/Monad/Trans/Resource/Internal.hs:343:33
* at Control/Monad/Trans/Resource/Internal.hs:343:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:343:1
Warning: 'concurrently' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'race' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'InvalidAccess' is ambiguous. It is defined
* at Control/Monad/Trans/Resource/Internal.hs:205:22
* at Control/Monad/Trans/Resource/Internal.hs:205:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:205:1
100% ( 40 / 40) in 'Control.Monad.Trans.Resource'
100% ( 13 / 13) in 'UnliftIO.Resource'
Warning: Control.Monad.Trans.Resource.Internal: could not find link destinations for:
- Control.Monad.Trans.Resource.Internal.NextKey
- Control.Monad.Trans.Resource.Internal.RefCount
- Control.Monad.Trans.Resource.Internal.D:R:PrimStateResourceT
Warning: Control.Monad.Trans.Resource: could not find link destinations for:
- Control.Monad.Trans.Resource.Internal.D:R:PrimStateResourceT
Warning: UnliftIO.Resource: could not find link destinations for:
- Control.Monad.Trans.Resource.Internal.D:R:PrimStateResourceT
Documentation created: dist/doc/html/resourcet/,
dist/doc/html/resourcet/resourcet.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/resourcet-1.3.0-JbK6FWjuH9wIRghP2zKnYA
Completed resourcet-1.3.0
Configuring blaze-html-0.9.2.0...
Preprocessing library for blaze-html-0.9.2.0..
Building library for blaze-html-0.9.2.0..
[ 1 of 21] Compiling Text.Blaze.Html ( src/Text/Blaze/Html.hs, dist/build/Text/Blaze/Html.o, dist/build/Text/Blaze/Html.dyn_o )
[ 2 of 21] Compiling Text.Blaze.Html.Renderer.Pretty ( src/Text/Blaze/Html/Renderer/Pretty.hs, dist/build/Text/Blaze/Html/Renderer/Pretty.o, dist/build/Text/Blaze/Html/Renderer/Pretty.dyn_o )
[ 3 of 21] Compiling Text.Blaze.Html.Renderer.String ( src/Text/Blaze/Html/Renderer/String.hs, dist/build/Text/Blaze/Html/Renderer/String.o, dist/build/Text/Blaze/Html/Renderer/String.dyn_o )
[ 4 of 21] Compiling Text.Blaze.Html.Renderer.Text ( src/Text/Blaze/Html/Renderer/Text.hs, dist/build/Text/Blaze/Html/Renderer/Text.o, dist/build/Text/Blaze/Html/Renderer/Text.dyn_o )
[ 5 of 21] Compiling Text.Blaze.Html.Renderer.Utf8 ( src/Text/Blaze/Html/Renderer/Utf8.hs, dist/build/Text/Blaze/Html/Renderer/Utf8.o, dist/build/Text/Blaze/Html/Renderer/Utf8.dyn_o )
[ 6 of 21] Compiling Text.Blaze.Html4.FrameSet ( src/Text/Blaze/Html4/FrameSet.hs, dist/build/Text/Blaze/Html4/FrameSet.o, dist/build/Text/Blaze/Html4/FrameSet.dyn_o )
[ 7 of 21] Compiling Text.Blaze.Html4.FrameSet.Attributes ( src/Text/Blaze/Html4/FrameSet/Attributes.hs, dist/build/Text/Blaze/Html4/FrameSet/Attributes.o, dist/build/Text/Blaze/Html4/FrameSet/Attributes.dyn_o )
[ 8 of 21] Compiling Text.Blaze.Html4.Strict ( src/Text/Blaze/Html4/Strict.hs, dist/build/Text/Blaze/Html4/Strict.o, dist/build/Text/Blaze/Html4/Strict.dyn_o )
[ 9 of 21] Compiling Text.Blaze.Html4.Strict.Attributes ( src/Text/Blaze/Html4/Strict/Attributes.hs, dist/build/Text/Blaze/Html4/Strict/Attributes.o, dist/build/Text/Blaze/Html4/Strict/Attributes.dyn_o )
[10 of 21] Compiling Text.Blaze.Html4.Transitional ( src/Text/Blaze/Html4/Transitional.hs, dist/build/Text/Blaze/Html4/Transitional.o, dist/build/Text/Blaze/Html4/Transitional.dyn_o )
[11 of 21] Compiling Text.Blaze.Html4.Transitional.Attributes ( src/Text/Blaze/Html4/Transitional/Attributes.hs, dist/build/Text/Blaze/Html4/Transitional/Attributes.o, dist/build/Text/Blaze/Html4/Transitional/Attributes.dyn_o )
[12 of 21] Compiling Text.Blaze.Html5 ( src/Text/Blaze/Html5.hs, dist/build/Text/Blaze/Html5.o, dist/build/Text/Blaze/Html5.dyn_o )
[13 of 21] Compiling Text.Blaze.Html5.Attributes ( src/Text/Blaze/Html5/Attributes.hs, dist/build/Text/Blaze/Html5/Attributes.o, dist/build/Text/Blaze/Html5/Attributes.dyn_o )
[14 of 21] Compiling Text.Blaze.XHtml1.FrameSet ( src/Text/Blaze/XHtml1/FrameSet.hs, dist/build/Text/Blaze/XHtml1/FrameSet.o, dist/build/Text/Blaze/XHtml1/FrameSet.dyn_o )
[15 of 21] Compiling Text.Blaze.XHtml1.FrameSet.Attributes ( src/Text/Blaze/XHtml1/FrameSet/Attributes.hs, dist/build/Text/Blaze/XHtml1/FrameSet/Attributes.o, dist/build/Text/Blaze/XHtml1/FrameSet/Attributes.dyn_o )
[16 of 21] Compiling Text.Blaze.XHtml1.Strict ( src/Text/Blaze/XHtml1/Strict.hs, dist/build/Text/Blaze/XHtml1/Strict.o, dist/build/Text/Blaze/XHtml1/Strict.dyn_o )
[17 of 21] Compiling Text.Blaze.XHtml1.Strict.Attributes ( src/Text/Blaze/XHtml1/Strict/Attributes.hs, dist/build/Text/Blaze/XHtml1/Strict/Attributes.o, dist/build/Text/Blaze/XHtml1/Strict/Attributes.dyn_o )
[18 of 21] Compiling Text.Blaze.XHtml1.Transitional ( src/Text/Blaze/XHtml1/Transitional.hs, dist/build/Text/Blaze/XHtml1/Transitional.o, dist/build/Text/Blaze/XHtml1/Transitional.dyn_o )
[19 of 21] Compiling Text.Blaze.XHtml1.Transitional.Attributes ( src/Text/Blaze/XHtml1/Transitional/Attributes.hs, dist/build/Text/Blaze/XHtml1/Transitional/Attributes.o, dist/build/Text/Blaze/XHtml1/Transitional/Attributes.dyn_o )
[20 of 21] Compiling Text.Blaze.XHtml5 ( src/Text/Blaze/XHtml5.hs, dist/build/Text/Blaze/XHtml5.o, dist/build/Text/Blaze/XHtml5.dyn_o )
[21 of 21] Compiling Text.Blaze.XHtml5.Attributes ( src/Text/Blaze/XHtml5/Attributes.hs, dist/build/Text/Blaze/XHtml5/Attributes.o, dist/build/Text/Blaze/XHtml5/Attributes.dyn_o )
Preprocessing library for blaze-html-0.9.2.0..
Running Haddock on library for blaze-html-0.9.2.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 21] Compiling Text.Blaze.Html ( src/Text/Blaze/Html.hs, nothing )
[ 2 of 21] Compiling Text.Blaze.Html.Renderer.Pretty ( src/Text/Blaze/Html/Renderer/Pretty.hs, nothing )
[ 3 of 21] Compiling Text.Blaze.Html.Renderer.String ( src/Text/Blaze/Html/Renderer/String.hs, nothing )
[ 4 of 21] Compiling Text.Blaze.Html.Renderer.Text ( src/Text/Blaze/Html/Renderer/Text.hs, nothing )
[ 5 of 21] Compiling Text.Blaze.Html.Renderer.Utf8 ( src/Text/Blaze/Html/Renderer/Utf8.hs, nothing )
[ 6 of 21] Compiling Text.Blaze.Html4.FrameSet ( src/Text/Blaze/Html4/FrameSet.hs, nothing )
[ 7 of 21] Compiling Text.Blaze.Html4.FrameSet.Attributes ( src/Text/Blaze/Html4/FrameSet/Attributes.hs, nothing )
[ 8 of 21] Compiling Text.Blaze.Html4.Strict ( src/Text/Blaze/Html4/Strict.hs, nothing )
[ 9 of 21] Compiling Text.Blaze.Html4.Strict.Attributes ( src/Text/Blaze/Html4/Strict/Attributes.hs, nothing )
[10 of 21] Compiling Text.Blaze.Html4.Transitional ( src/Text/Blaze/Html4/Transitional.hs, nothing )
[11 of 21] Compiling Text.Blaze.Html4.Transitional.Attributes ( src/Text/Blaze/Html4/Transitional/Attributes.hs, nothing )
[12 of 21] Compiling Text.Blaze.Html5 ( src/Text/Blaze/Html5.hs, nothing )
[13 of 21] Compiling Text.Blaze.Html5.Attributes ( src/Text/Blaze/Html5/Attributes.hs, nothing )
[14 of 21] Compiling Text.Blaze.XHtml1.FrameSet ( src/Text/Blaze/XHtml1/FrameSet.hs, nothing )
[15 of 21] Compiling Text.Blaze.XHtml1.FrameSet.Attributes ( src/Text/Blaze/XHtml1/FrameSet/Attributes.hs, nothing )
[16 of 21] Compiling Text.Blaze.XHtml1.Strict ( src/Text/Blaze/XHtml1/Strict.hs, nothing )
[17 of 21] Compiling Text.Blaze.XHtml1.Strict.Attributes ( src/Text/Blaze/XHtml1/Strict/Attributes.hs, nothing )
[18 of 21] Compiling Text.Blaze.XHtml1.Transitional ( src/Text/Blaze/XHtml1/Transitional.hs, nothing )
[19 of 21] Compiling Text.Blaze.XHtml1.Transitional.Attributes ( src/Text/Blaze/XHtml1/Transitional/Attributes.hs, nothing )
[20 of 21] Compiling Text.Blaze.XHtml5 ( src/Text/Blaze/XHtml5.hs, nothing )
[21 of 21] Compiling Text.Blaze.XHtml5.Attributes ( src/Text/Blaze/XHtml5/Attributes.hs, nothing )
Haddock coverage:
20% ( 1 / 5) in 'Text.Blaze.Html'
Missing documentation for:
Module header
Html (src/Text/Blaze/Html.hs:10)
toHtml (src/Text/Blaze/Html.hs:13)
preEscapedToHtml (src/Text/Blaze/Html.hs:16)
0% ( 0 / 2) in 'Text.Blaze.Html.Renderer.Pretty'
Missing documentation for:
Module header
renderHtml (src/Text/Blaze/Html/Renderer/Pretty.hs:9)
0% ( 0 / 2) in 'Text.Blaze.Html.Renderer.String'
Missing documentation for:
Module header
renderHtml (src/Text/Blaze/Html/Renderer/String.hs:9)
0% ( 0 / 5) in 'Text.Blaze.Html.Renderer.Text'
Missing documentation for:
Module header
renderHtmlBuilder (src/Text/Blaze/Html/Renderer/Text.hs:16)
renderHtmlBuilderWith (src/Text/Blaze/Html/Renderer/Text.hs:19)
renderHtml (src/Text/Blaze/Html/Renderer/Text.hs:22)
renderHtmlWith (src/Text/Blaze/Html/Renderer/Text.hs:25)
0% ( 0 / 4) in 'Text.Blaze.Html.Renderer.Utf8'
Missing documentation for:
Module header
renderHtmlBuilder (src/Text/Blaze/Html/Renderer/Utf8.hs:14)
renderHtml (src/Text/Blaze/Html/Renderer/Utf8.hs:17)
renderHtmlToByteStringIO (src/Text/Blaze/Html/Renderer/Utf8.hs:20)
100% ( 93 / 93) in 'Text.Blaze.Html4.FrameSet'
100% (105 /105) in 'Text.Blaze.Html4.FrameSet.Attributes'
100% ( 80 / 80) in 'Text.Blaze.Html4.Strict'
100% ( 92 / 92) in 'Text.Blaze.Html4.Strict.Attributes'
100% ( 91 / 91) in 'Text.Blaze.Html4.Transitional'
100% (103 /103) in 'Text.Blaze.Html4.Transitional.Attributes'
100% (120 /120) in 'Text.Blaze.Html5'
100% (176 /176) in 'Text.Blaze.Html5.Attributes'
100% ( 93 / 93) in 'Text.Blaze.XHtml1.FrameSet'
100% (105 /105) in 'Text.Blaze.XHtml1.FrameSet.Attributes'
100% ( 80 / 80) in 'Text.Blaze.XHtml1.Strict'
100% ( 92 / 92) in 'Text.Blaze.XHtml1.Strict.Attributes'
100% ( 91 / 91) in 'Text.Blaze.XHtml1.Transitional'
100% (103 /103) in 'Text.Blaze.XHtml1.Transitional.Attributes'
100% (120 /120) in 'Text.Blaze.XHtml5'
100% (176 /176) in 'Text.Blaze.XHtml5.Attributes'
Documentation created: dist/doc/html/blaze-html/,
dist/doc/html/blaze-html/blaze-html.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/blaze-html-0.9.2.0-GGLnD0E7AI8C2BAzBpWamU
Completed blaze-html-0.9.2.0
Configuring hspec-expectations-0.8.4...
Preprocessing library for hspec-expectations-0.8.4..
Building library for hspec-expectations-0.8.4..
[1 of 4] Compiling Paths_hspec_expectations ( dist/build/autogen/Paths_hspec_expectations.hs, dist/build/Paths_hspec_expectations.o, dist/build/Paths_hspec_expectations.dyn_o )
[2 of 4] Compiling Test.Hspec.Expectations.Contrib ( src/Test/Hspec/Expectations/Contrib.hs, dist/build/Test/Hspec/Expectations/Contrib.o, dist/build/Test/Hspec/Expectations/Contrib.dyn_o )
[3 of 4] Compiling Test.Hspec.Expectations.Matcher ( src/Test/Hspec/Expectations/Matcher.hs, dist/build/Test/Hspec/Expectations/Matcher.o, dist/build/Test/Hspec/Expectations/Matcher.dyn_o )
[4 of 4] Compiling Test.Hspec.Expectations ( src/Test/Hspec/Expectations.hs, dist/build/Test/Hspec/Expectations.o, dist/build/Test/Hspec/Expectations.dyn_o )
Preprocessing library for hspec-expectations-0.8.4..
Running Haddock on library for hspec-expectations-0.8.4..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 4] Compiling Paths_hspec_expectations ( dist/build/autogen/Paths_hspec_expectations.hs, nothing )
[2 of 4] Compiling Test.Hspec.Expectations.Contrib ( src/Test/Hspec/Expectations/Contrib.hs, nothing )
[3 of 4] Compiling Test.Hspec.Expectations.Matcher ( src/Test/Hspec/Expectations/Matcher.hs, nothing )
[4 of 4] Compiling Test.Hspec.Expectations ( src/Test/Hspec/Expectations.hs, nothing )
Haddock coverage:
Warning: 'Expectation' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'shouldBe' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'shouldSatisfy' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 7 / 7) in 'Test.Hspec.Expectations.Contrib'
Warning: 'ErrorCall' is ambiguous. It is defined
* in GHC.Exception
* in GHC.Exception
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Exception
76% ( 23 / 30) in 'Test.Hspec.Expectations'
Missing documentation for:
Expectation (src/Test/Hspec/Expectations.hs:76)
expectationFailure (src/Test/Hspec/Expectations.hs:79)
anyException (src/Test/Hspec/Expectations.hs:183)
anyErrorCall (src/Test/Hspec/Expectations.hs:186)
anyIOException (src/Test/Hspec/Expectations.hs:196)
anyArithException (src/Test/Hspec/Expectations.hs:199)
errorCall (src/Test/Hspec/Expectations.hs:190)
Documentation created: dist/doc/html/hspec-expectations/,
dist/doc/html/hspec-expectations/hspec-expectations.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-expectations-0.8.4-HhwaltKFPw86SDondIAVYY
Completed hspec-expectations-0.8.4
Configuring ansi-terminal-1.1.3...
Preprocessing library for ansi-terminal-1.1.3..
Building library for ansi-terminal-1.1.3..
[1 of 2] Compiling System.Console.ANSI.Internal ( unix/System/Console/ANSI/Internal.hs, dist/build/System/Console/ANSI/Internal.o, dist/build/System/Console/ANSI/Internal.dyn_o )
[2 of 2] Compiling System.Console.ANSI ( src/System/Console/ANSI.hs, dist/build/System/Console/ANSI.o, dist/build/System/Console/ANSI.dyn_o )
Preprocessing library for ansi-terminal-1.1.3..
Running Haddock on library for ansi-terminal-1.1.3..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling System.Console.ANSI.Internal ( unix/System/Console/ANSI/Internal.hs, nothing )
[2 of 2] Compiling System.Console.ANSI ( src/System/Console/ANSI.hs, nothing )
Haddock coverage:
54% ( 85 /155) in 'System.Console.ANSI'
Missing documentation for:
cursorUp (src/System/Console/ANSI.hs:415)
cursorDown (src/System/Console/ANSI.hs:416)
cursorForward (src/System/Console/ANSI.hs:417)
cursorBackward (src/System/Console/ANSI.hs:418)
hCursorUp (src/System/Console/ANSI.hs:407)
hCursorDown (src/System/Console/ANSI.hs:408)
hCursorForward (src/System/Console/ANSI.hs:409)
hCursorBackward (src/System/Console/ANSI.hs:410)
cursorUpCode
cursorDownCode
cursorForwardCode
cursorBackwardCode
cursorUpLine (src/System/Console/ANSI.hs:431)
cursorDownLine (src/System/Console/ANSI.hs:430)
hCursorUpLine (src/System/Console/ANSI.hs:425)
hCursorDownLine (src/System/Console/ANSI.hs:424)
cursorUpLineCode
cursorDownLineCode
hSetCursorColumn (src/System/Console/ANSI.hs:437)
hSetCursorPosition (src/System/Console/ANSI.hs:451)
hSaveCursor (src/System/Console/ANSI.hs:462)
hRestoreCursor (src/System/Console/ANSI.hs:463)
hReportCursorPosition (src/System/Console/ANSI.hs:464)
clearFromCursorToScreenEnd (src/System/Console/ANSI.hs:1036)
clearFromCursorToScreenBeginning (src/System/Console/ANSI.hs:1037)
clearScreen (src/System/Console/ANSI.hs:1038)
clearFromCursorToLineEnd (src/System/Console/ANSI.hs:1048)
clearFromCursorToLineBeginning (src/System/Console/ANSI.hs:1049)
clearLine (src/System/Console/ANSI.hs:1050)
hClearFromCursorToScreenEnd (src/System/Console/ANSI.hs:1030)
hClearFromCursorToScreenBeginning (src/System/Console/ANSI.hs:1031)
hClearScreen (src/System/Console/ANSI.hs:1033)
hClearFromCursorToLineEnd (src/System/Console/ANSI.hs:1043)
hClearFromCursorToLineBeginning (src/System/Console/ANSI.hs:1044)
hClearLine (src/System/Console/ANSI.hs:1045)
clearFromCursorToScreenEndCode
clearFromCursorToScreenBeginningCode
clearScreenCode
clearFromCursorToLineEndCode
clearFromCursorToLineBeginningCode
clearLineCode
enableLineWrap (src/System/Console/ANSI.hs:1059)
disableLineWrap (src/System/Console/ANSI.hs:1060)
hEnableLineWrap (src/System/Console/ANSI.hs:1055)
hDisableLineWrap (src/System/Console/ANSI.hs:1056)
enableLineWrapCode
disableLineWrapCode
scrollPageUp (src/System/Console/ANSI.hs:1072)
scrollPageDown (src/System/Console/ANSI.hs:1073)
hScrollPageUp (src/System/Console/ANSI.hs:1066)
hScrollPageDown (src/System/Console/ANSI.hs:1067)
scrollPageUpCode
scrollPageDownCode
hUseAlternateScreenBuffer (src/System/Console/ANSI.hs:508)
hUseNormalScreenBuffer (src/System/Console/ANSI.hs:511)
useAlternateScreenBufferCode
useNormalScreenBufferCode
hReportLayerColor (src/System/Console/ANSI.hs:815)
hSetSGR (src/System/Console/ANSI.hs:1016)
setSGRCode
hideCursor (src/System/Console/ANSI.hs:504)
showCursor (src/System/Console/ANSI.hs:505)
hHideCursor (src/System/Console/ANSI.hs:500)
hShowCursor (src/System/Console/ANSI.hs:501)
hideCursorCode
showCursorCode
hHyperlink (src/System/Console/ANSI.hs:570)
hHyperlinkWithId (src/System/Console/ANSI.hs:592)
hHyperlinkWithParams (src/System/Console/ANSI.hs:547)
hSetTitle (src/System/Console/ANSI.hs:612)
Documentation created: dist/doc/html/ansi-terminal/,
dist/doc/html/ansi-terminal/ansi-terminal.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/ansi-terminal-1.1.3-9wpti7DRjVIBzQawv4Tcnx
Completed ansi-terminal-1.1.3
Configuring cookie-0.5.1...
Preprocessing library for cookie-0.5.1..
Building library for cookie-0.5.1..
[1 of 1] Compiling Web.Cookie ( Web/Cookie.hs, dist/build/Web/Cookie.o, dist/build/Web/Cookie.dyn_o )
Preprocessing library for cookie-0.5.1..
Running Haddock on library for cookie-0.5.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Web.Cookie ( Web/Cookie.hs, nothing )
Haddock coverage:
Warning: 'SetCookie' is ambiguous. It is defined
* at Web/Cookie.hs:151:18
* at Web/Cookie.hs:151:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Web/Cookie.hs:151:1
Warning: 'UTCTime' is ambiguous. It is defined
* in Data.Time.Clock.Internal.UTCTime
* in Data.Time.Clock.Internal.UTCTime
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Time.Clock.Internal.UTCTime
75% ( 28 / 37) in 'Web.Cookie'
Missing documentation for:
Module header
parseSetCookie (Web/Cookie.hs:269)
renderSetCookie (Web/Cookie.hs:228)
Cookies (Web/Cookie.hs:75)
renderCookies (Web/Cookie.hs:130)
parseCookiesText (Web/Cookie.hs:67)
renderCookiesText (Web/Cookie.hs:73)
expiresFormat (Web/Cookie.hs:295)
parseCookieExpires (Web/Cookie.hs:303)
Documentation created: dist/doc/html/cookie/, dist/doc/html/cookie/cookie.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/cookie-0.5.1-7WjWdRAhou4BE339QV6XNE
Completed cookie-0.5.1
Configuring unix-time-0.4.17...
checking for gcc... /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables...
checking whether we are cross compiling... no
checking for suffix of object files... o
checking whether we are using the GNU C compiler... yes
checking whether /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc accepts -g... yes
checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc option to accept ISO C89... none needed
checking how to run the C preprocessor... /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc -E
checking for grep that handles long lines and -e... /nix/store/0mqngkz34kv5z6hz91bbbgzgrnz56c4y-gnugrep-3.11/bin/grep
checking for egrep... /nix/store/0mqngkz34kv5z6hz91bbbgzgrnz56c4y-gnugrep-3.11/bin/grep -E
checking for ANSI C header files... yes
checking for sys/types.h... yes
checking for sys/stat.h... yes
checking for stdlib.h... yes
checking for string.h... yes
checking for memory.h... yes
checking for strings.h... yes
checking for inttypes.h... yes
checking for stdint.h... yes
checking for unistd.h... yes
checking xlocale.h usability... no
checking xlocale.h presence... no
checking for xlocale.h... no
checking for strptime_l... yes
checking for timegm... yes
checking whether _mkgmtime is declared... no
checking for _get_current_locale... no
checking for _create_locale... no
checking for strtol_l... yes
checking for strtoll_l... yes
checking for _isspace_l... no
checking for _isupper_l... no
checking for _isdigit_l... no
checking for _isblank_l... no
configure: creating ./config.status
config.status: creating cbits/config.h
Preprocessing library for unix-time-0.4.17..
Building library for unix-time-0.4.17..
[1 of 5] Compiling Data.UnixTime.Types ( dist/build/Data/UnixTime/Types.hs, dist/build/Data/UnixTime/Types.o, dist/build/Data/UnixTime/Types.dyn_o )
Data/UnixTime/Types.hsc:5:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
5 | import Control.Applicative ((<$>), (<*>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 5] Compiling Data.UnixTime.Sys ( dist/build/Data/UnixTime/Sys.hs, dist/build/Data/UnixTime/Sys.o, dist/build/Data/UnixTime/Sys.dyn_o )
[3 of 5] Compiling Data.UnixTime.Diff ( Data/UnixTime/Diff.hs, dist/build/Data/UnixTime/Diff.o, dist/build/Data/UnixTime/Diff.dyn_o )
[4 of 5] Compiling Data.UnixTime.Conv ( Data/UnixTime/Conv.hs, dist/build/Data/UnixTime/Conv.o, dist/build/Data/UnixTime/Conv.dyn_o )
Data/UnixTime/Conv.hs:17:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
17 | import Control.Applicative
| ^^^^^^^^^^^^^^^^^^^^^^^^^^
[5 of 5] Compiling Data.UnixTime ( Data/UnixTime.hs, dist/build/Data/UnixTime.o, dist/build/Data/UnixTime.dyn_o )
Preprocessing library for unix-time-0.4.17..
Running Haddock on library for unix-time-0.4.17..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 5] Compiling Data.UnixTime.Types ( dist/build/Data/UnixTime/Types.hs, nothing )
Data/UnixTime/Types.hsc:5:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
5 | import Control.Applicative ((<$>), (<*>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 5] Compiling Data.UnixTime.Sys ( dist/build/Data/UnixTime/Sys.hs, nothing )
[3 of 5] Compiling Data.UnixTime.Diff ( Data/UnixTime/Diff.hs, nothing )
[4 of 5] Compiling Data.UnixTime.Conv ( Data/UnixTime/Conv.hs, nothing )
Data/UnixTime/Conv.hs:17:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
17 | import Control.Applicative
| ^^^^^^^^^^^^^^^^^^^^^^^^^^
[5 of 5] Compiling Data.UnixTime ( Data/UnixTime.hs, nothing )
Haddock coverage:
Warning: 'UnixDiffTime' is ambiguous. It is defined
* at Data/UnixTime/Types.hsc:115:21
* at Data/UnixTime/Types.hsc:115:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/UnixTime/Types.hsc:115:1
Warning: 'UnixTime' is ambiguous. It is defined
* at Data/UnixTime/Types.hsc:33:17
* at Data/UnixTime/Types.hsc:33:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/UnixTime/Types.hsc:33:1
Warning: 'UnixTime' is ambiguous. It is defined
* at Data/UnixTime/Types.hsc:33:17
* at Data/UnixTime/Types.hsc:33:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/UnixTime/Types.hsc:33:1
Warning: 'UnixTime' is ambiguous. It is defined
* at Data/UnixTime/Types.hsc:33:17
* at Data/UnixTime/Types.hsc:33:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/UnixTime/Types.hsc:33:1
96% ( 24 / 25) in 'Data.UnixTime'
Missing documentation for:
Module header
Warning: Data.UnixTime: could not find link destinations for:
- Data.UnixTime.Types.Rep_UnixTime
Documentation created: dist/doc/html/unix-time/,
dist/doc/html/unix-time/unix-time.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unix-time-0.4.17-EIF5s3rFCXX6vdCSU1LLb9
Completed unix-time-0.4.17
Configuring unordered-containers-0.2.20.1...
Preprocessing library for unordered-containers-0.2.20.1..
Building library for unordered-containers-0.2.20.1..
Data/HashMap/Internal.hs:12:14-23: warning: [GHC-53692] [-Wdeprecated-flags]
-XTypeInType is deprecated: use -XDataKinds and -XPolyKinds instead
|
12 | {-# LANGUAGE TypeInType #-}
| ^^^^^^^^^^
[1 of 9] Compiling Data.HashMap.Internal.Array ( Data/HashMap/Internal/Array.hs, dist/build/Data/HashMap/Internal/Array.o, dist/build/Data/HashMap/Internal/Array.dyn_o )
Data/HashMap/Internal/Array.hs:83:1-35: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
83 | import Control.Applicative (liftA2)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 9] Compiling Data.HashMap.Internal.List ( Data/HashMap/Internal/List.hs, dist/build/Data/HashMap/Internal/List.o, dist/build/Data/HashMap/Internal/List.dyn_o )
[3 of 9] Compiling Data.HashMap.Internal ( Data/HashMap/Internal.hs, dist/build/Data/HashMap/Internal.o, dist/build/Data/HashMap/Internal.dyn_o )
[4 of 9] Compiling Data.HashMap.Internal.Debug ( Data/HashMap/Internal/Debug.hs, dist/build/Data/HashMap/Internal/Debug.o, dist/build/Data/HashMap/Internal/Debug.dyn_o )
[5 of 9] Compiling Data.HashMap.Internal.Strict ( Data/HashMap/Internal/Strict.hs, dist/build/Data/HashMap/Internal/Strict.o, dist/build/Data/HashMap/Internal/Strict.dyn_o )
[6 of 9] Compiling Data.HashSet.Internal ( Data/HashSet/Internal.hs, dist/build/Data/HashSet/Internal.o, dist/build/Data/HashSet/Internal.dyn_o )
[7 of 9] Compiling Data.HashSet ( Data/HashSet.hs, dist/build/Data/HashSet.o, dist/build/Data/HashSet.dyn_o )
[8 of 9] Compiling Data.HashMap.Strict ( Data/HashMap/Strict.hs, dist/build/Data/HashMap/Strict.o, dist/build/Data/HashMap/Strict.dyn_o )
[9 of 9] Compiling Data.HashMap.Lazy ( Data/HashMap/Lazy.hs, dist/build/Data/HashMap/Lazy.o, dist/build/Data/HashMap/Lazy.dyn_o )
Preprocessing library for unordered-containers-0.2.20.1..
Running Haddock on library for unordered-containers-0.2.20.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
Data/HashMap/Internal.hs:12:14-23: warning: [GHC-53692] [-Wdeprecated-flags]
-XTypeInType is deprecated: use -XDataKinds and -XPolyKinds instead
|
12 | {-# LANGUAGE TypeInType #-}
| ^^^^^^^^^^
[1 of 9] Compiling Data.HashMap.Internal.Array ( Data/HashMap/Internal/Array.hs, nothing )
Data/HashMap/Internal/Array.hs:83:1-35: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
83 | import Control.Applicative (liftA2)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 9] Compiling Data.HashMap.Internal.List ( Data/HashMap/Internal/List.hs, nothing )
[3 of 9] Compiling Data.HashMap.Internal ( Data/HashMap/Internal.hs, nothing )
[4 of 9] Compiling Data.HashMap.Internal.Debug ( Data/HashMap/Internal/Debug.hs, nothing )
[5 of 9] Compiling Data.HashMap.Internal.Strict ( Data/HashMap/Internal/Strict.hs, nothing )
[6 of 9] Compiling Data.HashSet.Internal ( Data/HashSet/Internal.hs, nothing )
[7 of 9] Compiling Data.HashSet ( Data/HashSet.hs, nothing )
[8 of 9] Compiling Data.HashMap.Strict ( Data/HashMap/Strict.hs, nothing )
[9 of 9] Compiling Data.HashMap.Lazy ( Data/HashMap/Lazy.hs, nothing )
Haddock coverage:
33% ( 16 / 48) in 'Data.HashMap.Internal.Array'
Missing documentation for:
Array (Data/HashMap/Internal/Array.hs:125)
MArray (Data/HashMap/Internal/Array.hs:157)
new_ (Data/HashMap/Internal/Array.hs:208)
singleton (Data/HashMap/Internal/Array.hs:225)
singletonM (Data/HashMap/Internal/Array.hs:229)
snoc (Data/HashMap/Internal/Array.hs:233)
pair (Data/HashMap/Internal/Array.hs:242)
length (Data/HashMap/Internal/Array.hs:154)
lengthM (Data/HashMap/Internal/Array.hs:162)
read (Data/HashMap/Internal/Array.hs:249)
write (Data/HashMap/Internal/Array.hs:255)
index (Data/HashMap/Internal/Array.hs:262)
indexM (Data/HashMap/Internal/Array.hs:274)
index# (Data/HashMap/Internal/Array.hs:268)
sameArray1 (Data/HashMap/Internal/Array.hs:140)
unsafeFreeze (Data/HashMap/Internal/Array.hs:280)
unsafeThaw (Data/HashMap/Internal/Array.hs:286)
unsafeSameArray (Data/HashMap/Internal/Array.hs:136)
run (Data/HashMap/Internal/Array.hs:292)
cloneM (Data/HashMap/Internal/Array.hs:314)
foldl (Data/HashMap/Internal/Array.hs:404)
foldl' (Data/HashMap/Internal/Array.hs:375)
foldr (Data/HashMap/Internal/Array.hs:394)
foldr' (Data/HashMap/Internal/Array.hs:385)
foldMap (Data/HashMap/Internal/Array.hs:417)
thaw (Data/HashMap/Internal/Array.hs:436)
map (Data/HashMap/Internal/Array.hs:461)
traverse (Data/HashMap/Internal/Array.hs:537)
traverse' (Data/HashMap/Internal/Array.hs:553)
toList (Data/HashMap/Internal/Array.hs:529)
fromList (Data/HashMap/Internal/Array.hs:494)
fromList' (Data/HashMap/Internal/Array.hs:506)
25% ( 1 / 4) in 'Data.HashMap.Internal.List'
Missing documentation for:
isPermutationBy (Data/HashMap/Internal/List.hs:40)
deleteBy (Data/HashMap/Internal/List.hs:83)
unorderedCompare (Data/HashMap/Internal/List.hs:68)
Warning: 'Leaf' is ambiguous. It is defined
* at Data/HashMap/Internal.hs:227:7
* at Data/HashMap/Internal.hs:187:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/HashMap/Internal.hs:187:1
Warning: 'at' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
88% ( 93 /105) in 'Data.HashMap.Internal'
Missing documentation for:
Leaf (Data/HashMap/Internal.hs:187)
intersectionWithKey# (Data/HashMap/Internal.hs:1859)
updateOrConcatWithKey (Data/HashMap/Internal.hs:2373)
equalKeys (Data/HashMap/Internal.hs:513)
equalKeys1 (Data/HashMap/Internal.hs:497)
lookupRecordCollision (Data/HashMap/Internal.hs:680)
LookupRes (Data/HashMap/Internal.hs:659)
lookupResToMaybe (Data/HashMap/Internal.hs:662)
insert' (Data/HashMap/Internal.hs:808)
delete' (Data/HashMap/Internal.hs:1126)
insertNewKey (Data/HashMap/Internal.hs:850)
insertKeyExists (Data/HashMap/Internal.hs:885)
50% ( 3 / 6) in 'Data.HashMap.Internal.Debug'
Missing documentation for:
valid (Data/HashMap/Internal/Debug.hs:98)
Validity (Data/HashMap/Internal/Debug.hs:43)
SubHashPath (Data/HashMap/Internal/Debug.hs:75)
Warning: 'lookup' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'at' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 67 / 67) in 'Data.HashMap.Internal.Strict'
Warning: 'HashSet' is ambiguous. It is defined
* at Data/HashSet/Internal.hs:112:21
* at Data/HashSet/Internal.hs:112:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/HashSet/Internal.hs:112:1
100% ( 35 / 35) in 'Data.HashSet.Internal'
Warning: 'HashSet' is ambiguous. It is defined
* at Data/HashSet/Internal.hs:112:21
* at Data/HashSet/Internal.hs:112:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/HashSet/Internal.hs:112:1
100% ( 32 / 32) in 'Data.HashSet'
100% ( 69 / 69) in 'Data.HashMap.Strict'
100% ( 69 / 69) in 'Data.HashMap.Lazy'
Warning: Data.HashMap.Internal: could not find link destinations for:
- Data.HashMap.Internal.D:R:ItemHashMap
Warning: Data.HashMap.Internal.Strict: could not find link destinations for:
- Data.HashMap.Internal.D:R:ItemHashMap
Warning: Data.HashSet.Internal: could not find link destinations for:
- Data.HashSet.Internal.D:R:ItemHashSet
Warning: Data.HashSet: could not find link destinations for:
- Data.HashSet.Internal.D:R:ItemHashSet
Warning: Data.HashMap.Strict: could not find link destinations for:
- Data.HashMap.Internal.D:R:ItemHashMap
Warning: Data.HashMap.Lazy: could not find link destinations for:
- Data.HashMap.Internal.D:R:ItemHashMap
Documentation created: dist/doc/html/unordered-containers/,
dist/doc/html/unordered-containers/unordered-containers.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unordered-containers-0.2.20.1-2zPIyeV4bf3B7OebcLriWP
Completed unordered-containers-0.2.20.1
Configuring time-compat-1.9.8...
Preprocessing library for time-compat-1.9.8..
Building library for time-compat-1.9.8..
[ 1 of 20] Compiling Data.Format ( src/Data/Format.hs, dist/build/Data/Format.o, dist/build/Data/Format.dyn_o )
[ 2 of 20] Compiling Data.Time.Calendar.Month.Compat ( src/Data/Time/Calendar/Month/Compat.hs, dist/build/Data/Time/Calendar/Month/Compat.o, dist/build/Data/Time/Calendar/Month/Compat.dyn_o )
[ 3 of 20] Compiling Data.Time.Calendar.Quarter.Compat ( src/Data/Time/Calendar/Quarter/Compat.hs, dist/build/Data/Time/Calendar/Quarter/Compat.o, dist/build/Data/Time/Calendar/Quarter/Compat.dyn_o )
[ 4 of 20] Compiling Data.Time.Calendar.Types ( src/Data/Time/Calendar/Types.hs, dist/build/Data/Time/Calendar/Types.o, dist/build/Data/Time/Calendar/Types.dyn_o )
[ 5 of 20] Compiling Data.Time.Orphans ( src/Data/Time/Orphans.hs, dist/build/Data/Time/Orphans.o, dist/build/Data/Time/Orphans.dyn_o )
[ 6 of 20] Compiling Data.Time.Format.ISO8601.Compat ( src/Data/Time/Format/ISO8601/Compat.hs, dist/build/Data/Time/Format/ISO8601/Compat.o, dist/build/Data/Time/Format/ISO8601/Compat.dyn_o )
[ 7 of 20] Compiling Data.Time.Format.Compat ( src/Data/Time/Format/Compat.hs, dist/build/Data/Time/Format/Compat.o, dist/build/Data/Time/Format/Compat.dyn_o )
[ 8 of 20] Compiling Data.Time.Clock.System.Compat ( src/Data/Time/Clock/System/Compat.hs, dist/build/Data/Time/Clock/System/Compat.o, dist/build/Data/Time/Clock/System/Compat.dyn_o )
[ 9 of 20] Compiling Data.Time.Clock.POSIX.Compat ( src/Data/Time/Clock/POSIX/Compat.hs, dist/build/Data/Time/Clock/POSIX/Compat.o, dist/build/Data/Time/Clock/POSIX/Compat.dyn_o )
[10 of 20] Compiling Data.Time.Clock.Compat ( src/Data/Time/Clock/Compat.hs, dist/build/Data/Time/Clock/Compat.o, dist/build/Data/Time/Clock/Compat.dyn_o )
[11 of 20] Compiling Data.Time.Calendar.WeekDate.Compat ( src/Data/Time/Calendar/WeekDate/Compat.hs, dist/build/Data/Time/Calendar/WeekDate/Compat.o, dist/build/Data/Time/Calendar/WeekDate/Compat.dyn_o )
[12 of 20] Compiling Data.Time.Calendar.Private ( src/Data/Time/Calendar/Private.hs, dist/build/Data/Time/Calendar/Private.o, dist/build/Data/Time/Calendar/Private.dyn_o )
[13 of 20] Compiling Data.Time.Calendar.OrdinalDate.Compat ( src/Data/Time/Calendar/OrdinalDate/Compat.hs, dist/build/Data/Time/Calendar/OrdinalDate/Compat.o, dist/build/Data/Time/Calendar/OrdinalDate/Compat.dyn_o )
[14 of 20] Compiling Data.Time.Calendar.MonthDay.Compat ( src/Data/Time/Calendar/MonthDay/Compat.hs, dist/build/Data/Time/Calendar/MonthDay/Compat.o, dist/build/Data/Time/Calendar/MonthDay/Compat.dyn_o )
[15 of 20] Compiling Data.Time.Calendar.Easter.Compat ( src/Data/Time/Calendar/Easter/Compat.hs, dist/build/Data/Time/Calendar/Easter/Compat.o, dist/build/Data/Time/Calendar/Easter/Compat.dyn_o )
[16 of 20] Compiling Data.Time.Calendar.Compat ( src/Data/Time/Calendar/Compat.hs, dist/build/Data/Time/Calendar/Compat.o, dist/build/Data/Time/Calendar/Compat.dyn_o )
[17 of 20] Compiling Data.Time.LocalTime.Compat ( src/Data/Time/LocalTime/Compat.hs, dist/build/Data/Time/LocalTime/Compat.o, dist/build/Data/Time/LocalTime/Compat.dyn_o )
[18 of 20] Compiling Data.Time.Compat ( src/Data/Time/Compat.hs, dist/build/Data/Time/Compat.o, dist/build/Data/Time/Compat.dyn_o )
[19 of 20] Compiling Data.Time.Clock.TAI.Compat ( src/Data/Time/Clock/TAI/Compat.hs, dist/build/Data/Time/Clock/TAI/Compat.o, dist/build/Data/Time/Clock/TAI/Compat.dyn_o )
[20 of 20] Compiling Data.Time.Calendar.Julian.Compat ( src/Data/Time/Calendar/Julian/Compat.hs, dist/build/Data/Time/Calendar/Julian/Compat.o, dist/build/Data/Time/Calendar/Julian/Compat.dyn_o )
Preprocessing library for time-compat-1.9.8..
Running Haddock on library for time-compat-1.9.8..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 20] Compiling Data.Format ( src/Data/Format.hs, nothing )
[ 2 of 20] Compiling Data.Time.Calendar.Month.Compat ( src/Data/Time/Calendar/Month/Compat.hs, nothing )
[ 3 of 20] Compiling Data.Time.Calendar.Quarter.Compat ( src/Data/Time/Calendar/Quarter/Compat.hs, nothing )
[ 4 of 20] Compiling Data.Time.Calendar.Types ( src/Data/Time/Calendar/Types.hs, nothing )
[ 5 of 20] Compiling Data.Time.Orphans ( src/Data/Time/Orphans.hs, nothing )
[ 6 of 20] Compiling Data.Time.Format.ISO8601.Compat ( src/Data/Time/Format/ISO8601/Compat.hs, nothing )
[ 7 of 20] Compiling Data.Time.Format.Compat ( src/Data/Time/Format/Compat.hs, nothing )
[ 8 of 20] Compiling Data.Time.Clock.System.Compat ( src/Data/Time/Clock/System/Compat.hs, nothing )
[ 9 of 20] Compiling Data.Time.Clock.POSIX.Compat ( src/Data/Time/Clock/POSIX/Compat.hs, nothing )
[10 of 20] Compiling Data.Time.Clock.Compat ( src/Data/Time/Clock/Compat.hs, nothing )
[11 of 20] Compiling Data.Time.Calendar.WeekDate.Compat ( src/Data/Time/Calendar/WeekDate/Compat.hs, nothing )
[12 of 20] Compiling Data.Time.Calendar.Private ( src/Data/Time/Calendar/Private.hs, nothing )
[13 of 20] Compiling Data.Time.Calendar.OrdinalDate.Compat ( src/Data/Time/Calendar/OrdinalDate/Compat.hs, nothing )
[14 of 20] Compiling Data.Time.Calendar.MonthDay.Compat ( src/Data/Time/Calendar/MonthDay/Compat.hs, nothing )
[15 of 20] Compiling Data.Time.Calendar.Easter.Compat ( src/Data/Time/Calendar/Easter/Compat.hs, nothing )
[16 of 20] Compiling Data.Time.Calendar.Compat ( src/Data/Time/Calendar/Compat.hs, nothing )
[17 of 20] Compiling Data.Time.LocalTime.Compat ( src/Data/Time/LocalTime/Compat.hs, nothing )
[18 of 20] Compiling Data.Time.Compat ( src/Data/Time/Compat.hs, nothing )
[19 of 20] Compiling Data.Time.Clock.TAI.Compat ( src/Data/Time/Clock/TAI/Compat.hs, nothing )
[20 of 20] Compiling Data.Time.Calendar.Julian.Compat ( src/Data/Time/Calendar/Julian/Compat.hs, nothing )
Haddock coverage:
61% ( 8 / 13) in 'Data.Time.Calendar.Month.Compat'
Missing documentation for:
Module header
addMonths
diffMonths
fromYearMonthValid
fromMonthDayValid
75% ( 9 / 12) in 'Data.Time.Calendar.Quarter.Compat'
Missing documentation for:
Module header
addQuarters
diffQuarters
93% ( 44 / 47) in 'Data.Time.Format.ISO8601.Compat'
Missing documentation for:
Module header
ISO8601
FormatExtension
68% ( 13 / 19) in 'Data.Time.Format.Compat'
Missing documentation for:
Module header
FormatTime
parseTime (src/Data/Time/Format/Compat.hs:60)
readTime (src/Data/Time/Format/Compat.hs:68)
readsTime (src/Data/Time/Format/Compat.hs:75)
TimeLocale
87% ( 7 / 8) in 'Data.Time.Clock.System.Compat'
Missing documentation for:
Module header
50% ( 4 / 8) in 'Data.Time.Clock.POSIX.Compat'
Missing documentation for:
Module header
posixSecondsToUTCTime
utcTimeToPOSIXSeconds
systemToPOSIXTime
96% ( 25 / 26) in 'Data.Time.Clock.Compat'
Missing documentation for:
Module header
73% ( 11 / 15) in 'Data.Time.Calendar.WeekDate.Compat'
Missing documentation for:
Module header
DayOfWeek
dayOfWeek
FirstWeekType
82% ( 14 / 17) in 'Data.Time.Calendar.OrdinalDate.Compat'
Missing documentation for:
Module header
fromMondayStartWeekValid
fromSundayStartWeekValid
40% ( 8 / 20) in 'Data.Time.Calendar.MonthDay.Compat'
Missing documentation for:
Module header
January
February
March
April
May
June
July
August
September
October
November
83% ( 5 / 6) in 'Data.Time.Calendar.Easter.Compat'
Missing documentation for:
Module header
66% ( 41 / 62) in 'Data.Time.Calendar.Compat'
Missing documentation for:
Module header
addDays
diffDays
CalendarDiffDays
calendarDay
calendarWeek
calendarMonth
calendarYear
January
February
March
April
May
June
July
August
September
October
November
DayOfWeek
dayOfWeek
79% ( 35 / 44) in 'Data.Time.LocalTime.Compat'
Missing documentation for:
Module header
makeTimeOfDayValid
CalendarDiffTime
calendarTimeDays
calendarTimeTime
utcToZonedTime
zonedTimeToUTC
getZonedTime
utcToLocalZonedTime
80% ( 4 / 5) in 'Data.Time.Compat'
Missing documentation for:
Module header
64% ( 9 / 14) in 'Data.Time.Clock.TAI.Compat'
Missing documentation for:
Module header
taiNominalDayStart
utcDayLength
utcToTAITime
taiToUTCTime
91% ( 22 / 24) in 'Data.Time.Calendar.Julian.Compat'
Missing documentation for:
Module header
diffJulianDurationRollOver (src/Data/Time/Calendar/Julian/Compat.hs:68)
Warning: Data.Time.Calendar.Quarter.Compat: could not find link destinations for:
- Data.Time.Orphans.Rep_Quarter
Warning: Data.Time.Format.ISO8601.Compat: could not find link destinations for:
- Data.Format.isoMap
- Data.Format.Productish
- Data.Format.**>
- Data.Format.<**
- Data.Format.<**>
- Data.Format.pUnit
- Data.Format.Summish
- Data.Format.<++>
- Data.Format.pVoid
- Data.Format.IsoVariant
Warning: Data.Time.Clock.Compat: could not find link destinations for:
- Data.Time.Orphans.Rep_UniversalTime
- Data.Time.Orphans.Rep_UTCTime
Warning: Data.Time.Calendar.OrdinalDate.Compat: could not find link destinations for:
- Data.Time.Orphans.Rep_Day
Warning: Data.Time.Calendar.Compat: could not find link destinations for:
- Data.Time.Orphans.Rep_CalendarDiffDays
- Data.Time.Orphans.Rep_Day
Warning: Data.Time.LocalTime.Compat: could not find link destinations for:
- Data.Time.Orphans.Rep_CalendarDiffTime
- Data.Time.Orphans.Rep_ZonedTime
- Data.Time.Orphans.Rep_TimeZone
- Data.Time.Orphans.Rep_TimeOfDay
- Data.Time.Orphans.Rep_LocalTime
Documentation created: dist/doc/html/time-compat/,
dist/doc/html/time-compat/time-compat.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/time-compat-1.9.8-G7gSbzqeYVdKyTcA2Kt3JF
Completed time-compat-1.9.8
Configuring these-1.2.1...
Preprocessing library for these-1.2.1..
Building library for these-1.2.1..
[1 of 3] Compiling Data.Functor.These ( src/Data/Functor/These.hs, dist/build/Data/Functor/These.o, dist/build/Data/Functor/These.dyn_o )
[2 of 3] Compiling Data.These ( src/Data/These.hs, dist/build/Data/These.o, dist/build/Data/These.dyn_o )
[3 of 3] Compiling Data.These.Combinators ( src/Data/These/Combinators.hs, dist/build/Data/These/Combinators.o, dist/build/Data/These/Combinators.dyn_o )
Preprocessing library for these-1.2.1..
Running Haddock on library for these-1.2.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Data.Functor.These ( src/Data/Functor/These.hs, nothing )
[2 of 3] Compiling Data.These ( src/Data/These.hs, nothing )
[3 of 3] Compiling Data.These.Combinators ( src/Data/These/Combinators.hs, nothing )
Haddock coverage:
0% ( 0 / 2) in 'Data.Functor.These'
Missing documentation for:
Module header
These1 (src/Data/Functor/These.hs:38)
Warning: 'These' is ambiguous. It is defined
* at src/Data/These.hs:75:36
* at src/Data/These.hs:75:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/These.hs:75:1
Warning: 'Maybe' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'here' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'there' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
76% ( 13 / 17) in 'Data.These'
Missing documentation for:
distrThesePair (src/Data/These.hs:158)
undistrThesePair (src/Data/These.hs:163)
distrPairThese (src/Data/These.hs:175)
undistrPairThese (src/Data/These.hs:180)
Warning: 'Bifunctor' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'here' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'there' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Bitraversable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'These' is ambiguous. It is defined
* at src/Data/These.hs:75:36
* at src/Data/These.hs:75:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/These.hs:75:1
Warning: 'id' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: '_This' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: '_That' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: '_These' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
78% ( 30 / 38) in 'Data.These.Combinators'
Missing documentation for:
justThis (src/Data/These/Combinators.hs:183)
justThat (src/Data/These/Combinators.hs:187)
justThese (src/Data/These/Combinators.hs:191)
catHere (src/Data/These/Combinators.hs:211)
catThere (src/Data/These/Combinators.hs:214)
mapThis (src/Data/These/Combinators.hs:242)
mapThat (src/Data/These/Combinators.hs:246)
mapThese (src/Data/These/Combinators.hs:250)
Warning: Data.Functor.These: could not find link destinations for:
- Data.Functor.These.Rep_These1
- Data.Functor.These.Rep1_These1
Warning: Data.These: could not find link destinations for:
- Data.These.Rep_These
- Data.These.Rep1_These
Documentation created: dist/doc/html/these/, dist/doc/html/these/these.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/these-1.2.1-ItKRGGFxjn8KIPmhqWpIvT
Completed these-1.2.1
Configuring text-short-0.1.6...
Preprocessing library for text-short-0.1.6..
Building library for text-short-0.1.6..
[1 of 5] Compiling PrimOps ( src-ghc804/PrimOps.hs, dist/build/PrimOps.o, dist/build/PrimOps.dyn_o )
[2 of 5] Compiling Data.Text.Short.Internal ( src/Data/Text/Short/Internal.hs, dist/build/Data/Text/Short/Internal.o, dist/build/Data/Text/Short/Internal.dyn_o )
[3 of 5] Compiling Data.Text.Short.Unsafe ( src/Data/Text/Short/Unsafe.hs, dist/build/Data/Text/Short/Unsafe.o, dist/build/Data/Text/Short/Unsafe.dyn_o )
[4 of 5] Compiling Data.Text.Short ( src/Data/Text/Short.hs, dist/build/Data/Text/Short.o, dist/build/Data/Text/Short.dyn_o )
[5 of 5] Compiling Data.Text.Short.Partial ( src/Data/Text/Short/Partial.hs, dist/build/Data/Text/Short/Partial.o, dist/build/Data/Text/Short/Partial.dyn_o )
Preprocessing library for text-short-0.1.6..
Running Haddock on library for text-short-0.1.6..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 5] Compiling PrimOps ( src-ghc804/PrimOps.hs, nothing )
[2 of 5] Compiling Data.Text.Short.Internal ( src/Data/Text/Short/Internal.hs, nothing )
[3 of 5] Compiling Data.Text.Short.Unsafe ( src/Data/Text/Short/Unsafe.hs, nothing )
[4 of 5] Compiling Data.Text.Short ( src/Data/Text/Short.hs, nothing )
[5 of 5] Compiling Data.Text.Short.Partial ( src/Data/Text/Short/Partial.hs, nothing )
Haddock coverage:
Warning: 'ShortText' is ambiguous. It is defined
* at src/Data/Text/Short/Internal.hs:174:21
* at src/Data/Text/Short/Internal.hs:174:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Text/Short/Internal.hs:174:1
Warning: 'CSize' is ambiguous. It is defined
* in Foreign.C.Types
* in Foreign.C.Types
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Foreign.C.Types
100% ( 3 / 3) in 'Data.Text.Short.Unsafe'
Warning: 'ShortText' is ambiguous. It is defined
* at src/Data/Text/Short/Internal.hs:174:21
* at src/Data/Text/Short/Internal.hs:174:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Text/Short/Internal.hs:174:1
100% ( 76 / 76) in 'Data.Text.Short'
Warning: 'ShortText' is ambiguous. It is defined
* at src/Data/Text/Short/Internal.hs:174:21
* at src/Data/Text/Short/Internal.hs:174:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Text/Short/Internal.hs:174:1
100% ( 9 / 9) in 'Data.Text.Short.Partial'
Warning: Data.Text.Short: could not find link destinations for:
- Data.Text.Short.Internal.D:R:ItemShortText
Documentation created: dist/doc/html/text-short/,
dist/doc/html/text-short/text-short.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/text-short-0.1.6-Eux31jTj1aFdU2M0MQmhk
Completed text-short-0.1.6
Configuring scientific-0.3.8.0...
Preprocessing library for scientific-0.3.8.0..
Building library for scientific-0.3.8.0..
[1 of 5] Compiling GHC.Integer.Compat ( src/GHC/Integer/Compat.hs, dist/build/GHC/Integer/Compat.o, dist/build/GHC/Integer/Compat.dyn_o )
[2 of 5] Compiling Utils ( src/Utils.hs, dist/build/Utils.o, dist/build/Utils.dyn_o )
[3 of 5] Compiling Data.Scientific ( src/Data/Scientific.hs, dist/build/Data/Scientific.o, dist/build/Data/Scientific.dyn_o )
src/Data/Scientific.hs:1041:16: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding:
Patterns of type [Char] not matched:
[]
[]
[]
|
1041 | (d:ds') = map intToDigit (if ei > 0 then init is' else is')
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Scientific.hs:1057:11: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding: Patterns of type [Char] not matched: []
|
1057 | d:ds' = map intToDigit (if ei > 0 then is' else 0:is')
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[4 of 5] Compiling Data.Text.Lazy.Builder.Scientific ( src/Data/Text/Lazy/Builder/Scientific.hs, dist/build/Data/Text/Lazy/Builder/Scientific.o, dist/build/Data/Text/Lazy/Builder/Scientific.dyn_o )
src/Data/Text/Lazy/Builder/Scientific.hs:19:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
19 | import Data.Monoid ((<>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Text/Lazy/Builder/Scientific.hs:60:12: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding:
Patterns of type [Char] not matched:
[]
[]
[]
|
60 | (d:ds') = map i2d (if ei > 0 then init is' else is')
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Text/Lazy/Builder/Scientific.hs:88:11: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding: Patterns of type [Char] not matched: []
|
88 | d:ds' = map i2d (if ei > 0 then is' else 0:is')
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[5 of 5] Compiling Data.ByteString.Builder.Scientific ( src/Data/ByteString/Builder/Scientific.hs, dist/build/Data/ByteString/Builder/Scientific.o, dist/build/Data/ByteString/Builder/Scientific.dyn_o )
src/Data/ByteString/Builder/Scientific.hs:20:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
20 | import Data.Monoid ((<>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/ByteString/Builder/Scientific.hs:64:12: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding:
Patterns of type [Char] not matched:
[]
[]
[]
|
64 | (d:ds') = map i2d (if ei > 0 then init is' else is')
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/ByteString/Builder/Scientific.hs:94:11: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding: Patterns of type [Char] not matched: []
|
94 | d:ds' = map i2d (if ei > 0 then is' else 0:is')
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Preprocessing library for scientific-0.3.8.0..
Running Haddock on library for scientific-0.3.8.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 5] Compiling GHC.Integer.Compat ( src/GHC/Integer/Compat.hs, nothing )
[2 of 5] Compiling Utils ( src/Utils.hs, nothing )
[3 of 5] Compiling Data.Scientific ( src/Data/Scientific.hs, nothing )
[4 of 5] Compiling Data.Text.Lazy.Builder.Scientific ( src/Data/Text/Lazy/Builder/Scientific.hs, nothing )
src/Data/Text/Lazy/Builder/Scientific.hs:19:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
19 | import Data.Monoid ((<>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[5 of 5] Compiling Data.ByteString.Builder.Scientific ( src/Data/ByteString/Builder/Scientific.hs, nothing )
src/Data/ByteString/Builder/Scientific.hs:20:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
20 | import Data.Monoid ((<>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Haddock coverage:
Warning: 'Scientific' is ambiguous. It is defined
* at src/Data/Scientific.hs:139:19
* at src/Data/Scientific.hs:139:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Scientific.hs:139:1
Warning: 'base10exponent' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'base10Exponent' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 31 / 31) in 'Data.Scientific'
75% ( 3 / 4) in 'Data.Text.Lazy.Builder.Scientific'
Missing documentation for:
Module header
75% ( 3 / 4) in 'Data.ByteString.Builder.Scientific'
Missing documentation for:
Module header
Documentation created: dist/doc/html/scientific/,
dist/doc/html/scientific/scientific.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/scientific-0.3.8.0-8vyHQZhJR567zEOxWyS20s
Completed scientific-0.3.8.0
Configuring resource-pool-0.5.0.0...
Preprocessing library for resource-pool-0.5.0.0..
Building library for resource-pool-0.5.0.0..
[1 of 3] Compiling Data.Pool.Internal ( src/Data/Pool/Internal.hs, dist/build/Data/Pool/Internal.o, dist/build/Data/Pool/Internal.dyn_o )
[2 of 3] Compiling Data.Pool ( src/Data/Pool.hs, dist/build/Data/Pool.o, dist/build/Data/Pool.dyn_o )
[3 of 3] Compiling Data.Pool.Introspection ( src/Data/Pool/Introspection.hs, dist/build/Data/Pool/Introspection.o, dist/build/Data/Pool/Introspection.dyn_o )
Preprocessing library for resource-pool-0.5.0.0..
Running Haddock on library for resource-pool-0.5.0.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Data.Pool.Internal ( src/Data/Pool/Internal.hs, nothing )
[2 of 3] Compiling Data.Pool ( src/Data/Pool.hs, nothing )
[3 of 3] Compiling Data.Pool.Introspection ( src/Data/Pool/Introspection.hs, nothing )
Haddock coverage:
Warning: 'Pool' is ambiguous. It is defined
* at src/Data/Pool/Internal.hs:23:15
* at src/Data/Pool/Internal.hs:23:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Pool/Internal.hs:23:1
Warning: 'PoolConfig' is ambiguous. It is defined
* at src/Data/Pool/Internal.hs:58:21
* at src/Data/Pool/Internal.hs:58:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Pool/Internal.hs:58:1
Warning: 'LocalPool' is ambiguous. It is defined
* at src/Data/Pool/Internal.hs:30:20
* at src/Data/Pool/Internal.hs:30:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Pool/Internal.hs:30:1
Warning: 'takeResource' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
94% ( 18 / 19) in 'Data.Pool.Internal'
Missing documentation for:
signal (src/Data/Pool/Internal.hs:316)
Warning: 'LocalPool' is ambiguous. It is defined
* at src/Data/Pool/Internal.hs:30:20
* at src/Data/Pool/Internal.hs:30:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Pool/Internal.hs:30:1
100% ( 20 / 20) in 'Data.Pool'
100% ( 20 / 20) in 'Data.Pool.Introspection'
Warning: Data.Pool.Introspection: could not find link destinations for:
- Data.Pool.Introspection.Rep_Resource
- Data.Pool.Introspection.Rep_Acquisition
Documentation created: dist/doc/html/resource-pool/,
dist/doc/html/resource-pool/resource-pool.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/resource-pool-0.5.0.0-6lZfFZdvqqh3QTp5yWIIOZ
Completed resource-pool-0.5.0.0
Configuring data-fix-0.3.4...
Preprocessing library for data-fix-0.3.4..
Building library for data-fix-0.3.4..
[1 of 1] Compiling Data.Fix ( src/Data/Fix.hs, dist/build/Data/Fix.o, dist/build/Data/Fix.dyn_o )
src/Data/Fix.hs:103:41: warning: [GHC-38856] [-Wunused-imports]
The import of hashWithSalt1
from module Data.Hashable.Lifted is redundant
|
103 | import Data.Hashable.Lifted (Hashable1, hashWithSalt1)
| ^^^^^^^^^^^^^
src/Data/Fix.hs:109:47: warning: [GHC-38856] [-Wunused-imports]
The import of rnf1 from module Control.DeepSeq is redundant
|
109 | import Control.DeepSeq (NFData (..), NFData1, rnf1)
| ^^^^
Preprocessing library for data-fix-0.3.4..
Running Haddock on library for data-fix-0.3.4..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Data.Fix ( src/Data/Fix.hs, nothing )
src/Data/Fix.hs:103:41: warning: [GHC-38856] [-Wunused-imports]
The import of hashWithSalt1
from module Data.Hashable.Lifted is redundant
|
103 | import Data.Hashable.Lifted (Hashable1, hashWithSalt1)
| ^^^^^^^^^^^^^
src/Data/Fix.hs:109:47: warning: [GHC-38856] [-Wunused-imports]
The import of rnf1 from module Control.DeepSeq is redundant
|
109 | import Control.DeepSeq (NFData (..), NFData1, rnf1)
| ^^^^
Haddock coverage:
Warning: 'ListF' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Fix' is ambiguous. It is defined
* at src/Data/Fix.hs:144:17
* at src/Data/Fix.hs:144:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Fix.hs:144:1
Warning: 'Mu' is ambiguous. It is defined
* at src/Data/Fix.hs:299:16
* at src/Data/Fix.hs:299:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Fix.hs:299:1
Warning: 'Nu' is ambiguous. It is defined
* at src/Data/Fix.hs:365:13
* at src/Data/Fix.hs:365:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Fix.hs:365:1
100% ( 36 / 36) in 'Data.Fix'
Warning: Data.Fix: could not find link destinations for:
- Data.Fix.Rep_Fix
Documentation created: dist/doc/html/data-fix/,
dist/doc/html/data-fix/data-fix.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/data-fix-0.3.4-GpJ5pQXpT8dE6VAQqFvoqI
Completed data-fix-0.3.4
Configuring case-insensitive-1.2.1.0...
Preprocessing library for case-insensitive-1.2.1.0..
Building library for case-insensitive-1.2.1.0..
[1 of 3] Compiling Data.CaseInsensitive.Internal ( Data/CaseInsensitive/Internal.hs, dist/build/Data/CaseInsensitive/Internal.o, dist/build/Data/CaseInsensitive/Internal.dyn_o )
Data/CaseInsensitive/Internal.hs:124:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances]
Noncanonical mappend definition detected
in the instance declaration for Monoid (CI s).
mappend will eventually be removed in favour of (<>)
Suggested fix:
Either remove definition for mappend (recommended) or define as mappend = (<>)
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid
|
124 | CI o1 l1 `mappend` CI o2 l2 = CI (o1 `mappend` o2) (l1 `mappend` l2)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 3] Compiling Data.CaseInsensitive ( Data/CaseInsensitive.hs, dist/build/Data/CaseInsensitive.o, dist/build/Data/CaseInsensitive.dyn_o )
[3 of 3] Compiling Data.CaseInsensitive.Unsafe ( Data/CaseInsensitive/Unsafe.hs, dist/build/Data/CaseInsensitive/Unsafe.o, dist/build/Data/CaseInsensitive/Unsafe.dyn_o )
Preprocessing library for case-insensitive-1.2.1.0..
Running Haddock on library for case-insensitive-1.2.1.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Data.CaseInsensitive.Internal ( Data/CaseInsensitive/Internal.hs, nothing )
Data/CaseInsensitive/Internal.hs:124:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances]
Noncanonical mappend definition detected
in the instance declaration for Monoid (CI s).
mappend will eventually be removed in favour of (<>)
Suggested fix:
Either remove definition for mappend (recommended) or define as mappend = (<>)
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid
|
124 | CI o1 l1 `mappend` CI o2 l2 = CI (o1 `mappend` o2) (l1 `mappend` l2)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 3] Compiling Data.CaseInsensitive ( Data/CaseInsensitive.hs, nothing )
[3 of 3] Compiling Data.CaseInsensitive.Unsafe ( Data/CaseInsensitive/Unsafe.hs, nothing )
Haddock coverage:
Warning: 'CI' is ambiguous. It is defined
* at Data/CaseInsensitive/Internal.hs:89:13
* at Data/CaseInsensitive/Internal.hs:89:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/CaseInsensitive/Internal.hs:89:1
Warning: 'String' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 8 / 8) in 'Data.CaseInsensitive'
100% ( 2 / 2) in 'Data.CaseInsensitive.Unsafe'
Warning: Data.CaseInsensitive: could not find link destinations for:
- Data.CaseInsensitive.Internal.foldCaseList
Documentation created: dist/doc/html/case-insensitive/,
dist/doc/html/case-insensitive/case-insensitive.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/case-insensitive-1.2.1.0-I5miA1P9P08Ea6jPBHb3WY
Completed case-insensitive-1.2.1.0
Configuring async-2.2.5...
Preprocessing library for async-2.2.5..
Building library for async-2.2.5..
[1 of 2] Compiling Control.Concurrent.Async.Internal ( Control/Concurrent/Async/Internal.hs, dist/build/Control/Concurrent/Async/Internal.o, dist/build/Control/Concurrent/Async/Internal.dyn_o )
Control/Concurrent/Async/Internal.hs:50:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
50 | import Data.Semigroup (Semigroup((<>)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 2] Compiling Control.Concurrent.Async ( Control/Concurrent/Async.hs, dist/build/Control/Concurrent/Async.o, dist/build/Control/Concurrent/Async.dyn_o )
Preprocessing library for async-2.2.5..
Running Haddock on library for async-2.2.5..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling Control.Concurrent.Async.Internal ( Control/Concurrent/Async/Internal.hs, nothing )
Control/Concurrent/Async/Internal.hs:50:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
50 | import Data.Semigroup (Semigroup((<>)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 2] Compiling Control.Concurrent.Async ( Control/Concurrent/Async.hs, nothing )
Haddock coverage:
Warning: 'ThreadId' is ambiguous. It is defined
* in GHC.Conc.Sync
* in GHC.Conc.Sync
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Conc.Sync
Warning: 'Async' is ambiguous. It is defined
* at Control/Concurrent/Async/Internal.hs:69:16
* at Control/Concurrent/Async/Internal.hs:69:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Concurrent/Async/Internal.hs:69:1
Warning: 'ExceptionInLinkedThread' is ambiguous. It is defined
* at Control/Concurrent/Async/Internal.hs:461:3
* at Control/Concurrent/Async/Internal.hs:460:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Concurrent/Async/Internal.hs:460:1
Warning: 'AsyncCancelled' is ambiguous. It is defined
* at Control/Concurrent/Async/Internal.hs:274:23
* at Control/Concurrent/Async/Internal.hs:274:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Concurrent/Async/Internal.hs:274:1
Warning: 'IO' is ambiguous. It is defined
* in GHC.Types
* in GHC.Types
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Types
86% ( 58 / 67) in 'Control.Concurrent.Async.Internal'
Missing documentation for:
asyncUsing (Control/Concurrent/Async/Internal.hs:124)
withAsyncUsing (Control/Concurrent/Async/Internal.hs:178)
ExceptionInLinkedThread (Control/Concurrent/Async/Internal.hs:460)
isCancel (Control/Concurrent/Async/Internal.hs:542)
concurrently' (Control/Concurrent/Async/Internal.hs:649)
catchAll (Control/Concurrent/Async/Internal.hs:858)
tryAll (Control/Concurrent/Async/Internal.hs:861)
rawForkIO (Control/Concurrent/Async/Internal.hs:868)
rawForkOn (Control/Concurrent/Async/Internal.hs:873)
Warning: 'forkIO' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Async' is ambiguous. It is defined
* at Control/Concurrent/Async/Internal.hs:69:16
* at Control/Concurrent/Async/Internal.hs:69:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Concurrent/Async/Internal.hs:69:1
Warning: 'Concurrently' is ambiguous. It is defined
* at Control/Concurrent/Async/Internal.hs:775:26
* at Control/Concurrent/Async/Internal.hs:775:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Concurrent/Async/Internal.hs:775:1
Warning: 'Alternative' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
98% ( 70 / 71) in 'Control.Concurrent.Async'
Missing documentation for:
ExceptionInLinkedThread (Control/Concurrent/Async/Internal.hs:460)
Documentation created: dist/doc/html/async/, dist/doc/html/async/async.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/async-2.2.5-DRFV2Ni7wRk2vNEod8lEbg
Completed async-2.2.5
Configuring uuid-types-1.0.6...
Preprocessing library for uuid-types-1.0.6..
Building library for uuid-types-1.0.6..
[1 of 3] Compiling Data.UUID.Types.Internal.Builder ( src/Data/UUID/Types/Internal/Builder.hs, dist/build/Data/UUID/Types/Internal/Builder.o, dist/build/Data/UUID/Types/Internal/Builder.dyn_o )
[2 of 3] Compiling Data.UUID.Types.Internal ( src/Data/UUID/Types/Internal.hs, dist/build/Data/UUID/Types/Internal.o, dist/build/Data/UUID/Types/Internal.dyn_o )
src/Data/UUID/Types/Internal.hs:49:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
49 | import Control.Applicative ((<*>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/UUID/Types/Internal.hs:55:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Functor is redundant
except perhaps to import instances from Data.Functor
To import instances alone, use: import Data.Functor()
|
55 | import Data.Functor ((<$>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[3 of 3] Compiling Data.UUID.Types ( src/Data/UUID/Types.hs, dist/build/Data/UUID/Types.o, dist/build/Data/UUID/Types.dyn_o )
Preprocessing library for uuid-types-1.0.6..
Running Haddock on library for uuid-types-1.0.6..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Data.UUID.Types.Internal.Builder ( src/Data/UUID/Types/Internal/Builder.hs, nothing )
[2 of 3] Compiling Data.UUID.Types.Internal ( src/Data/UUID/Types/Internal.hs, nothing )
src/Data/UUID/Types/Internal.hs:49:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
49 | import Control.Applicative ((<*>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/UUID/Types/Internal.hs:55:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Functor is redundant
except perhaps to import instances from Data.Functor
To import instances alone, use: import Data.Functor()
|
55 | import Data.Functor ((<$>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[3 of 3] Compiling Data.UUID.Types ( src/Data/UUID/Types.hs, nothing )
Haddock coverage:
Warning: 'UUID' is ambiguous. It is defined
* at src/Data/UUID/Types/Internal.hs:81:13
* at src/Data/UUID/Types/Internal.hs:81:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/UUID/Types/Internal.hs:81:1
Warning: 'u' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'UUID' is ambiguous. It is defined
* at src/Data/UUID/Types/Internal.hs:81:13
* at src/Data/UUID/Types/Internal.hs:81:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/UUID/Types/Internal.hs:81:1
100% ( 23 / 23) in 'Data.UUID.Types'
Documentation created: dist/doc/html/uuid-types/,
dist/doc/html/uuid-types/uuid-types.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/uuid-types-1.0.6-Dihh8oyn4Xm9pD3m2oqNEy
Completed uuid-types-1.0.6
Configuring tf-random-0.5...
Preprocessing library for tf-random-0.5..
Building library for tf-random-0.5..
[1 of 4] Compiling System.Random.TF.Gen ( src/System/Random/TF/Gen.hs, dist/build/System/Random/TF/Gen.o, dist/build/System/Random/TF/Gen.dyn_o )
[2 of 4] Compiling System.Random.TF.Init ( src/System/Random/TF/Init.hs, dist/build/System/Random/TF/Init.o, dist/build/System/Random/TF/Init.dyn_o )
src/System/Random/TF/Init.hs:94:5: warning: [GHC-68441] [-Wdeprecations]
In the use of bitSize
(imported from Data.Bits, but defined in GHC.Bits):
Deprecated: "Use 'bitSizeMaybe' or 'finiteBitSize' instead"
|
94 | | bitSize n > 64 = error "mkTFGen: case where size of Int > 64 not implemented"
| ^^^^^^^
[3 of 4] Compiling System.Random.TF ( src/System/Random/TF.hs, dist/build/System/Random/TF.o, dist/build/System/Random/TF.dyn_o )
[4 of 4] Compiling System.Random.TF.Instances ( src/System/Random/TF/Instances.hs, dist/build/System/Random/TF/Instances.o, dist/build/System/Random/TF/Instances.dyn_o )
Preprocessing library for tf-random-0.5..
Running Haddock on library for tf-random-0.5..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 4] Compiling System.Random.TF.Gen ( src/System/Random/TF/Gen.hs, nothing )
[2 of 4] Compiling System.Random.TF.Init ( src/System/Random/TF/Init.hs, nothing )
src/System/Random/TF/Init.hs:94:5: warning: [GHC-68441] [-Wdeprecations]
In the use of bitSize
(imported from Data.Bits, but defined in GHC.Bits):
Deprecated: "Use 'bitSizeMaybe' or 'finiteBitSize' instead"
|
94 | | bitSize n > 64 = error "mkTFGen: case where size of Int > 64 not implemented"
| ^^^^^^^
[3 of 4] Compiling System.Random.TF ( src/System/Random/TF.hs, nothing )
[4 of 4] Compiling System.Random.TF.Instances ( src/System/Random/TF/Instances.hs, nothing )
Haddock coverage:
Warning: 'TFGen' is ambiguous. It is defined
* at src/System/Random/TF/Gen.hs:58:3
* at src/System/Random/TF/Gen.hs:57:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Random/TF/Gen.hs:57:1
100% ( 4 / 4) in 'System.Random.TF.Gen'
83% ( 5 / 6) in 'System.Random.TF.Init'
Missing documentation for:
Module header
100% ( 7 / 7) in 'System.Random.TF'
33% ( 1 / 3) in 'System.Random.TF.Instances'
Missing documentation for:
Random (src/System/Random/TF/Instances.hs:37)
randomEnum (src/System/Random/TF/Instances.hs:206)
Documentation created: dist/doc/html/tf-random/,
dist/doc/html/tf-random/tf-random.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/tf-random-0.5-KI5nxinskiM53tKuNMXijE
Completed tf-random-0.5
Configuring QuickCheck-2.16.0.0...
Preprocessing library for QuickCheck-2.16.0.0..
Building library for QuickCheck-2.16.0.0..
[ 1 of 17] Compiling Test.QuickCheck.Exception ( src/Test/QuickCheck/Exception.hs, dist/build/Test/QuickCheck/Exception.o, dist/build/Test/QuickCheck/Exception.dyn_o )
[ 2 of 17] Compiling Test.QuickCheck.Random ( src/Test/QuickCheck/Random.hs, dist/build/Test/QuickCheck/Random.o, dist/build/Test/QuickCheck/Random.dyn_o )
src/Test/QuickCheck/Random.hs:50:37: warning: [GHC-68441] [-Wdeprecations]
In the use of genShortByteString
(imported from System.Random, but defined in System.Random.Internal):
Deprecated: "In favor of `System.Random.uniformShortByteString`"
|
50 | genShortByteString n = wrapQCGen (genShortByteString n)
| ^^^^^^^^^^^^^^^^^^
src/Test/QuickCheck/Random.hs:83:16: warning: [GHC-68441] [-Wdeprecations]
In the use of split
(imported from System.Random, but defined in System.Random.Internal):
Deprecated: "In favor of `splitGen`"
|
83 | left = fst . split
| ^^^^^
src/Test/QuickCheck/Random.hs:84:17: warning: [GHC-68441] [-Wdeprecations]
In the use of split
(imported from System.Random, but defined in System.Random.Internal):
Deprecated: "In favor of `splitGen`"
|
84 | right = snd . split
| ^^^^^
[ 3 of 17] Compiling Test.QuickCheck.Gen ( src/Test/QuickCheck/Gen.hs, dist/build/Test/QuickCheck/Gen.o, dist/build/Test/QuickCheck/Gen.dyn_o )
src/Test/QuickCheck/Gen.hs:92:12: warning: [GHC-68441] [-Wdeprecations]
In the use of split
(imported from System.Random, but defined in System.Random.Internal):
Deprecated: "In favor of `splitGen`"
|
92 | case split r of
| ^^^^^
[ 4 of 17] Compiling Test.QuickCheck.Gen.Unsafe ( src/Test/QuickCheck/Gen/Unsafe.hs, dist/build/Test/QuickCheck/Gen/Unsafe.o, dist/build/Test/QuickCheck/Gen/Unsafe.dyn_o )
[ 5 of 17] Compiling Test.QuickCheck.Arbitrary ( src/Test/QuickCheck/Arbitrary.hs, dist/build/Test/QuickCheck/Arbitrary.o, dist/build/Test/QuickCheck/Arbitrary.dyn_o )
[ 6 of 17] Compiling Test.QuickCheck.Poly ( src/Test/QuickCheck/Poly.hs, dist/build/Test/QuickCheck/Poly.o, dist/build/Test/QuickCheck/Poly.dyn_o )
[ 7 of 17] Compiling Test.QuickCheck.Modifiers ( src/Test/QuickCheck/Modifiers.hs, dist/build/Test/QuickCheck/Modifiers.o, dist/build/Test/QuickCheck/Modifiers.dyn_o )
[ 8 of 17] Compiling Test.QuickCheck.Function ( src/Test/QuickCheck/Function.hs, dist/build/Test/QuickCheck/Function.o, dist/build/Test/QuickCheck/Function.dyn_o )
[ 9 of 17] Compiling Test.QuickCheck.Text ( src/Test/QuickCheck/Text.hs, dist/build/Test/QuickCheck/Text.o, dist/build/Test/QuickCheck/Text.dyn_o )
[10 of 17] Compiling Test.QuickCheck.State ( src/Test/QuickCheck/State.hs, dist/build/Test/QuickCheck/State.o, dist/build/Test/QuickCheck/State.dyn_o )
[11 of 17] Compiling Test.QuickCheck.Property ( src/Test/QuickCheck/Property.hs, dist/build/Test/QuickCheck/Property.o, dist/build/Test/QuickCheck/Property.dyn_o )
[12 of 17] Compiling Test.QuickCheck.Test ( src/Test/QuickCheck/Test.hs, dist/build/Test/QuickCheck/Test.o, dist/build/Test/QuickCheck/Test.dyn_o )
src/Test/QuickCheck/Test.hs:501:17: warning: [GHC-68441] [-Wdeprecations]
In the use of split
(imported from System.Random, but defined in System.Random.Internal):
Deprecated: "In favor of `splitGen`"
|
501 | (rnd1,rnd2) = split (randomSeed st)
| ^^^^^
[13 of 17] Compiling Test.QuickCheck.Monoids ( src/Test/QuickCheck/Monoids.hs, dist/build/Test/QuickCheck/Monoids.o, dist/build/Test/QuickCheck/Monoids.dyn_o )
[14 of 17] Compiling Test.QuickCheck.Monadic ( src/Test/QuickCheck/Monadic.hs, dist/build/Test/QuickCheck/Monadic.o, dist/build/Test/QuickCheck/Monadic.dyn_o )
[15 of 17] Compiling Test.QuickCheck.All ( src/Test/QuickCheck/All.hs, dist/build/Test/QuickCheck/All.o, dist/build/Test/QuickCheck/All.dyn_o )
[16 of 17] Compiling Test.QuickCheck.Features ( src/Test/QuickCheck/Features.hs, dist/build/Test/QuickCheck/Features.o, dist/build/Test/QuickCheck/Features.dyn_o )
[17 of 17] Compiling Test.QuickCheck ( src/Test/QuickCheck.hs, dist/build/Test/QuickCheck.o, dist/build/Test/QuickCheck.dyn_o )
Preprocessing library for QuickCheck-2.16.0.0..
Running Haddock on library for QuickCheck-2.16.0.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 17] Compiling Test.QuickCheck.Exception ( src/Test/QuickCheck/Exception.hs, nothing )
[ 2 of 17] Compiling Test.QuickCheck.Random ( src/Test/QuickCheck/Random.hs, nothing )
src/Test/QuickCheck/Random.hs:50:37: warning: [GHC-68441] [-Wdeprecations]
In the use of genShortByteString
(imported from System.Random, but defined in System.Random.Internal):
Deprecated: "In favor of `System.Random.uniformShortByteString`"
|
50 | genShortByteString n = wrapQCGen (genShortByteString n)
| ^^^^^^^^^^^^^^^^^^
src/Test/QuickCheck/Random.hs:83:16: warning: [GHC-68441] [-Wdeprecations]
In the use of split
(imported from System.Random, but defined in System.Random.Internal):
Deprecated: "In favor of `splitGen`"
|
83 | left = fst . split
| ^^^^^
src/Test/QuickCheck/Random.hs:84:17: warning: [GHC-68441] [-Wdeprecations]
In the use of split
(imported from System.Random, but defined in System.Random.Internal):
Deprecated: "In favor of `splitGen`"
|
84 | right = snd . split
| ^^^^^
[ 3 of 17] Compiling Test.QuickCheck.Gen ( src/Test/QuickCheck/Gen.hs, nothing )
src/Test/QuickCheck/Gen.hs:92:12: warning: [GHC-68441] [-Wdeprecations]
In the use of split
(imported from System.Random, but defined in System.Random.Internal):
Deprecated: "In favor of `splitGen`"
|
92 | case split r of
| ^^^^^
[ 4 of 17] Compiling Test.QuickCheck.Gen.Unsafe ( src/Test/QuickCheck/Gen/Unsafe.hs, nothing )
[ 5 of 17] Compiling Test.QuickCheck.Arbitrary ( src/Test/QuickCheck/Arbitrary.hs, nothing )
[ 6 of 17] Compiling Test.QuickCheck.Poly ( src/Test/QuickCheck/Poly.hs, nothing )
[ 7 of 17] Compiling Test.QuickCheck.Modifiers ( src/Test/QuickCheck/Modifiers.hs, nothing )
[ 8 of 17] Compiling Test.QuickCheck.Function ( src/Test/QuickCheck/Function.hs, nothing )
[ 9 of 17] Compiling Test.QuickCheck.Text ( src/Test/QuickCheck/Text.hs, nothing )
[10 of 17] Compiling Test.QuickCheck.State ( src/Test/QuickCheck/State.hs, nothing )
[11 of 17] Compiling Test.QuickCheck.Property ( src/Test/QuickCheck/Property.hs, nothing )
[12 of 17] Compiling Test.QuickCheck.Test ( src/Test/QuickCheck/Test.hs, nothing )
src/Test/QuickCheck/Test.hs:501:17: warning: [GHC-68441] [-Wdeprecations]
In the use of split
(imported from System.Random, but defined in System.Random.Internal):
Deprecated: "In favor of `splitGen`"
|
501 | (rnd1,rnd2) = split (randomSeed st)
| ^^^^^
[13 of 17] Compiling Test.QuickCheck.Monoids ( src/Test/QuickCheck/Monoids.hs, nothing )
[14 of 17] Compiling Test.QuickCheck.Monadic ( src/Test/QuickCheck/Monadic.hs, nothing )
[15 of 17] Compiling Test.QuickCheck.All ( src/Test/QuickCheck/All.hs, nothing )
[16 of 17] Compiling Test.QuickCheck.Features ( src/Test/QuickCheck/Features.hs, nothing )
[17 of 17] Compiling Test.QuickCheck ( src/Test/QuickCheck.hs, nothing )
Haddock coverage:
92% ( 35 / 38) in 'Test.QuickCheck.Gen'
Missing documentation for:
chooseWord64 (src/Test/QuickCheck/Gen.hs:211)
chooseInt64 (src/Test/QuickCheck/Gen.hs:220)
chooseUpTo (src/Test/QuickCheck/Gen.hs:230)
80% ( 4 / 5) in 'Test.QuickCheck.Gen.Unsafe'
Missing documentation for:
Capture (src/Test/QuickCheck/Gen/Unsafe.hs:52)
Warning: '(:*:)' is ambiguous. It is defined
* in GHC.Generics
* in GHC.Generics
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Generics
Warning: 'Version' is ambiguous. It is defined
* in Data.Version
* in Data.Version
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Version
88% ( 45 / 51) in 'Test.QuickCheck.Arbitrary'
Missing documentation for:
arbitrary1 (src/Test/QuickCheck/Arbitrary.hs:298)
shrink1 (src/Test/QuickCheck/Arbitrary.hs:301)
arbitrary2 (src/Test/QuickCheck/Arbitrary.hs:310)
shrink2 (src/Test/QuickCheck/Arbitrary.hs:313)
RecursivelyShrink (src/Test/QuickCheck/Arbitrary.hs:325)
GSubterms (src/Test/QuickCheck/Arbitrary.hs:356)
Warning: 'A' is ambiguous. It is defined
* at src/Test/QuickCheck/Poly.hs:29:13
* at src/Test/QuickCheck/Poly.hs:29:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:29:1
Warning: 'B' is ambiguous. It is defined
* at src/Test/QuickCheck/Poly.hs:44:13
* at src/Test/QuickCheck/Poly.hs:44:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:44:1
Warning: 'C' is ambiguous. It is defined
* at src/Test/QuickCheck/Poly.hs:59:13
* at src/Test/QuickCheck/Poly.hs:59:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:59:1
Warning: 'OrdA' is ambiguous. It is defined
* at src/Test/QuickCheck/Poly.hs:77:16
* at src/Test/QuickCheck/Poly.hs:77:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:77:1
Warning: 'OrdB' is ambiguous. It is defined
* at src/Test/QuickCheck/Poly.hs:112:16
* at src/Test/QuickCheck/Poly.hs:112:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:112:1
Warning: 'OrdC' is ambiguous. It is defined
* at src/Test/QuickCheck/Poly.hs:146:16
* at src/Test/QuickCheck/Poly.hs:146:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:146:1
14% ( 1 / 7) in 'Test.QuickCheck.Poly'
Missing documentation for:
A (src/Test/QuickCheck/Poly.hs:29)
B (src/Test/QuickCheck/Poly.hs:44)
C (src/Test/QuickCheck/Poly.hs:59)
OrdA (src/Test/QuickCheck/Poly.hs:77)
OrdB (src/Test/QuickCheck/Poly.hs:112)
OrdC (src/Test/QuickCheck/Poly.hs:146)
Warning: 'Blind' is ambiguous. It is defined
* at src/Test/QuickCheck/Modifiers.hs:94:19
* at src/Test/QuickCheck/Modifiers.hs:94:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:94:1
Warning: 'NonNegative' is ambiguous. It is defined
* at src/Test/QuickCheck/Modifiers.hs:312:25
* at src/Test/QuickCheck/Modifiers.hs:312:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:312:1
Warning: 'Large' is ambiguous. It is defined
* at src/Test/QuickCheck/Modifiers.hs:351:19
* at src/Test/QuickCheck/Modifiers.hs:351:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:351:1
95% ( 22 / 23) in 'Test.QuickCheck.Modifiers'
Missing documentation for:
ShrinkState (src/Test/QuickCheck/Modifiers.hs:487)
Warning: 'Fun' is ambiguous. It is defined
* at src/Test/QuickCheck/Function.hs:546:16
* at src/Test/QuickCheck/Function.hs:546:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Function.hs:546:1
100% ( 22 / 22) in 'Test.QuickCheck.Function'
Warning: 'Discard' is ambiguous. It is defined
* at src/Test/QuickCheck/Property.hs:114:16
* at src/Test/QuickCheck/Property.hs:114:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Property.hs:114:1
Warning: 'Confidence' is ambiguous. It is defined
* at src/Test/QuickCheck/State.hs:68:3
* at src/Test/QuickCheck/State.hs:67:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/State.hs:67:1
66% ( 2 / 3) in 'Test.QuickCheck.Monoids'
Missing documentation for:
Module header
83% ( 20 / 24) in 'Test.QuickCheck.Monadic'
Missing documentation for:
stop (src/Test/QuickCheck/Monadic.hs:163)
monadic (src/Test/QuickCheck/Monadic.hs:272)
monadic' (src/Test/QuickCheck/Monadic.hs:275)
runSTGen (src/Test/QuickCheck/Monadic.hs:314)
100% ( 10 / 10) in 'Test.QuickCheck.All'
Warning: 'Fun' is ambiguous. It is defined
* at src/Test/QuickCheck/Function.hs:546:16
* at src/Test/QuickCheck/Function.hs:546:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Function.hs:546:1
Warning: 'Blind' is ambiguous. It is defined
* at src/Test/QuickCheck/Modifiers.hs:94:19
* at src/Test/QuickCheck/Modifiers.hs:94:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:94:1
Warning: 'NonNegative' is ambiguous. It is defined
* at src/Test/QuickCheck/Modifiers.hs:312:25
* at src/Test/QuickCheck/Modifiers.hs:312:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:312:1
96% (203 /211) in 'Test.QuickCheck'
Missing documentation for:
arbitrary1 (src/Test/QuickCheck/Arbitrary.hs:298)
shrink1 (src/Test/QuickCheck/Arbitrary.hs:301)
arbitrary2 (src/Test/QuickCheck/Arbitrary.hs:310)
shrink2 (src/Test/QuickCheck/Arbitrary.hs:313)
ShrinkState (src/Test/QuickCheck/Modifiers.hs:487)
Witness (src/Test/QuickCheck/Property.hs:262)
coerceWitness (src/Test/QuickCheck/Property.hs:268)
castWitness (src/Test/QuickCheck/Property.hs:273)
Warning: Test.QuickCheck.Gen: could not find link destinations for:
- Test.QuickCheck.Random.QCGen
Warning: Test.QuickCheck.Arbitrary: could not find link destinations for:
- Test.QuickCheck.Arbitrary.GCoArbitrary
- Test.QuickCheck.Arbitrary.GSubtermsIncl
- Test.QuickCheck.Arbitrary.gSubterms
- Test.QuickCheck.Arbitrary.grecursivelyShrink
Warning: Test.QuickCheck.Modifiers: could not find link destinations for:
- Test.QuickCheck.Modifiers.InfiniteListInternalData
Warning: Test.QuickCheck.Function: could not find link destinations for:
- Test.QuickCheck.Function.Shrunk
- Test.QuickCheck.Function.GFunction
Warning: Test.QuickCheck: could not find link destinations for:
- Test.QuickCheck.Exception.AnException
- Test.QuickCheck.Random.QCGen
- Test.QuickCheck.Arbitrary.GCoArbitrary
- Test.QuickCheck.Modifiers.InfiniteListInternalData
- Test.QuickCheck.Function.Shrunk
- Test.QuickCheck.Function.GFunction
- Test.QuickCheck.Property.Result
Documentation created: dist/doc/html/QuickCheck/,
dist/doc/html/QuickCheck/QuickCheck.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/QuickCheck-2.16.0.0-KAwywA1qBiHBj0KysskoJQ
Completed QuickCheck-2.16.0.0
Configuring comonad-5.0.9...
Preprocessing library for comonad-5.0.9..
Building library for comonad-5.0.9..
[ 1 of 15] Compiling Control.Comonad ( src/Control/Comonad.hs, dist/build/Control/Comonad.o, dist/build/Control/Comonad.dyn_o )
[ 2 of 15] Compiling Control.Comonad.Hoist.Class ( src/Control/Comonad/Hoist/Class.hs, dist/build/Control/Comonad/Hoist/Class.o, dist/build/Control/Comonad/Hoist/Class.dyn_o )
[ 3 of 15] Compiling Control.Comonad.Trans.Class ( src/Control/Comonad/Trans/Class.hs, dist/build/Control/Comonad/Trans/Class.o, dist/build/Control/Comonad/Trans/Class.dyn_o )
[ 4 of 15] Compiling Control.Comonad.Trans.Env ( src/Control/Comonad/Trans/Env.hs, dist/build/Control/Comonad/Trans/Env.o, dist/build/Control/Comonad/Trans/Env.dyn_o )
[ 5 of 15] Compiling Control.Comonad.Trans.Identity ( src/Control/Comonad/Trans/Identity.hs, dist/build/Control/Comonad/Trans/Identity.o, dist/build/Control/Comonad/Trans/Identity.dyn_o )
[ 6 of 15] Compiling Control.Comonad.Identity ( src/Control/Comonad/Identity.hs, dist/build/Control/Comonad/Identity.o, dist/build/Control/Comonad/Identity.dyn_o )
[ 7 of 15] Compiling Control.Comonad.Trans.Store ( src/Control/Comonad/Trans/Store.hs, dist/build/Control/Comonad/Trans/Store.o, dist/build/Control/Comonad/Trans/Store.dyn_o )
[ 8 of 15] Compiling Control.Comonad.Trans.Traced ( src/Control/Comonad/Trans/Traced.hs, dist/build/Control/Comonad/Trans/Traced.o, dist/build/Control/Comonad/Trans/Traced.dyn_o )
[ 9 of 15] Compiling Control.Comonad.Traced.Class ( src/Control/Comonad/Traced/Class.hs, dist/build/Control/Comonad/Traced/Class.o, dist/build/Control/Comonad/Traced/Class.dyn_o )
[10 of 15] Compiling Control.Comonad.Traced ( src/Control/Comonad/Traced.hs, dist/build/Control/Comonad/Traced.o, dist/build/Control/Comonad/Traced.dyn_o )
[11 of 15] Compiling Control.Comonad.Store.Class ( src/Control/Comonad/Store/Class.hs, dist/build/Control/Comonad/Store/Class.o, dist/build/Control/Comonad/Store/Class.dyn_o )
[12 of 15] Compiling Control.Comonad.Store ( src/Control/Comonad/Store.hs, dist/build/Control/Comonad/Store.o, dist/build/Control/Comonad/Store.dyn_o )
[13 of 15] Compiling Control.Comonad.Env.Class ( src/Control/Comonad/Env/Class.hs, dist/build/Control/Comonad/Env/Class.o, dist/build/Control/Comonad/Env/Class.dyn_o )
[14 of 15] Compiling Control.Comonad.Env ( src/Control/Comonad/Env.hs, dist/build/Control/Comonad/Env.o, dist/build/Control/Comonad/Env.dyn_o )
[15 of 15] Compiling Data.Functor.Composition ( src/Data/Functor/Composition.hs, dist/build/Data/Functor/Composition.o, dist/build/Data/Functor/Composition.dyn_o )
Preprocessing library for comonad-5.0.9..
Running Haddock on library for comonad-5.0.9..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 15] Compiling Control.Comonad ( src/Control/Comonad.hs, nothing )
[ 2 of 15] Compiling Control.Comonad.Hoist.Class ( src/Control/Comonad/Hoist/Class.hs, nothing )
[ 3 of 15] Compiling Control.Comonad.Trans.Class ( src/Control/Comonad/Trans/Class.hs, nothing )
[ 4 of 15] Compiling Control.Comonad.Trans.Env ( src/Control/Comonad/Trans/Env.hs, nothing )
[ 5 of 15] Compiling Control.Comonad.Trans.Identity ( src/Control/Comonad/Trans/Identity.hs, nothing )
[ 6 of 15] Compiling Control.Comonad.Identity ( src/Control/Comonad/Identity.hs, nothing )
[ 7 of 15] Compiling Control.Comonad.Trans.Store ( src/Control/Comonad/Trans/Store.hs, nothing )
[ 8 of 15] Compiling Control.Comonad.Trans.Traced ( src/Control/Comonad/Trans/Traced.hs, nothing )
[ 9 of 15] Compiling Control.Comonad.Traced.Class ( src/Control/Comonad/Traced/Class.hs, nothing )
[10 of 15] Compiling Control.Comonad.Traced ( src/Control/Comonad/Traced.hs, nothing )
[11 of 15] Compiling Control.Comonad.Store.Class ( src/Control/Comonad/Store/Class.hs, nothing )
[12 of 15] Compiling Control.Comonad.Store ( src/Control/Comonad/Store.hs, nothing )
[13 of 15] Compiling Control.Comonad.Env.Class ( src/Control/Comonad/Env/Class.hs, nothing )
[14 of 15] Compiling Control.Comonad.Env ( src/Control/Comonad/Env.hs, nothing )
[15 of 15] Compiling Data.Functor.Composition ( src/Data/Functor/Composition.hs, nothing )
Haddock coverage:
Warning: 'Cokleisli' is ambiguous. It is defined
* at src/Control/Comonad.hs:348:27
* at src/Control/Comonad.hs:348:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Control/Comonad.hs:348:1
100% ( 22 / 22) in 'Control.Comonad'
50% ( 1 / 2) in 'Control.Comonad.Hoist.Class'
Missing documentation for:
ComonadHoist (src/Control/Comonad/Hoist/Class.hs:20)
50% ( 1 / 2) in 'Control.Comonad.Trans.Class'
Missing documentation for:
ComonadTrans (src/Control/Comonad/Trans/Class.hs:18)
69% ( 9 / 13) in 'Control.Comonad.Trans.Env'
Missing documentation for:
Env (src/Control/Comonad/Trans/Env.hs:92)
runEnv (src/Control/Comonad/Trans/Env.hs:100)
EnvT (src/Control/Comonad/Trans/Env.hs:93)
runEnvT (src/Control/Comonad/Trans/Env.hs:103)
100% ( 2 / 2) in 'Control.Comonad.Trans.Identity'
100% ( 4 / 4) in 'Control.Comonad.Identity'
73% ( 11 / 15) in 'Control.Comonad.Trans.Store'
Missing documentation for:
Store (src/Control/Comonad/Trans/Store.hs:87)
runStore (src/Control/Comonad/Trans/Store.hs:94)
StoreT (src/Control/Comonad/Trans/Store.hs:96)
runStoreT (src/Control/Comonad/Trans/Store.hs:99)
33% ( 4 / 12) in 'Control.Comonad.Trans.Traced'
Missing documentation for:
Traced (src/Control/Comonad/Trans/Traced.hs:55)
traced (src/Control/Comonad/Trans/Traced.hs:58)
runTraced (src/Control/Comonad/Trans/Traced.hs:61)
TracedT (src/Control/Comonad/Trans/Traced.hs:63)
trace (src/Control/Comonad/Trans/Traced.hs:97)
listen (src/Control/Comonad/Trans/Traced.hs:100)
listens (src/Control/Comonad/Trans/Traced.hs:103)
censor (src/Control/Comonad/Trans/Traced.hs:106)
33% ( 1 / 3) in 'Control.Comonad.Traced.Class'
Missing documentation for:
ComonadTraced (src/Control/Comonad/Traced/Class.hs:28)
traces (src/Control/Comonad/Traced/Class.hs:32)
57% ( 8 / 14) in 'Control.Comonad.Traced'
Missing documentation for:
ComonadTraced (src/Control/Comonad/Traced/Class.hs:28)
traces (src/Control/Comonad/Traced/Class.hs:32)
Traced (src/Control/Comonad/Trans/Traced.hs:55)
traced (src/Control/Comonad/Trans/Traced.hs:58)
runTraced (src/Control/Comonad/Trans/Traced.hs:61)
TracedT (src/Control/Comonad/Trans/Traced.hs:63)
25% ( 1 / 4) in 'Control.Comonad.Store.Class'
Missing documentation for:
ComonadStore (src/Control/Comonad/Store/Class.hs:29)
lowerPos (src/Control/Comonad/Store/Class.hs:54)
lowerPeek (src/Control/Comonad/Store/Class.hs:58)
61% ( 8 / 13) in 'Control.Comonad.Store'
Missing documentation for:
ComonadStore (src/Control/Comonad/Store/Class.hs:29)
Store (src/Control/Comonad/Trans/Store.hs:87)
runStore (src/Control/Comonad/Trans/Store.hs:94)
StoreT (src/Control/Comonad/Trans/Store.hs:96)
runStoreT (src/Control/Comonad/Trans/Store.hs:99)
33% ( 1 / 3) in 'Control.Comonad.Env.Class'
Missing documentation for:
ComonadEnv (src/Control/Comonad/Env/Class.hs:29)
asks (src/Control/Comonad/Env/Class.hs:33)
60% ( 9 / 15) in 'Control.Comonad.Env'
Missing documentation for:
ComonadEnv (src/Control/Comonad/Env/Class.hs:29)
asks (src/Control/Comonad/Env/Class.hs:33)
Env (src/Control/Comonad/Trans/Env.hs:92)
runEnv (src/Control/Comonad/Trans/Env.hs:100)
EnvT (src/Control/Comonad/Trans/Env.hs:93)
runEnvT (src/Control/Comonad/Trans/Env.hs:103)
50% ( 1 / 2) in 'Data.Functor.Composition'
Missing documentation for:
Module header
Warning: Control.Comonad: could not find link destinations for:
- WithIndex.Indexing
- Text.ParserCombinators.ReadP.P
- Data.Graph.SetM
Warning: Control.Comonad.Trans.Identity: could not find link destinations for:
- Control.Monad.Trans.Identity.Rep1_IdentityT
- Control.Monad.Trans.Identity.Rep_IdentityT
Documentation created: dist/doc/html/comonad/,
dist/doc/html/comonad/comonad.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/comonad-5.0.9-4TK9XQNRBF2DkssUp9SLRe
Completed comonad-5.0.9
Configuring monad-control-1.0.3.1...
Preprocessing library for monad-control-1.0.3.1..
Building library for monad-control-1.0.3.1..
[1 of 1] Compiling Control.Monad.Trans.Control ( src/Control/Monad/Trans/Control.hs, dist/build/Control/Monad/Trans/Control.o, dist/build/Control/Monad/Trans/Control.dyn_o )
src/Control/Monad/Trans/Control.hs:207:19: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
207 | type StT t a :: *
| ^
src/Control/Monad/Trans/Control.hs:546:21: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
546 | type StM m a :: *
| ^
Preprocessing library for monad-control-1.0.3.1..
Running Haddock on library for monad-control-1.0.3.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Control.Monad.Trans.Control ( src/Control/Monad/Trans/Control.hs, nothing )
src/Control/Monad/Trans/Control.hs:207:19: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
207 | type StT t a :: *
| ^
src/Control/Monad/Trans/Control.hs:546:21: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
546 | type StM m a :: *
| ^
Haddock coverage:
Warning: 'IdentityT' is ambiguous. It is defined
* in Control.Monad.Trans.Identity
* in Control.Monad.Trans.Identity
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.Identity
Warning: 'MaybeT' is ambiguous. It is defined
* in Control.Monad.Trans.Maybe
* in Control.Monad.Trans.Maybe
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.Maybe
Warning: 'ErrorT' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Error' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ExceptT' is ambiguous. It is defined
* in Control.Monad.Trans.Except
* in Control.Monad.Trans.Except
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.Except
Warning: 'ListT' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ReaderT' is ambiguous. It is defined
* in Control.Monad.Trans.Reader
* in Control.Monad.Trans.Reader
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.Reader
Warning: 'StateT' is ambiguous. It is defined
* in Control.Monad.Trans.State.Lazy
* in Control.Monad.Trans.State.Lazy
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.State.Lazy
Warning: 'WriterT' is ambiguous. It is defined
* in Control.Monad.Trans.Writer.Lazy
* in Control.Monad.Trans.Writer.Lazy
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.Writer.Lazy
Warning: 'RWST' is ambiguous. It is defined
* in Control.Monad.Trans.RWS.Lazy
* in Control.Monad.Trans.RWS.Lazy
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.RWS.Lazy
Warning: 'liftIO' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'liftBase' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'MonadIO' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'flip' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'lift' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'withFile' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Just' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 35 / 35) in 'Control.Monad.Trans.Control'
Warning: Control.Monad.Trans.Control: could not find link destinations for:
- Control.Monad.Trans.Control.D:R:StTMaybeTa
- Control.Monad.Trans.Control.D:R:StTIdentityTa
- Control.Monad.Trans.Control.D:R:StMSTMa
- Control.Monad.Trans.Control.D:R:StMIdentitya
- Control.Monad.Trans.Control.D:R:StMLista
- Control.Monad.Trans.Control.D:R:StMMaybea
- Control.Monad.Trans.Control.D:R:StMIOa
Documentation created: dist/doc/html/monad-control/,
dist/doc/html/monad-control/monad-control.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/monad-control-1.0.3.1-FAFT25wsmcjJZRoEoOcnof
Completed monad-control-1.0.3.1
Configuring prettyprinter-ansi-terminal-1.1.3...
Preprocessing library for prettyprinter-ansi-terminal-1.1.3..
Building library for prettyprinter-ansi-terminal-1.1.3..
[1 of 4] Compiling Prettyprinter.Render.Terminal.Internal ( src/Prettyprinter/Render/Terminal/Internal.hs, dist/build/Prettyprinter/Render/Terminal/Internal.o, dist/build/Prettyprinter/Render/Terminal/Internal.dyn_o )
[2 of 4] Compiling Prettyprinter.Render.Terminal ( src/Prettyprinter/Render/Terminal.hs, dist/build/Prettyprinter/Render/Terminal.o, dist/build/Prettyprinter/Render/Terminal.dyn_o )
[3 of 4] Compiling Data.Text.Prettyprint.Doc.Render.Terminal ( src/Data/Text/Prettyprint/Doc/Render/Terminal.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Terminal.o, dist/build/Data/Text/Prettyprint/Doc/Render/Terminal.dyn_o )
[4 of 4] Compiling Data.Text.Prettyprint.Doc.Render.Terminal.Internal ( src/Data/Text/Prettyprint/Doc/Render/Terminal/Internal.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Terminal/Internal.o, dist/build/Data/Text/Prettyprint/Doc/Render/Terminal/Internal.dyn_o )
Preprocessing library for prettyprinter-ansi-terminal-1.1.3..
Running Haddock on library for prettyprinter-ansi-terminal-1.1.3..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 4] Compiling Prettyprinter.Render.Terminal.Internal ( src/Prettyprinter/Render/Terminal/Internal.hs, nothing )
[2 of 4] Compiling Prettyprinter.Render.Terminal ( src/Prettyprinter/Render/Terminal.hs, nothing )
[3 of 4] Compiling Data.Text.Prettyprint.Doc.Render.Terminal ( src/Data/Text/Prettyprint/Doc/Render/Terminal.hs, nothing )
[4 of 4] Compiling Data.Text.Prettyprint.Doc.Render.Terminal.Internal ( src/Data/Text/Prettyprint/Doc/Render/Terminal/Internal.hs, nothing )
Haddock coverage:
Warning: '...' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
88% ( 24 / 27) in 'Prettyprinter.Render.Terminal.Internal'
Missing documentation for:
Bold (src/Prettyprinter/Render/Terminal/Internal.hs:90)
Underlined (src/Prettyprinter/Render/Terminal/Internal.hs:91)
Italicized (src/Prettyprinter/Render/Terminal/Internal.hs:92)
Warning: 'SimpleDocStream' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Text' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'stdout' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
89% ( 25 / 28) in 'Prettyprinter.Render.Terminal'
Missing documentation for:
Bold (src/Prettyprinter/Render/Terminal/Internal.hs:90)
Underlined (src/Prettyprinter/Render/Terminal/Internal.hs:91)
Italicized (src/Prettyprinter/Render/Terminal/Internal.hs:92)
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Terminal'
Missing documentation for:
Module header
50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Terminal.Internal'
Missing documentation for:
Module header
Documentation created: dist/doc/html/prettyprinter-ansi-terminal/,
dist/doc/html/prettyprinter-ansi-terminal/prettyprinter-ansi-terminal.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/prettyprinter-ansi-terminal-1.1.3-P0eAzEqDTa2D4YDfE4MGj
Completed prettyprinter-ansi-terminal-1.1.3
Configuring fast-logger-3.2.6...
Preprocessing library for fast-logger-3.2.6..
Building library for fast-logger-3.2.6..
[ 1 of 13] Compiling System.Log.FastLogger.Imports ( System/Log/FastLogger/Imports.hs, dist/build/System/Log/FastLogger/Imports.o, dist/build/System/Log/FastLogger/Imports.dyn_o )
[ 2 of 13] Compiling System.Log.FastLogger.FileIO ( System/Log/FastLogger/FileIO.hs, dist/build/System/Log/FastLogger/FileIO.o, dist/build/System/Log/FastLogger/FileIO.dyn_o )
[ 3 of 13] Compiling System.Log.FastLogger.LogStr ( System/Log/FastLogger/LogStr.hs, dist/build/System/Log/FastLogger/LogStr.o, dist/build/System/Log/FastLogger/LogStr.dyn_o )
[ 4 of 13] Compiling System.Log.FastLogger.IO ( System/Log/FastLogger/IO.hs, dist/build/System/Log/FastLogger/IO.o, dist/build/System/Log/FastLogger/IO.dyn_o )
[ 5 of 13] Compiling System.Log.FastLogger.Types ( System/Log/FastLogger/Types.hs, dist/build/System/Log/FastLogger/Types.o, dist/build/System/Log/FastLogger/Types.dyn_o )
[ 6 of 13] Compiling System.Log.FastLogger.File ( System/Log/FastLogger/File.hs, dist/build/System/Log/FastLogger/File.o, dist/build/System/Log/FastLogger/File.dyn_o )
[ 7 of 13] Compiling System.Log.FastLogger.Date ( System/Log/FastLogger/Date.hs, dist/build/System/Log/FastLogger/Date.o, dist/build/System/Log/FastLogger/Date.dyn_o )
[ 8 of 13] Compiling System.Log.FastLogger.Write ( System/Log/FastLogger/Write.hs, dist/build/System/Log/FastLogger/Write.o, dist/build/System/Log/FastLogger/Write.dyn_o )
[ 9 of 13] Compiling System.Log.FastLogger.SingleLogger ( System/Log/FastLogger/SingleLogger.hs, dist/build/System/Log/FastLogger/SingleLogger.o, dist/build/System/Log/FastLogger/SingleLogger.dyn_o )
[10 of 13] Compiling System.Log.FastLogger.MultiLogger ( System/Log/FastLogger/MultiLogger.hs, dist/build/System/Log/FastLogger/MultiLogger.o, dist/build/System/Log/FastLogger/MultiLogger.dyn_o )
[11 of 13] Compiling System.Log.FastLogger.LoggerSet ( System/Log/FastLogger/LoggerSet.hs, dist/build/System/Log/FastLogger/LoggerSet.o, dist/build/System/Log/FastLogger/LoggerSet.dyn_o )
[12 of 13] Compiling System.Log.FastLogger ( System/Log/FastLogger.hs, dist/build/System/Log/FastLogger.o, dist/build/System/Log/FastLogger.dyn_o )
[13 of 13] Compiling System.Log.FastLogger.Internal ( System/Log/FastLogger/Internal.hs, dist/build/System/Log/FastLogger/Internal.o, dist/build/System/Log/FastLogger/Internal.dyn_o )
Preprocessing library for fast-logger-3.2.6..
Running Haddock on library for fast-logger-3.2.6..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 13] Compiling System.Log.FastLogger.Imports ( System/Log/FastLogger/Imports.hs, nothing )
[ 2 of 13] Compiling System.Log.FastLogger.FileIO ( System/Log/FastLogger/FileIO.hs, nothing )
[ 3 of 13] Compiling System.Log.FastLogger.LogStr ( System/Log/FastLogger/LogStr.hs, nothing )
[ 4 of 13] Compiling System.Log.FastLogger.IO ( System/Log/FastLogger/IO.hs, nothing )
[ 5 of 13] Compiling System.Log.FastLogger.Types ( System/Log/FastLogger/Types.hs, nothing )
[ 6 of 13] Compiling System.Log.FastLogger.File ( System/Log/FastLogger/File.hs, nothing )
[ 7 of 13] Compiling System.Log.FastLogger.Date ( System/Log/FastLogger/Date.hs, nothing )
[ 8 of 13] Compiling System.Log.FastLogger.Write ( System/Log/FastLogger/Write.hs, nothing )
[ 9 of 13] Compiling System.Log.FastLogger.SingleLogger ( System/Log/FastLogger/SingleLogger.hs, nothing )
[10 of 13] Compiling System.Log.FastLogger.MultiLogger ( System/Log/FastLogger/MultiLogger.hs, nothing )
[11 of 13] Compiling System.Log.FastLogger.LoggerSet ( System/Log/FastLogger/LoggerSet.hs, nothing )
[12 of 13] Compiling System.Log.FastLogger ( System/Log/FastLogger.hs, nothing )
[13 of 13] Compiling System.Log.FastLogger.Internal ( System/Log/FastLogger/Internal.hs, nothing )
Haddock coverage:
Warning: 'LogStr' is ambiguous. It is defined
* at System/Log/FastLogger/LogStr.hs:50:15
* at System/Log/FastLogger/LogStr.hs:50:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/Log/FastLogger/LogStr.hs:50:1
50% ( 2 / 4) in 'System.Log.FastLogger.Types'
Missing documentation for:
Module header
TimeFormat (System/Log/FastLogger/Types.hs:14)
Warning: 'on' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'T' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
83% ( 5 / 6) in 'System.Log.FastLogger.File'
Missing documentation for:
Module header
100% ( 5 / 5) in 'System.Log.FastLogger.Date'
Warning: 'LogStr' is ambiguous. It is defined
* at System/Log/FastLogger/LogStr.hs:50:15
* at System/Log/FastLogger/LogStr.hs:50:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/Log/FastLogger/LogStr.hs:50:1
Warning: 'SingleLogger' is ambiguous. It is defined
* at System/Log/FastLogger/SingleLogger.hs:24:21
* at System/Log/FastLogger/SingleLogger.hs:24:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/Log/FastLogger/SingleLogger.hs:24:1
Warning: 'MultiLogger' is ambiguous. It is defined
* at System/Log/FastLogger/MultiLogger.hs:31:20
* at System/Log/FastLogger/MultiLogger.hs:31:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/Log/FastLogger/MultiLogger.hs:31:1
Warning: 'LoggerSet' is ambiguous. It is defined
* at System/Log/FastLogger/LoggerSet.hs:54:18
* at System/Log/FastLogger/LoggerSet.hs:54:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/Log/FastLogger/LoggerSet.hs:54:1
Warning: 'numCapabilties' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
95% ( 20 / 21) in 'System.Log.FastLogger.LoggerSet'
Missing documentation for:
Module header
Warning: 'logStr' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'numCapabilities' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'newTimeFastLogger' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'TimedFileLogSpec' is ambiguous. It is defined
* at System/Log/FastLogger/File.hs:49:25
* at System/Log/FastLogger/File.hs:49:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at System/Log/FastLogger/File.hs:49:1
96% ( 27 / 28) in 'System.Log.FastLogger'
Missing documentation for:
LogType (System/Log/FastLogger.hs:77)
60% ( 18 / 30) in 'System.Log.FastLogger.Internal'
Missing documentation for:
Buffer (System/Log/FastLogger/IO.hs:20)
getBuffer (System/Log/FastLogger/IO.hs:30)
freeBuffer (System/Log/FastLogger/IO.hs:33)
toBufIOWith (System/Log/FastLogger/IO.hs:36)
FD (System/Log/FastLogger/FileIO.hs:11)
closeFD (System/Log/FastLogger/FileIO.hs:14)
openFileFD (System/Log/FastLogger/FileIO.hs:17)
getStderrFD (System/Log/FastLogger/FileIO.hs:20)
getStdoutFD (System/Log/FastLogger/FileIO.hs:23)
writeRawBufferPtr2FD (System/Log/FastLogger/FileIO.hs:26)
isFDValid (System/Log/FastLogger/FileIO.hs:38)
invalidFD (System/Log/FastLogger/FileIO.hs:35)
Documentation created: dist/doc/html/fast-logger/,
dist/doc/html/fast-logger/fast-logger.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/fast-logger-3.2.6-4PDuAQvOaYkESox0PhZjKh
Completed fast-logger-3.2.6
Configuring vault-0.3.1.5...
Preprocessing library for vault-0.3.1.5..
Building library for vault-0.3.1.5..
[1 of 5] Compiling Data.Unique.Really ( src/Data/Unique/Really.hs, dist/build/Data/Unique/Really.o, dist/build/Data/Unique/Really.dyn_o )
src/Data/Unique/Really.hs:6:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
6 | import Control.Applicative ((<$>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 5] Compiling Data.Vault.ST.Lazy ( src/Data/Vault/ST/Lazy.hs, dist/build/Data/Vault/ST/Lazy.o, dist/build/Data/Vault/ST/Lazy.dyn_o )
src/Data/Vault/ST/ST.h:15:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
15 | import Data.Monoid (Monoid(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:16:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
16 | import Data.Semigroup (Semigroup((<>)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:18:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
18 | import Control.Applicative ((<$>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:47:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances]
Noncanonical mappend definition detected
in the instance declaration for Monoid (Vault s).
mappend will eventually be removed in favour of (<>)
Suggested fix:
Either remove definition for mappend (recommended) or define as mappend = (<>)
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid
|
47 | mappend = union
| ^^^^^^^^^^^^^^^
[3 of 5] Compiling Data.Vault.Lazy ( src/Data/Vault/Lazy.hs, dist/build/Data/Vault/Lazy.o, dist/build/Data/Vault/Lazy.dyn_o )
[4 of 5] Compiling Data.Vault.ST.Strict ( src/Data/Vault/ST/Strict.hs, dist/build/Data/Vault/ST/Strict.o, dist/build/Data/Vault/ST/Strict.dyn_o )
src/Data/Vault/ST/ST.h:15:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
15 | import Data.Monoid (Monoid(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:16:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
16 | import Data.Semigroup (Semigroup((<>)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:18:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
18 | import Control.Applicative ((<$>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:47:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances]
Noncanonical mappend definition detected
in the instance declaration for Monoid (Vault s).
mappend will eventually be removed in favour of (<>)
Suggested fix:
Either remove definition for mappend (recommended) or define as mappend = (<>)
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid
|
47 | mappend = union
| ^^^^^^^^^^^^^^^
[5 of 5] Compiling Data.Vault.Strict ( src/Data/Vault/Strict.hs, dist/build/Data/Vault/Strict.o, dist/build/Data/Vault/Strict.dyn_o )
Preprocessing library for vault-0.3.1.5..
Running Haddock on library for vault-0.3.1.5..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 5] Compiling Data.Unique.Really ( src/Data/Unique/Really.hs, nothing )
src/Data/Unique/Really.hs:6:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
6 | import Control.Applicative ((<$>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 5] Compiling Data.Vault.ST.Lazy ( src/Data/Vault/ST/Lazy.hs, nothing )
src/Data/Vault/ST/ST.h:15:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
15 | import Data.Monoid (Monoid(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:16:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
16 | import Data.Semigroup (Semigroup((<>)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:18:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
18 | import Control.Applicative ((<$>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:47:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances]
Noncanonical mappend definition detected
in the instance declaration for Monoid (Vault s).
mappend will eventually be removed in favour of (<>)
Suggested fix:
Either remove definition for mappend (recommended) or define as mappend = (<>)
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid
|
47 | mappend = union
| ^^^^^^^^^^^^^^^
[3 of 5] Compiling Data.Vault.Lazy ( src/Data/Vault/Lazy.hs, nothing )
[4 of 5] Compiling Data.Vault.ST.Strict ( src/Data/Vault/ST/Strict.hs, nothing )
src/Data/Vault/ST/ST.h:15:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
15 | import Data.Monoid (Monoid(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:16:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
16 | import Data.Semigroup (Semigroup((<>)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:18:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
18 | import Control.Applicative ((<$>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Vault/ST/ST.h:47:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances]
Noncanonical mappend definition detected
in the instance declaration for Monoid (Vault s).
mappend will eventually be removed in favour of (<>)
Suggested fix:
Either remove definition for mappend (recommended) or define as mappend = (<>)
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid
|
47 | mappend = union
| ^^^^^^^^^^^^^^^
[5 of 5] Compiling Data.Vault.Strict ( src/Data/Vault/Strict.hs, nothing )
Haddock coverage:
Warning: 'Unique' is ambiguous. It is defined
* at src/Data/Unique/Really.hs:21:18
* at src/Data/Unique/Really.hs:21:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Unique/Really.hs:21:1
100% ( 4 / 4) in 'Data.Unique.Really'
Warning: 'Vault' is ambiguous. It is defined
* at src/Data/Vault/ST/backends/GHC.h:18:19
* at src/Data/Vault/ST/backends/GHC.h:18:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vault/ST/backends/GHC.h:18:1
Warning: 'Locker' is ambiguous. It is defined
* at src/Data/Vault/ST/backends/GHC.h:40:17
* at src/Data/Vault/ST/backends/GHC.h:40:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vault/ST/backends/GHC.h:40:1
80% ( 12 / 15) in 'Data.Vault.ST.Lazy'
Missing documentation for:
Vault (src/Data/Vault/ST/backends/GHC.h:18)
Key (src/Data/Vault/ST/backends/GHC.h:19)
Locker (src/Data/Vault/ST/backends/GHC.h:40)
100% ( 15 / 15) in 'Data.Vault.Lazy'
Warning: 'Vault' is ambiguous. It is defined
* at src/Data/Vault/ST/backends/GHC.h:18:19
* at src/Data/Vault/ST/backends/GHC.h:18:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vault/ST/backends/GHC.h:18:1
Warning: 'Locker' is ambiguous. It is defined
* at src/Data/Vault/ST/backends/GHC.h:40:17
* at src/Data/Vault/ST/backends/GHC.h:40:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vault/ST/backends/GHC.h:40:1
80% ( 12 / 15) in 'Data.Vault.ST.Strict'
Missing documentation for:
Vault (src/Data/Vault/ST/backends/GHC.h:18)
Key (src/Data/Vault/ST/backends/GHC.h:19)
Locker (src/Data/Vault/ST/backends/GHC.h:40)
100% ( 15 / 15) in 'Data.Vault.Strict'
Documentation created: dist/doc/html/vault/, dist/doc/html/vault/vault.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/vault-0.3.1.5-9UOqaAX5ZKLLXuPQsOj42R
Completed vault-0.3.1.5
Configuring text-iso8601-0.1.1...
Preprocessing library for text-iso8601-0.1.1..
Building library for text-iso8601-0.1.1..
[1 of 2] Compiling Data.Time.FromText ( src/Data/Time/FromText.hs, dist/build/Data/Time/FromText.o, dist/build/Data/Time/FromText.dyn_o )
[2 of 2] Compiling Data.Time.ToText ( src/Data/Time/ToText.hs, dist/build/Data/Time/ToText.o, dist/build/Data/Time/ToText.dyn_o )
Preprocessing library for text-iso8601-0.1.1..
Running Haddock on library for text-iso8601-0.1.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling Data.Time.FromText ( src/Data/Time/FromText.hs, nothing )
[2 of 2] Compiling Data.Time.ToText ( src/Data/Time/ToText.hs, nothing )
Haddock coverage:
Warning: 'zonedTime' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 11 / 11) in 'Data.Time.FromText'
9% ( 1 / 11) in 'Data.Time.ToText'
Missing documentation for:
Module header
buildDay (src/Data/Time/ToText.hs:38)
buildLocalTime (src/Data/Time/ToText.hs:122)
buildTimeOfDay (src/Data/Time/ToText.hs:74)
buildTimeZone (src/Data/Time/ToText.hs:106)
buildUTCTime (src/Data/Time/ToText.hs:118)
buildZonedTime (src/Data/Time/ToText.hs:126)
buildMonth (src/Data/Time/ToText.hs:43)
buildQuarter (src/Data/Time/ToText.hs:48)
buildQuarterOfYear (src/Data/Time/ToText.hs:53)
Documentation created: dist/doc/html/text-iso8601/,
dist/doc/html/text-iso8601/text-iso8601.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/text-iso8601-0.1.1-4Kc5OyZ1I6HB4G5jxLOO5u
Completed text-iso8601-0.1.1
Configuring strict-0.5.1...
Preprocessing library for strict-0.5.1..
Building library for strict-0.5.1..
[1 of 7] Compiling Data.Strict.Either ( src/Data/Strict/Either.hs, dist/build/Data/Strict/Either.o, dist/build/Data/Strict/Either.dyn_o )
[2 of 7] Compiling Data.Strict.Maybe ( src/Data/Strict/Maybe.hs, dist/build/Data/Strict/Maybe.o, dist/build/Data/Strict/Maybe.dyn_o )
[3 of 7] Compiling Data.Strict.These ( src/Data/Strict/These.hs, dist/build/Data/Strict/These.o, dist/build/Data/Strict/These.dyn_o )
[4 of 7] Compiling Data.Strict.Tuple ( src/Data/Strict/Tuple.hs, dist/build/Data/Strict/Tuple.o, dist/build/Data/Strict/Tuple.dyn_o )
src/Data/Strict/Tuple.hs:124:3: warning: [GHC-50928] [-Wnoncanonical-monoid-instances]
Noncanonical mappend definition detected
in the instance declaration for Monoid (Pair a b).
mappend will eventually be removed in favour of (<>)
Suggested fix:
Either remove definition for mappend (recommended) or define as mappend = (<>)
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid
|
124 | (x1 :!: y1) `mappend` (x2 :!: y2) = (x1 `mappend` x2) :!: (y1 `mappend` y2)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[5 of 7] Compiling Data.Strict.Classes ( src/Data/Strict/Classes.hs, dist/build/Data/Strict/Classes.o, dist/build/Data/Strict/Classes.dyn_o )
[6 of 7] Compiling Data.Strict ( src/Data/Strict.hs, dist/build/Data/Strict.o, dist/build/Data/Strict.dyn_o )
[7 of 7] Compiling System.IO.Strict ( src/System/IO/Strict.hs, dist/build/System/IO/Strict.o, dist/build/System/IO/Strict.dyn_o )
Preprocessing library for strict-0.5.1..
Running Haddock on library for strict-0.5.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 7] Compiling Data.Strict.Either ( src/Data/Strict/Either.hs, nothing )
[2 of 7] Compiling Data.Strict.Maybe ( src/Data/Strict/Maybe.hs, nothing )
[3 of 7] Compiling Data.Strict.These ( src/Data/Strict/These.hs, nothing )
[4 of 7] Compiling Data.Strict.Tuple ( src/Data/Strict/Tuple.hs, nothing )
src/Data/Strict/Tuple.hs:124:3: warning: [GHC-50928] [-Wnoncanonical-monoid-instances]
Noncanonical mappend definition detected
in the instance declaration for Monoid (Pair a b).
mappend will eventually be removed in favour of (<>)
Suggested fix:
Either remove definition for mappend (recommended) or define as mappend = (<>)
See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid
|
124 | (x1 :!: y1) `mappend` (x2 :!: y2) = (x1 `mappend` x2) :!: (y1 `mappend` y2)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[5 of 7] Compiling Data.Strict.Classes ( src/Data/Strict/Classes.hs, nothing )
[6 of 7] Compiling Data.Strict ( src/Data/Strict.hs, nothing )
[7 of 7] Compiling System.IO.Strict ( src/System/IO/Strict.hs, nothing )
Haddock coverage:
Warning: 'Either' is ambiguous. It is defined
* in Data.Either
* at src/Data/Strict/Either.hs:54:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Strict/Either.hs:54:1
100% ( 10 / 10) in 'Data.Strict.Either'
Warning: 'Maybe' is ambiguous. It is defined
* at src/Data/Strict/Maybe.hs:58:1
* in GHC.Maybe
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Strict/Maybe.hs:58:1
Warning: '<*>' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 11 / 11) in 'Data.Strict.Maybe'
Warning: 'These' is ambiguous. It is defined
* at src/Data/Strict/These.hs:65:38
* at src/Data/Strict/These.hs:65:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Strict/These.hs:65:1
Warning: 'here' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'there' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
70% ( 12 / 17) in 'Data.Strict.These'
Missing documentation for:
Module header
distrThesePair (src/Data/Strict/These.hs:156)
undistrThesePair (src/Data/Strict/These.hs:161)
distrPairThese (src/Data/Strict/These.hs:173)
undistrPairThese (src/Data/Strict/These.hs:178)
90% ( 9 / 10) in 'Data.Strict.Tuple'
Missing documentation for:
:!: (src/Data/Strict/Tuple.hs:69)
50% ( 1 / 2) in 'Data.Strict.Classes'
Missing documentation for:
Module header
100% ( 6 / 6) in 'Data.Strict'
Warning: 'isEOFError' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'stdin' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 7 / 7) in 'System.IO.Strict'
Warning: Data.Strict.Either: could not find link destinations for:
- Data.Strict.Either.Rep_Either
- Data.Strict.Either.Rep1_Either
Warning: Data.Strict.Maybe: could not find link destinations for:
- Data.Strict.Maybe.Rep_Maybe
- Data.Strict.Maybe.Rep1_Maybe
Warning: Data.Strict.These: could not find link destinations for:
- Data.Strict.These.Rep_These
- Data.Strict.These.Rep1_These
Warning: Data.Strict.Tuple: could not find link destinations for:
- Data.Strict.Tuple.Rep_Pair
- Data.Strict.Tuple.Rep1_Pair
Documentation created: dist/doc/html/strict/, dist/doc/html/strict/strict.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/strict-0.5.1-2ISnNguMtok96hucleaUNy
Completed strict-0.5.1
Configuring attoparsec-0.14.4...
Preprocessing library 'attoparsec-internal' for attoparsec-0.14.4..
Building library 'attoparsec-internal' for attoparsec-0.14.4..
[1 of 6] Compiling Data.Attoparsec.ByteString.FastSet ( internal/Data/Attoparsec/ByteString/FastSet.hs, dist/build/attoparsec-internal/Data/Attoparsec/ByteString/FastSet.o, dist/build/attoparsec-internal/Data/Attoparsec/ByteString/FastSet.dyn_o )
internal/Data/Attoparsec/ByteString/FastSet.hs:97:18: warning: [GHC-68441] [-Wdeprecations]
In the use of memset
(imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type):
Deprecated: "Use Foreign.Marshal.Utils.fillBytes instead"
|
97 | _ <- I.memset t 0 32
| ^^^^^^^^
[2 of 6] Compiling Data.Attoparsec.Internal.Compat ( internal/Data/Attoparsec/Internal/Compat.hs, dist/build/attoparsec-internal/Data/Attoparsec/Internal/Compat.o, dist/build/attoparsec-internal/Data/Attoparsec/Internal/Compat.dyn_o )
[3 of 6] Compiling Data.Attoparsec.Internal.Fhthagn ( internal/Data/Attoparsec/Internal/Fhthagn.hs, dist/build/attoparsec-internal/Data/Attoparsec/Internal/Fhthagn.o, dist/build/attoparsec-internal/Data/Attoparsec/Internal/Fhthagn.dyn_o )
[4 of 6] Compiling Data.Attoparsec.ByteString.Buffer ( internal/Data/Attoparsec/ByteString/Buffer.hs, dist/build/attoparsec-internal/Data/Attoparsec/ByteString/Buffer.o, dist/build/attoparsec-internal/Data/Attoparsec/ByteString/Buffer.dyn_o )
internal/Data/Attoparsec/ByteString/Buffer.hs:62:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
62 | import Data.Semigroup (Semigroup(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
internal/Data/Attoparsec/ByteString/Buffer.hs:121:11: warning: [GHC-68441] [-Wdeprecations]
In the use of memcpy
(imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type):
Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead"
|
121 | memcpy (ptr0 `plusPtr` (off0+len0))
| ^^^^^^
internal/Data/Attoparsec/ByteString/Buffer.hs:132:13: warning: [GHC-68441] [-Wdeprecations]
In the use of memcpy
(imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type):
Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead"
|
132 | memcpy ptr (ptr0 `plusPtr` off0) (fromIntegral len0)
| ^^^^^^
internal/Data/Attoparsec/ByteString/Buffer.hs:133:13: warning: [GHC-68441] [-Wdeprecations]
In the use of memcpy
(imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type):
Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead"
|
133 | memcpy (ptr `plusPtr` len0) (ptr1 `plusPtr` off1)
| ^^^^^^
[5 of 6] Compiling Data.Attoparsec.Text.Buffer ( internal/Data/Attoparsec/Text/Buffer.hs, dist/build/attoparsec-internal/Data/Attoparsec/Text/Buffer.o, dist/build/attoparsec-internal/Data/Attoparsec/Text/Buffer.dyn_o )
internal/Data/Attoparsec/Text/Buffer.hs:44:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
44 | import Data.Semigroup (Semigroup(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[6 of 6] Compiling Data.Attoparsec.Text.FastSet ( internal/Data/Attoparsec/Text/FastSet.hs, dist/build/attoparsec-internal/Data/Attoparsec/Text/FastSet.o, dist/build/attoparsec-internal/Data/Attoparsec/Text/FastSet.dyn_o )
Preprocessing library for attoparsec-0.14.4..
Building library for attoparsec-0.14.4..
[ 1 of 16] Compiling Data.Attoparsec.Internal.Types ( Data/Attoparsec/Internal/Types.hs, dist/build/Data/Attoparsec/Internal/Types.o, dist/build/Data/Attoparsec/Internal/Types.dyn_o )
Data/Attoparsec/Internal/Types.hs:28:53: warning: [GHC-38856] [-Wunused-imports]
The import of <$> from module Control.Applicative is redundant
|
28 | import Control.Applicative as App (Applicative(..), (<$>))
| ^^^^^
Data/Attoparsec/Internal/Types.hs:34:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
34 | import Data.Semigroup (Semigroup(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 2 of 16] Compiling Data.Attoparsec.Internal ( Data/Attoparsec/Internal.hs, dist/build/Data/Attoparsec/Internal.o, dist/build/Data/Attoparsec/Internal.dyn_o )
[ 3 of 16] Compiling Data.Attoparsec.Number ( Data/Attoparsec/Number.hs, dist/build/Data/Attoparsec/Number.o, dist/build/Data/Attoparsec/Number.dyn_o )
[ 4 of 16] Compiling Data.Attoparsec.Types ( Data/Attoparsec/Types.hs, dist/build/Data/Attoparsec/Types.o, dist/build/Data/Attoparsec/Types.dyn_o )
[ 5 of 16] Compiling Data.Attoparsec.Zepto ( Data/Attoparsec/Zepto.hs, dist/build/Data/Attoparsec/Zepto.o, dist/build/Data/Attoparsec/Zepto.dyn_o )
Data/Attoparsec/Zepto.hs:46:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
46 | import Data.Semigroup (Semigroup(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 6 of 16] Compiling Data.Attoparsec.Combinator ( Data/Attoparsec/Combinator.hs, dist/build/Data/Attoparsec/Combinator.o, dist/build/Data/Attoparsec/Combinator.dyn_o )
Data/Attoparsec/Combinator.hs:46:46: warning: [GHC-38856] [-Wunused-imports]
The import of liftA2
from module Control.Applicative is redundant
|
46 | import Control.Applicative (Alternative(..), liftA2, many, (<|>))
| ^^^^^^
[ 7 of 16] Compiling Data.Attoparsec.Text.Internal ( Data/Attoparsec/Text/Internal.hs, dist/build/Data/Attoparsec/Text/Internal.o, dist/build/Data/Attoparsec/Text/Internal.dyn_o )
Data/Attoparsec/Text/Internal.hs:68:1: warning: [GHC-38856] [-Wunused-imports]
The import of *>, <$>, pure
from module Control.Applicative is redundant
|
68 | import Control.Applicative ((<|>), (<$>), pure, (*>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Attoparsec/Text/Internal.hs:91:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
91 | instance (a ~ Text) => IsString (Parser a) where
| ^
[ 8 of 16] Compiling Data.Attoparsec.Text ( Data/Attoparsec/Text.hs, dist/build/Data/Attoparsec/Text.o, dist/build/Data/Attoparsec/Text.dyn_o )
[ 9 of 16] Compiling Data.Attoparsec.Text.Lazy ( Data/Attoparsec/Text/Lazy.hs, dist/build/Data/Attoparsec/Text/Lazy.o, dist/build/Data/Attoparsec/Text/Lazy.dyn_o )
[10 of 16] Compiling Data.Attoparsec.ByteString.Internal ( Data/Attoparsec/ByteString/Internal.hs, dist/build/Data/Attoparsec/ByteString/Internal.o, dist/build/Data/Attoparsec/ByteString/Internal.dyn_o )
[11 of 16] Compiling Data.Attoparsec.ByteString ( Data/Attoparsec/ByteString.hs, dist/build/Data/Attoparsec/ByteString.o, dist/build/Data/Attoparsec/ByteString.dyn_o )
[12 of 16] Compiling Data.Attoparsec.ByteString.Lazy ( Data/Attoparsec/ByteString/Lazy.hs, dist/build/Data/Attoparsec/ByteString/Lazy.o, dist/build/Data/Attoparsec/ByteString/Lazy.dyn_o )
[13 of 16] Compiling Data.Attoparsec.Lazy ( Data/Attoparsec/Lazy.hs, dist/build/Data/Attoparsec/Lazy.o, dist/build/Data/Attoparsec/Lazy.dyn_o )
[14 of 16] Compiling Data.Attoparsec.ByteString.Char8 ( Data/Attoparsec/ByteString/Char8.hs, dist/build/Data/Attoparsec/ByteString/Char8.o, dist/build/Data/Attoparsec/ByteString/Char8.dyn_o )
Data/Attoparsec/ByteString/Char8.hs:154:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
154 | instance (a ~ B.ByteString) => IsString (Parser a) where
| ^
[15 of 16] Compiling Data.Attoparsec.Char8 ( Data/Attoparsec/Char8.hs, dist/build/Data/Attoparsec/Char8.o, dist/build/Data/Attoparsec/Char8.dyn_o )
[16 of 16] Compiling Data.Attoparsec ( Data/Attoparsec.hs, dist/build/Data/Attoparsec.o, dist/build/Data/Attoparsec.dyn_o )
Preprocessing library 'attoparsec-internal' for attoparsec-0.14.4..
Running Haddock on library 'attoparsec-internal' for attoparsec-0.14.4..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 6] Compiling Data.Attoparsec.ByteString.FastSet ( internal/Data/Attoparsec/ByteString/FastSet.hs, nothing )
internal/Data/Attoparsec/ByteString/FastSet.hs:97:18: warning: [GHC-68441] [-Wdeprecations]
In the use of memset
(imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type):
Deprecated: "Use Foreign.Marshal.Utils.fillBytes instead"
|
97 | _ <- I.memset t 0 32
| ^^^^^^^^
[2 of 6] Compiling Data.Attoparsec.Internal.Compat ( internal/Data/Attoparsec/Internal/Compat.hs, nothing )
[3 of 6] Compiling Data.Attoparsec.Internal.Fhthagn ( internal/Data/Attoparsec/Internal/Fhthagn.hs, nothing )
[4 of 6] Compiling Data.Attoparsec.ByteString.Buffer ( internal/Data/Attoparsec/ByteString/Buffer.hs, nothing )
internal/Data/Attoparsec/ByteString/Buffer.hs:62:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
62 | import Data.Semigroup (Semigroup(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
internal/Data/Attoparsec/ByteString/Buffer.hs:121:11: warning: [GHC-68441] [-Wdeprecations]
In the use of memcpy
(imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type):
Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead"
|
121 | memcpy (ptr0 `plusPtr` (off0+len0))
| ^^^^^^
internal/Data/Attoparsec/ByteString/Buffer.hs:132:13: warning: [GHC-68441] [-Wdeprecations]
In the use of memcpy
(imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type):
Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead"
|
132 | memcpy ptr (ptr0 `plusPtr` off0) (fromIntegral len0)
| ^^^^^^
internal/Data/Attoparsec/ByteString/Buffer.hs:133:13: warning: [GHC-68441] [-Wdeprecations]
In the use of memcpy
(imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type):
Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead"
|
133 | memcpy (ptr `plusPtr` len0) (ptr1 `plusPtr` off1)
| ^^^^^^
[5 of 6] Compiling Data.Attoparsec.Text.Buffer ( internal/Data/Attoparsec/Text/Buffer.hs, nothing )
internal/Data/Attoparsec/Text/Buffer.hs:44:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
44 | import Data.Semigroup (Semigroup(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[6 of 6] Compiling Data.Attoparsec.Text.FastSet ( internal/Data/Attoparsec/Text/FastSet.hs, nothing )
Haddock coverage:
69% ( 9 / 13) in 'Data.Attoparsec.ByteString.FastSet'
Missing documentation for:
FastSet (internal/Data/Attoparsec/ByteString/FastSet.hs:44)
fromList (internal/Data/Attoparsec/ByteString/FastSet.hs:63)
fromSet
charClass (internal/Data/Attoparsec/ByteString/FastSet.hs:109)
0% ( 0 / 3) in 'Data.Attoparsec.Internal.Compat'
Missing documentation for:
Module header
withPS (internal/Data/Attoparsec/Internal/Compat.hs:15)
mkPS (internal/Data/Attoparsec/Internal/Compat.hs:23)
50% ( 1 / 2) in 'Data.Attoparsec.Internal.Fhthagn'
Missing documentation for:
Module header
22% ( 2 / 9) in 'Data.Attoparsec.ByteString.Buffer'
Missing documentation for:
Buffer (internal/Data/Attoparsec/ByteString/Buffer.hs:71)
unbuffer (internal/Data/Attoparsec/ByteString/Buffer.hs:89)
pappend (internal/Data/Attoparsec/ByteString/Buffer.hs:105)
length (internal/Data/Attoparsec/ByteString/Buffer.hs:138)
unsafeIndex (internal/Data/Attoparsec/ByteString/Buffer.hs:142)
substring (internal/Data/Attoparsec/ByteString/Buffer.hs:147)
unsafeDrop (internal/Data/Attoparsec/ByteString/Buffer.hs:154)
33% ( 4 / 12) in 'Data.Attoparsec.Text.Buffer'
Missing documentation for:
Buffer (internal/Data/Attoparsec/Text/Buffer.hs:64)
unbuffer (internal/Data/Attoparsec/Text/Buffer.hs:82)
unbufferAt (internal/Data/Attoparsec/Text/Buffer.hs:85)
length (internal/Data/Attoparsec/Text/Buffer.hs:145)
pappend (internal/Data/Attoparsec/Text/Buffer.hs:105)
substring (internal/Data/Attoparsec/Text/Buffer.hs:149)
lengthCodeUnits (internal/Data/Attoparsec/Text/Buffer.hs:158)
dropCodeUnits (internal/Data/Attoparsec/Text/Buffer.hs:161)
60% ( 6 / 10) in 'Data.Attoparsec.Text.FastSet'
Missing documentation for:
FastSet (internal/Data/Attoparsec/Text/FastSet.hs:40)
fromList (internal/Data/Attoparsec/Text/FastSet.hs:83)
set (internal/Data/Attoparsec/Text/FastSet.hs:105)
charClass (internal/Data/Attoparsec/Text/FastSet.hs:118)
Documentation created: dist/doc/html/attoparsec/,
dist/doc/html/attoparsec/attoparsec.txt
Preprocessing library for attoparsec-0.14.4..
Running Haddock on library for attoparsec-0.14.4..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 16] Compiling Data.Attoparsec.Internal.Types ( Data/Attoparsec/Internal/Types.hs, nothing )
Data/Attoparsec/Internal/Types.hs:28:53: warning: [GHC-38856] [-Wunused-imports]
The import of <$> from module Control.Applicative is redundant
|
28 | import Control.Applicative as App (Applicative(..), (<$>))
| ^^^^^
Data/Attoparsec/Internal/Types.hs:34:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
34 | import Data.Semigroup (Semigroup(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 2 of 16] Compiling Data.Attoparsec.Internal ( Data/Attoparsec/Internal.hs, nothing )
[ 3 of 16] Compiling Data.Attoparsec.Number ( Data/Attoparsec/Number.hs, nothing )
[ 4 of 16] Compiling Data.Attoparsec.Types ( Data/Attoparsec/Types.hs, nothing )
[ 5 of 16] Compiling Data.Attoparsec.Zepto ( Data/Attoparsec/Zepto.hs, nothing )
Data/Attoparsec/Zepto.hs:46:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
46 | import Data.Semigroup (Semigroup(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 6 of 16] Compiling Data.Attoparsec.Combinator ( Data/Attoparsec/Combinator.hs, nothing )
Data/Attoparsec/Combinator.hs:46:46: warning: [GHC-38856] [-Wunused-imports]
The import of liftA2
from module Control.Applicative is redundant
|
46 | import Control.Applicative (Alternative(..), liftA2, many, (<|>))
| ^^^^^^
[ 7 of 16] Compiling Data.Attoparsec.Text.Internal ( Data/Attoparsec/Text/Internal.hs, nothing )
Data/Attoparsec/Text/Internal.hs:68:1: warning: [GHC-38856] [-Wunused-imports]
The import of *>, <$>, pure
from module Control.Applicative is redundant
|
68 | import Control.Applicative ((<|>), (<$>), pure, (*>))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Attoparsec/Text/Internal.hs:91:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
91 | instance (a ~ Text) => IsString (Parser a) where
| ^
[ 8 of 16] Compiling Data.Attoparsec.Text ( Data/Attoparsec/Text.hs, nothing )
[ 9 of 16] Compiling Data.Attoparsec.Text.Lazy ( Data/Attoparsec/Text/Lazy.hs, nothing )
[10 of 16] Compiling Data.Attoparsec.ByteString.Internal ( Data/Attoparsec/ByteString/Internal.hs, nothing )
[11 of 16] Compiling Data.Attoparsec.ByteString ( Data/Attoparsec/ByteString.hs, nothing )
[12 of 16] Compiling Data.Attoparsec.ByteString.Lazy ( Data/Attoparsec/ByteString/Lazy.hs, nothing )
[13 of 16] Compiling Data.Attoparsec.Lazy ( Data/Attoparsec/Lazy.hs, nothing )
[14 of 16] Compiling Data.Attoparsec.ByteString.Char8 ( Data/Attoparsec/ByteString/Char8.hs, nothing )
Data/Attoparsec/ByteString/Char8.hs:154:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
154 | instance (a ~ B.ByteString) => IsString (Parser a) where
| ^
[15 of 16] Compiling Data.Attoparsec.Char8 ( Data/Attoparsec/Char8.hs, nothing )
[16 of 16] Compiling Data.Attoparsec ( Data/Attoparsec.hs, nothing )
Haddock coverage:
60% ( 6 / 10) in 'Data.Attoparsec.Internal.Types'
Missing documentation for:
State (Data/Attoparsec/Internal/Types.hs:118)
Failure (Data/Attoparsec/Internal/Types.hs:122)
Success (Data/Attoparsec/Internal/Types.hs:124)
Pos (Data/Attoparsec/Internal/Types.hs:46)
100% ( 10 / 10) in 'Data.Attoparsec.Internal'
100% ( 2 / 2) in 'Data.Attoparsec.Number'
100% ( 4 / 4) in 'Data.Attoparsec.Types'
88% ( 8 / 9) in 'Data.Attoparsec.Zepto'
Missing documentation for:
Parser (Data/Attoparsec/Zepto.hs:68)
Warning: 'liftM2' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 24 / 24) in 'Data.Attoparsec.Combinator'
Warning: 'Text' is ambiguous. It is defined
* in Data.Text.Internal
* in Data.Text.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Text.Internal
Warning: 'Partial' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Lazy' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
97% ( 90 / 92) in 'Data.Attoparsec.Text'
Missing documentation for:
Parser (Data/Attoparsec/Text/Internal.hs:86)
Result (Data/Attoparsec/Text/Internal.hs:87)
Warning: 'Text' is ambiguous. It is defined
* in Data.Text.Internal
* in Data.Text.Internal.Lazy
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Text.Internal.Lazy
98% ( 70 / 71) in 'Data.Attoparsec.Text.Lazy'
Missing documentation for:
Parser (Data/Attoparsec/Text/Internal.hs:86)
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
97% ( 68 / 70) in 'Data.Attoparsec.ByteString'
Missing documentation for:
Parser (Data/Attoparsec/ByteString/Internal.hs:98)
Result (Data/Attoparsec/ByteString/Internal.hs:99)
Warning: 'ByteString' is ambiguous. It is defined
* in Data.ByteString.Internal.Type
* in Data.ByteString.Lazy.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.ByteString.Lazy.Internal
98% ( 53 / 54) in 'Data.Attoparsec.ByteString.Lazy'
Missing documentation for:
Parser (Data/Attoparsec/ByteString/Internal.hs:98)
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 2 / 2) in 'Data.Attoparsec.Lazy'
Warning: 'many' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
97% ( 91 / 93) in 'Data.Attoparsec.ByteString.Char8'
Missing documentation for:
Parser (Data/Attoparsec/ByteString/Internal.hs:98)
Result (Data/Attoparsec/ByteString/Internal.hs:99)
100% ( 2 / 2) in 'Data.Attoparsec.Char8'
100% ( 2 / 2) in 'Data.Attoparsec'
Warning: Data.Attoparsec.Internal.Types: could not find link destinations for:
- Data.Attoparsec.Internal.Types.D:R:ChunkElemText
- Data.Attoparsec.Internal.Types.D:R:ChunkElemByteString
Warning: Data.Attoparsec.Types: could not find link destinations for:
- Data.Attoparsec.Internal.Types.D:R:ChunkElemText
- Data.Attoparsec.Internal.Types.D:R:ChunkElemByteString
Documentation created: dist/doc/html/attoparsec/,
dist/doc/html/attoparsec/attoparsec.txt
Installing internal library attoparsec-internal in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/attoparsec-0.14.4-LDjhBprM6fk4GZghEfIU87
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/attoparsec-0.14.4-LDjhBprM6fk4GZghEfIU87
Completed attoparsec-0.14.4
Configuring megaparsec-9.7.0...
Preprocessing library for megaparsec-9.7.0..
Building library for megaparsec-9.7.0..
[ 1 of 19] Compiling Text.Megaparsec.Pos ( Text/Megaparsec/Pos.hs, dist/build/Text/Megaparsec/Pos.o, dist/build/Text/Megaparsec/Pos.dyn_o )
[ 2 of 19] Compiling Text.Megaparsec.Unicode ( Text/Megaparsec/Unicode.hs, dist/build/Text/Megaparsec/Unicode.o, dist/build/Text/Megaparsec/Unicode.dyn_o )
[ 3 of 19] Compiling Text.Megaparsec.Error[boot] ( Text/Megaparsec/Error.hs-boot, dist/build/Text/Megaparsec/Error.o-boot, dist/build/Text/Megaparsec/Error.dyn_o-boot )
[ 4 of 19] Compiling Text.Megaparsec.State ( Text/Megaparsec/State.hs, dist/build/Text/Megaparsec/State.o, dist/build/Text/Megaparsec/State.dyn_o )
[ 5 of 19] Compiling Text.Megaparsec.Stream ( Text/Megaparsec/Stream.hs, dist/build/Text/Megaparsec/Stream.o, dist/build/Text/Megaparsec/Stream.dyn_o )
[ 6 of 19] Compiling Text.Megaparsec.Error ( Text/Megaparsec/Error.hs, dist/build/Text/Megaparsec/Error.o, dist/build/Text/Megaparsec/Error.dyn_o )
[ 7 of 19] Compiling Text.Megaparsec.Error.Builder ( Text/Megaparsec/Error/Builder.hs, dist/build/Text/Megaparsec/Error/Builder.o, dist/build/Text/Megaparsec/Error/Builder.dyn_o )
[ 8 of 19] Compiling Text.Megaparsec.Internal[boot] ( Text/Megaparsec/Internal.hs-boot, dist/build/Text/Megaparsec/Internal.o-boot, dist/build/Text/Megaparsec/Internal.dyn_o-boot )
[ 9 of 19] Compiling Text.Megaparsec.Class ( Text/Megaparsec/Class.hs, dist/build/Text/Megaparsec/Class.o, dist/build/Text/Megaparsec/Class.dyn_o )
[10 of 19] Compiling Text.Megaparsec.Internal ( Text/Megaparsec/Internal.hs, dist/build/Text/Megaparsec/Internal.o, dist/build/Text/Megaparsec/Internal.dyn_o )
[11 of 19] Compiling Text.Megaparsec.Debug ( Text/Megaparsec/Debug.hs, dist/build/Text/Megaparsec/Debug.o, dist/build/Text/Megaparsec/Debug.dyn_o )
[12 of 19] Compiling Text.Megaparsec ( Text/Megaparsec.hs, dist/build/Text/Megaparsec.o, dist/build/Text/Megaparsec.dyn_o )
[13 of 19] Compiling Text.Megaparsec.Common ( Text/Megaparsec/Common.hs, dist/build/Text/Megaparsec/Common.o, dist/build/Text/Megaparsec/Common.dyn_o )
[14 of 19] Compiling Text.Megaparsec.Lexer ( Text/Megaparsec/Lexer.hs, dist/build/Text/Megaparsec/Lexer.o, dist/build/Text/Megaparsec/Lexer.dyn_o )
[15 of 19] Compiling Text.Megaparsec.Char ( Text/Megaparsec/Char.hs, dist/build/Text/Megaparsec/Char.o, dist/build/Text/Megaparsec/Char.dyn_o )
[16 of 19] Compiling Text.Megaparsec.Char.Lexer ( Text/Megaparsec/Char/Lexer.hs, dist/build/Text/Megaparsec/Char/Lexer.o, dist/build/Text/Megaparsec/Char/Lexer.dyn_o )
[17 of 19] Compiling Text.Megaparsec.Byte.Binary ( Text/Megaparsec/Byte/Binary.hs, dist/build/Text/Megaparsec/Byte/Binary.o, dist/build/Text/Megaparsec/Byte/Binary.dyn_o )
[18 of 19] Compiling Text.Megaparsec.Byte ( Text/Megaparsec/Byte.hs, dist/build/Text/Megaparsec/Byte.o, dist/build/Text/Megaparsec/Byte.dyn_o )
[19 of 19] Compiling Text.Megaparsec.Byte.Lexer ( Text/Megaparsec/Byte/Lexer.hs, dist/build/Text/Megaparsec/Byte/Lexer.o, dist/build/Text/Megaparsec/Byte/Lexer.dyn_o )
Preprocessing library for megaparsec-9.7.0..
Running Haddock on library for megaparsec-9.7.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 19] Compiling Text.Megaparsec.Pos ( Text/Megaparsec/Pos.hs, nothing )
[ 2 of 19] Compiling Text.Megaparsec.Unicode ( Text/Megaparsec/Unicode.hs, nothing )
[ 3 of 19] Compiling Text.Megaparsec.Error[boot] ( Text/Megaparsec/Error.hs-boot, nothing )
[ 4 of 19] Compiling Text.Megaparsec.State ( Text/Megaparsec/State.hs, nothing )
[ 5 of 19] Compiling Text.Megaparsec.Stream ( Text/Megaparsec/Stream.hs, nothing )
[ 6 of 19] Compiling Text.Megaparsec.Error ( Text/Megaparsec/Error.hs, nothing )
[ 7 of 19] Compiling Text.Megaparsec.Error.Builder ( Text/Megaparsec/Error/Builder.hs, nothing )
[ 8 of 19] Compiling Text.Megaparsec.Internal[boot] ( Text/Megaparsec/Internal.hs-boot, nothing )
[ 9 of 19] Compiling Text.Megaparsec.Class ( Text/Megaparsec/Class.hs, nothing )
[10 of 19] Compiling Text.Megaparsec.Internal ( Text/Megaparsec/Internal.hs, nothing )
[11 of 19] Compiling Text.Megaparsec.Debug ( Text/Megaparsec/Debug.hs, nothing )
[12 of 19] Compiling Text.Megaparsec ( Text/Megaparsec.hs, nothing )
[13 of 19] Compiling Text.Megaparsec.Common ( Text/Megaparsec/Common.hs, nothing )
[14 of 19] Compiling Text.Megaparsec.Lexer ( Text/Megaparsec/Lexer.hs, nothing )
[15 of 19] Compiling Text.Megaparsec.Char ( Text/Megaparsec/Char.hs, nothing )
[16 of 19] Compiling Text.Megaparsec.Char.Lexer ( Text/Megaparsec/Char/Lexer.hs, nothing )
[17 of 19] Compiling Text.Megaparsec.Byte.Binary ( Text/Megaparsec/Byte/Binary.hs, nothing )
[18 of 19] Compiling Text.Megaparsec.Byte ( Text/Megaparsec/Byte.hs, nothing )
[19 of 19] Compiling Text.Megaparsec.Byte.Lexer ( Text/Megaparsec/Byte/Lexer.hs, nothing )
Haddock coverage:
Warning: 'SourcePos' is ambiguous. It is defined
* at Text/Megaparsec/Pos.hs:121:18
* at Text/Megaparsec/Pos.hs:121:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Pos.hs:121:1
Warning: 'Pos' is ambiguous. It is defined
* at Text/Megaparsec/Pos.hs:51:15
* at Text/Megaparsec/Pos.hs:51:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Pos.hs:51:1
Warning: 'InvalidPosException' is ambiguous. It is defined
* at Text/Megaparsec/Pos.hs:107:5
* at Text/Megaparsec/Pos.hs:105:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Pos.hs:105:1
100% ( 12 / 12) in 'Text.Megaparsec.Pos'
Warning: 'State' is ambiguous. It is defined
* at Text/Megaparsec/State.hs:39:18
* at Text/Megaparsec/State.hs:39:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/State.hs:39:1
100% ( 5 / 5) in 'Text.Megaparsec.State'
100% ( 4 / 4) in 'Text.Megaparsec.Unicode'
Warning: 'SourcePos' is ambiguous. It is defined
* at Text/Megaparsec/Pos.hs:121:18
* at Text/Megaparsec/Pos.hs:121:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Pos.hs:121:1
Warning: 'PosState' is ambiguous. It is defined
* at Text/Megaparsec/State.hs:101:19
* at Text/Megaparsec/State.hs:101:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/State.hs:101:1
Warning: 'ShareInput' is ambiguous. It is defined
* at Text/Megaparsec/Stream.hs:187:24
* at Text/Megaparsec/Stream.hs:187:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Stream.hs:187:1
Warning: 'NoShareInput' is ambiguous. It is defined
* at Text/Megaparsec/Stream.hs:262:26
* at Text/Megaparsec/Stream.hs:262:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Stream.hs:262:1
Warning: 'Text' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 6 / 6) in 'Text.Megaparsec.Stream'
Warning: 'PosState' is ambiguous. It is defined
* at Text/Megaparsec/State.hs:101:19
* at Text/Megaparsec/State.hs:101:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/State.hs:101:1
Warning: 'SourcePos' is ambiguous. It is defined
* at Text/Megaparsec/Pos.hs:121:18
* at Text/Megaparsec/Pos.hs:121:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Pos.hs:121:1
Warning: 'ParseErrorBundle' is ambiguous. It is defined
* at Text/Megaparsec/Error.hs:250:29
* at Text/Megaparsec/Error.hs:250:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Error.hs:250:1
100% ( 18 / 18) in 'Text.Megaparsec.Error'
Warning: 'ET' is ambiguous. It is defined
* at Text/Megaparsec/Error/Builder.hs:59:13
* at Text/Megaparsec/Error/Builder.hs:59:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Error/Builder.hs:59:1
100% ( 17 / 17) in 'Text.Megaparsec.Error.Builder'
Warning: 'State' is ambiguous. It is defined
* at Text/Megaparsec/State.hs:39:18
* at Text/Megaparsec/State.hs:39:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/State.hs:39:1
Warning: 'Reply' is ambiguous. It is defined
* at Text/Megaparsec/Internal.hs:106:20
* at Text/Megaparsec/Internal.hs:106:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Internal.hs:106:1
Warning: 'ParsecT' is ambiguous. It is defined
* at Text/Megaparsec/Internal.hs:131:27
* at Text/Megaparsec/Internal.hs:131:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Internal.hs:131:1
Warning: 'Hints' is ambiguous. It is defined
* at Text/Megaparsec/Internal.hs:92:19
* at Text/Megaparsec/Internal.hs:92:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Internal.hs:92:1
Warning: 'label' is ambiguous. It is defined
* at Text/Megaparsec/Class.hs:61:3
* in Control.Monad.Cont.Class
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Class.hs:61:3
100% ( 14 / 14) in 'Text.Megaparsec.Internal'
Warning: 'ParsecT' is ambiguous. It is defined
* at Text/Megaparsec/Internal.hs:131:27
* at Text/Megaparsec/Internal.hs:131:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Internal.hs:131:1
Warning: 'State' is ambiguous. It is defined
* at Text/Megaparsec/State.hs:39:18
* at Text/Megaparsec/State.hs:39:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/State.hs:39:1
100% ( 3 / 3) in 'Text.Megaparsec.Debug'
Warning: 'ParseErrorBundle' is ambiguous. It is defined
* at Text/Megaparsec/Error.hs:250:29
* at Text/Megaparsec/Error.hs:250:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Error.hs:250:1
Warning: 'ParsecT' is ambiguous. It is defined
* at Text/Megaparsec/Internal.hs:131:27
* at Text/Megaparsec/Internal.hs:131:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Internal.hs:131:1
Warning: 'Identity' is ambiguous. It is defined
* in Data.Functor.Identity
* in Data.Functor.Identity
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Functor.Identity
Warning: 'SourcePos' is ambiguous. It is defined
* at Text/Megaparsec/Pos.hs:121:18
* at Text/Megaparsec/Pos.hs:121:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Text/Megaparsec/Pos.hs:121:1
100% ( 51 / 51) in 'Text.Megaparsec'
Warning: 'skipLineComment' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'skipBlockComment' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 37 / 37) in 'Text.Megaparsec.Char'
100% ( 27 / 27) in 'Text.Megaparsec.Char.Lexer'
100% ( 21 / 21) in 'Text.Megaparsec.Byte.Binary'
100% ( 29 / 29) in 'Text.Megaparsec.Byte'
100% ( 17 / 17) in 'Text.Megaparsec.Byte.Lexer'
Warning: Text.Megaparsec.Pos: could not find link destinations for:
- Text.Megaparsec.Pos.Rep_SourcePos
- Text.Megaparsec.Pos.Rep_InvalidPosException
- Text.Megaparsec.Pos.Rep_Pos
Warning: Text.Megaparsec.State: could not find link destinations for:
- Text.Megaparsec.State.Rep_State
- Text.Megaparsec.State.Rep_PosState
Warning: Text.Megaparsec.Stream: could not find link destinations for:
- Text.Megaparsec.Stream.D:R:TokenSeq
- Text.Megaparsec.Stream.D:R:TokensSeq
- Text.Megaparsec.Stream.D:R:TokenList
- Text.Megaparsec.Stream.D:R:TokensList
- Text.Megaparsec.Stream.D:R:TokenText
- Text.Megaparsec.Stream.D:R:TokensText
- Text.Megaparsec.Stream.D:R:TokenText0
- Text.Megaparsec.Stream.D:R:TokensText0
- Text.Megaparsec.Stream.D:R:TokenByteString
- Text.Megaparsec.Stream.D:R:TokensByteString
- Text.Megaparsec.Stream.D:R:TokenByteString0
- Text.Megaparsec.Stream.D:R:TokensByteString0
- Text.Megaparsec.Stream.D:R:TokenShareInput
- Text.Megaparsec.Stream.D:R:TokensShareInput
- Text.Megaparsec.Stream.D:R:TokenShareInput0
- Text.Megaparsec.Stream.D:R:TokensShareInput0
- Text.Megaparsec.Stream.D:R:TokenShareInput1
- Text.Megaparsec.Stream.D:R:TokensShareInput1
- Text.Megaparsec.Stream.D:R:TokenShareInput2
- Text.Megaparsec.Stream.D:R:TokensShareInput2
- Text.Megaparsec.Stream.D:R:TokenNoShareInput
- Text.Megaparsec.Stream.D:R:TokensNoShareInput
- Text.Megaparsec.Stream.D:R:TokenNoShareInput0
- Text.Megaparsec.Stream.D:R:TokensNoShareInput0
- Text.Megaparsec.Stream.D:R:TokenNoShareInput1
- Text.Megaparsec.Stream.D:R:TokensNoShareInput1
- Text.Megaparsec.Stream.D:R:TokenNoShareInput2
- Text.Megaparsec.Stream.D:R:TokensNoShareInput2
Warning: Text.Megaparsec.Error: could not find link destinations for:
- Text.Megaparsec.Error.Rep_ParseErrorBundle
- Text.Megaparsec.Error.Rep_ParseError
- Text.Megaparsec.Error.Rep_ErrorFancy
- Text.Megaparsec.Error.Rep_ErrorItem
Warning: Text.Megaparsec.Error.Builder: could not find link destinations for:
- Text.Megaparsec.Error.Builder.Rep_EF
- Text.Megaparsec.Error.Builder.Rep_ET
Warning: Text.Megaparsec: could not find link destinations for:
- Text.Megaparsec.State.Rep_State
- Text.Megaparsec.State.Rep_PosState
Documentation created: dist/doc/html/megaparsec/,
dist/doc/html/megaparsec/megaparsec.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/megaparsec-9.7.0-AZVb3OSPdl4TChiinRysA
Completed megaparsec-9.7.0
Configuring http-types-0.12.4...
Preprocessing library for http-types-0.12.4..
Building library for http-types-0.12.4..
[1 of 7] Compiling Network.HTTP.Types.Header ( Network/HTTP/Types/Header.hs, dist/build/Network/HTTP/Types/Header.o, dist/build/Network/HTTP/Types/Header.dyn_o )
[2 of 7] Compiling Network.HTTP.Types.Method ( Network/HTTP/Types/Method.hs, dist/build/Network/HTTP/Types/Method.o, dist/build/Network/HTTP/Types/Method.dyn_o )
[3 of 7] Compiling Network.HTTP.Types.Status ( Network/HTTP/Types/Status.hs, dist/build/Network/HTTP/Types/Status.o, dist/build/Network/HTTP/Types/Status.dyn_o )
[4 of 7] Compiling Network.HTTP.Types.URI ( Network/HTTP/Types/URI.hs, dist/build/Network/HTTP/Types/URI.o, dist/build/Network/HTTP/Types/URI.dyn_o )
[5 of 7] Compiling Network.HTTP.Types.QueryLike ( Network/HTTP/Types/QueryLike.hs, dist/build/Network/HTTP/Types/QueryLike.o, dist/build/Network/HTTP/Types/QueryLike.dyn_o )
[6 of 7] Compiling Network.HTTP.Types.Version ( Network/HTTP/Types/Version.hs, dist/build/Network/HTTP/Types/Version.o, dist/build/Network/HTTP/Types/Version.dyn_o )
[7 of 7] Compiling Network.HTTP.Types ( Network/HTTP/Types.hs, dist/build/Network/HTTP/Types.o, dist/build/Network/HTTP/Types.dyn_o )
Preprocessing library for http-types-0.12.4..
Running Haddock on library for http-types-0.12.4..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 7] Compiling Network.HTTP.Types.Header ( Network/HTTP/Types/Header.hs, nothing )
[2 of 7] Compiling Network.HTTP.Types.Method ( Network/HTTP/Types/Method.hs, nothing )
[3 of 7] Compiling Network.HTTP.Types.Status ( Network/HTTP/Types/Status.hs, nothing )
[4 of 7] Compiling Network.HTTP.Types.URI ( Network/HTTP/Types/URI.hs, nothing )
[5 of 7] Compiling Network.HTTP.Types.QueryLike ( Network/HTTP/Types/QueryLike.hs, nothing )
[6 of 7] Compiling Network.HTTP.Types.Version ( Network/HTTP/Types/Version.hs, nothing )
[7 of 7] Compiling Network.HTTP.Types ( Network/HTTP/Types.hs, nothing )
Haddock coverage:
100% ( 71 / 71) in 'Network.HTTP.Types.Header'
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 19 / 19) in 'Network.HTTP.Types.Method'
Warning: 'Status' is ambiguous. It is defined
* at Network/HTTP/Types/Status.hs:140:15
* at Network/HTTP/Types/Status.hs:140:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Network/HTTP/Types/Status.hs:140:1
98% (107 /109) in 'Network.HTTP.Types.Status'
Missing documentation for:
statusCode
statusMessage
Warning: 'Builder' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 42 / 42) in 'Network.HTTP.Types.URI'
100% ( 4 / 4) in 'Network.HTTP.Types.QueryLike'
100% ( 6 / 6) in 'Network.HTTP.Types.Version'
99% (207 /208) in 'Network.HTTP.Types'
Missing documentation for:
Module header
Warning: Network.HTTP.Types.Header: could not find link destinations for:
- Network.HTTP.Types.Header.Rep_ByteRange
Warning: Network.HTTP.Types.Method: could not find link destinations for:
- Network.HTTP.Types.Method.Rep_StdMethod
Warning: Network.HTTP.Types.Status: could not find link destinations for:
- Network.HTTP.Types.Status.Rep_Status
Warning: Network.HTTP.Types.Version: could not find link destinations for:
- Network.HTTP.Types.Version.Rep_HttpVersion
Warning: Network.HTTP.Types: could not find link destinations for:
- Network.HTTP.Types.Header.Rep_ByteRange
- Network.HTTP.Types.Method.Rep_StdMethod
- Network.HTTP.Types.Status.Rep_Status
- Network.HTTP.Types.Version.Rep_HttpVersion
Documentation created: dist/doc/html/http-types/,
dist/doc/html/http-types/http-types.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/http-types-0.12.4-DtPHYKkWy3CLc5cwGZx5co
Completed http-types-0.12.4
Configuring unliftio-0.2.25.1...
Preprocessing library for unliftio-0.2.25.1..
Building library for unliftio-0.2.25.1..
[ 1 of 23] Compiling Paths_unliftio ( dist/build/autogen/Paths_unliftio.hs, dist/build/Paths_unliftio.o, dist/build/Paths_unliftio.dyn_o )
[ 2 of 23] Compiling UnliftIO.Chan ( src/UnliftIO/Chan.hs, dist/build/UnliftIO/Chan.o, dist/build/UnliftIO/Chan.dyn_o )
[ 3 of 23] Compiling UnliftIO.Directory ( src/UnliftIO/Directory.hs, dist/build/UnliftIO/Directory.o, dist/build/UnliftIO/Directory.dyn_o )
[ 4 of 23] Compiling UnliftIO.Environment ( src/UnliftIO/Environment.hs, dist/build/UnliftIO/Environment.o, dist/build/UnliftIO/Environment.dyn_o )
[ 5 of 23] Compiling UnliftIO.Exception ( src/UnliftIO/Exception.hs, dist/build/UnliftIO/Exception.o, dist/build/UnliftIO/Exception.dyn_o )
[ 6 of 23] Compiling UnliftIO.Exception.Lens ( src/UnliftIO/Exception/Lens.hs, dist/build/UnliftIO/Exception/Lens.o, dist/build/UnliftIO/Exception/Lens.dyn_o )
[ 7 of 23] Compiling UnliftIO.Foreign ( src/UnliftIO/Foreign.hs, dist/build/UnliftIO/Foreign.o, dist/build/UnliftIO/Foreign.dyn_o )
[ 8 of 23] Compiling UnliftIO.IO ( src/UnliftIO/IO.hs, dist/build/UnliftIO/IO.o, dist/build/UnliftIO/IO.dyn_o )
[ 9 of 23] Compiling UnliftIO.IORef ( src/UnliftIO/IORef.hs, dist/build/UnliftIO/IORef.o, dist/build/UnliftIO/IORef.dyn_o )
[10 of 23] Compiling UnliftIO.Internals.Async ( src/UnliftIO/Internals/Async.hs, dist/build/UnliftIO/Internals/Async.o, dist/build/UnliftIO/Internals/Async.dyn_o )
[11 of 23] Compiling UnliftIO.Async ( src/UnliftIO/Async.hs, dist/build/UnliftIO/Async.o, dist/build/UnliftIO/Async.dyn_o )
[12 of 23] Compiling UnliftIO.MVar ( src/UnliftIO/MVar.hs, dist/build/UnliftIO/MVar.o, dist/build/UnliftIO/MVar.dyn_o )
[13 of 23] Compiling UnliftIO.IO.File.Posix ( src/UnliftIO/IO/File/Posix.hs, dist/build/UnliftIO/IO/File/Posix.o, dist/build/UnliftIO/IO/File/Posix.dyn_o )
[14 of 23] Compiling UnliftIO.IO.File ( src/UnliftIO/IO/File.hs, dist/build/UnliftIO/IO/File.o, dist/build/UnliftIO/IO/File.dyn_o )
[15 of 23] Compiling UnliftIO.Concurrent ( src/UnliftIO/Concurrent.hs, dist/build/UnliftIO/Concurrent.o, dist/build/UnliftIO/Concurrent.dyn_o )
[16 of 23] Compiling UnliftIO.Memoize ( src/UnliftIO/Memoize.hs, dist/build/UnliftIO/Memoize.o, dist/build/UnliftIO/Memoize.dyn_o )
[17 of 23] Compiling UnliftIO.Process ( src/UnliftIO/Process.hs, dist/build/UnliftIO/Process.o, dist/build/UnliftIO/Process.dyn_o )
[18 of 23] Compiling UnliftIO.QSem ( src/UnliftIO/QSem.hs, dist/build/UnliftIO/QSem.o, dist/build/UnliftIO/QSem.dyn_o )
[19 of 23] Compiling UnliftIO.QSemN ( src/UnliftIO/QSemN.hs, dist/build/UnliftIO/QSemN.o, dist/build/UnliftIO/QSemN.dyn_o )
[20 of 23] Compiling UnliftIO.STM ( src/UnliftIO/STM.hs, dist/build/UnliftIO/STM.o, dist/build/UnliftIO/STM.dyn_o )
[21 of 23] Compiling UnliftIO.Temporary ( src/UnliftIO/Temporary.hs, dist/build/UnliftIO/Temporary.o, dist/build/UnliftIO/Temporary.dyn_o )
[22 of 23] Compiling UnliftIO.Timeout ( src/UnliftIO/Timeout.hs, dist/build/UnliftIO/Timeout.o, dist/build/UnliftIO/Timeout.dyn_o )
[23 of 23] Compiling UnliftIO ( src/UnliftIO.hs, dist/build/UnliftIO.o, dist/build/UnliftIO.dyn_o )
Preprocessing library for unliftio-0.2.25.1..
Running Haddock on library for unliftio-0.2.25.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 23] Compiling Paths_unliftio ( dist/build/autogen/Paths_unliftio.hs, nothing )
[ 2 of 23] Compiling UnliftIO.Chan ( src/UnliftIO/Chan.hs, nothing )
[ 3 of 23] Compiling UnliftIO.Directory ( src/UnliftIO/Directory.hs, nothing )
[ 4 of 23] Compiling UnliftIO.Environment ( src/UnliftIO/Environment.hs, nothing )
[ 5 of 23] Compiling UnliftIO.Exception ( src/UnliftIO/Exception.hs, nothing )
[ 6 of 23] Compiling UnliftIO.Exception.Lens ( src/UnliftIO/Exception/Lens.hs, nothing )
[ 7 of 23] Compiling UnliftIO.Foreign ( src/UnliftIO/Foreign.hs, nothing )
[ 8 of 23] Compiling UnliftIO.IO ( src/UnliftIO/IO.hs, nothing )
[ 9 of 23] Compiling UnliftIO.IORef ( src/UnliftIO/IORef.hs, nothing )
[10 of 23] Compiling UnliftIO.Internals.Async ( src/UnliftIO/Internals/Async.hs, nothing )
[11 of 23] Compiling UnliftIO.Async ( src/UnliftIO/Async.hs, nothing )
[12 of 23] Compiling UnliftIO.MVar ( src/UnliftIO/MVar.hs, nothing )
[13 of 23] Compiling UnliftIO.IO.File.Posix ( src/UnliftIO/IO/File/Posix.hs, nothing )
[14 of 23] Compiling UnliftIO.IO.File ( src/UnliftIO/IO/File.hs, nothing )
[15 of 23] Compiling UnliftIO.Concurrent ( src/UnliftIO/Concurrent.hs, nothing )
[16 of 23] Compiling UnliftIO.Memoize ( src/UnliftIO/Memoize.hs, nothing )
[17 of 23] Compiling UnliftIO.Process ( src/UnliftIO/Process.hs, nothing )
[18 of 23] Compiling UnliftIO.QSem ( src/UnliftIO/QSem.hs, nothing )
[19 of 23] Compiling UnliftIO.QSemN ( src/UnliftIO/QSemN.hs, nothing )
[20 of 23] Compiling UnliftIO.STM ( src/UnliftIO/STM.hs, nothing )
[21 of 23] Compiling UnliftIO.Temporary ( src/UnliftIO/Temporary.hs, nothing )
[22 of 23] Compiling UnliftIO.Timeout ( src/UnliftIO/Timeout.hs, nothing )
[23 of 23] Compiling UnliftIO ( src/UnliftIO.hs, nothing )
Haddock coverage:
100% ( 8 / 8) in 'UnliftIO.Chan'
85% ( 60 / 70) in 'UnliftIO.Directory'
Missing documentation for:
Permissions
emptyPermissions
readable
writable
executable
searchable
setOwnerReadable
setOwnerWritable
setOwnerExecutable
setOwnerSearchable
100% ( 11 / 11) in 'UnliftIO.Environment'
Warning: 'SyncExceptionWrapper' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'AsyncExceptionWrapper' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'StringException' is ambiguous. It is defined
* at src/UnliftIO/Exception.hs:571:24
* at src/UnliftIO/Exception.hs:571:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/UnliftIO/Exception.hs:571:1
Warning: 'm' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 75 / 75) in 'UnliftIO.Exception'
Warning: 'MonadCatch' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 7 / 7) in 'UnliftIO.Exception.Lens'
64% (181 /282) in 'UnliftIO.Foreign'
Missing documentation for:
charIsRepresentable
eOK
e2BIG
eACCES
eADDRINUSE
eADDRNOTAVAIL
eADV
eAFNOSUPPORT
eAGAIN
eALREADY
eBADF
eBADMSG
eBADRPC
eBUSY
eCHILD
eCOMM
eCONNABORTED
eCONNREFUSED
eCONNRESET
eDEADLK
eDESTADDRREQ
eDIRTY
eDOM
eDQUOT
eEXIST
eFAULT
eFBIG
eFTYPE
eHOSTDOWN
eHOSTUNREACH
eIDRM
eILSEQ
eINPROGRESS
eINTR
eINVAL
eIO
eISCONN
eISDIR
eLOOP
eMFILE
eMLINK
eMSGSIZE
eMULTIHOP
eNAMETOOLONG
eNETDOWN
eNETRESET
eNETUNREACH
eNFILE
eNOBUFS
eNODATA
eNODEV
eNOENT
eNOEXEC
eNOLCK
eNOLINK
eNOMEM
eNOMSG
eNONET
eNOPROTOOPT
eNOSPC
eNOSR
eNOSTR
eNOSYS
eNOTBLK
eNOTCONN
eNOTDIR
eNOTEMPTY
eNOTSOCK
eNOTTY
eNXIO
eOPNOTSUPP
ePERM
ePFNOSUPPORT
ePIPE
ePROCLIM
ePROCUNAVAIL
ePROGMISMATCH
ePROGUNAVAIL
ePROTO
ePROTONOSUPPORT
ePROTOTYPE
eRANGE
eREMCHG
eREMOTE
eROFS
eRPCMISMATCH
eRREMOTE
eSHUTDOWN
eSOCKTNOSUPPORT
eSPIPE
eSRCH
eSRMNT
eSTALE
eTIME
eTIMEDOUT
eTOOMANYREFS
eTXTBSY
eUSERS
eWOULDBLOCK
eXDEV
FinalizerEnvPtr
90% ( 28 / 31) in 'UnliftIO.IO'
Missing documentation for:
stdin
stdout
stderr
100% ( 11 / 11) in 'UnliftIO.IORef'
Warning: 'Concurrently' is ambiguous. It is defined
* at src/UnliftIO/Internals/Async.hs:255:28
* at src/UnliftIO/Internals/Async.hs:255:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/UnliftIO/Internals/Async.hs:255:1
85% ( 65 / 76) in 'UnliftIO.Internals.Async'
Missing documentation for:
Module header
dlistConcat (src/UnliftIO/Internals/Async.hs:590)
dlistCons (src/UnliftIO/Internals/Async.hs:594)
dlistConcatAll (src/UnliftIO/Internals/Async.hs:598)
dlistToList (src/UnliftIO/Internals/Async.hs:602)
dlistSingleton (src/UnliftIO/Internals/Async.hs:606)
dlistEmpty (src/UnliftIO/Internals/Async.hs:610)
pooledMapConcurrentlyIO (src/UnliftIO/Internals/Async.hs:940)
pooledMapConcurrentlyIO' (src/UnliftIO/Internals/Async.hs:973)
pooledMapConcurrentlyIO_' (src/UnliftIO/Internals/Async.hs:987)
pooledMapConcurrentlyIO_ (src/UnliftIO/Internals/Async.hs:992)
100% ( 79 / 79) in 'UnliftIO.Async'
100% ( 19 / 19) in 'UnliftIO.MVar'
Warning: 'Fd' is ambiguous. It is defined
* in System.Posix.Types
* in System.Posix.Types
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in System.Posix.Types
Warning: 'DirFd' is ambiguous. It is defined
* at src/UnliftIO/IO/File/Posix.hs:131:17
* at src/UnliftIO/IO/File/Posix.hs:131:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/UnliftIO/IO/File/Posix.hs:131:1
100% ( 10 / 10) in 'UnliftIO.IO.File'
100% ( 34 / 34) in 'UnliftIO.Concurrent'
Warning: 'Memoized' is ambiguous. It is defined
* at src/UnliftIO/Memoize.hs:33:22
* at src/UnliftIO/Memoize.hs:33:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/UnliftIO/Memoize.hs:33:1
100% ( 5 / 5) in 'UnliftIO.Memoize'
90% ( 27 / 30) in 'UnliftIO.Process'
Missing documentation for:
CreateProcess
CmdSpec
StdStream
100% ( 6 / 6) in 'UnliftIO.QSem'
100% ( 6 / 6) in 'UnliftIO.QSemN'
100% ( 76 / 76) in 'UnliftIO.STM'
100% ( 5 / 5) in 'UnliftIO.Temporary'
100% ( 2 / 2) in 'UnliftIO.Timeout'
100% ( 14 / 14) in 'UnliftIO'
Warning: UnliftIO.Exception: could not find link destinations for:
- GHC.IOPort.IOPortException
Warning: UnliftIO.Exception.Lens: could not find link destinations for:
- UnliftIO.Exception.Lens.Getting
Warning: UnliftIO.Foreign: could not find link destinations for:
- GHC.Generics.D:R:UReckPtrp0
- GHC.Generics.Rep_R:UReckPtrp
- GHC.Generics.Rep1_R:UReckPtrp
- System.Posix.Files.Common.CTimeSpec
- System.Posix.Files.Common.CTimeVal
Warning: UnliftIO.Internals.Async: could not find link destinations for:
- UnliftIO.Internals.Async.Rep_ConcException
Warning: UnliftIO.Async: could not find link destinations for:
- UnliftIO.Internals.Async.Rep_ConcException
Warning: UnliftIO.Temporary: could not find link destinations for:
- UnliftIO.Temporary.getCanonicalTemporaryDirectory
Documentation created: dist/doc/html/unliftio/,
dist/doc/html/unliftio/unliftio.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unliftio-0.2.25.1-6Y2v4j3V3MUH5MYSj85STp
Completed unliftio-0.2.25.1
Configuring typed-process-0.2.13.0...
Preprocessing library for typed-process-0.2.13.0..
Building library for typed-process-0.2.13.0..
[1 of 3] Compiling Paths_typed_process ( dist/build/autogen/Paths_typed_process.hs, dist/build/Paths_typed_process.o, dist/build/Paths_typed_process.dyn_o )
[2 of 3] Compiling System.Process.Typed.Internal ( src/System/Process/Typed/Internal.hs, dist/build/System/Process/Typed/Internal.o, dist/build/System/Process/Typed/Internal.dyn_o )
[3 of 3] Compiling System.Process.Typed ( src/System/Process/Typed.hs, dist/build/System/Process/Typed.o, dist/build/System/Process/Typed.dyn_o )
Preprocessing library for typed-process-0.2.13.0..
Running Haddock on library for typed-process-0.2.13.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Paths_typed_process ( dist/build/autogen/Paths_typed_process.hs, nothing )
[2 of 3] Compiling System.Process.Typed.Internal ( src/System/Process/Typed/Internal.hs, nothing )
[3 of 3] Compiling System.Process.Typed ( src/System/Process/Typed.hs, nothing )
Haddock coverage:
Warning: 'ExitCodeException' is ambiguous. It is defined
* at src/System/Process/Typed/Internal.hs:607:26
* at src/System/Process/Typed/Internal.hs:607:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Process/Typed/Internal.hs:607:1
Warning: 'StreamSpec' is ambiguous. It is defined
* at src/System/Process/Typed/Internal.hs:147:48
* at src/System/Process/Typed/Internal.hs:147:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Process/Typed/Internal.hs:147:1
Warning: 'Process' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ProcessConfig' is ambiguous. It is defined
* at src/System/Process/Typed/Internal.hs:70:42
* at src/System/Process/Typed/Internal.hs:70:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Process/Typed/Internal.hs:70:1
Warning: 'stopProcess' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ByteStringOutputException' is ambiguous. It is defined
* at src/System/Process/Typed/Internal.hs:639:34
* at src/System/Process/Typed/Internal.hs:639:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Process/Typed/Internal.hs:639:1
Warning: 'withProcessInterleave' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
95% ( 42 / 44) in 'System.Process.Typed.Internal'
Missing documentation for:
bracket (src/System/Process/Typed/Internal.hs:644)
finally (src/System/Process/Typed/Internal.hs:647)
Warning: 'ProcessConfig' is ambiguous. It is defined
* at src/System/Process/Typed/Internal.hs:70:42
* at src/System/Process/Typed/Internal.hs:70:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Process/Typed/Internal.hs:70:1
Warning: 'ExitCodeException' is ambiguous. It is defined
* at src/System/Process/Typed/Internal.hs:607:26
* at src/System/Process/Typed/Internal.hs:607:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Process/Typed/Internal.hs:607:1
Warning: 'Process' is ambiguous. It is defined
* at src/System/Process/Typed.hs:167:36
* at src/System/Process/Typed.hs:167:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/System/Process/Typed.hs:167:1
98% ( 91 / 92) in 'System.Process.Typed'
Missing documentation for:
StdStream
Warning: System.Process.Typed: could not find link destinations for:
- GHC.IO.Exception.Rep_ExitCode
Documentation created: dist/doc/html/typed-process/,
dist/doc/html/typed-process/typed-process.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/typed-process-0.2.13.0-9A9XYtsEOjBEe0NYl0oK4V
Completed typed-process-0.2.13.0
Configuring streaming-commons-0.2.3.1...
Preprocessing library for streaming-commons-0.2.3.1..
Building library for streaming-commons-0.2.3.1..
[ 1 of 11] Compiling Data.Streaming.ByteString.Builder.Buffer ( Data/Streaming/ByteString/Builder/Buffer.hs, dist/build/Data/Streaming/ByteString/Builder/Buffer.o, dist/build/Data/Streaming/ByteString/Builder/Buffer.dyn_o )
[ 2 of 11] Compiling Data.Streaming.ByteString.Builder ( Data/Streaming/ByteString/Builder.hs, dist/build/Data/Streaming/ByteString/Builder.o, dist/build/Data/Streaming/ByteString/Builder.dyn_o )
[ 3 of 11] Compiling Data.Streaming.FileRead ( Data/Streaming/FileRead.hs, dist/build/Data/Streaming/FileRead.o, dist/build/Data/Streaming/FileRead.dyn_o )
[ 4 of 11] Compiling Data.Streaming.Filesystem ( Data/Streaming/Filesystem.hs, dist/build/Data/Streaming/Filesystem.o, dist/build/Data/Streaming/Filesystem.dyn_o )
[ 5 of 11] Compiling Data.Streaming.Network.Internal ( Data/Streaming/Network/Internal.hs, dist/build/Data/Streaming/Network/Internal.o, dist/build/Data/Streaming/Network/Internal.dyn_o )
[ 6 of 11] Compiling Data.Streaming.Network ( Data/Streaming/Network.hs, dist/build/Data/Streaming/Network.o, dist/build/Data/Streaming/Network.dyn_o )
[ 7 of 11] Compiling Data.Streaming.Process.Internal ( Data/Streaming/Process/Internal.hs, dist/build/Data/Streaming/Process/Internal.o, dist/build/Data/Streaming/Process/Internal.dyn_o )
[ 8 of 11] Compiling Data.Streaming.Process ( Data/Streaming/Process.hs, dist/build/Data/Streaming/Process.o, dist/build/Data/Streaming/Process.dyn_o )
[ 9 of 11] Compiling Data.Streaming.Text ( Data/Streaming/Text.hs, dist/build/Data/Streaming/Text.o, dist/build/Data/Streaming/Text.dyn_o )
[10 of 11] Compiling Data.Streaming.Zlib.Lowlevel ( Data/Streaming/Zlib/Lowlevel.hs, dist/build/Data/Streaming/Zlib/Lowlevel.o, dist/build/Data/Streaming/Zlib/Lowlevel.dyn_o )
Data/Streaming/Zlib/Lowlevel.hs:105:1: warning: [GHC-53633] [-Woverlapping-patterns]
Pattern match is redundant
In an equation for wbToInt: wbToInt _ = ...
|
105 | wbToInt _ = 15
| ^^^^^^^^^^^^^^
[11 of 11] Compiling Data.Streaming.Zlib ( Data/Streaming/Zlib.hs, dist/build/Data/Streaming/Zlib.o, dist/build/Data/Streaming/Zlib.dyn_o )
Preprocessing library for streaming-commons-0.2.3.1..
Running Haddock on library for streaming-commons-0.2.3.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 11] Compiling Data.Streaming.ByteString.Builder.Buffer ( Data/Streaming/ByteString/Builder/Buffer.hs, nothing )
[ 2 of 11] Compiling Data.Streaming.ByteString.Builder ( Data/Streaming/ByteString/Builder.hs, nothing )
[ 3 of 11] Compiling Data.Streaming.FileRead ( Data/Streaming/FileRead.hs, nothing )
[ 4 of 11] Compiling Data.Streaming.Filesystem ( Data/Streaming/Filesystem.hs, nothing )
[ 5 of 11] Compiling Data.Streaming.Network.Internal ( Data/Streaming/Network/Internal.hs, nothing )
[ 6 of 11] Compiling Data.Streaming.Network ( Data/Streaming/Network.hs, nothing )
[ 7 of 11] Compiling Data.Streaming.Process.Internal ( Data/Streaming/Process/Internal.hs, nothing )
[ 8 of 11] Compiling Data.Streaming.Process ( Data/Streaming/Process.hs, nothing )
[ 9 of 11] Compiling Data.Streaming.Text ( Data/Streaming/Text.hs, nothing )
[10 of 11] Compiling Data.Streaming.Zlib.Lowlevel ( Data/Streaming/Zlib/Lowlevel.hs, nothing )
[11 of 11] Compiling Data.Streaming.Zlib ( Data/Streaming/Zlib.hs, nothing )
Haddock coverage:
Warning: 'Builder' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
95% ( 19 / 20) in 'Data.Streaming.ByteString.Builder.Buffer'
Missing documentation for:
defaultStrategy (Data/Streaming/ByteString/Builder/Buffer.hs:199)
Warning: 'toLazyByteStringWith' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
82% ( 23 / 28) in 'Data.Streaming.ByteString.Builder'
Missing documentation for:
BuilderRecv (Data/Streaming/ByteString/Builder.hs:75)
BuilderFinish (Data/Streaming/ByteString/Builder.hs:77)
newBuilderRecv (Data/Streaming/ByteString/Builder.hs:80)
newByteStringBuilderRecv (Data/Streaming/ByteString/Builder.hs:84)
defaultStrategy (Data/Streaming/ByteString/Builder/Buffer.hs:199)
20% ( 1 / 5) in 'Data.Streaming.FileRead'
Missing documentation for:
ReadHandle (Data/Streaming/FileRead.hs:26)
openFile (Data/Streaming/FileRead.hs:29)
closeFile (Data/Streaming/FileRead.hs:32)
readChunk (Data/Streaming/FileRead.hs:35)
42% ( 3 / 7) in 'Data.Streaming.Filesystem'
Missing documentation for:
DirStream
readDirStream (Data/Streaming/Filesystem.hs:67)
FileType (Data/Streaming/Filesystem.hs:94)
getFileType (Data/Streaming/Filesystem.hs:76)
88% ( 8 / 9) in 'Data.Streaming.Network.Internal'
Missing documentation for:
Module header
Warning: 'maxListenQueue' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
68% ( 52 / 76) in 'Data.Streaming.Network'
Missing documentation for:
Module header
message (Data/Streaming/Network.hs:453)
HasPort (Data/Streaming/Network.hs:455)
HasAfterBind (Data/Streaming/Network.hs:505)
HasReadWrite (Data/Streaming/Network.hs:619)
HasPath (Data/Streaming/Network.hs:486)
setPort (Data/Streaming/Network.hs:466)
setHost (Data/Streaming/Network.hs:469)
setAfterBind (Data/Streaming/Network.hs:516)
setNeedLocalAddr (Data/Streaming/Network.hs:500)
setPath (Data/Streaming/Network.hs:497)
getPort (Data/Streaming/Network.hs:463)
getHost (Data/Streaming/Network.hs:472)
getAfterBind (Data/Streaming/Network.hs:513)
getNeedLocalAddr (Data/Streaming/Network.hs:503)
getPath (Data/Streaming/Network.hs:494)
appRead (Data/Streaming/Network.hs:630)
appWrite (Data/Streaming/Network.hs:633)
appSockAddr (Data/Streaming/Network.hs:604)
appLocalAddr (Data/Streaming/Network.hs:601)
unassignedPorts (Data/Streaming/Network.hs:213)
safeRecv (Data/Streaming/Network.hs:319)
ConnectionHandle (Data/Streaming/Network.hs:546)
runTCPServerWithHandle (Data/Streaming/Network.hs:549)
75% ( 3 / 4) in 'Data.Streaming.Process.Internal'
Missing documentation for:
Module header
Warning: 'UseProvidedHandle' is ambiguous. It is defined
* at Data/Streaming/Process.hs:73:26
* at Data/Streaming/Process.hs:73:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Streaming/Process.hs:73:1
Warning: 'ProcessExitedUnsuccessfully' is ambiguous. It is defined
* at Data/Streaming/Process.hs:196:36
* at Data/Streaming/Process.hs:196:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Streaming/Process.hs:196:1
100% ( 24 / 24) in 'Data.Streaming.Process'
90% ( 9 / 10) in 'Data.Streaming.Text'
Missing documentation for:
DecodeResult (Data/Streaming/Text.hs:91)
0% ( 0 / 21) in 'Data.Streaming.Zlib.Lowlevel'
Missing documentation for:
Module header
ZStreamStruct (Data/Streaming/Zlib/Lowlevel.hs:31)
ZStream' (Data/Streaming/Zlib/Lowlevel.hs:32)
zstreamNew (Data/Streaming/Zlib/Lowlevel.hs:42)
Strategy (Data/Streaming/Zlib/Lowlevel.hs:34)
deflateInit2 (Data/Streaming/Zlib/Lowlevel.hs:50)
inflateInit2 (Data/Streaming/Zlib/Lowlevel.hs:59)
c_free_z_stream_inflate (Data/Streaming/Zlib/Lowlevel.hs:61)
c_free_z_stream_deflate (Data/Streaming/Zlib/Lowlevel.hs:64)
c_set_avail_in (Data/Streaming/Zlib/Lowlevel.hs:67)
c_set_avail_out (Data/Streaming/Zlib/Lowlevel.hs:70)
c_get_avail_out (Data/Streaming/Zlib/Lowlevel.hs:73)
c_get_avail_in (Data/Streaming/Zlib/Lowlevel.hs:76)
c_get_next_in (Data/Streaming/Zlib/Lowlevel.hs:79)
c_call_inflate_noflush (Data/Streaming/Zlib/Lowlevel.hs:82)
c_call_deflate_noflush (Data/Streaming/Zlib/Lowlevel.hs:85)
c_call_deflate_finish (Data/Streaming/Zlib/Lowlevel.hs:88)
c_call_deflate_flush (Data/Streaming/Zlib/Lowlevel.hs:91)
c_call_deflate_full_flush (Data/Streaming/Zlib/Lowlevel.hs:94)
c_call_deflate_set_dictionary (Data/Streaming/Zlib/Lowlevel.hs:97)
c_call_inflate_set_dictionary (Data/Streaming/Zlib/Lowlevel.hs:100)
Warning: 'WindowBits' is ambiguous. It is defined
* in Codec.Compression.Zlib.Stream
* in Codec.Compression.Zlib.Stream
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Codec.Compression.Zlib.Stream
Warning: 'Inflate' is ambiguous. It is defined
* at Data/Streaming/Zlib.hs:64:16
* at Data/Streaming/Zlib.hs:64:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Streaming/Zlib.hs:64:1
Warning: 'Deflate' is ambiguous. It is defined
* at Data/Streaming/Zlib.hs:72:19
* at Data/Streaming/Zlib.hs:72:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Streaming/Zlib.hs:72:1
95% ( 23 / 24) in 'Data.Streaming.Zlib'
Missing documentation for:
PopperRes (Data/Streaming/Zlib.hs:218)
Warning: Data.Streaming.Zlib: could not find link destinations for:
- Codec.Compression.Zlib.Stream.Rep_WindowBits
Documentation created: dist/doc/html/streaming-commons/,
dist/doc/html/streaming-commons/streaming-commons.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/streaming-commons-0.2.3.1-24OpMaheYh8GczZhL2Py4J
Completed streaming-commons-0.2.3.1
Configuring quickcheck-io-0.2.0...
Preprocessing library for quickcheck-io-0.2.0..
Building library for quickcheck-io-0.2.0..
[1 of 2] Compiling Paths_quickcheck_io ( dist/build/autogen/Paths_quickcheck_io.hs, dist/build/Paths_quickcheck_io.o, dist/build/Paths_quickcheck_io.dyn_o )
[2 of 2] Compiling Test.QuickCheck.IO ( src/Test/QuickCheck/IO.hs, dist/build/Test/QuickCheck/IO.o, dist/build/Test/QuickCheck/IO.dyn_o )
Preprocessing library for quickcheck-io-0.2.0..
Running Haddock on library for quickcheck-io-0.2.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 2] Compiling Paths_quickcheck_io ( dist/build/autogen/Paths_quickcheck_io.hs, nothing )
[2 of 2] Compiling Test.QuickCheck.IO ( src/Test/QuickCheck/IO.hs, nothing )
Haddock coverage:
0% ( 0 / 2) in 'Test.QuickCheck.IO'
Missing documentation for:
Module header
propertyIO (src/Test/QuickCheck/IO.hs:18)
Documentation created: dist/doc/html/quickcheck-io/,
dist/doc/html/quickcheck-io/quickcheck-io.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/quickcheck-io-0.2.0-BcLLiI5bdZdIMQGhzPZTi3
Completed quickcheck-io-0.2.0
Configuring bifunctors-5.6.2...
Preprocessing library for bifunctors-5.6.2..
Building library for bifunctors-5.6.2..
[ 1 of 15] Compiling Data.Biapplicative ( src/Data/Biapplicative.hs, dist/build/Data/Biapplicative.o, dist/build/Data/Biapplicative.dyn_o )
[ 2 of 15] Compiling Data.Bifunctor.Biap ( src/Data/Bifunctor/Biap.hs, dist/build/Data/Bifunctor/Biap.o, dist/build/Data/Bifunctor/Biap.dyn_o )
[ 3 of 15] Compiling Data.Bifunctor.Biff ( src/Data/Bifunctor/Biff.hs, dist/build/Data/Bifunctor/Biff.o, dist/build/Data/Bifunctor/Biff.dyn_o )
[ 4 of 15] Compiling Data.Bifunctor.Clown ( src/Data/Bifunctor/Clown.hs, dist/build/Data/Bifunctor/Clown.o, dist/build/Data/Bifunctor/Clown.dyn_o )
[ 5 of 15] Compiling Data.Bifunctor.Fix ( src/Data/Bifunctor/Fix.hs, dist/build/Data/Bifunctor/Fix.o, dist/build/Data/Bifunctor/Fix.dyn_o )
[ 6 of 15] Compiling Data.Bifunctor.Functor ( src/Data/Bifunctor/Functor.hs, dist/build/Data/Bifunctor/Functor.o, dist/build/Data/Bifunctor/Functor.dyn_o )
[ 7 of 15] Compiling Data.Bifunctor.Flip ( src/Data/Bifunctor/Flip.hs, dist/build/Data/Bifunctor/Flip.o, dist/build/Data/Bifunctor/Flip.dyn_o )
[ 8 of 15] Compiling Data.Bifunctor.Join ( src/Data/Bifunctor/Join.hs, dist/build/Data/Bifunctor/Join.o, dist/build/Data/Bifunctor/Join.dyn_o )
[ 9 of 15] Compiling Data.Bifunctor.Joker ( src/Data/Bifunctor/Joker.hs, dist/build/Data/Bifunctor/Joker.o, dist/build/Data/Bifunctor/Joker.dyn_o )
[10 of 15] Compiling Data.Bifunctor.Product ( src/Data/Bifunctor/Product.hs, dist/build/Data/Bifunctor/Product.o, dist/build/Data/Bifunctor/Product.dyn_o )
[11 of 15] Compiling Data.Bifunctor.Sum ( src/Data/Bifunctor/Sum.hs, dist/build/Data/Bifunctor/Sum.o, dist/build/Data/Bifunctor/Sum.dyn_o )
[12 of 15] Compiling Data.Bifunctor.TH.Internal ( src/Data/Bifunctor/TH/Internal.hs, dist/build/Data/Bifunctor/TH/Internal.o, dist/build/Data/Bifunctor/TH/Internal.dyn_o )
[13 of 15] Compiling Data.Bifunctor.TH ( src/Data/Bifunctor/TH.hs, dist/build/Data/Bifunctor/TH.o, dist/build/Data/Bifunctor/TH.dyn_o )
[14 of 15] Compiling Data.Bifunctor.Tannen ( src/Data/Bifunctor/Tannen.hs, dist/build/Data/Bifunctor/Tannen.o, dist/build/Data/Bifunctor/Tannen.dyn_o )
[15 of 15] Compiling Data.Bifunctor.Wrapped ( src/Data/Bifunctor/Wrapped.hs, dist/build/Data/Bifunctor/Wrapped.o, dist/build/Data/Bifunctor/Wrapped.dyn_o )
Preprocessing library for bifunctors-5.6.2..
Running Haddock on library for bifunctors-5.6.2..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 15] Compiling Data.Biapplicative ( src/Data/Biapplicative.hs, nothing )
[ 2 of 15] Compiling Data.Bifunctor.Biap ( src/Data/Bifunctor/Biap.hs, nothing )
[ 3 of 15] Compiling Data.Bifunctor.Biff ( src/Data/Bifunctor/Biff.hs, nothing )
[ 4 of 15] Compiling Data.Bifunctor.Clown ( src/Data/Bifunctor/Clown.hs, nothing )
[ 5 of 15] Compiling Data.Bifunctor.Fix ( src/Data/Bifunctor/Fix.hs, nothing )
[ 6 of 15] Compiling Data.Bifunctor.Functor ( src/Data/Bifunctor/Functor.hs, nothing )
[ 7 of 15] Compiling Data.Bifunctor.Flip ( src/Data/Bifunctor/Flip.hs, nothing )
[ 8 of 15] Compiling Data.Bifunctor.Join ( src/Data/Bifunctor/Join.hs, nothing )
[ 9 of 15] Compiling Data.Bifunctor.Joker ( src/Data/Bifunctor/Joker.hs, nothing )
[10 of 15] Compiling Data.Bifunctor.Product ( src/Data/Bifunctor/Product.hs, nothing )
[11 of 15] Compiling Data.Bifunctor.Sum ( src/Data/Bifunctor/Sum.hs, nothing )
[12 of 15] Compiling Data.Bifunctor.TH.Internal ( src/Data/Bifunctor/TH/Internal.hs, nothing )
[13 of 15] Compiling Data.Bifunctor.TH ( src/Data/Bifunctor/TH.hs, nothing )
[14 of 15] Compiling Data.Bifunctor.Tannen ( src/Data/Bifunctor/Tannen.hs, nothing )
[15 of 15] Compiling Data.Bifunctor.Wrapped ( src/Data/Bifunctor/Wrapped.hs, nothing )
Haddock coverage:
70% ( 7 / 10) in 'Data.Biapplicative'
Missing documentation for:
Biapplicative (src/Data/Biapplicative.hs:44)
<<$>> (src/Data/Biapplicative.hs:41)
<<**>> (src/Data/Biapplicative.hs:74)
Warning: 'Biap' is ambiguous. It is defined
* at src/Data/Bifunctor/Biap.hs:67:23
* at src/Data/Bifunctor/Biap.hs:67:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Bifunctor/Biap.hs:67:1
100% ( 2 / 2) in 'Data.Bifunctor.Biap'
100% ( 2 / 2) in 'Data.Bifunctor.Biff'
100% ( 2 / 2) in 'Data.Bifunctor.Clown'
100% ( 2 / 2) in 'Data.Bifunctor.Fix'
14% ( 1 / 7) in 'Data.Bifunctor.Functor'
Missing documentation for:
Module header
BifunctorFunctor (src/Data/Bifunctor/Functor.hs:19)
BifunctorMonad (src/Data/Bifunctor/Functor.hs:22)
biliftM (src/Data/Bifunctor/Functor.hs:31)
BifunctorComonad (src/Data/Bifunctor/Functor.hs:34)
biliftW (src/Data/Bifunctor/Functor.hs:43)
100% ( 2 / 2) in 'Data.Bifunctor.Flip'
100% ( 2 / 2) in 'Data.Bifunctor.Join'
100% ( 2 / 2) in 'Data.Bifunctor.Joker'
100% ( 2 / 2) in 'Data.Bifunctor.Product'
0% ( 0 / 2) in 'Data.Bifunctor.Sum'
Missing documentation for:
Module header
Sum (src/Data/Bifunctor/Sum.hs:22)
Warning: 'Name' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* in Language.Haskell.TH.Syntax
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Syntax
Warning: 'Options' is ambiguous. It is defined
* at src/Data/Bifunctor/TH.hs:77:19
* at src/Data/Bifunctor/TH.hs:77:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Bifunctor/TH.hs:77:1
Warning: 'bimap' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'bifoldMap' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'bifoldr' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'bifoldl' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'bitraverse' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'bisequenceA' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'makeBitraverseA' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'bimapM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'bisequence' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Name' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* in Language.Haskell.TH.Syntax
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Syntax
96% ( 32 / 33) in 'Data.Bifunctor.TH'
Missing documentation for:
makeBifold (src/Data/Bifunctor/TH.hs:217)
100% ( 2 / 2) in 'Data.Bifunctor.Tannen'
100% ( 2 / 2) in 'Data.Bifunctor.Wrapped'
Warning: Data.Bifunctor.Biap: could not find link destinations for:
- Data.Bifunctor.Biap.Rep_Biap
- Data.Bifunctor.Biap.Rep1_Biap
Warning: Data.Bifunctor.Biff: could not find link destinations for:
- Data.Bifunctor.Biff.Rep1_Biff
- Data.Bifunctor.Biff.Rep_Biff
Warning: Data.Bifunctor.Clown: could not find link destinations for:
- Data.Bifunctor.Clown.Rep_Clown
- Data.Bifunctor.Clown.Rep1_Clown
Warning: Data.Bifunctor.Fix: could not find link destinations for:
- Data.Bifunctor.Fix.Rep_Fix
Warning: Data.Bifunctor.Flip: could not find link destinations for:
- Data.Bifunctor.Flip.Rep_Flip
Warning: Data.Bifunctor.Join: could not find link destinations for:
- Data.Bifunctor.Join.Rep_Join
Warning: Data.Bifunctor.Joker: could not find link destinations for:
- Data.Bifunctor.Joker.Rep_Joker
- Data.Bifunctor.Joker.Rep1_Joker
Warning: Data.Bifunctor.Product: could not find link destinations for:
- Data.Bifunctor.Product.Rep_Product
- Data.Bifunctor.Product.Rep1_Product
Warning: Data.Bifunctor.Sum: could not find link destinations for:
- Data.Bifunctor.Sum.Rep_Sum
- Data.Bifunctor.Sum.Rep1_Sum
Warning: Data.Bifunctor.TH: could not find link destinations for:
- Data.Bifunctor.TH.Bifunctor
- Data.Bifunctor.TH.Bifoldable
- Data.Bifunctor.TH.Bitraversable
Warning: Data.Bifunctor.Tannen: could not find link destinations for:
- Data.Bifunctor.Tannen.Rep1_Tannen
- Data.Bifunctor.Tannen.Rep_Tannen
Warning: Data.Bifunctor.Wrapped: could not find link destinations for:
- Data.Bifunctor.Wrapped.Rep_WrappedBifunctor
- Data.Bifunctor.Wrapped.Rep1_WrappedBifunctor
Documentation created: dist/doc/html/bifunctors/,
dist/doc/html/bifunctors/bifunctors.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/bifunctors-5.6.2-GFSN9WtyvrIH3Py3OMWv09
Completed bifunctors-5.6.2
Configuring lifted-base-0.2.3.12...
Preprocessing library for lifted-base-0.2.3.12..
Building library for lifted-base-0.2.3.12..
[1 of 9] Compiling Control.Concurrent.Chan.Lifted ( Control/Concurrent/Chan/Lifted.hs, dist/build/Control/Concurrent/Chan/Lifted.o, dist/build/Control/Concurrent/Chan/Lifted.dyn_o )
[2 of 9] Compiling Control.Concurrent.MVar.Lifted ( Control/Concurrent/MVar/Lifted.hs, dist/build/Control/Concurrent/MVar/Lifted.o, dist/build/Control/Concurrent/MVar/Lifted.dyn_o )
[3 of 9] Compiling Control.Concurrent.QSem.Lifted ( Control/Concurrent/QSem/Lifted.hs, dist/build/Control/Concurrent/QSem/Lifted.o, dist/build/Control/Concurrent/QSem/Lifted.dyn_o )
[4 of 9] Compiling Control.Concurrent.QSemN.Lifted ( Control/Concurrent/QSemN/Lifted.hs, dist/build/Control/Concurrent/QSemN/Lifted.o, dist/build/Control/Concurrent/QSemN/Lifted.dyn_o )
[5 of 9] Compiling Control.Exception.Lifted ( Control/Exception/Lifted.hs, dist/build/Control/Exception/Lifted.o, dist/build/Control/Exception/Lifted.dyn_o )
[6 of 9] Compiling Control.Concurrent.Lifted ( Control/Concurrent/Lifted.hs, dist/build/Control/Concurrent/Lifted.o, dist/build/Control/Concurrent/Lifted.dyn_o )
[7 of 9] Compiling Data.IORef.Lifted ( Data/IORef/Lifted.hs, dist/build/Data/IORef/Lifted.o, dist/build/Data/IORef/Lifted.dyn_o )
[8 of 9] Compiling Foreign.Marshal.Utils.Lifted ( Foreign/Marshal/Utils/Lifted.hs, dist/build/Foreign/Marshal/Utils/Lifted.o, dist/build/Foreign/Marshal/Utils/Lifted.dyn_o )
[9 of 9] Compiling System.Timeout.Lifted ( System/Timeout/Lifted.hs, dist/build/System/Timeout/Lifted.o, dist/build/System/Timeout/Lifted.dyn_o )
Preprocessing library for lifted-base-0.2.3.12..
Running Haddock on library for lifted-base-0.2.3.12..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 9] Compiling Control.Concurrent.Chan.Lifted ( Control/Concurrent/Chan/Lifted.hs, nothing )
[2 of 9] Compiling Control.Concurrent.MVar.Lifted ( Control/Concurrent/MVar/Lifted.hs, nothing )
[3 of 9] Compiling Control.Concurrent.QSem.Lifted ( Control/Concurrent/QSem/Lifted.hs, nothing )
[4 of 9] Compiling Control.Concurrent.QSemN.Lifted ( Control/Concurrent/QSemN/Lifted.hs, nothing )
[5 of 9] Compiling Control.Exception.Lifted ( Control/Exception/Lifted.hs, nothing )
[6 of 9] Compiling Control.Concurrent.Lifted ( Control/Concurrent/Lifted.hs, nothing )
[7 of 9] Compiling Data.IORef.Lifted ( Data/IORef/Lifted.hs, nothing )
[8 of 9] Compiling Foreign.Marshal.Utils.Lifted ( Foreign/Marshal/Utils/Lifted.hs, nothing )
[9 of 9] Compiling System.Timeout.Lifted ( System/Timeout/Lifted.hs, nothing )
Haddock coverage:
100% ( 8 / 8) in 'Control.Concurrent.Chan.Lifted'
100% ( 19 / 19) in 'Control.Concurrent.MVar.Lifted'
100% ( 5 / 5) in 'Control.Concurrent.QSem.Lifted'
100% ( 5 / 5) in 'Control.Concurrent.QSemN.Lifted'
Warning: 'liftBaseOp' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 64 / 64) in 'Control.Exception.Lifted'
100% ( 36 / 36) in 'Control.Concurrent.Lifted'
100% ( 11 / 11) in 'Data.IORef.Lifted'
Warning: 'MonadBase' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 2 / 2) in 'Foreign.Marshal.Utils.Lifted'
100% ( 2 / 2) in 'System.Timeout.Lifted'
Warning: Control.Exception.Lifted: could not find link destinations for:
- GHC.IOPort.IOPortException
Documentation created: dist/doc/html/lifted-base/,
dist/doc/html/lifted-base/lifted-base.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/lifted-base-0.2.3.12-iHp5K1HUqL4vslGQBQOkt
Completed lifted-base-0.2.3.12
Configuring optparse-applicative-0.19.0.0...
Preprocessing library for optparse-applicative-0.19.0.0..
Building library for optparse-applicative-0.19.0.0..
[ 1 of 17] Compiling Options.Applicative.Help.Levenshtein ( src/Options/Applicative/Help/Levenshtein.hs, dist/build/Options/Applicative/Help/Levenshtein.o, dist/build/Options/Applicative/Help/Levenshtein.dyn_o )
src/Options/Applicative/Help/Levenshtein.hs:24:20: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
24 | oneDiag a b (head uppers) (-1 : head lowers)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:24:39: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
24 | oneDiag a b (head uppers) (-1 : head lowers)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:40:53: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:40:62: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:48:27: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
48 | 1 + min3 (head w) nw (head n)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:48:39: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
48 | 1 + min3 (head w) nw (head n)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:50:35: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
50 | me : doDiag as bs me (tail n) (tail w)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:50:44: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
50 | me : doDiag as bs me (tail n) (tail w)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:52:24: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
52 | firstelt = 1 + head diagBelow
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:53:64: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
53 | thisdiag = firstelt : doDiag a' b' firstelt diagAbove (tail diagBelow)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:59:20: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
59 | nextDiag = head (tail diags)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:59:26: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
59 | nextDiag = head (tail diags)
| ^^^^
[ 2 of 17] Compiling Options.Applicative.Help.Pretty ( src/Options/Applicative/Help/Pretty.hs, dist/build/Options/Applicative/Help/Pretty.o, dist/build/Options/Applicative/Help/Pretty.dyn_o )
[ 3 of 17] Compiling Options.Applicative.Help.Chunk ( src/Options/Applicative/Help/Chunk.hs, dist/build/Options/Applicative/Help/Chunk.o, dist/build/Options/Applicative/Help/Chunk.dyn_o )
[ 4 of 17] Compiling Options.Applicative.Help.Types ( src/Options/Applicative/Help/Types.hs, dist/build/Options/Applicative/Help/Types.o, dist/build/Options/Applicative/Help/Types.dyn_o )
[ 5 of 17] Compiling Options.Applicative.Types ( src/Options/Applicative/Types.hs, dist/build/Options/Applicative/Types.o, dist/build/Options/Applicative/Types.dyn_o )
src/Options/Applicative/Types.hs:59:31: warning: [GHC-61689] [-Wdodgy-imports]
Module Data.Semigroup does not export Option.
|
59 | import Data.Semigroup hiding (Option)
| ^^^^^^
[ 6 of 17] Compiling Options.Applicative.NonEmpty ( src/Options/Applicative/NonEmpty.hs, dist/build/Options/Applicative/NonEmpty.o, dist/build/Options/Applicative/NonEmpty.dyn_o )
[ 7 of 17] Compiling Options.Applicative.Internal ( src/Options/Applicative/Internal.hs, dist/build/Options/Applicative/Internal.o, dist/build/Options/Applicative/Internal.dyn_o )
[ 8 of 17] Compiling Options.Applicative.Common ( src/Options/Applicative/Common.hs, dist/build/Options/Applicative/Common.o, dist/build/Options/Applicative/Common.dyn_o )
[ 9 of 17] Compiling Options.Applicative.Help.Core ( src/Options/Applicative/Help/Core.hs, dist/build/Options/Applicative/Help/Core.o, dist/build/Options/Applicative/Help/Core.dyn_o )
[10 of 17] Compiling Options.Applicative.Help ( src/Options/Applicative/Help.hs, dist/build/Options/Applicative/Help.o, dist/build/Options/Applicative/Help.dyn_o )
[11 of 17] Compiling Options.Applicative.Builder.Internal ( src/Options/Applicative/Builder/Internal.hs, dist/build/Options/Applicative/Builder/Internal.o, dist/build/Options/Applicative/Builder/Internal.dyn_o )
src/Options/Applicative/Builder/Internal.hs:29:31: warning: [GHC-61689] [-Wdodgy-imports]
Module Data.Semigroup does not export Option.
|
29 | import Data.Semigroup hiding (Option)
| ^^^^^^
[12 of 17] Compiling Options.Applicative.Builder.Completer ( src/Options/Applicative/Builder/Completer.hs, dist/build/Options/Applicative/Builder/Completer.o, dist/build/Options/Applicative/Builder/Completer.dyn_o )
[13 of 17] Compiling Options.Applicative.Builder ( src/Options/Applicative/Builder.hs, dist/build/Options/Applicative/Builder.o, dist/build/Options/Applicative/Builder.dyn_o )
[14 of 17] Compiling Options.Applicative.BashCompletion ( src/Options/Applicative/BashCompletion.hs, dist/build/Options/Applicative/BashCompletion.o, dist/build/Options/Applicative/BashCompletion.dyn_o )
src/Options/Applicative/BashCompletion.hs:16:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Foldable is redundant
except perhaps to import instances from Data.Foldable
To import instances alone, use: import Data.Foldable()
|
16 | import Data.Foldable ( asum )
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[15 of 17] Compiling Options.Applicative.Extra ( src/Options/Applicative/Extra.hs, dist/build/Options/Applicative/Extra.o, dist/build/Options/Applicative/Extra.dyn_o )
[16 of 17] Compiling Options.Applicative ( src/Options/Applicative.hs, dist/build/Options/Applicative.o, dist/build/Options/Applicative.dyn_o )
[17 of 17] Compiling Options.Applicative.Arrows ( src/Options/Applicative/Arrows.hs, dist/build/Options/Applicative/Arrows.o, dist/build/Options/Applicative/Arrows.dyn_o )
Preprocessing library for optparse-applicative-0.19.0.0..
Running Haddock on library for optparse-applicative-0.19.0.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 17] Compiling Options.Applicative.Help.Levenshtein ( src/Options/Applicative/Help/Levenshtein.hs, nothing )
src/Options/Applicative/Help/Levenshtein.hs:24:20: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
24 | oneDiag a b (head uppers) (-1 : head lowers)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:24:39: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
24 | oneDiag a b (head uppers) (-1 : head lowers)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:40:53: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:40:62: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:48:27: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
48 | 1 + min3 (head w) nw (head n)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:48:39: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
48 | 1 + min3 (head w) nw (head n)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:50:35: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
50 | me : doDiag as bs me (tail n) (tail w)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:50:44: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
50 | me : doDiag as bs me (tail n) (tail w)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:52:24: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
52 | firstelt = 1 + head diagBelow
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:53:64: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
53 | thisdiag = firstelt : doDiag a' b' firstelt diagAbove (tail diagBelow)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:59:20: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
59 | nextDiag = head (tail diags)
| ^^^^
src/Options/Applicative/Help/Levenshtein.hs:59:26: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
59 | nextDiag = head (tail diags)
| ^^^^
[ 2 of 17] Compiling Options.Applicative.Help.Pretty ( src/Options/Applicative/Help/Pretty.hs, nothing )
[ 3 of 17] Compiling Options.Applicative.Help.Chunk ( src/Options/Applicative/Help/Chunk.hs, nothing )
[ 4 of 17] Compiling Options.Applicative.Help.Types ( src/Options/Applicative/Help/Types.hs, nothing )
[ 5 of 17] Compiling Options.Applicative.Types ( src/Options/Applicative/Types.hs, nothing )
src/Options/Applicative/Types.hs:59:31: warning: [GHC-61689] [-Wdodgy-imports]
Module Data.Semigroup does not export Option.
|
59 | import Data.Semigroup hiding (Option)
| ^^^^^^
[ 6 of 17] Compiling Options.Applicative.NonEmpty ( src/Options/Applicative/NonEmpty.hs, nothing )
[ 7 of 17] Compiling Options.Applicative.Internal ( src/Options/Applicative/Internal.hs, nothing )
[ 8 of 17] Compiling Options.Applicative.Common ( src/Options/Applicative/Common.hs, nothing )
[ 9 of 17] Compiling Options.Applicative.Help.Core ( src/Options/Applicative/Help/Core.hs, nothing )
[10 of 17] Compiling Options.Applicative.Help ( src/Options/Applicative/Help.hs, nothing )
[11 of 17] Compiling Options.Applicative.Builder.Internal ( src/Options/Applicative/Builder/Internal.hs, nothing )
src/Options/Applicative/Builder/Internal.hs:29:31: warning: [GHC-61689] [-Wdodgy-imports]
Module Data.Semigroup does not export Option.
|
29 | import Data.Semigroup hiding (Option)
| ^^^^^^
[12 of 17] Compiling Options.Applicative.Builder.Completer ( src/Options/Applicative/Builder/Completer.hs, nothing )
[13 of 17] Compiling Options.Applicative.Builder ( src/Options/Applicative/Builder.hs, nothing )
[14 of 17] Compiling Options.Applicative.BashCompletion ( src/Options/Applicative/BashCompletion.hs, nothing )
src/Options/Applicative/BashCompletion.hs:16:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Foldable is redundant
except perhaps to import instances from Data.Foldable
To import instances alone, use: import Data.Foldable()
|
16 | import Data.Foldable ( asum )
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[15 of 17] Compiling Options.Applicative.Extra ( src/Options/Applicative/Extra.hs, nothing )
[16 of 17] Compiling Options.Applicative ( src/Options/Applicative.hs, nothing )
[17 of 17] Compiling Options.Applicative.Arrows ( src/Options/Applicative/Arrows.hs, nothing )
Haddock coverage:
50% ( 1 / 2) in 'Options.Applicative.Help.Levenshtein'
Missing documentation for:
Module header
93% ( 85 / 91) in 'Options.Applicative.Help.Pretty'
Missing documentation for:
Module header
Doc (src/Options/Applicative/Help/Pretty.hs:29)
SimpleDoc (src/Options/Applicative/Help/Pretty.hs:30)
.$. (src/Options/Applicative/Help/Pretty.hs:36)
</> (src/Options/Applicative/Help/Pretty.hs:38)
prettyString (src/Options/Applicative/Help/Pretty.hs:113)
Warning: 'Chunk' is ambiguous. It is defined
* at src/Options/Applicative/Help/Chunk.hs:26:19
* at src/Options/Applicative/Help/Chunk.hs:26:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Help/Chunk.hs:26:1
92% ( 12 / 13) in 'Options.Applicative.Help.Chunk'
Missing documentation for:
Module header
33% ( 1 / 3) in 'Options.Applicative.Help.Types'
Missing documentation for:
Module header
ParserHelp (src/Options/Applicative/Help/Types.hs:12)
Warning: 'OptReader' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:254:5
* at src/Options/Applicative/Types.hs:253:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:253:1
Warning: 'Completer' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:325:21
* at src/Options/Applicative/Types.hs:325:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:325:1
40% ( 18 / 45) in 'Options.Applicative.Types'
Missing documentation for:
Module header
ParseError (src/Options/Applicative/Types.hs:69)
OptName (src/Options/Applicative/Types.hs:134)
isShortName (src/Options/Applicative/Types.hs:139)
isLongName (src/Options/Applicative/Types.hs:143)
Backtracking (src/Options/Applicative/Types.hs:105)
CReader (src/Options/Applicative/Types.hs:245)
ParserM (src/Options/Applicative/Types.hs:288)
CompletionResult (src/Options/Applicative/Types.hs:340)
ParserFailure (src/Options/Applicative/Types.hs:347)
overFailure (src/Options/Applicative/Types.hs:374)
Args (src/Options/Applicative/Types.hs:389)
ArgumentReachability (src/Options/Applicative/Types.hs:416)
OptTree (src/Options/Applicative/Types.hs:426)
ParserHelp (src/Options/Applicative/Help/Types.hs:12)
SomeParser (src/Options/Applicative/Types.hs:190)
IsCmdStart (src/Options/Applicative/Types.hs:78)
fromM (src/Options/Applicative/Types.hs:303)
oneM (src/Options/Applicative/Types.hs:306)
manyM (src/Options/Applicative/Types.hs:309)
someM (src/Options/Applicative/Types.hs:316)
filterOptional (src/Options/Applicative/Types.hs:434)
optVisibility (src/Options/Applicative/Types.hs:447)
optMetaVar (src/Options/Applicative/Types.hs:453)
optHelp (src/Options/Applicative/Types.hs:450)
optShowDefault (src/Options/Applicative/Types.hs:456)
optDescMod (src/Options/Applicative/Types.hs:459)
50% ( 1 / 2) in 'Options.Applicative.NonEmpty'
Missing documentation for:
Module header
4% ( 1 / 22) in 'Options.Applicative.Internal'
Missing documentation for:
Module header
P (src/Options/Applicative/Internal.hs:55)
MonadP (src/Options/Applicative/Internal.hs:46)
ParseError (src/Options/Applicative/Types.hs:69)
uncons (src/Options/Applicative/Internal.hs:100)
hoistMaybe (src/Options/Applicative/Internal.hs:91)
hoistEither (src/Options/Applicative/Internal.hs:94)
runReadM (src/Options/Applicative/Internal.hs:104)
withReadM (src/Options/Applicative/Internal.hs:107)
runP (src/Options/Applicative/Internal.hs:97)
Completion (src/Options/Applicative/Internal.hs:131)
runCompletion (src/Options/Applicative/Internal.hs:163)
contextNames (src/Options/Applicative/Internal.hs:77)
ListT (src/Options/Applicative/Internal.hs:170)
takeListT (src/Options/Applicative/Internal.hs:182)
runListT (src/Options/Applicative/Internal.hs:186)
hoistList (src/Options/Applicative/Internal.hs:271)
NondetT (src/Options/Applicative/Internal.hs:226)
cut (src/Options/Applicative/Internal.hs:258)
<!> (src/Options/Applicative/Internal.hs:252)
disamb (src/Options/Applicative/Internal.hs:261)
68% ( 13 / 19) in 'Options.Applicative.Common'
Missing documentation for:
Module header
showOption (src/Options/Applicative/Common.hs:66)
runParserInfo (src/Options/Applicative/Common.hs:240)
runParserFully (src/Options/Applicative/Common.hs:243)
runParserStep (src/Options/Applicative/Common.hs:230)
optionNames (src/Options/Applicative/Common.hs:70)
38% ( 7 / 18) in 'Options.Applicative.Help.Core'
Missing documentation for:
Module header
ParserHelp (src/Options/Applicative/Help/Types.hs:12)
errorHelp (src/Options/Applicative/Help/Core.hs:362)
headerHelp (src/Options/Applicative/Help/Core.hs:365)
suggestionsHelp (src/Options/Applicative/Help/Core.hs:368)
usageHelp (src/Options/Applicative/Help/Core.hs:374)
descriptionHelp (src/Options/Applicative/Help/Core.hs:377)
bodyHelp (src/Options/Applicative/Help/Core.hs:380)
footerHelp (src/Options/Applicative/Help/Core.hs:383)
globalsHelp (src/Options/Applicative/Help/Core.hs:371)
parserGlobals (src/Options/Applicative/Help/Core.hs:405)
91% ( 11 / 12) in 'Options.Applicative.Help'
Missing documentation for:
Module header
Warning: 'OptionFields' is ambiguous. It is defined
* at src/Options/Applicative/Builder/Internal.hs:35:23
* at src/Options/Applicative/Builder/Internal.hs:35:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Builder/Internal.hs:35:1
Warning: 'FlagFields' is ambiguous. It is defined
* at src/Options/Applicative/Builder/Internal.hs:40:21
* at src/Options/Applicative/Builder/Internal.hs:40:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Builder/Internal.hs:40:1
23% ( 5 / 21) in 'Options.Applicative.Builder.Internal'
Missing documentation for:
Module header
HasName (src/Options/Applicative/Builder/Internal.hs:51)
HasCompleter (src/Options/Applicative/Builder/Internal.hs:60)
HasValue (src/Options/Applicative/Builder/Internal.hs:69)
HasMetavar (src/Options/Applicative/Builder/Internal.hs:77)
OptionFields (src/Options/Applicative/Builder/Internal.hs:35)
FlagFields (src/Options/Applicative/Builder/Internal.hs:40)
CommandFields (src/Options/Applicative/Builder/Internal.hs:44)
ArgumentFields (src/Options/Applicative/Builder/Internal.hs:48)
DefaultProp (src/Options/Applicative/Builder/Internal.hs:88)
optionMod (src/Options/Applicative/Builder/Internal.hs:131)
fieldMod (src/Options/Applicative/Builder/Internal.hs:134)
mkCommand (src/Options/Applicative/Builder/Internal.hs:158)
mkParser (src/Options/Applicative/Builder/Internal.hs:167)
mkOption (src/Options/Applicative/Builder/Internal.hs:177)
mkProps (src/Options/Applicative/Builder/Internal.hs:182)
Warning: 'Completer' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:325:21
* at src/Options/Applicative/Types.hs:325:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:325:1
85% ( 6 / 7) in 'Options.Applicative.Builder.Completer'
Missing documentation for:
Module header
Warning: 'ParserInfo' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:90:21
* at src/Options/Applicative/Types.hs:90:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:90:1
Warning: 'Option' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:185:17
* at src/Options/Applicative/Types.hs:185:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:185:1
Warning: 'OptProperties' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:159:22
* at src/Options/Applicative/Types.hs:159:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:159:1
Warning: 'ParserPrefs' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:112:20
* at src/Options/Applicative/Types.hs:112:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:112:1
87% ( 74 / 85) in 'Options.Applicative.Builder'
Missing documentation for:
Module header
ParseError (src/Options/Applicative/Types.hs:69)
PrefsMod (src/Options/Applicative/Builder.hs:523)
OptionFields (src/Options/Applicative/Builder/Internal.hs:35)
FlagFields (src/Options/Applicative/Builder/Internal.hs:40)
ArgumentFields (src/Options/Applicative/Builder/Internal.hs:48)
CommandFields (src/Options/Applicative/Builder/Internal.hs:44)
HasName (src/Options/Applicative/Builder/Internal.hs:51)
HasCompleter (src/Options/Applicative/Builder/Internal.hs:60)
HasValue (src/Options/Applicative/Builder/Internal.hs:69)
HasMetavar (src/Options/Applicative/Builder/Internal.hs:77)
80% ( 4 / 5) in 'Options.Applicative.BashCompletion'
Missing documentation for:
bashCompletionParser (src/Options/Applicative/BashCompletion.hs:39)
Warning: 'ParserInfo' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:90:21
* at src/Options/Applicative/Types.hs:90:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:90:1
Warning: 'ParserFailure' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:347:27
* at src/Options/Applicative/Types.hs:347:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:347:1
Warning: 'Context' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:195:16
* at src/Options/Applicative/Types.hs:195:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:195:1
73% ( 14 / 19) in 'Options.Applicative.Extra'
Missing documentation for:
Module header
renderFailure (src/Options/Applicative/Extra.hs:345)
ParserFailure (src/Options/Applicative/Types.hs:347)
overFailure (src/Options/Applicative/Types.hs:374)
CompletionResult (src/Options/Applicative/Types.hs:340)
Warning: 'ParserInfo' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:90:21
* at src/Options/Applicative/Types.hs:90:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:90:1
Warning: 'ParserPrefs' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:112:20
* at src/Options/Applicative/Types.hs:112:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:112:1
Warning: 'Completer' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:325:21
* at src/Options/Applicative/Types.hs:325:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:325:1
86% (107 /123) in 'Options.Applicative'
Missing documentation for:
Module header
OptionFields (src/Options/Applicative/Builder/Internal.hs:35)
FlagFields (src/Options/Applicative/Builder/Internal.hs:40)
ArgumentFields (src/Options/Applicative/Builder/Internal.hs:48)
CommandFields (src/Options/Applicative/Builder/Internal.hs:44)
HasName (src/Options/Applicative/Builder/Internal.hs:51)
HasCompleter (src/Options/Applicative/Builder/Internal.hs:60)
HasValue (src/Options/Applicative/Builder/Internal.hs:69)
HasMetavar (src/Options/Applicative/Builder/Internal.hs:77)
renderFailure (src/Options/Applicative/Extra.hs:345)
overFailure (src/Options/Applicative/Types.hs:374)
PrefsMod (src/Options/Applicative/Builder.hs:523)
ParseError (src/Options/Applicative/Types.hs:69)
ParserHelp (src/Options/Applicative/Help/Types.hs:12)
ParserFailure (src/Options/Applicative/Types.hs:347)
CompletionResult (src/Options/Applicative/Types.hs:340)
Warning: 'A' is ambiguous. It is defined
* at src/Options/Applicative/Arrows.hs:47:19
* at src/Options/Applicative/Arrows.hs:47:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Arrows.hs:47:1
100% ( 6 / 6) in 'Options.Applicative.Arrows'
Warning: Options.Applicative.Help.Pretty: could not find link destinations for:
- Prettyprinter.Internal.Rep_SimpleDocStream
Documentation created: dist/doc/html/optparse-applicative/,
dist/doc/html/optparse-applicative/optparse-applicative.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/optparse-applicative-0.19.0.0-5c46VkbBJNABJCSsMkcBhu
Completed optparse-applicative-0.19.0.0
Configuring replace-megaparsec-1.5.0.1...
Preprocessing library for replace-megaparsec-1.5.0.1..
Building library for replace-megaparsec-1.5.0.1..
[1 of 3] Compiling Replace.Megaparsec.Internal.ByteString ( src/Replace/Megaparsec/Internal/ByteString.hs, dist/build/Replace/Megaparsec/Internal/ByteString.o, dist/build/Replace/Megaparsec/Internal/ByteString.dyn_o )
[2 of 3] Compiling Replace.Megaparsec.Internal.Text ( src/Replace/Megaparsec/Internal/Text.hs, dist/build/Replace/Megaparsec/Internal/Text.o, dist/build/Replace/Megaparsec/Internal/Text.dyn_o )
[3 of 3] Compiling Replace.Megaparsec ( src/Replace/Megaparsec.hs, dist/build/Replace/Megaparsec.o, dist/build/Replace/Megaparsec.dyn_o )
Preprocessing library for replace-megaparsec-1.5.0.1..
Running Haddock on library for replace-megaparsec-1.5.0.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Replace.Megaparsec.Internal.ByteString ( src/Replace/Megaparsec/Internal/ByteString.hs, nothing )
[2 of 3] Compiling Replace.Megaparsec.Internal.Text ( src/Replace/Megaparsec/Internal/Text.hs, nothing )
[3 of 3] Compiling Replace.Megaparsec ( src/Replace/Megaparsec.hs, nothing )
Haddock coverage:
50% ( 2 / 4) in 'Replace.Megaparsec.Internal.ByteString'
Missing documentation for:
sepCapByteString (src/Replace/Megaparsec/Internal/ByteString.hs:36)
anyTillByteString (src/Replace/Megaparsec/Internal/ByteString.hs:83)
50% ( 2 / 4) in 'Replace.Megaparsec.Internal.Text'
Missing documentation for:
sepCapText (src/Replace/Megaparsec/Internal/Text.hs:37)
anyTillText (src/Replace/Megaparsec/Internal/Text.hs:84)
100% ( 15 / 15) in 'Replace.Megaparsec'
Documentation created: dist/doc/html/replace-megaparsec/,
dist/doc/html/replace-megaparsec/replace-megaparsec.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/replace-megaparsec-1.5.0.1-Cms2SLlj9nkF3M0kVpXHix
Completed replace-megaparsec-1.5.0.1
Configuring http-api-data-0.6.2...
Preprocessing library for http-api-data-0.6.2..
Building library for http-api-data-0.6.2..
[1 of 4] Compiling Web.Internal.HttpApiData ( src/Web/Internal/HttpApiData.hs, dist/build/Web/Internal/HttpApiData.o, dist/build/Web/Internal/HttpApiData.dyn_o )
src/Web/Internal/HttpApiData.hs:35:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
35 | import Data.Semigroup (Semigroup (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 4] Compiling Web.Internal.FormUrlEncoded ( src/Web/Internal/FormUrlEncoded.hs, dist/build/Web/Internal/FormUrlEncoded.o, dist/build/Web/Internal/FormUrlEncoded.dyn_o )
src/Web/Internal/FormUrlEncoded.hs:40:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
40 | import Data.Semigroup (Semigroup (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Web/Internal/FormUrlEncoded.hs:58:1: warning: [GHC-66111] [-Wunused-imports]
The import of Numeric.Natural is redundant
except perhaps to import instances from Numeric.Natural
To import instances alone, use: import Numeric.Natural()
|
58 | import Numeric.Natural (Natural)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Web/Internal/FormUrlEncoded.hs:336:23: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
336 | class GToForm t (f :: * -> *) where
| ^
src/Web/Internal/FormUrlEncoded.hs:336:28: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
336 | class GToForm t (f :: * -> *) where
| ^
src/Web/Internal/FormUrlEncoded.hs:484:25: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
484 | class GFromForm t (f :: * -> *) where
| ^
src/Web/Internal/FormUrlEncoded.hs:484:30: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
484 | class GFromForm t (f :: * -> *) where
| ^
[3 of 4] Compiling Web.FormUrlEncoded ( src/Web/FormUrlEncoded.hs, dist/build/Web/FormUrlEncoded.o, dist/build/Web/FormUrlEncoded.dyn_o )
[4 of 4] Compiling Web.HttpApiData ( src/Web/HttpApiData.hs, dist/build/Web/HttpApiData.o, dist/build/Web/HttpApiData.dyn_o )
Preprocessing library for http-api-data-0.6.2..
Running Haddock on library for http-api-data-0.6.2..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 4] Compiling Web.Internal.HttpApiData ( src/Web/Internal/HttpApiData.hs, nothing )
src/Web/Internal/HttpApiData.hs:35:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
35 | import Data.Semigroup (Semigroup (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[2 of 4] Compiling Web.Internal.FormUrlEncoded ( src/Web/Internal/FormUrlEncoded.hs, nothing )
src/Web/Internal/FormUrlEncoded.hs:40:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
40 | import Data.Semigroup (Semigroup (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Web/Internal/FormUrlEncoded.hs:58:1: warning: [GHC-66111] [-Wunused-imports]
The import of Numeric.Natural is redundant
except perhaps to import instances from Numeric.Natural
To import instances alone, use: import Numeric.Natural()
|
58 | import Numeric.Natural (Natural)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Web/Internal/FormUrlEncoded.hs:336:23: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
336 | class GToForm t (f :: * -> *) where
| ^
src/Web/Internal/FormUrlEncoded.hs:336:28: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
336 | class GToForm t (f :: * -> *) where
| ^
src/Web/Internal/FormUrlEncoded.hs:484:25: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
484 | class GFromForm t (f :: * -> *) where
| ^
src/Web/Internal/FormUrlEncoded.hs:484:30: warning: [GHC-39567] [-Wstar-is-type]
Using * (or its Unicode variant) to mean Data.Kind.Type
relies on the StarIsType extension, which will become
deprecated in the future.
Suggested fix: Use Type from Data.Kind instead.
|
484 | class GFromForm t (f :: * -> *) where
| ^
[3 of 4] Compiling Web.FormUrlEncoded ( src/Web/FormUrlEncoded.hs, nothing )
[4 of 4] Compiling Web.HttpApiData ( src/Web/HttpApiData.hs, nothing )
Haddock coverage:
93% ( 31 / 33) in 'Web.Internal.HttpApiData'
Missing documentation for:
runTT (src/Web/Internal/HttpApiData.hs:901)
runFT (src/Web/Internal/HttpApiData.hs:904)
Warning: 'FormOptions' is ambiguous. It is defined
* at src/Web/Internal/FormUrlEncoded.hs:766:20
* at src/Web/Internal/FormUrlEncoded.hs:766:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Web/Internal/FormUrlEncoded.hs:766:1
Warning: 'toLower' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Form' is ambiguous. It is defined
* at src/Web/Internal/FormUrlEncoded.hs:208:16
* at src/Web/Internal/FormUrlEncoded.hs:208:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Web/Internal/FormUrlEncoded.hs:208:1
Warning: 'escapeURIString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'isUnreserved' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'unEscapeString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
82% ( 28 / 34) in 'Web.Internal.FormUrlEncoded'
Missing documentation for:
Module header
Proxy3 (src/Web/Internal/FormUrlEncoded.hs:289)
NotSupported (src/Web/Internal/FormUrlEncoded.hs:291)
GToForm (src/Web/Internal/FormUrlEncoded.hs:336)
GFromForm (src/Web/Internal/FormUrlEncoded.hs:484)
sortOn (src/Web/Internal/FormUrlEncoded.hs:784)
Warning: 'Form' is ambiguous. It is defined
* at src/Web/Internal/FormUrlEncoded.hs:208:16
* at src/Web/Internal/FormUrlEncoded.hs:208:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Web/Internal/FormUrlEncoded.hs:208:1
Warning: 'Generic' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 35 / 35) in 'Web.FormUrlEncoded'
100% ( 32 / 32) in 'Web.HttpApiData'
Warning: Web.Internal.FormUrlEncoded: could not find link destinations for:
- Web.Internal.FormUrlEncoded.D:R:ItemForm
- Web.Internal.FormUrlEncoded.Rep_Form
Warning: Web.FormUrlEncoded: could not find link destinations for:
- Web.Internal.FormUrlEncoded.D:R:ItemForm
- Web.Internal.FormUrlEncoded.Rep_Form
Documentation created: dist/doc/html/http-api-data/,
dist/doc/html/http-api-data/http-api-data.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/http-api-data-0.6.2-70YP7Dg7uuoKIQBzoiCuM3
Completed http-api-data-0.6.2
Configuring hspec-core-2.11.14...
Preprocessing library for hspec-core-2.11.14..
Building library for hspec-core-2.11.14..
[ 1 of 51] Compiling Control.Concurrent.Async ( vendor/Control/Concurrent/Async.hs, dist/build/Control/Concurrent/Async.o, dist/build/Control/Concurrent/Async.dyn_o )
[ 2 of 51] Compiling Data.Algorithm.Diff ( vendor/Data/Algorithm/Diff.hs, dist/build/Data/Algorithm/Diff.o, dist/build/Data/Algorithm/Diff.dyn_o )
[ 3 of 51] Compiling Paths_hspec_core ( dist/build/autogen/Paths_hspec_core.hs, dist/build/Paths_hspec_core.o, dist/build/Paths_hspec_core.dyn_o )
[ 4 of 51] Compiling Test.Hspec.Core.Compat ( src/Test/Hspec/Core/Compat.hs, dist/build/Test/Hspec/Core/Compat.o, dist/build/Test/Hspec/Core/Compat.dyn_o )
[ 5 of 51] Compiling Test.Hspec.Core.Clock ( src/Test/Hspec/Core/Clock.hs, dist/build/Test/Hspec/Core/Clock.o, dist/build/Test/Hspec/Core/Clock.dyn_o )
[ 6 of 51] Compiling Test.Hspec.Core.Annotations ( src/Test/Hspec/Core/Annotations.hs, dist/build/Test/Hspec/Core/Annotations.o, dist/build/Test/Hspec/Core/Annotations.dyn_o )
[ 7 of 51] Compiling NonEmpty ( src/NonEmpty.hs, dist/build/NonEmpty.o, dist/build/NonEmpty.dyn_o )
[ 8 of 51] Compiling GetOpt.Declarative.Types ( src/GetOpt/Declarative/Types.hs, dist/build/GetOpt/Declarative/Types.o, dist/build/GetOpt/Declarative/Types.dyn_o )
[ 9 of 51] Compiling GetOpt.Declarative.Environment ( src/GetOpt/Declarative/Environment.hs, dist/build/GetOpt/Declarative/Environment.o, dist/build/GetOpt/Declarative/Environment.dyn_o )
[10 of 51] Compiling Test.Hspec.Core.Example.Location ( src/Test/Hspec/Core/Example/Location.hs, dist/build/Test/Hspec/Core/Example/Location.o, dist/build/Test/Hspec/Core/Example/Location.dyn_o )
[11 of 51] Compiling Test.Hspec.Core.Formatters.Diff ( src/Test/Hspec/Core/Formatters/Diff.hs, dist/build/Test/Hspec/Core/Formatters/Diff.o, dist/build/Test/Hspec/Core/Formatters/Diff.dyn_o )
[12 of 51] Compiling Test.Hspec.Core.Formatters.Pretty.Parser ( src/Test/Hspec/Core/Formatters/Pretty/Parser.hs, dist/build/Test/Hspec/Core/Formatters/Pretty/Parser.o, dist/build/Test/Hspec/Core/Formatters/Pretty/Parser.dyn_o )
[13 of 51] Compiling Test.Hspec.Core.Formatters.Pretty.Unicode ( src/Test/Hspec/Core/Formatters/Pretty/Unicode.hs, dist/build/Test/Hspec/Core/Formatters/Pretty/Unicode.o, dist/build/Test/Hspec/Core/Formatters/Pretty/Unicode.dyn_o )
[14 of 51] Compiling Test.Hspec.Core.Formatters.Pretty ( src/Test/Hspec/Core/Formatters/Pretty.hs, dist/build/Test/Hspec/Core/Formatters/Pretty.o, dist/build/Test/Hspec/Core/Formatters/Pretty.dyn_o )
[15 of 51] Compiling Test.Hspec.Core.Formatters.V1.Free ( src/Test/Hspec/Core/Formatters/V1/Free.hs, dist/build/Test/Hspec/Core/Formatters/V1/Free.o, dist/build/Test/Hspec/Core/Formatters/V1/Free.dyn_o )
[16 of 51] Compiling Test.Hspec.Core.Runner.JobQueue ( src/Test/Hspec/Core/Runner/JobQueue.hs, dist/build/Test/Hspec/Core/Runner/JobQueue.o, dist/build/Test/Hspec/Core/Runner/JobQueue.dyn_o )
[17 of 51] Compiling Test.Hspec.Core.Timer ( src/Test/Hspec/Core/Timer.hs, dist/build/Test/Hspec/Core/Timer.o, dist/build/Test/Hspec/Core/Timer.dyn_o )
[18 of 51] Compiling Test.Hspec.Core.Util ( src/Test/Hspec/Core/Util.hs, dist/build/Test/Hspec/Core/Util.o, dist/build/Test/Hspec/Core/Util.dyn_o )
[19 of 51] Compiling Test.Hspec.Core.QuickCheck.Util ( src/Test/Hspec/Core/QuickCheck/Util.hs, dist/build/Test/Hspec/Core/QuickCheck/Util.o, dist/build/Test/Hspec/Core/QuickCheck/Util.dyn_o )
[20 of 51] Compiling Test.Hspec.Core.Example ( src/Test/Hspec/Core/Example.hs, dist/build/Test/Hspec/Core/Example.o, dist/build/Test/Hspec/Core/Example.dyn_o )
[21 of 51] Compiling Test.Hspec.Core.Tree ( src/Test/Hspec/Core/Tree.hs, dist/build/Test/Hspec/Core/Tree.o, dist/build/Test/Hspec/Core/Tree.dyn_o )
[22 of 51] Compiling Test.Hspec.Core.Shuffle ( src/Test/Hspec/Core/Shuffle.hs, dist/build/Test/Hspec/Core/Shuffle.o, dist/build/Test/Hspec/Core/Shuffle.dyn_o )
[23 of 51] Compiling Test.Hspec.Core.Format ( src/Test/Hspec/Core/Format.hs, dist/build/Test/Hspec/Core/Format.o, dist/build/Test/Hspec/Core/Format.dyn_o )
[24 of 51] Compiling Test.Hspec.Core.Runner.Result ( src/Test/Hspec/Core/Runner/Result.hs, dist/build/Test/Hspec/Core/Runner/Result.o, dist/build/Test/Hspec/Core/Runner/Result.dyn_o )
[25 of 51] Compiling Test.Hspec.Core.Formatters.V1.Monad ( src/Test/Hspec/Core/Formatters/V1/Monad.hs, dist/build/Test/Hspec/Core/Formatters/V1/Monad.o, dist/build/Test/Hspec/Core/Formatters/V1/Monad.dyn_o )
[26 of 51] Compiling Test.Hspec.Core.Formatters.Internal ( src/Test/Hspec/Core/Formatters/Internal.hs, dist/build/Test/Hspec/Core/Formatters/Internal.o, dist/build/Test/Hspec/Core/Formatters/Internal.dyn_o )
[27 of 51] Compiling Test.Hspec.Core.Formatters.V2 ( src/Test/Hspec/Core/Formatters/V2.hs, dist/build/Test/Hspec/Core/Formatters/V2.o, dist/build/Test/Hspec/Core/Formatters/V2.dyn_o )
[28 of 51] Compiling Test.Hspec.Core.Runner.PrintSlowSpecItems ( src/Test/Hspec/Core/Runner/PrintSlowSpecItems.hs, dist/build/Test/Hspec/Core/Runner/PrintSlowSpecItems.o, dist/build/Test/Hspec/Core/Runner/PrintSlowSpecItems.dyn_o )
[29 of 51] Compiling Test.Hspec.Core.Formatters.V1.Internal ( src/Test/Hspec/Core/Formatters/V1/Internal.hs, dist/build/Test/Hspec/Core/Formatters/V1/Internal.o, dist/build/Test/Hspec/Core/Formatters/V1/Internal.dyn_o )
[30 of 51] Compiling Test.Hspec.Core.Formatters.V1 ( src/Test/Hspec/Core/Formatters/V1.hs, dist/build/Test/Hspec/Core/Formatters/V1.o, dist/build/Test/Hspec/Core/Formatters/V1.dyn_o )
[31 of 51] Compiling Test.Hspec.Core.Formatters ( src/Test/Hspec/Core/Formatters.hs, dist/build/Test/Hspec/Core/Formatters.o, dist/build/Test/Hspec/Core/Formatters.dyn_o )
[32 of 51] Compiling GetOpt.Declarative.Util ( src/GetOpt/Declarative/Util.hs, dist/build/GetOpt/Declarative/Util.o, dist/build/GetOpt/Declarative/Util.dyn_o )
[33 of 51] Compiling GetOpt.Declarative.Interpret ( src/GetOpt/Declarative/Interpret.hs, dist/build/GetOpt/Declarative/Interpret.o, dist/build/GetOpt/Declarative/Interpret.dyn_o )
[34 of 51] Compiling GetOpt.Declarative ( src/GetOpt/Declarative.hs, dist/build/GetOpt/Declarative.o, dist/build/GetOpt/Declarative.dyn_o )
[35 of 51] Compiling Test.Hspec.Core.Config.Definition ( src/Test/Hspec/Core/Config/Definition.hs, dist/build/Test/Hspec/Core/Config/Definition.o, dist/build/Test/Hspec/Core/Config/Definition.dyn_o )
[36 of 51] Compiling Test.Hspec.Core.Spec.Monad ( src/Test/Hspec/Core/Spec/Monad.hs, dist/build/Test/Hspec/Core/Spec/Monad.o, dist/build/Test/Hspec/Core/Spec/Monad.dyn_o )
[37 of 51] Compiling Test.Hspec.Core.QuickCheck ( src/Test/Hspec/Core/QuickCheck.hs, dist/build/Test/Hspec/Core/QuickCheck.o, dist/build/Test/Hspec/Core/QuickCheck.dyn_o )
[38 of 51] Compiling Test.Hspec.Core.Hooks ( src/Test/Hspec/Core/Hooks.hs, dist/build/Test/Hspec/Core/Hooks.o, dist/build/Test/Hspec/Core/Hooks.dyn_o )
[39 of 51] Compiling Test.Hspec.Core.Spec ( src/Test/Hspec/Core/Spec.hs, dist/build/Test/Hspec/Core/Spec.o, dist/build/Test/Hspec/Core/Spec.dyn_o )
[40 of 51] Compiling Test.Hspec.Core.Runner.Eval ( src/Test/Hspec/Core/Runner/Eval.hs, dist/build/Test/Hspec/Core/Runner/Eval.o, dist/build/Test/Hspec/Core/Runner/Eval.dyn_o )
[41 of 51] Compiling Test.Hspec.Core.Extension.Tree ( src/Test/Hspec/Core/Extension/Tree.hs, dist/build/Test/Hspec/Core/Extension/Tree.o, dist/build/Test/Hspec/Core/Extension/Tree.dyn_o )
[42 of 51] Compiling Test.Hspec.Core.Extension.Spec ( src/Test/Hspec/Core/Extension/Spec.hs, dist/build/Test/Hspec/Core/Extension/Spec.o, dist/build/Test/Hspec/Core/Extension/Spec.dyn_o )
[43 of 51] Compiling Test.Hspec.Core.Extension.Item ( src/Test/Hspec/Core/Extension/Item.hs, dist/build/Test/Hspec/Core/Extension/Item.o, dist/build/Test/Hspec/Core/Extension/Item.dyn_o )
[44 of 51] Compiling Test.Hspec.Core.FailureReport ( src/Test/Hspec/Core/FailureReport.hs, dist/build/Test/Hspec/Core/FailureReport.o, dist/build/Test/Hspec/Core/FailureReport.dyn_o )
[45 of 51] Compiling Test.Hspec.Core.Extension.Config.Type ( src/Test/Hspec/Core/Extension/Config/Type.hs, dist/build/Test/Hspec/Core/Extension/Config/Type.o, dist/build/Test/Hspec/Core/Extension/Config/Type.dyn_o )
[46 of 51] Compiling Test.Hspec.Core.Extension.Option ( src/Test/Hspec/Core/Extension/Option.hs, dist/build/Test/Hspec/Core/Extension/Option.o, dist/build/Test/Hspec/Core/Extension/Option.dyn_o )
[47 of 51] Compiling Test.Hspec.Core.Extension.Config ( src/Test/Hspec/Core/Extension/Config.hs, dist/build/Test/Hspec/Core/Extension/Config.o, dist/build/Test/Hspec/Core/Extension/Config.dyn_o )
[48 of 51] Compiling Test.Hspec.Core.Extension ( src/Test/Hspec/Core/Extension.hs, dist/build/Test/Hspec/Core/Extension.o, dist/build/Test/Hspec/Core/Extension.dyn_o )
[49 of 51] Compiling Test.Hspec.Core.Config.Options ( src/Test/Hspec/Core/Config/Options.hs, dist/build/Test/Hspec/Core/Config/Options.o, dist/build/Test/Hspec/Core/Config/Options.dyn_o )
[50 of 51] Compiling Test.Hspec.Core.Config ( src/Test/Hspec/Core/Config.hs, dist/build/Test/Hspec/Core/Config.o, dist/build/Test/Hspec/Core/Config.dyn_o )
[51 of 51] Compiling Test.Hspec.Core.Runner ( src/Test/Hspec/Core/Runner.hs, dist/build/Test/Hspec/Core/Runner.o, dist/build/Test/Hspec/Core/Runner.dyn_o )
Preprocessing library for hspec-core-2.11.14..
Running Haddock on library for hspec-core-2.11.14..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 51] Compiling Control.Concurrent.Async ( vendor/Control/Concurrent/Async.hs, nothing )
[ 2 of 51] Compiling Data.Algorithm.Diff ( vendor/Data/Algorithm/Diff.hs, nothing )
[ 3 of 51] Compiling Paths_hspec_core ( dist/build/autogen/Paths_hspec_core.hs, nothing )
[ 4 of 51] Compiling Test.Hspec.Core.Compat ( src/Test/Hspec/Core/Compat.hs, nothing )
[ 5 of 51] Compiling Test.Hspec.Core.Clock ( src/Test/Hspec/Core/Clock.hs, nothing )
[ 6 of 51] Compiling Test.Hspec.Core.Annotations ( src/Test/Hspec/Core/Annotations.hs, nothing )
[ 7 of 51] Compiling NonEmpty ( src/NonEmpty.hs, nothing )
[ 8 of 51] Compiling GetOpt.Declarative.Types ( src/GetOpt/Declarative/Types.hs, nothing )
[ 9 of 51] Compiling GetOpt.Declarative.Environment ( src/GetOpt/Declarative/Environment.hs, nothing )
[10 of 51] Compiling Test.Hspec.Core.Example.Location ( src/Test/Hspec/Core/Example/Location.hs, nothing )
[11 of 51] Compiling Test.Hspec.Core.Formatters.Diff ( src/Test/Hspec/Core/Formatters/Diff.hs, nothing )
[12 of 51] Compiling Test.Hspec.Core.Formatters.Pretty.Parser ( src/Test/Hspec/Core/Formatters/Pretty/Parser.hs, nothing )
[13 of 51] Compiling Test.Hspec.Core.Formatters.Pretty.Unicode ( src/Test/Hspec/Core/Formatters/Pretty/Unicode.hs, nothing )
[14 of 51] Compiling Test.Hspec.Core.Formatters.Pretty ( src/Test/Hspec/Core/Formatters/Pretty.hs, nothing )
[15 of 51] Compiling Test.Hspec.Core.Formatters.V1.Free ( src/Test/Hspec/Core/Formatters/V1/Free.hs, nothing )
[16 of 51] Compiling Test.Hspec.Core.Runner.JobQueue ( src/Test/Hspec/Core/Runner/JobQueue.hs, nothing )
[17 of 51] Compiling Test.Hspec.Core.Timer ( src/Test/Hspec/Core/Timer.hs, nothing )
[18 of 51] Compiling Test.Hspec.Core.Util ( src/Test/Hspec/Core/Util.hs, nothing )
[19 of 51] Compiling Test.Hspec.Core.QuickCheck.Util ( src/Test/Hspec/Core/QuickCheck/Util.hs, nothing )
[20 of 51] Compiling Test.Hspec.Core.Example ( src/Test/Hspec/Core/Example.hs, nothing )
[21 of 51] Compiling Test.Hspec.Core.Tree ( src/Test/Hspec/Core/Tree.hs, nothing )
[22 of 51] Compiling Test.Hspec.Core.Shuffle ( src/Test/Hspec/Core/Shuffle.hs, nothing )
[23 of 51] Compiling Test.Hspec.Core.Format ( src/Test/Hspec/Core/Format.hs, nothing )
[24 of 51] Compiling Test.Hspec.Core.Runner.Result ( src/Test/Hspec/Core/Runner/Result.hs, nothing )
[25 of 51] Compiling Test.Hspec.Core.Formatters.V1.Monad ( src/Test/Hspec/Core/Formatters/V1/Monad.hs, nothing )
[26 of 51] Compiling Test.Hspec.Core.Formatters.Internal ( src/Test/Hspec/Core/Formatters/Internal.hs, nothing )
[27 of 51] Compiling Test.Hspec.Core.Formatters.V2 ( src/Test/Hspec/Core/Formatters/V2.hs, nothing )
[28 of 51] Compiling Test.Hspec.Core.Runner.PrintSlowSpecItems ( src/Test/Hspec/Core/Runner/PrintSlowSpecItems.hs, nothing )
[29 of 51] Compiling Test.Hspec.Core.Formatters.V1.Internal ( src/Test/Hspec/Core/Formatters/V1/Internal.hs, nothing )
[30 of 51] Compiling Test.Hspec.Core.Formatters.V1 ( src/Test/Hspec/Core/Formatters/V1.hs, nothing )
[31 of 51] Compiling Test.Hspec.Core.Formatters ( src/Test/Hspec/Core/Formatters.hs, nothing )
[32 of 51] Compiling GetOpt.Declarative.Util ( src/GetOpt/Declarative/Util.hs, nothing )
[33 of 51] Compiling GetOpt.Declarative.Interpret ( src/GetOpt/Declarative/Interpret.hs, nothing )
[34 of 51] Compiling GetOpt.Declarative ( src/GetOpt/Declarative.hs, nothing )
[35 of 51] Compiling Test.Hspec.Core.Config.Definition ( src/Test/Hspec/Core/Config/Definition.hs, nothing )
[36 of 51] Compiling Test.Hspec.Core.Spec.Monad ( src/Test/Hspec/Core/Spec/Monad.hs, nothing )
[37 of 51] Compiling Test.Hspec.Core.QuickCheck ( src/Test/Hspec/Core/QuickCheck.hs, nothing )
[38 of 51] Compiling Test.Hspec.Core.Hooks ( src/Test/Hspec/Core/Hooks.hs, nothing )
[39 of 51] Compiling Test.Hspec.Core.Spec ( src/Test/Hspec/Core/Spec.hs, nothing )
[40 of 51] Compiling Test.Hspec.Core.Runner.Eval ( src/Test/Hspec/Core/Runner/Eval.hs, nothing )
[41 of 51] Compiling Test.Hspec.Core.Extension.Tree ( src/Test/Hspec/Core/Extension/Tree.hs, nothing )
[42 of 51] Compiling Test.Hspec.Core.Extension.Spec ( src/Test/Hspec/Core/Extension/Spec.hs, nothing )
[43 of 51] Compiling Test.Hspec.Core.Extension.Item ( src/Test/Hspec/Core/Extension/Item.hs, nothing )
[44 of 51] Compiling Test.Hspec.Core.FailureReport ( src/Test/Hspec/Core/FailureReport.hs, nothing )
[45 of 51] Compiling Test.Hspec.Core.Extension.Config.Type ( src/Test/Hspec/Core/Extension/Config/Type.hs, nothing )
[46 of 51] Compiling Test.Hspec.Core.Extension.Option ( src/Test/Hspec/Core/Extension/Option.hs, nothing )
[47 of 51] Compiling Test.Hspec.Core.Extension.Config ( src/Test/Hspec/Core/Extension/Config.hs, nothing )
[48 of 51] Compiling Test.Hspec.Core.Extension ( src/Test/Hspec/Core/Extension.hs, nothing )
[49 of 51] Compiling Test.Hspec.Core.Config.Options ( src/Test/Hspec/Core/Config/Options.hs, nothing )
[50 of 51] Compiling Test.Hspec.Core.Config ( src/Test/Hspec/Core/Config.hs, nothing )
[51 of 51] Compiling Test.Hspec.Core.Runner ( src/Test/Hspec/Core/Runner.hs, nothing )
Haddock coverage:
Warning: 'Async' is ambiguous. It is defined
* at vendor/Control/Concurrent/Async.hs:233:16
* at vendor/Control/Concurrent/Async.hs:233:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at vendor/Control/Concurrent/Async.hs:233:1
Warning: 'Concurrently' is ambiguous. It is defined
* at vendor/Control/Concurrent/Async.hs:899:26
* at vendor/Control/Concurrent/Async.hs:899:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at vendor/Control/Concurrent/Async.hs:899:1
Warning: 'ThreadId' is ambiguous. It is defined
* in GHC.Conc.Sync
* in GHC.Conc.Sync
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Conc.Sync
Warning: 'ExceptionInLinkedThread' is ambiguous. It is defined
* at vendor/Control/Concurrent/Async.hs:606:3
* at vendor/Control/Concurrent/Async.hs:605:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at vendor/Control/Concurrent/Async.hs:605:1
Warning: 'AsyncCancelled' is ambiguous. It is defined
* at vendor/Control/Concurrent/Async.hs:427:23
* at vendor/Control/Concurrent/Async.hs:427:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at vendor/Control/Concurrent/Async.hs:427:1
Warning: 'IO' is ambiguous. It is defined
* in GHC.Types
* in GHC.Types
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Types
Warning: Test.Hspec.Core.Compat: Could not find documentation for exported module: Test.Hspec.Core.Compat
Warning: 'n' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 15 / 15) in 'Test.Hspec.Core.Util'
Warning: 'Result' is ambiguous. It is defined
* at src/Test/Hspec/Core/Example.hs:128:15
* at src/Test/Hspec/Core/Example.hs:128:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/Hspec/Core/Example.hs:128:1
38% ( 5 / 13) in 'Test.Hspec.Core.Format'
Missing documentation for:
Format (src/Test/Hspec/Core/Format.hs:38)
defaultFormatConfig (src/Test/Hspec/Core/Format.hs:85)
Event (src/Test/Hspec/Core/Format.hs:53)
Seconds (src/Test/Hspec/Core/Clock.hs:26)
Item (src/Test/Hspec/Core/Format.hs:40)
Result (src/Test/Hspec/Core/Format.hs:47)
FailureReason (src/Test/Hspec/Core/Example.hs:139)
monadic (src/Test/Hspec/Core/Format.hs:106)
Warning: 'Summary' is ambiguous. It is defined
* at src/Test/Hspec/Core/Runner/Result.hs:82:16
* at src/Test/Hspec/Core/Runner/Result.hs:82:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/Hspec/Core/Runner/Result.hs:82:1
73% ( 42 / 57) in 'Test.Hspec.Core.Formatters.V2'
Missing documentation for:
silent (src/Test/Hspec/Core/Formatters/V2.hs:160)
checks (src/Test/Hspec/Core/Formatters/V2.hs:171)
specdoc (src/Test/Hspec/Core/Formatters/V2.hs:213)
progress (src/Test/Hspec/Core/Formatters/V2.hs:259)
failed_examples (src/Test/Hspec/Core/Formatters/V2.hs:269)
Formatter (src/Test/Hspec/Core/Formatters/Internal.hs:73)
Item (src/Test/Hspec/Core/Format.hs:40)
Result (src/Test/Hspec/Core/Format.hs:47)
FailureReason (src/Test/Hspec/Core/Example.hs:139)
FormatM (src/Test/Hspec/Core/Formatters/Internal.hs:219)
formatterToFormat (src/Test/Hspec/Core/Formatters/Internal.hs:103)
FailureRecord (src/Test/Hspec/Core/Formatters/Internal.hs:96)
Seconds (src/Test/Hspec/Core/Clock.hs:26)
writeTransient (src/Test/Hspec/Core/Formatters/Internal.hs:272)
formatLocation (src/Test/Hspec/Core/Formatters/V2.hs:436)
68% ( 26 / 38) in 'Test.Hspec.Core.Formatters.V1'
Missing documentation for:
silent (src/Test/Hspec/Core/Formatters/V1/Internal.hs:163)
checks (src/Test/Hspec/Core/Formatters/V1/Internal.hs:177)
specdoc (src/Test/Hspec/Core/Formatters/V1/Internal.hs:211)
progress (src/Test/Hspec/Core/Formatters/V1/Internal.hs:250)
failed_examples (src/Test/Hspec/Core/Formatters/V1/Internal.hs:260)
Formatter (src/Test/Hspec/Core/Formatters/V1/Monad.hs:59)
FailureReason (src/Test/Hspec/Core/Formatters/V1/Monad.hs:52)
FormatM (src/Test/Hspec/Core/Formatters/V1/Monad.hs:136)
formatterToFormat (src/Test/Hspec/Core/Formatters/V1/Internal.hs:109)
FailureRecord (src/Test/Hspec/Core/Formatters/V1/Monad.hs:91)
Seconds (src/Test/Hspec/Core/Clock.hs:26)
writeTransient (src/Test/Hspec/Core/Formatters/V1/Monad.hs:232)
50% ( 1 / 2) in 'Test.Hspec.Core.Formatters'
Missing documentation for:
Module header
Warning: GetOpt.Declarative: Could not find documentation for exported module: GetOpt.Declarative
Warning: 'SpecM' is ambiguous. It is defined
* at src/Test/Hspec/Core/Spec/Monad.hs:67:21
* at src/Test/Hspec/Core/Spec/Monad.hs:67:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/Hspec/Core/Spec/Monad.hs:67:1
Warning: 'Params' is ambiguous. It is defined
* at src/Test/Hspec/Core/Example.hs:103:15
* at src/Test/Hspec/Core/Example.hs:103:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/Hspec/Core/Example.hs:103:1
Warning: 'Env' is ambiguous. It is defined
* at src/Test/Hspec/Core/Spec/Monad.hs:108:15
* at src/Test/Hspec/Core/Spec/Monad.hs:108:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/Hspec/Core/Spec/Monad.hs:108:1
Warning: 'Args' is ambiguous. It is defined
* in Test.QuickCheck.Test
* in Test.QuickCheck.Test
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Test.QuickCheck.Test
100% ( 6 / 6) in 'Test.Hspec.Core.QuickCheck'
Warning: 'SpecM' is ambiguous. It is defined
* at src/Test/Hspec/Core/Spec/Monad.hs:67:21
* at src/Test/Hspec/Core/Spec/Monad.hs:67:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/Hspec/Core/Spec/Monad.hs:67:1
100% ( 24 / 24) in 'Test.Hspec.Core.Hooks'
74% ( 49 / 66) in 'Test.Hspec.Core.Spec'
Missing documentation for:
mapSpecForest (src/Test/Hspec/Core/Spec/Monad.hs:94)
mapSpecItem_ (src/Test/Hspec/Core/Spec/Monad.hs:102)
defaultParams (src/Test/Hspec/Core/Example.hs:109)
ResultStatus (src/Test/Hspec/Core/Example.hs:133)
FailureReason (src/Test/Hspec/Core/Example.hs:139)
safeEvaluate (src/Test/Hspec/Core/Example.hs:170)
safeEvaluateExample (src/Test/Hspec/Core/Example.hs:167)
bimapTree (src/Test/Hspec/Core/Tree.hs:58)
bimapForest (src/Test/Hspec/Core/Tree.hs:55)
filterTree (src/Test/Hspec/Core/Tree.hs:66)
filterForest (src/Test/Hspec/Core/Tree.hs:69)
filterTreeWithLabels (src/Test/Hspec/Core/Tree.hs:72)
filterForestWithLabels (src/Test/Hspec/Core/Tree.hs:75)
pruneTree (src/Test/Hspec/Core/Tree.hs:90)
pruneForest (src/Test/Hspec/Core/Tree.hs:87)
location (src/Test/Hspec/Core/Tree.hs:158)
Expectation
0% ( 0 / 4) in 'Test.Hspec.Core.Extension.Tree'
Missing documentation for:
Module header
SpecTree (src/Test/Hspec/Core/Extension/Tree.hs:13)
mapItems (src/Test/Hspec/Core/Extension/Tree.hs:16)
filterItems (src/Test/Hspec/Core/Extension/Tree.hs:19)
0% ( 0 / 2) in 'Test.Hspec.Core.Extension.Spec'
Missing documentation for:
Module header
mapItems (src/Test/Hspec/Core/Extension/Spec.hs:10)
52% ( 9 / 17) in 'Test.Hspec.Core.Extension.Item'
Missing documentation for:
Module header
ResultStatus (src/Test/Hspec/Core/Example.hs:133)
FailureReason (src/Test/Hspec/Core/Example.hs:139)
isFocused (src/Test/Hspec/Core/Extension/Item.hs:28)
pending (src/Test/Hspec/Core/Extension/Item.hs:31)
pendingWith (src/Test/Hspec/Core/Extension/Item.hs:37)
setAnnotation (src/Test/Hspec/Core/Extension/Item.hs:43)
getAnnotation (src/Test/Hspec/Core/Extension/Item.hs:46)
0% ( 0 / 6) in 'Test.Hspec.Core.Extension.Option'
Missing documentation for:
Module header
Option (src/Test/Hspec/Core/Extension/Config/Type.hs:23)
flag (src/Test/Hspec/Core/Extension/Option.hs:18)
argument (src/Test/Hspec/Core/Extension/Option.hs:21)
noArgument (src/Test/Hspec/Core/Extension/Option.hs:27)
optionalArgument (src/Test/Hspec/Core/Extension/Option.hs:24)
33% ( 3 / 9) in 'Test.Hspec.Core.Extension.Config'
Missing documentation for:
Module header
Config (src/Test/Hspec/Core/Config/Definition.hs:80)
ColorMode (src/Test/Hspec/Core/Config/Definition.hs:74)
UnicodeMode (src/Test/Hspec/Core/Config/Definition.hs:77)
setAnnotation (src/Test/Hspec/Core/Extension/Config/Type.hs:26)
getAnnotation (src/Test/Hspec/Core/Extension/Config/Type.hs:29)
Warning: 'Item' is ambiguous. It is defined
* at src/Test/Hspec/Core/Tree.hs:107:15
* at src/Test/Hspec/Core/Tree.hs:107:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/Hspec/Core/Tree.hs:107:1
82% ( 19 / 23) in 'Test.Hspec.Core.Extension'
Missing documentation for:
Option (src/Test/Hspec/Core/Extension/Config/Type.hs:23)
registerOptions (src/Test/Hspec/Core/Extension.hs:93)
Config (src/Test/Hspec/Core/Config/Definition.hs:80)
SpecTree (src/Test/Hspec/Core/Extension/Tree.hs:13)
Warning: 'Config' is ambiguous. It is defined
* at src/Test/Hspec/Core/Config/Definition.hs:80:15
* at src/Test/Hspec/Core/Config/Definition.hs:80:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/Hspec/Core/Config/Definition.hs:80:1
Warning: 'Config' is ambiguous. It is defined
* at src/Test/Hspec/Core/Config/Definition.hs:80:15
* at src/Test/Hspec/Core/Config/Definition.hs:80:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/Hspec/Core/Config/Definition.hs:80:1
Warning: 'Summary' is ambiguous. It is defined
* at src/Test/Hspec/Core/Runner/Result.hs:82:16
* at src/Test/Hspec/Core/Runner/Result.hs:82:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Test/Hspec/Core/Runner/Result.hs:82:1
83% ( 36 / 43) in 'Test.Hspec.Core.Runner'
Missing documentation for:
evaluateResult (src/Test/Hspec/Core/Runner.hs:217)
toSummary (src/Test/Hspec/Core/Runner/Result.hs:101)
ResultItemStatus (src/Test/Hspec/Core/Runner/Result.hs:61)
Config (src/Test/Hspec/Core/Config/Definition.hs:80)
ColorMode (src/Test/Hspec/Core/Config/Definition.hs:74)
UnicodeMode (src/Test/Hspec/Core/Config/Definition.hs:77)
defaultConfig (src/Test/Hspec/Core/Config.hs:39)
Warning: Test.Hspec.Core.Formatters.V1: could not find link destinations for:
- Test.Hspec.Core.Formatters.V1.Free.Free
- Test.Hspec.Core.Formatters.V1.Monad.FormatF
Warning: Test.Hspec.Core.QuickCheck: could not find link destinations for:
- Test.Hspec.Core.QuickCheck.D:R:ArgFUN
- Test.Hspec.Core.QuickCheck.D:R:ArgProperty
Warning: Test.Hspec.Core.Spec: could not find link destinations for:
- Test.Hspec.Core.Annotations.Annotations
- Test.Hspec.Core.Example.D:R:ArgFUN
- Test.Hspec.Core.Example.D:R:ArgIO
- Test.Hspec.Core.Example.D:R:ArgFUN0
- Test.Hspec.Core.Example.D:R:ArgBool
- Test.Hspec.Core.Example.D:R:ArgFUN1
- Test.Hspec.Core.Example.D:R:ArgResult
- Test.Hspec.Core.Spec.Monad.Env
- Test.Hspec.Core.QuickCheck.D:R:ArgFUN
- Test.Hspec.Core.QuickCheck.D:R:ArgProperty
Warning: Test.Hspec.Core.Extension.Item: could not find link destinations for:
- Test.Hspec.Core.Annotations.Annotations
- Test.Hspec.Core.Example.D:R:ArgFUN1
- Test.Hspec.Core.Example.D:R:ArgResult
Warning: Test.Hspec.Core.Extension.Config: could not find link destinations for:
- Test.Hspec.Core.Annotations.Annotations
Warning: Test.Hspec.Core.Runner: could not find link destinations for:
- Test.Hspec.Core.Annotations.Annotations
Documentation created: dist/doc/html/hspec-core/,
dist/doc/html/hspec-core/hspec-core.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-core-2.11.14-KY3bOnxQPsR985XbsTcuIt
Completed hspec-core-2.11.14
Configuring semigroupoids-6.0.1...
Preprocessing library for semigroupoids-6.0.1..
Building library for semigroupoids-6.0.1..
[ 1 of 27] Compiling Data.Functor.Extend ( src/Data/Functor/Extend.hs, dist/build/Data/Functor/Extend.o, dist/build/Data/Functor/Extend.dyn_o )
[ 2 of 27] Compiling Data.Semigroup.Foldable.Class ( src/Data/Semigroup/Foldable/Class.hs, dist/build/Data/Semigroup/Foldable/Class.o, dist/build/Data/Semigroup/Foldable/Class.dyn_o )
[ 3 of 27] Compiling Data.Traversable.Instances ( src/Data/Traversable/Instances.hs, dist/build/Data/Traversable/Instances.o, dist/build/Data/Traversable/Instances.dyn_o )
[ 4 of 27] Compiling Semigroupoids.Internal ( src/Semigroupoids/Internal.hs, dist/build/Semigroupoids/Internal.o, dist/build/Semigroupoids/Internal.dyn_o )
[ 5 of 27] Compiling Data.Functor.Bind.Class ( src/Data/Functor/Bind/Class.hs, dist/build/Data/Functor/Bind/Class.o, dist/build/Data/Functor/Bind/Class.dyn_o )
[ 6 of 27] Compiling Data.Functor.Apply ( src/Data/Functor/Apply.hs, dist/build/Data/Functor/Apply.o, dist/build/Data/Functor/Apply.dyn_o )
[ 7 of 27] Compiling Data.Semigroup.Bifoldable ( src/Data/Semigroup/Bifoldable.hs, dist/build/Data/Semigroup/Bifoldable.o, dist/build/Data/Semigroup/Bifoldable.dyn_o )
[ 8 of 27] Compiling Data.Functor.Contravariant.Divise ( src/Data/Functor/Contravariant/Divise.hs, dist/build/Data/Functor/Contravariant/Divise.o, dist/build/Data/Functor/Contravariant/Divise.dyn_o )
[ 9 of 27] Compiling Data.Functor.Contravariant.Decide ( src/Data/Functor/Contravariant/Decide.hs, dist/build/Data/Functor/Contravariant/Decide.o, dist/build/Data/Functor/Contravariant/Decide.dyn_o )
[10 of 27] Compiling Data.Functor.Contravariant.Conclude ( src/Data/Functor/Contravariant/Conclude.hs, dist/build/Data/Functor/Contravariant/Conclude.o, dist/build/Data/Functor/Contravariant/Conclude.dyn_o )
[11 of 27] Compiling Data.Functor.Bind ( src/Data/Functor/Bind.hs, dist/build/Data/Functor/Bind.o, dist/build/Data/Functor/Bind.dyn_o )
[12 of 27] Compiling Data.Semigroupoid ( src/Data/Semigroupoid.hs, dist/build/Data/Semigroupoid.o, dist/build/Data/Semigroupoid.dyn_o )
[13 of 27] Compiling Data.Semigroupoid.Ob ( src/Data/Semigroupoid/Ob.hs, dist/build/Data/Semigroupoid/Ob.o, dist/build/Data/Semigroupoid/Ob.dyn_o )
[14 of 27] Compiling Data.Semigroupoid.Dual ( src/Data/Semigroupoid/Dual.hs, dist/build/Data/Semigroupoid/Dual.o, dist/build/Data/Semigroupoid/Dual.dyn_o )
[15 of 27] Compiling Data.Semigroupoid.Categorical ( src/Data/Semigroupoid/Categorical.hs, dist/build/Data/Semigroupoid/Categorical.o, dist/build/Data/Semigroupoid/Categorical.dyn_o )
[16 of 27] Compiling Data.Groupoid ( src/Data/Groupoid.hs, dist/build/Data/Groupoid.o, dist/build/Data/Groupoid.dyn_o )
[17 of 27] Compiling Data.Isomorphism ( src/Data/Isomorphism.hs, dist/build/Data/Isomorphism.o, dist/build/Data/Isomorphism.dyn_o )
[18 of 27] Compiling Data.Functor.Bind.Trans ( src/Data/Functor/Bind/Trans.hs, dist/build/Data/Functor/Bind/Trans.o, dist/build/Data/Functor/Bind/Trans.dyn_o )
[19 of 27] Compiling Data.Bifunctor.Apply ( src/Data/Bifunctor/Apply.hs, dist/build/Data/Bifunctor/Apply.o, dist/build/Data/Bifunctor/Apply.dyn_o )
[20 of 27] Compiling Data.Functor.Alt ( src/Data/Functor/Alt.hs, dist/build/Data/Functor/Alt.o, dist/build/Data/Functor/Alt.dyn_o )
[21 of 27] Compiling Data.Semigroup.Foldable ( src/Data/Semigroup/Foldable.hs, dist/build/Data/Semigroup/Foldable.o, dist/build/Data/Semigroup/Foldable.dyn_o )
[22 of 27] Compiling Data.Semigroup.Traversable.Class ( src/Data/Semigroup/Traversable/Class.hs, dist/build/Data/Semigroup/Traversable/Class.o, dist/build/Data/Semigroup/Traversable/Class.dyn_o )
[23 of 27] Compiling Data.Semigroup.Traversable ( src/Data/Semigroup/Traversable.hs, dist/build/Data/Semigroup/Traversable.o, dist/build/Data/Semigroup/Traversable.dyn_o )
[24 of 27] Compiling Data.Semigroup.Bitraversable ( src/Data/Semigroup/Bitraversable.hs, dist/build/Data/Semigroup/Bitraversable.o, dist/build/Data/Semigroup/Bitraversable.dyn_o )
[25 of 27] Compiling Data.Functor.Plus ( src/Data/Functor/Plus.hs, dist/build/Data/Functor/Plus.o, dist/build/Data/Functor/Plus.dyn_o )
[26 of 27] Compiling Semigroupoids.Do ( src/Semigroupoids/Do.hs, dist/build/Semigroupoids/Do.o, dist/build/Semigroupoids/Do.dyn_o )
[27 of 27] Compiling Data.Semigroupoid.Static ( src/Data/Semigroupoid/Static.hs, dist/build/Data/Semigroupoid/Static.o, dist/build/Data/Semigroupoid/Static.dyn_o )
Preprocessing library for semigroupoids-6.0.1..
Running Haddock on library for semigroupoids-6.0.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 27] Compiling Data.Functor.Extend ( src/Data/Functor/Extend.hs, nothing )
[ 2 of 27] Compiling Data.Semigroup.Foldable.Class ( src/Data/Semigroup/Foldable/Class.hs, nothing )
[ 3 of 27] Compiling Data.Traversable.Instances ( src/Data/Traversable/Instances.hs, nothing )
[ 4 of 27] Compiling Semigroupoids.Internal ( src/Semigroupoids/Internal.hs, nothing )
[ 5 of 27] Compiling Data.Functor.Bind.Class ( src/Data/Functor/Bind/Class.hs, nothing )
[ 6 of 27] Compiling Data.Functor.Apply ( src/Data/Functor/Apply.hs, nothing )
[ 7 of 27] Compiling Data.Semigroup.Bifoldable ( src/Data/Semigroup/Bifoldable.hs, nothing )
[ 8 of 27] Compiling Data.Functor.Contravariant.Divise ( src/Data/Functor/Contravariant/Divise.hs, nothing )
[ 9 of 27] Compiling Data.Functor.Contravariant.Decide ( src/Data/Functor/Contravariant/Decide.hs, nothing )
[10 of 27] Compiling Data.Functor.Contravariant.Conclude ( src/Data/Functor/Contravariant/Conclude.hs, nothing )
[11 of 27] Compiling Data.Functor.Bind ( src/Data/Functor/Bind.hs, nothing )
[12 of 27] Compiling Data.Semigroupoid ( src/Data/Semigroupoid.hs, nothing )
[13 of 27] Compiling Data.Semigroupoid.Ob ( src/Data/Semigroupoid/Ob.hs, nothing )
[14 of 27] Compiling Data.Semigroupoid.Dual ( src/Data/Semigroupoid/Dual.hs, nothing )
[15 of 27] Compiling Data.Semigroupoid.Categorical ( src/Data/Semigroupoid/Categorical.hs, nothing )
[16 of 27] Compiling Data.Groupoid ( src/Data/Groupoid.hs, nothing )
[17 of 27] Compiling Data.Isomorphism ( src/Data/Isomorphism.hs, nothing )
[18 of 27] Compiling Data.Functor.Bind.Trans ( src/Data/Functor/Bind/Trans.hs, nothing )
[19 of 27] Compiling Data.Bifunctor.Apply ( src/Data/Bifunctor/Apply.hs, nothing )
[20 of 27] Compiling Data.Functor.Alt ( src/Data/Functor/Alt.hs, nothing )
[21 of 27] Compiling Data.Semigroup.Foldable ( src/Data/Semigroup/Foldable.hs, nothing )
[22 of 27] Compiling Data.Semigroup.Traversable.Class ( src/Data/Semigroup/Traversable/Class.hs, nothing )
[23 of 27] Compiling Data.Semigroup.Traversable ( src/Data/Semigroup/Traversable.hs, nothing )
[24 of 27] Compiling Data.Semigroup.Bitraversable ( src/Data/Semigroup/Bitraversable.hs, nothing )
[25 of 27] Compiling Data.Functor.Plus ( src/Data/Functor/Plus.hs, nothing )
[26 of 27] Compiling Semigroupoids.Do ( src/Semigroupoids/Do.hs, nothing )
[27 of 27] Compiling Data.Semigroupoid.Static ( src/Data/Semigroupoid/Static.hs, nothing )
Haddock coverage:
83% ( 5 / 6) in 'Data.Functor.Extend'
Missing documentation for:
Extend (src/Data/Functor/Extend.hs:55)
66% ( 2 / 3) in 'Data.Semigroup.Foldable.Class'
Missing documentation for:
Bifoldable1
100% ( 1 / 1) in 'Data.Traversable.Instances'
Warning: 'MaybeApply' is ambiguous. It is defined
* at src/Data/Functor/Bind/Class.hs:411:26
* at src/Data/Functor/Bind/Class.hs:411:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Functor/Bind/Class.hs:411:1
Warning: 'K1' is ambiguous. It is defined
* in GHC.Generics
* in GHC.Generics
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Generics
Warning: 'StoreT' is ambiguous. It is defined
* in Control.Comonad.Trans.Store
* in Control.Comonad.Trans.Store
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Comonad.Trans.Store
Warning: 'EnvT' is ambiguous. It is defined
* in Control.Comonad.Trans.Env
* in Control.Comonad.Trans.Env
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Comonad.Trans.Env
Warning: 'Const' is ambiguous. It is defined
* in Data.Functor.Const
* in Data.Functor.Const
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Functor.Const
Warning: '(,)' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Constant' is ambiguous. It is defined
* in Data.Functor.Constant
* in Data.Functor.Constant
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Functor.Constant
80% ( 12 / 15) in 'Data.Functor.Bind.Class'
Missing documentation for:
apDefault (src/Data/Functor/Bind/Class.hs:540)
returning (src/Data/Functor/Bind/Class.hs:537)
Biapply (src/Data/Functor/Bind/Class.hs:753)
100% ( 16 / 16) in 'Data.Functor.Apply'
33% ( 2 / 6) in 'Data.Semigroup.Bifoldable'
Missing documentation for:
Bifoldable1
bitraverse1_ (src/Data/Semigroup/Bifoldable.hs:46)
bifor1_ (src/Data/Semigroup/Bifoldable.hs:50)
bisequenceA1_ (src/Data/Semigroup/Bifoldable.hs:58)
Warning: 'Day' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 6 / 6) in 'Data.Functor.Contravariant.Divise'
Warning: 'Alt' is ambiguous. It is defined
* in Data.Semigroup.Internal
* in Data.Semigroup.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Semigroup.Internal
Warning: 'EitherDay' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Conclude' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 5 / 5) in 'Data.Functor.Contravariant.Decide'
Warning: 'Plus' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 5 / 5) in 'Data.Functor.Contravariant.Conclude'
Warning: ':*:' is ambiguous. It is defined
* in GHC.Generics
* in GHC.Generics
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Generics
75% ( 15 / 20) in 'Data.Functor.Bind'
Missing documentation for:
-<< (src/Data/Functor/Bind.hs:53)
-<- (src/Data/Functor/Bind.hs:59)
->- (src/Data/Functor/Bind.hs:56)
apDefault (src/Data/Functor/Bind/Class.hs:540)
returning (src/Data/Functor/Bind/Class.hs:537)
50% ( 2 / 4) in 'Data.Semigroupoid'
Missing documentation for:
WrappedCategory (src/Data/Semigroupoid.hs:71)
Semi (src/Data/Semigroupoid.hs:80)
50% ( 1 / 2) in 'Data.Semigroupoid.Ob'
Missing documentation for:
Ob (src/Data/Semigroupoid/Ob.hs:29)
50% ( 1 / 2) in 'Data.Semigroupoid.Dual'
Missing documentation for:
Dual (src/Data/Semigroupoid/Dual.hs:21)
100% ( 3 / 3) in 'Data.Semigroupoid.Categorical'
100% ( 2 / 2) in 'Data.Groupoid'
50% ( 1 / 2) in 'Data.Isomorphism'
Missing documentation for:
Iso (src/Data/Isomorphism.hs:23)
100% ( 2 / 2) in 'Data.Functor.Bind.Trans'
62% ( 5 / 8) in 'Data.Bifunctor.Apply'
Missing documentation for:
Biapply (src/Data/Functor/Bind/Class.hs:753)
<<$>>
<<..>> (src/Data/Bifunctor/Apply.hs:28)
Warning: 'ExceptT' is ambiguous. It is defined
* in Control.Monad.Trans.Except
* in Control.Monad.Trans.Except
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.Except
Warning: 'Identity' is ambiguous. It is defined
* in Data.Functor.Identity
* in Data.Functor.Identity
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Functor.Identity
Warning: 'Bind' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 5 / 5) in 'Data.Functor.Alt'
71% ( 10 / 14) in 'Data.Semigroup.Foldable'
Missing documentation for:
traverse1_ (src/Data/Semigroup/Foldable.hs:78)
for1_ (src/Data/Semigroup/Foldable.hs:82)
sequenceA1_ (src/Data/Semigroup/Foldable.hs:86)
asum1 (src/Data/Semigroup/Foldable.hs:104)
33% ( 1 / 3) in 'Data.Semigroup.Traversable.Class'
Missing documentation for:
Bitraversable1 (src/Data/Semigroup/Traversable/Class.hs:59)
Traversable1 (src/Data/Semigroup/Traversable/Class.hs:139)
Warning: 'foldMap1' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
88% ( 8 / 9) in 'Data.Semigroup.Traversable'
Missing documentation for:
Traversable1 (src/Data/Semigroup/Traversable/Class.hs:139)
33% ( 1 / 3) in 'Data.Semigroup.Bitraversable'
Missing documentation for:
Bitraversable1 (src/Data/Semigroup/Traversable/Class.hs:59)
bifoldMap1Default (src/Data/Semigroup/Bitraversable.hs:25)
100% ( 5 / 5) in 'Data.Functor.Plus'
Warning: 'Applicative' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Monad' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
90% ( 10 / 11) in 'Semigroupoids.Do'
Missing documentation for:
join
50% ( 1 / 2) in 'Data.Semigroupoid.Static'
Missing documentation for:
Static (src/Data/Semigroupoid/Static.hs:35)
Warning: Data.Functor.Apply: could not find link destinations for:
- Text.ParserCombinators.ReadP.P
- Data.Biapplicative.Mag
- Data.Graph.SetM
Warning: Data.Functor.Bind: could not find link destinations for:
- Text.ParserCombinators.ReadP.P
- Data.Biapplicative.Mag
- Data.Graph.SetM
Documentation created: dist/doc/html/semigroupoids/,
dist/doc/html/semigroupoids/semigroupoids.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED
Completed semigroupoids-6.0.1
Configuring tasty-1.5.3...
Preprocessing library for tasty-1.5.3..
Building library for tasty-1.5.3..
[ 1 of 25] Compiling Control.Concurrent.Async ( Control/Concurrent/Async.hs, dist/build/Control/Concurrent/Async.o, dist/build/Control/Concurrent/Async.dyn_o )
[ 2 of 25] Compiling Test.Tasty.Options ( Test/Tasty/Options.hs, dist/build/Test/Tasty/Options.o, dist/build/Test/Tasty/Options.dyn_o )
[ 3 of 25] Compiling Test.Tasty.Parallel ( Test/Tasty/Parallel.hs, dist/build/Test/Tasty/Parallel.o, dist/build/Test/Tasty/Parallel.dyn_o )
[ 4 of 25] Compiling Test.Tasty.Patterns.Expr ( Test/Tasty/Patterns/Expr.hs, dist/build/Test/Tasty/Patterns/Expr.o, dist/build/Test/Tasty/Patterns/Expr.dyn_o )
[ 5 of 25] Compiling Test.Tasty.Patterns.Types ( Test/Tasty/Patterns/Types.hs, dist/build/Test/Tasty/Patterns/Types.o, dist/build/Test/Tasty/Patterns/Types.dyn_o )
[ 6 of 25] Compiling Test.Tasty.Patterns.Printer ( Test/Tasty/Patterns/Printer.hs, dist/build/Test/Tasty/Patterns/Printer.o, dist/build/Test/Tasty/Patterns/Printer.dyn_o )
[ 7 of 25] Compiling Test.Tasty.Patterns.Parser ( Test/Tasty/Patterns/Parser.hs, dist/build/Test/Tasty/Patterns/Parser.o, dist/build/Test/Tasty/Patterns/Parser.dyn_o )
[ 8 of 25] Compiling Test.Tasty.Patterns.Eval ( Test/Tasty/Patterns/Eval.hs, dist/build/Test/Tasty/Patterns/Eval.o, dist/build/Test/Tasty/Patterns/Eval.dyn_o )
[ 9 of 25] Compiling Test.Tasty.Patterns ( Test/Tasty/Patterns.hs, dist/build/Test/Tasty/Patterns.o, dist/build/Test/Tasty/Patterns.dyn_o )
[10 of 25] Compiling Test.Tasty.Options.Core ( Test/Tasty/Options/Core.hs, dist/build/Test/Tasty/Options/Core.o, dist/build/Test/Tasty/Options/Core.dyn_o )
[11 of 25] Compiling Test.Tasty.Providers.ConsoleFormat ( Test/Tasty/Providers/ConsoleFormat.hs, dist/build/Test/Tasty/Providers/ConsoleFormat.o, dist/build/Test/Tasty/Providers/ConsoleFormat.dyn_o )
[12 of 25] Compiling Test.Tasty.Core ( Test/Tasty/Core.hs, dist/build/Test/Tasty/Core.o, dist/build/Test/Tasty/Core.dyn_o )
[13 of 25] Compiling Test.Tasty.Providers ( Test/Tasty/Providers.hs, dist/build/Test/Tasty/Providers.o, dist/build/Test/Tasty/Providers.dyn_o )
[14 of 25] Compiling Test.Tasty.Runners.Reducers ( Test/Tasty/Runners/Reducers.hs, dist/build/Test/Tasty/Runners/Reducers.o, dist/build/Test/Tasty/Runners/Reducers.dyn_o )
[15 of 25] Compiling Test.Tasty.Runners.Utils ( Test/Tasty/Runners/Utils.hs, dist/build/Test/Tasty/Runners/Utils.o, dist/build/Test/Tasty/Runners/Utils.dyn_o )
[16 of 25] Compiling Test.Tasty.Run ( Test/Tasty/Run.hs, dist/build/Test/Tasty/Run.o, dist/build/Test/Tasty/Run.dyn_o )
[17 of 25] Compiling Test.Tasty.Ingredients ( Test/Tasty/Ingredients.hs, dist/build/Test/Tasty/Ingredients.o, dist/build/Test/Tasty/Ingredients.dyn_o )
[18 of 25] Compiling Test.Tasty.Options.Env ( Test/Tasty/Options/Env.hs, dist/build/Test/Tasty/Options/Env.o, dist/build/Test/Tasty/Options/Env.dyn_o )
[19 of 25] Compiling Test.Tasty.Ingredients.ListTests ( Test/Tasty/Ingredients/ListTests.hs, dist/build/Test/Tasty/Ingredients/ListTests.o, dist/build/Test/Tasty/Ingredients/ListTests.dyn_o )
[20 of 25] Compiling Test.Tasty.Ingredients.IncludingOptions ( Test/Tasty/Ingredients/IncludingOptions.hs, dist/build/Test/Tasty/Ingredients/IncludingOptions.o, dist/build/Test/Tasty/Ingredients/IncludingOptions.dyn_o )
[21 of 25] Compiling Test.Tasty.Ingredients.ConsoleReporter ( Test/Tasty/Ingredients/ConsoleReporter.hs, dist/build/Test/Tasty/Ingredients/ConsoleReporter.o, dist/build/Test/Tasty/Ingredients/ConsoleReporter.dyn_o )
[22 of 25] Compiling Test.Tasty.Ingredients.Basic ( Test/Tasty/Ingredients/Basic.hs, dist/build/Test/Tasty/Ingredients/Basic.o, dist/build/Test/Tasty/Ingredients/Basic.dyn_o )
[23 of 25] Compiling Test.Tasty.CmdLine ( Test/Tasty/CmdLine.hs, dist/build/Test/Tasty/CmdLine.o, dist/build/Test/Tasty/CmdLine.dyn_o )
[24 of 25] Compiling Test.Tasty.Runners ( Test/Tasty/Runners.hs, dist/build/Test/Tasty/Runners.o, dist/build/Test/Tasty/Runners.dyn_o )
[25 of 25] Compiling Test.Tasty ( Test/Tasty.hs, dist/build/Test/Tasty.o, dist/build/Test/Tasty.dyn_o )
Preprocessing library for tasty-1.5.3..
Running Haddock on library for tasty-1.5.3..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 25] Compiling Control.Concurrent.Async ( Control/Concurrent/Async.hs, nothing )
[ 2 of 25] Compiling Test.Tasty.Options ( Test/Tasty/Options.hs, nothing )
[ 3 of 25] Compiling Test.Tasty.Parallel ( Test/Tasty/Parallel.hs, nothing )
[ 4 of 25] Compiling Test.Tasty.Patterns.Expr ( Test/Tasty/Patterns/Expr.hs, nothing )
[ 5 of 25] Compiling Test.Tasty.Patterns.Types ( Test/Tasty/Patterns/Types.hs, nothing )
[ 6 of 25] Compiling Test.Tasty.Patterns.Printer ( Test/Tasty/Patterns/Printer.hs, nothing )
[ 7 of 25] Compiling Test.Tasty.Patterns.Parser ( Test/Tasty/Patterns/Parser.hs, nothing )
[ 8 of 25] Compiling Test.Tasty.Patterns.Eval ( Test/Tasty/Patterns/Eval.hs, nothing )
[ 9 of 25] Compiling Test.Tasty.Patterns ( Test/Tasty/Patterns.hs, nothing )
[10 of 25] Compiling Test.Tasty.Options.Core ( Test/Tasty/Options/Core.hs, nothing )
[11 of 25] Compiling Test.Tasty.Providers.ConsoleFormat ( Test/Tasty/Providers/ConsoleFormat.hs, nothing )
[12 of 25] Compiling Test.Tasty.Core ( Test/Tasty/Core.hs, nothing )
[13 of 25] Compiling Test.Tasty.Providers ( Test/Tasty/Providers.hs, nothing )
[14 of 25] Compiling Test.Tasty.Runners.Reducers ( Test/Tasty/Runners/Reducers.hs, nothing )
[15 of 25] Compiling Test.Tasty.Runners.Utils ( Test/Tasty/Runners/Utils.hs, nothing )
[16 of 25] Compiling Test.Tasty.Run ( Test/Tasty/Run.hs, nothing )
[17 of 25] Compiling Test.Tasty.Ingredients ( Test/Tasty/Ingredients.hs, nothing )
[18 of 25] Compiling Test.Tasty.Options.Env ( Test/Tasty/Options/Env.hs, nothing )
[19 of 25] Compiling Test.Tasty.Ingredients.ListTests ( Test/Tasty/Ingredients/ListTests.hs, nothing )
[20 of 25] Compiling Test.Tasty.Ingredients.IncludingOptions ( Test/Tasty/Ingredients/IncludingOptions.hs, nothing )
[21 of 25] Compiling Test.Tasty.Ingredients.ConsoleReporter ( Test/Tasty/Ingredients/ConsoleReporter.hs, nothing )
[22 of 25] Compiling Test.Tasty.Ingredients.Basic ( Test/Tasty/Ingredients/Basic.hs, nothing )
[23 of 25] Compiling Test.Tasty.CmdLine ( Test/Tasty/CmdLine.hs, nothing )
[24 of 25] Compiling Test.Tasty.Runners ( Test/Tasty/Runners.hs, nothing )
[25 of 25] Compiling Test.Tasty ( Test/Tasty.hs, nothing )
Haddock coverage:
Warning: 'ThreadId' is ambiguous. It is defined
* in GHC.Conc.Sync
* in GHC.Conc.Sync
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Conc.Sync
Warning: 'Async' is ambiguous. It is defined
* at Control/Concurrent/Async.hs:60:16
* at Control/Concurrent/Async.hs:60:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Concurrent/Async.hs:60:1
Warning: 'OptionSet' is ambiguous. It is defined
* at Test/Tasty/Options.hs:101:21
* at Test/Tasty/Options.hs:101:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Options.hs:101:1
100% ( 17 / 17) in 'Test.Tasty.Options'
Warning: 'Action' is ambiguous. It is defined
* at Test/Tasty/Parallel.hs:21:15
* at Test/Tasty/Parallel.hs:21:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Parallel.hs:21:1
100% ( 2 / 2) in 'Test.Tasty.Patterns.Types'
100% ( 2 / 2) in 'Test.Tasty.Patterns.Printer'
Warning: 'Parser' is ambiguous. It is defined
* at Test/Tasty/Patterns/Parser.hs:32:20
* at Test/Tasty/Patterns/Parser.hs:32:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Patterns/Parser.hs:32:1
100% ( 6 / 6) in 'Test.Tasty.Patterns.Parser'
100% ( 5 / 5) in 'Test.Tasty.Patterns.Eval'
Warning: 'Timeout' is ambiguous. It is defined
* at Test/Tasty/Options/Core.hs:56:5
* at Test/Tasty/Options/Core.hs:55:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Options/Core.hs:55:1
Warning: 'TestPattern' is ambiguous. It is defined
* at Test/Tasty/Patterns.hs:33:3
* at Test/Tasty/Patterns.hs:31:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Patterns.hs:31:1
Warning: 'Map' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 10 / 10) in 'Test.Tasty.Providers.ConsoleFormat'
Warning: 'ResourceSpec' is ambiguous. It is defined
* at Test/Tasty/Core.hs:226:23
* at Test/Tasty/Core.hs:226:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Core.hs:226:1
Warning: 'Result' is ambiguous. It is defined
* at Test/Tasty/Core.hs:91:15
* at Test/Tasty/Core.hs:91:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Core.hs:91:1
Warning: 'Result' is ambiguous. It is defined
* at Test/Tasty/Core.hs:91:15
* at Test/Tasty/Core.hs:91:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Core.hs:91:1
100% ( 10 / 10) in 'Test.Tasty.Providers'
Warning: 'SignalException' is ambiguous. It is defined
* at Test/Tasty/Runners/Utils.hs:104:27
* at Test/Tasty/Runners/Utils.hs:104:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Runners/Utils.hs:104:1
Warning: 'TestAction' is ambiguous. It is defined
* at Test/Tasty/Run.hs:305:23
* at Test/Tasty/Run.hs:305:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Run.hs:305:1
Warning: 'Initializer' is ambiguous. It is defined
* at Test/Tasty/Run.hs:96:5
* at Test/Tasty/Run.hs:95:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Run.hs:95:1
Warning: 'Finalizer' is ambiguous. It is defined
* at Test/Tasty/Run.hs:100:5
* at Test/Tasty/Run.hs:99:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Run.hs:99:1
Warning: 'Action' is ambiguous. It is defined
* at Test/Tasty/Parallel.hs:21:15
* at Test/Tasty/Parallel.hs:21:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Parallel.hs:21:1
Warning: 'Dependency' is ambiguous. It is defined
* at Test/Tasty/Run.hs:282:19
* at Test/Tasty/Run.hs:282:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Run.hs:282:1
Warning: 'NumThreads' is ambiguous. It is defined
* at Test/Tasty/Options/Core.hs:38:22
* at Test/Tasty/Options/Core.hs:38:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Options/Core.hs:38:1
Warning: 'NumThreads' is ambiguous. It is defined
* at Test/Tasty/Options/Core.hs:38:22
* at Test/Tasty/Options/Core.hs:38:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Options/Core.hs:38:1
100% ( 7 / 7) in 'Test.Tasty.Ingredients'
Warning: 'Statistics' is ambiguous. It is defined
* at Test/Tasty/Ingredients/ConsoleReporter.hs:382:19
* at Test/Tasty/Ingredients/ConsoleReporter.hs:382:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Ingredients/ConsoleReporter.hs:382:1
Warning: 'Result' is ambiguous. It is defined
* at Test/Tasty/Core.hs:91:15
* at Test/Tasty/Core.hs:91:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Test/Tasty/Core.hs:91:1
100% ( 22 / 22) in 'Test.Tasty.Ingredients.ConsoleReporter'
100% ( 12 / 12) in 'Test.Tasty.Ingredients.Basic'
100% ( 58 / 58) in 'Test.Tasty.Runners'
100% ( 26 / 26) in 'Test.Tasty'
Warning: Test.Tasty.Patterns.Types: could not find link destinations for:
- Test.Tasty.Patterns.Types.Rep_Expr
Warning: Test.Tasty.Patterns.Eval: could not find link destinations for:
- Test.Tasty.Patterns.Eval.M
- Test.Tasty.Patterns.Eval.Value
Warning: Test.Tasty.Runners: could not find link destinations for:
- Test.Tasty.Core.Rep_Outcome
Documentation created: dist/doc/html/tasty/, dist/doc/html/tasty/tasty.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/tasty-1.5.3-8bGipBEqvCZ29fR2jkj5jz
Completed tasty-1.5.3
Configuring hspec-2.11.14...
Preprocessing library for hspec-2.11.14..
Building library for hspec-2.11.14..
[1 of 6] Compiling Paths_hspec ( dist/build/autogen/Paths_hspec.hs, dist/build/Paths_hspec.o, dist/build/Paths_hspec.dyn_o )
[2 of 6] Compiling Test.Hspec.Discover ( src/Test/Hspec/Discover.hs, dist/build/Test/Hspec/Discover.o, dist/build/Test/Hspec/Discover.dyn_o )
[3 of 6] Compiling Test.Hspec.Formatters ( src/Test/Hspec/Formatters.hs, dist/build/Test/Hspec/Formatters.o, dist/build/Test/Hspec/Formatters.dyn_o )
[4 of 6] Compiling Test.Hspec.Runner ( src/Test/Hspec/Runner.hs, dist/build/Test/Hspec/Runner.o, dist/build/Test/Hspec/Runner.dyn_o )
[5 of 6] Compiling Test.Hspec ( src/Test/Hspec.hs, dist/build/Test/Hspec.o, dist/build/Test/Hspec.dyn_o )
[6 of 6] Compiling Test.Hspec.QuickCheck ( src/Test/Hspec/QuickCheck.hs, dist/build/Test/Hspec/QuickCheck.o, dist/build/Test/Hspec/QuickCheck.dyn_o )
Preprocessing library for hspec-2.11.14..
Running Haddock on library for hspec-2.11.14..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 6] Compiling Paths_hspec ( dist/build/autogen/Paths_hspec.hs, nothing )
[2 of 6] Compiling Test.Hspec.Discover ( src/Test/Hspec/Discover.hs, nothing )
[3 of 6] Compiling Test.Hspec.Formatters ( src/Test/Hspec/Formatters.hs, nothing )
[4 of 6] Compiling Test.Hspec.Runner ( src/Test/Hspec/Runner.hs, nothing )
[5 of 6] Compiling Test.Hspec ( src/Test/Hspec.hs, nothing )
[6 of 6] Compiling Test.Hspec.QuickCheck ( src/Test/Hspec/QuickCheck.hs, nothing )
Haddock coverage:
50% ( 4 / 8) in 'Test.Hspec.Discover'
Missing documentation for:
Module header
IsFormatter (src/Test/Hspec/Discover.hs:19)
hspecWithFormatter (src/Test/Hspec/Discover.hs:29)
postProcessSpec (src/Test/Hspec/Discover.hs:34)
100% ( 2 / 2) in 'Test.Hspec.Formatters'
50% ( 1 / 2) in 'Test.Hspec.Runner'
Missing documentation for:
Module header
100% ( 53 / 53) in 'Test.Hspec'
90% ( 10 / 11) in 'Test.Hspec.QuickCheck'
Missing documentation for:
Module header
Warning: Test.Hspec: could not find link destinations for:
- Test.Hspec.Core.Example.D:R:ArgBool
- Test.Hspec.Core.Example.D:R:ArgFUN
- Test.Hspec.Core.Example.D:R:ArgFUN0
- Test.Hspec.Core.Example.D:R:ArgFUN1
- Test.Hspec.Core.Example.D:R:ArgIO
- Test.Hspec.Core.Example.D:R:ArgResult
Documentation created: dist/doc/html/hspec/, dist/doc/html/hspec/hspec.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-2.11.14-CDruTqWzqueKvxtG5EcYex
Completed hspec-2.11.14
Configuring vector-0.13.2.0...
Preprocessing library for vector-0.13.2.0..
Building library for vector-0.13.2.0..
[ 1 of 23] Compiling Data.Vector.Fusion.Stream.Monadic ( src/Data/Vector/Fusion/Stream/Monadic.hs, dist/build/Data/Vector/Fusion/Stream/Monadic.o, dist/build/Data/Vector/Fusion/Stream/Monadic.dyn_o )
[ 2 of 23] Compiling Data.Vector.Fusion.Util ( src/Data/Vector/Fusion/Util.hs, dist/build/Data/Vector/Fusion/Util.o, dist/build/Data/Vector/Fusion/Util.dyn_o )
[ 3 of 23] Compiling Data.Vector.Fusion.Bundle.Size ( src/Data/Vector/Fusion/Bundle/Size.hs, dist/build/Data/Vector/Fusion/Bundle/Size.o, dist/build/Data/Vector/Fusion/Bundle/Size.dyn_o )
[ 4 of 23] Compiling Data.Vector.Generic.Mutable.Base ( src/Data/Vector/Generic/Mutable/Base.hs, dist/build/Data/Vector/Generic/Mutable/Base.o, dist/build/Data/Vector/Generic/Mutable/Base.dyn_o )
[ 5 of 23] Compiling Data.Vector.Generic.Base ( src/Data/Vector/Generic/Base.hs, dist/build/Data/Vector/Generic/Base.o, dist/build/Data/Vector/Generic/Base.dyn_o )
[ 6 of 23] Compiling Data.Vector.Internal.Check ( src/Data/Vector/Internal/Check.hs, dist/build/Data/Vector/Internal/Check.o, dist/build/Data/Vector/Internal/Check.dyn_o )
[ 7 of 23] Compiling Data.Vector.Fusion.Bundle.Monadic ( src/Data/Vector/Fusion/Bundle/Monadic.hs, dist/build/Data/Vector/Fusion/Bundle/Monadic.o, dist/build/Data/Vector/Fusion/Bundle/Monadic.dyn_o )
[ 8 of 23] Compiling Data.Vector.Fusion.Bundle ( src/Data/Vector/Fusion/Bundle.hs, dist/build/Data/Vector/Fusion/Bundle.o, dist/build/Data/Vector/Fusion/Bundle.dyn_o )
[ 9 of 23] Compiling Data.Vector.Generic.Mutable ( src/Data/Vector/Generic/Mutable.hs, dist/build/Data/Vector/Generic/Mutable.o, dist/build/Data/Vector/Generic/Mutable.dyn_o )
[10 of 23] Compiling Data.Vector.Generic.New ( src/Data/Vector/Generic/New.hs, dist/build/Data/Vector/Generic/New.o, dist/build/Data/Vector/Generic/New.dyn_o )
[11 of 23] Compiling Data.Vector.Generic ( src/Data/Vector/Generic.hs, dist/build/Data/Vector/Generic.o, dist/build/Data/Vector/Generic.dyn_o )
[12 of 23] Compiling Data.Vector.Mutable ( src/Data/Vector/Mutable.hs, dist/build/Data/Vector/Mutable.o, dist/build/Data/Vector/Mutable.dyn_o )
[13 of 23] Compiling Data.Vector ( src/Data/Vector.hs, dist/build/Data/Vector.o, dist/build/Data/Vector.dyn_o )
[14 of 23] Compiling Data.Vector.Primitive.Mutable ( src/Data/Vector/Primitive/Mutable.hs, dist/build/Data/Vector/Primitive/Mutable.o, dist/build/Data/Vector/Primitive/Mutable.dyn_o )
[15 of 23] Compiling Data.Vector.Primitive ( src/Data/Vector/Primitive.hs, dist/build/Data/Vector/Primitive.o, dist/build/Data/Vector/Primitive.dyn_o )
[16 of 23] Compiling Data.Vector.Storable.Internal ( src/Data/Vector/Storable/Internal.hs, dist/build/Data/Vector/Storable/Internal.o, dist/build/Data/Vector/Storable/Internal.dyn_o )
[17 of 23] Compiling Data.Vector.Storable.Mutable ( src/Data/Vector/Storable/Mutable.hs, dist/build/Data/Vector/Storable/Mutable.o, dist/build/Data/Vector/Storable/Mutable.dyn_o )
[18 of 23] Compiling Data.Vector.Storable ( src/Data/Vector/Storable.hs, dist/build/Data/Vector/Storable.o, dist/build/Data/Vector/Storable.dyn_o )
[19 of 23] Compiling Data.Vector.Strict.Mutable ( src/Data/Vector/Strict/Mutable.hs, dist/build/Data/Vector/Strict/Mutable.o, dist/build/Data/Vector/Strict/Mutable.dyn_o )
[20 of 23] Compiling Data.Vector.Strict ( src/Data/Vector/Strict.hs, dist/build/Data/Vector/Strict.o, dist/build/Data/Vector/Strict.dyn_o )
[21 of 23] Compiling Data.Vector.Unboxed.Base ( src/Data/Vector/Unboxed/Base.hs, dist/build/Data/Vector/Unboxed/Base.o, dist/build/Data/Vector/Unboxed/Base.dyn_o )
[22 of 23] Compiling Data.Vector.Unboxed ( src/Data/Vector/Unboxed.hs, dist/build/Data/Vector/Unboxed.o, dist/build/Data/Vector/Unboxed.dyn_o )
[23 of 23] Compiling Data.Vector.Unboxed.Mutable ( src/Data/Vector/Unboxed/Mutable.hs, dist/build/Data/Vector/Unboxed/Mutable.o, dist/build/Data/Vector/Unboxed/Mutable.dyn_o )
Preprocessing library 'benchmarks-O2' for vector-0.13.2.0..
Building library 'benchmarks-O2' for vector-0.13.2.0..
[ 1 of 14] Compiling Bench.Vector.Algo.AwShCC ( benchlib/Bench/Vector/Algo/AwShCC.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/AwShCC.o, dist/build/benchmarks-O2/Bench/Vector/Algo/AwShCC.dyn_o )
[ 2 of 14] Compiling Bench.Vector.Algo.FindIndexR ( benchlib/Bench/Vector/Algo/FindIndexR.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/FindIndexR.o, dist/build/benchmarks-O2/Bench/Vector/Algo/FindIndexR.dyn_o )
[ 3 of 14] Compiling Bench.Vector.Algo.HybCC ( benchlib/Bench/Vector/Algo/HybCC.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/HybCC.o, dist/build/benchmarks-O2/Bench/Vector/Algo/HybCC.dyn_o )
[ 4 of 14] Compiling Bench.Vector.Algo.Leaffix ( benchlib/Bench/Vector/Algo/Leaffix.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/Leaffix.o, dist/build/benchmarks-O2/Bench/Vector/Algo/Leaffix.dyn_o )
[ 5 of 14] Compiling Bench.Vector.Algo.ListRank ( benchlib/Bench/Vector/Algo/ListRank.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/ListRank.o, dist/build/benchmarks-O2/Bench/Vector/Algo/ListRank.dyn_o )
[ 6 of 14] Compiling Bench.Vector.Algo.MutableSet ( benchlib/Bench/Vector/Algo/MutableSet.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/MutableSet.o, dist/build/benchmarks-O2/Bench/Vector/Algo/MutableSet.dyn_o )
[ 7 of 14] Compiling Bench.Vector.Algo.NextPermutation ( benchlib/Bench/Vector/Algo/NextPermutation.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/NextPermutation.o, dist/build/benchmarks-O2/Bench/Vector/Algo/NextPermutation.dyn_o )
[ 8 of 14] Compiling Bench.Vector.Algo.Quickhull ( benchlib/Bench/Vector/Algo/Quickhull.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/Quickhull.o, dist/build/benchmarks-O2/Bench/Vector/Algo/Quickhull.dyn_o )
[ 9 of 14] Compiling Bench.Vector.Algo.Rootfix ( benchlib/Bench/Vector/Algo/Rootfix.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/Rootfix.o, dist/build/benchmarks-O2/Bench/Vector/Algo/Rootfix.dyn_o )
[10 of 14] Compiling Bench.Vector.Algo.Spectral ( benchlib/Bench/Vector/Algo/Spectral.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/Spectral.o, dist/build/benchmarks-O2/Bench/Vector/Algo/Spectral.dyn_o )
[11 of 14] Compiling Bench.Vector.Algo.Tridiag ( benchlib/Bench/Vector/Algo/Tridiag.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/Tridiag.o, dist/build/benchmarks-O2/Bench/Vector/Algo/Tridiag.dyn_o )
[12 of 14] Compiling Bench.Vector.Tasty ( benchlib/Bench/Vector/Tasty.hs, dist/build/benchmarks-O2/Bench/Vector/Tasty.o, dist/build/benchmarks-O2/Bench/Vector/Tasty.dyn_o )
[13 of 14] Compiling Bench.Vector.TestData.Graph ( benchlib/Bench/Vector/TestData/Graph.hs, dist/build/benchmarks-O2/Bench/Vector/TestData/Graph.o, dist/build/benchmarks-O2/Bench/Vector/TestData/Graph.dyn_o )
[14 of 14] Compiling Bench.Vector.TestData.ParenTree ( benchlib/Bench/Vector/TestData/ParenTree.hs, dist/build/benchmarks-O2/Bench/Vector/TestData/ParenTree.o, dist/build/benchmarks-O2/Bench/Vector/TestData/ParenTree.dyn_o )
Preprocessing library for vector-0.13.2.0..
Running Haddock on library for vector-0.13.2.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 23] Compiling Data.Vector.Fusion.Stream.Monadic ( src/Data/Vector/Fusion/Stream/Monadic.hs, nothing )
[ 2 of 23] Compiling Data.Vector.Fusion.Util ( src/Data/Vector/Fusion/Util.hs, nothing )
[ 3 of 23] Compiling Data.Vector.Fusion.Bundle.Size ( src/Data/Vector/Fusion/Bundle/Size.hs, nothing )
[ 4 of 23] Compiling Data.Vector.Generic.Mutable.Base ( src/Data/Vector/Generic/Mutable/Base.hs, nothing )
[ 5 of 23] Compiling Data.Vector.Generic.Base ( src/Data/Vector/Generic/Base.hs, nothing )
[ 6 of 23] Compiling Data.Vector.Internal.Check ( src/Data/Vector/Internal/Check.hs, nothing )
[ 7 of 23] Compiling Data.Vector.Fusion.Bundle.Monadic ( src/Data/Vector/Fusion/Bundle/Monadic.hs, nothing )
[ 8 of 23] Compiling Data.Vector.Fusion.Bundle ( src/Data/Vector/Fusion/Bundle.hs, nothing )
[ 9 of 23] Compiling Data.Vector.Generic.Mutable ( src/Data/Vector/Generic/Mutable.hs, nothing )
[10 of 23] Compiling Data.Vector.Generic.New ( src/Data/Vector/Generic/New.hs, nothing )
[11 of 23] Compiling Data.Vector.Generic ( src/Data/Vector/Generic.hs, nothing )
[12 of 23] Compiling Data.Vector.Mutable ( src/Data/Vector/Mutable.hs, nothing )
[13 of 23] Compiling Data.Vector ( src/Data/Vector.hs, nothing )
[14 of 23] Compiling Data.Vector.Primitive.Mutable ( src/Data/Vector/Primitive/Mutable.hs, nothing )
[15 of 23] Compiling Data.Vector.Primitive ( src/Data/Vector/Primitive.hs, nothing )
[16 of 23] Compiling Data.Vector.Storable.Internal ( src/Data/Vector/Storable/Internal.hs, nothing )
[17 of 23] Compiling Data.Vector.Storable.Mutable ( src/Data/Vector/Storable/Mutable.hs, nothing )
[18 of 23] Compiling Data.Vector.Storable ( src/Data/Vector/Storable.hs, nothing )
[19 of 23] Compiling Data.Vector.Strict.Mutable ( src/Data/Vector/Strict/Mutable.hs, nothing )
[20 of 23] Compiling Data.Vector.Strict ( src/Data/Vector/Strict.hs, nothing )
[21 of 23] Compiling Data.Vector.Unboxed.Base ( src/Data/Vector/Unboxed/Base.hs, nothing )
[22 of 23] Compiling Data.Vector.Unboxed ( src/Data/Vector/Unboxed.hs, nothing )
[23 of 23] Compiling Data.Vector.Unboxed.Mutable ( src/Data/Vector/Unboxed/Mutable.hs, nothing )
Haddock coverage:
100% ( 2 / 2) in 'Data.Vector.Fusion.Stream.Monadic'
83% ( 5 / 6) in 'Data.Vector.Fusion.Util'
Missing documentation for:
liftBox
100% ( 9 / 9) in 'Data.Vector.Fusion.Bundle.Size'
Warning: 'unsafeSlice' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'overlaps' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'unsafeNew' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'unsafeRead' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'unsafeWrite' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'clear' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'set' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'unsafeCopy' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'unsafeMove' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'grow' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'unsafeGrow' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 2 / 2) in 'Data.Vector.Generic.Mutable.Base'
Warning: 'basicUnsafeWrite' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Bundle' is ambiguous. It is defined
* at src/Data/Vector/Fusion/Bundle/Monadic.hs:121:21
* at src/Data/Vector/Fusion/Bundle/Monadic.hs:121:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vector/Fusion/Bundle/Monadic.hs:121:1
79% (110 /139) in 'Data.Vector.Fusion.Bundle.Monadic'
Missing documentation for:
Chunk (src/Data/Vector/Fusion/Bundle/Monadic.hs:118)
generate (src/Data/Vector/Fusion/Bundle/Monadic.hs:207)
unbox (src/Data/Vector/Fusion/Bundle/Monadic.hs:320)
concatMap (src/Data/Vector/Fusion/Bundle/Monadic.hs:629)
zipWithM_ (src/Data/Vector/Fusion/Bundle/Monadic.hs:351)
zipWith3M (src/Data/Vector/Fusion/Bundle/Monadic.hs:355)
zipWith4M (src/Data/Vector/Fusion/Bundle/Monadic.hs:364)
zipWith5M (src/Data/Vector/Fusion/Bundle/Monadic.hs:371)
zipWith6M (src/Data/Vector/Fusion/Bundle/Monadic.hs:378)
zipWith (src/Data/Vector/Fusion/Bundle/Monadic.hs:384)
zipWith3 (src/Data/Vector/Fusion/Bundle/Monadic.hs:389)
zipWith4 (src/Data/Vector/Fusion/Bundle/Monadic.hs:395)
zipWith5 (src/Data/Vector/Fusion/Bundle/Monadic.hs:401)
zipWith6 (src/Data/Vector/Fusion/Bundle/Monadic.hs:407)
zip (src/Data/Vector/Fusion/Bundle/Monadic.hs:411)
zip3 (src/Data/Vector/Fusion/Bundle/Monadic.hs:415)
zip4 (src/Data/Vector/Fusion/Bundle/Monadic.hs:420)
zip5 (src/Data/Vector/Fusion/Bundle/Monadic.hs:425)
zip6 (src/Data/Vector/Fusion/Bundle/Monadic.hs:430)
and (src/Data/Vector/Fusion/Bundle/Monadic.hs:621)
or (src/Data/Vector/Fusion/Bundle/Monadic.hs:625)
concatMapM (src/Data/Vector/Fusion/Bundle/Monadic.hs:633)
fromVector (src/Data/Vector/Fusion/Bundle/Monadic.hs:1086)
reVector (src/Data/Vector/Fusion/Bundle/Monadic.hs:1166)
fromVectors (src/Data/Vector/Fusion/Bundle/Monadic.hs:1105)
concatVectors (src/Data/Vector/Fusion/Bundle/Monadic.hs:1133)
fromStream (src/Data/Vector/Fusion/Bundle/Monadic.hs:136)
chunks (src/Data/Vector/Fusion/Bundle/Monadic.hs:143)
elements (src/Data/Vector/Fusion/Bundle/Monadic.hs:147)
Warning: 'Nothing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Just' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
79% ( 90 /113) in 'Data.Vector.Fusion.Bundle'
Missing documentation for:
Chunk (src/Data/Vector/Fusion/Bundle/Monadic.hs:118)
inplace (src/Data/Vector/Fusion/Bundle.hs:113)
concatMap (src/Data/Vector/Fusion/Bundle.hs:256)
unbox (src/Data/Vector/Fusion/Bundle.hs:252)
zipWith4 (src/Data/Vector/Fusion/Bundle.hs:286)
zipWith5 (src/Data/Vector/Fusion/Bundle.hs:292)
zipWith6 (src/Data/Vector/Fusion/Bundle.hs:298)
zip (src/Data/Vector/Fusion/Bundle.hs:302)
zip3 (src/Data/Vector/Fusion/Bundle.hs:306)
zip4 (src/Data/Vector/Fusion/Bundle.hs:311)
zip5 (src/Data/Vector/Fusion/Bundle.hs:316)
zip6 (src/Data/Vector/Fusion/Bundle.hs:321)
and (src/Data/Vector/Fusion/Bundle.hs:406)
or (src/Data/Vector/Fusion/Bundle.hs:410)
unsafeFromList (src/Data/Vector/Fusion/Bundle.hs:632)
fromVector (src/Data/Vector/Fusion/Bundle.hs:636)
reVector (src/Data/Vector/Fusion/Bundle.hs:640)
fromVectors (src/Data/Vector/Fusion/Bundle.hs:644)
concatVectors (src/Data/Vector/Fusion/Bundle.hs:648)
zipWithM (src/Data/Vector/Fusion/Bundle.hs:535)
zipWithM_ (src/Data/Vector/Fusion/Bundle.hs:539)
eqBy (src/Data/Vector/Fusion/Bundle.hs:492)
cmpBy (src/Data/Vector/Fusion/Bundle.hs:501)
86% ( 93 /108) in 'Data.Vector.Generic.Mutable'
Missing documentation for:
mstream (src/Data/Vector/Generic/Mutable.hs:139)
mstreamR (src/Data/Vector/Generic/Mutable.hs:168)
transform (src/Data/Vector/Generic/Mutable.hs:164)
transformR (src/Data/Vector/Generic/Mutable.hs:199)
fill (src/Data/Vector/Generic/Mutable.hs:151)
fillR (src/Data/Vector/Generic/Mutable.hs:182)
unsafeAccum (src/Data/Vector/Generic/Mutable.hs:1020)
accum (src/Data/Vector/Generic/Mutable.hs:997)
unsafeUpdate (src/Data/Vector/Generic/Mutable.hs:1031)
update (src/Data/Vector/Generic/Mutable.hs:1009)
reverse (src/Data/Vector/Generic/Mutable.hs:1039)
unstablePartition (src/Data/Vector/Generic/Mutable.hs:1049)
unstablePartitionBundle (src/Data/Vector/Generic/Mutable.hs:1078)
partitionBundle (src/Data/Vector/Generic/Mutable.hs:1105)
partitionWithBundle (src/Data/Vector/Generic/Mutable.hs:1165)
21% ( 5 / 23) in 'Data.Vector.Generic.New'
Missing documentation for:
create (src/Data/Vector/Generic/New.hs:62)
run (src/Data/Vector/Generic/New.hs:66)
runPrim (src/Data/Vector/Generic/New.hs:70)
apply (src/Data/Vector/Generic/New.hs:74)
modify (src/Data/Vector/Generic/New.hs:78)
modifyWithBundle (src/Data/Vector/Generic/New.hs:83)
unstream (src/Data/Vector/Generic/New.hs:87)
transform (src/Data/Vector/Generic/New.hs:93)
unstreamR (src/Data/Vector/Generic/New.hs:113)
transformR (src/Data/Vector/Generic/New.hs:119)
slice (src/Data/Vector/Generic/New.hs:139)
init (src/Data/Vector/Generic/New.hs:143)
tail (src/Data/Vector/Generic/New.hs:147)
take (src/Data/Vector/Generic/New.hs:151)
drop (src/Data/Vector/Generic/New.hs:155)
unsafeSlice (src/Data/Vector/Generic/New.hs:159)
unsafeInit (src/Data/Vector/Generic/New.hs:163)
unsafeTail (src/Data/Vector/Generic/New.hs:167)
Warning: 'a' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'b' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Left' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Right' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Foldable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'True' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
93% (259 /278) in 'Data.Vector.Generic'
Missing documentation for:
zipWith4 (src/Data/Vector/Generic.hs:1190)
zipWith5 (src/Data/Vector/Generic.hs:1201)
zipWith6 (src/Data/Vector/Generic.hs:1213)
izipWith4 (src/Data/Vector/Generic.hs:1242)
izipWith5 (src/Data/Vector/Generic.hs:1253)
izipWith6 (src/Data/Vector/Generic.hs:1265)
zip4 (src/Data/Vector/Generic.hs:1287)
zip5 (src/Data/Vector/Generic.hs:1293)
zip6 (src/Data/Vector/Generic.hs:1299)
unzip3 (src/Data/Vector/Generic.hs:1348)
unzip4 (src/Data/Vector/Generic.hs:1356)
unzip5 (src/Data/Vector/Generic.hs:1365)
unzip6 (src/Data/Vector/Generic.hs:1375)
liftShowsPrec (src/Data/Vector/Generic.hs:2686)
gunfold (src/Data/Vector/Generic.hs:2728)
dataCast (src/Data/Vector/Generic.hs:2735)
mkVecType (src/Data/Vector/Generic.hs:2717)
mkVecConstr (src/Data/Vector/Generic.hs:2713)
mkType (src/Data/Vector/Generic.hs:2722)
Warning: 'IO' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ST' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Nothing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
97% ( 88 / 90) in 'Data.Vector.Mutable'
Missing documentation for:
IOVector (src/Data/Vector/Mutable.hs:101)
STVector (src/Data/Vector/Mutable.hs:102)
Warning: 'Nothing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Just' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'a' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'b' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Left' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Right' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Foldable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'True' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Array' is ambiguous. It is defined
* in Data.Primitive.Array
* in Data.Primitive.Array
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Primitive.Array
94% (245 /258) in 'Data.Vector'
Missing documentation for:
zipWith4 (src/Data/Vector.hs:1173)
zipWith5 (src/Data/Vector.hs:1179)
zipWith6 (src/Data/Vector.hs:1185)
izipWith4 (src/Data/Vector.hs:1202)
izipWith5 (src/Data/Vector.hs:1208)
izipWith6 (src/Data/Vector.hs:1214)
zip4 (src/Data/Vector.hs:1229)
zip5 (src/Data/Vector.hs:1234)
zip6 (src/Data/Vector.hs:1239)
unzip3 (src/Data/Vector.hs:1251)
unzip4 (src/Data/Vector.hs:1255)
unzip5 (src/Data/Vector.hs:1260)
unzip6 (src/Data/Vector.hs:1265)
Warning: 'Nothing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
97% ( 89 / 91) in 'Data.Vector.Primitive.Mutable'
Missing documentation for:
IOVector (src/Data/Vector/Primitive/Mutable.hs:117)
STVector (src/Data/Vector/Primitive/Mutable.hs:118)
Warning: 'Nothing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Just' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'a' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'b' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'flip' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Left' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Right' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Foldable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
97% (228 /234) in 'Data.Vector.Primitive'
Missing documentation for:
zipWith4 (src/Data/Vector/Primitive.hs:967)
zipWith5 (src/Data/Vector/Primitive.hs:975)
zipWith6 (src/Data/Vector/Primitive.hs:983)
izipWith4 (src/Data/Vector/Primitive.hs:1003)
izipWith5 (src/Data/Vector/Primitive.hs:1011)
izipWith6 (src/Data/Vector/Primitive.hs:1019)
Warning: 'Storable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Nothing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
97% ( 95 / 97) in 'Data.Vector.Storable.Mutable'
Missing documentation for:
IOVector (src/Data/Vector/Storable/Mutable.hs:136)
STVector (src/Data/Vector/Storable/Mutable.hs:137)
Warning: 'Nothing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Just' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'a' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'b' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'flip' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Left' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Right' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Foldable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'True' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
97% (239 /245) in 'Data.Vector.Storable'
Missing documentation for:
zipWith4 (src/Data/Vector/Storable.hs:978)
zipWith5 (src/Data/Vector/Storable.hs:986)
zipWith6 (src/Data/Vector/Storable.hs:994)
izipWith4 (src/Data/Vector/Storable.hs:1014)
izipWith5 (src/Data/Vector/Storable.hs:1022)
izipWith6 (src/Data/Vector/Storable.hs:1030)
Warning: 'IO' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ST' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Nothing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
97% ( 91 / 93) in 'Data.Vector.Strict.Mutable'
Missing documentation for:
IOVector (src/Data/Vector/Strict/Mutable.hs:99)
STVector (src/Data/Vector/Strict/Mutable.hs:100)
Warning: 'Nothing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Just' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'a' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'b' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Left' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Right' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Foldable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'True' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Array' is ambiguous. It is defined
* in Data.Primitive.Array
* in Data.Primitive.Array
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Primitive.Array
95% (248 /261) in 'Data.Vector.Strict'
Missing documentation for:
zipWith4 (src/Data/Vector/Strict.hs:1267)
zipWith5 (src/Data/Vector/Strict.hs:1273)
zipWith6 (src/Data/Vector/Strict.hs:1279)
izipWith4 (src/Data/Vector/Strict.hs:1300)
izipWith5 (src/Data/Vector/Strict.hs:1306)
izipWith6 (src/Data/Vector/Strict.hs:1312)
zip4 (src/Data/Vector/Strict.hs:1331)
zip5 (src/Data/Vector/Strict.hs:1336)
zip6 (src/Data/Vector/Strict.hs:1341)
unzip3 (src/Data/Vector/Strict.hs:1355)
unzip4 (src/Data/Vector/Strict.hs:1359)
unzip5 (src/Data/Vector/Strict.hs:1364)
unzip6 (src/Data/Vector/Strict.hs:1369)
Warning: 'DoNotUnboxLazy' is ambiguous. It is defined
* at src/Data/Vector/Unboxed/Base.hs:810:28
* at src/Data/Vector/Unboxed/Base.hs:810:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:810:1
Warning: 'DoNotUnboxStrict' is ambiguous. It is defined
* at src/Data/Vector/Unboxed/Base.hs:895:30
* at src/Data/Vector/Unboxed/Base.hs:895:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:895:1
Warning: 'DoNotUnboxNormalForm' is ambiguous. It is defined
* at src/Data/Vector/Unboxed/Base.hs:981:34
* at src/Data/Vector/Unboxed/Base.hs:981:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:981:1
Warning: 'As' is ambiguous. It is defined
* at src/Data/Vector/Unboxed/Base.hs:350:38
* at src/Data/Vector/Unboxed/Base.hs:350:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:350:1
Warning: 'As' is ambiguous. It is defined
* at src/Data/Vector/Unboxed/Base.hs:350:38
* at src/Data/Vector/Unboxed/Base.hs:350:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:350:1
Warning: 'UnboxViaPrim' is ambiguous. It is defined
* at src/Data/Vector/Unboxed/Base.hs:223:26
* at src/Data/Vector/Unboxed/Base.hs:223:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:223:1
Warning: 'DoNotUnboxStrict' is ambiguous. It is defined
* at src/Data/Vector/Unboxed/Base.hs:895:30
* at src/Data/Vector/Unboxed/Base.hs:895:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:895:1
Warning: 'DoNotUnboxLazy' is ambiguous. It is defined
* at src/Data/Vector/Unboxed/Base.hs:810:28
* at src/Data/Vector/Unboxed/Base.hs:810:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:810:1
Warning: 'DoNotUnboxNormalForm' is ambiguous. It is defined
* at src/Data/Vector/Unboxed/Base.hs:981:34
* at src/Data/Vector/Unboxed/Base.hs:981:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:981:1
Warning: 'Complex' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'RealFloat' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Nothing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Just' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'a' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'b' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'flip' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Left' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Right' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Foldable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'True' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
96% (253 /262) in 'Data.Vector.Unboxed'
Missing documentation for:
Vector (src/Data/Vector/Unboxed/Base.hs:73)
MVector (src/Data/Vector/Unboxed/Base.hs:72)
Unbox (src/Data/Vector/Unboxed/Base.hs:80)
zipWith4 (src/Data/Vector/Unboxed.hs:1027)
zipWith5 (src/Data/Vector/Unboxed.hs:1034)
zipWith6 (src/Data/Vector/Unboxed.hs:1041)
izipWith4 (src/Data/Vector/Unboxed.hs:1061)
izipWith5 (src/Data/Vector/Unboxed.hs:1068)
izipWith6 (src/Data/Vector/Unboxed.hs:1075)
Warning: 'Nothing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
96% ( 96 /100) in 'Data.Vector.Unboxed.Mutable'
Missing documentation for:
MVector (src/Data/Vector/Unboxed/Base.hs:72)
IOVector (src/Data/Vector/Unboxed/Base.hs:75)
STVector (src/Data/Vector/Unboxed/Base.hs:76)
Unbox (src/Data/Vector/Unboxed/Base.hs:80)
Warning: Data.Vector.Generic.Mutable: could not find link destinations for:
- Control.Monad.Primitive.D:R:PrimStateAccumT
- Control.Monad.Primitive.D:R:PrimStateContT
- Control.Monad.Primitive.D:R:PrimStateExceptT
- Control.Monad.Primitive.D:R:PrimStateIO
- Control.Monad.Primitive.D:R:PrimStateIdentityT
- Control.Monad.Primitive.D:R:PrimStateMaybeT
- Control.Monad.Primitive.D:R:PrimStateRWST
- Control.Monad.Primitive.D:R:PrimStateRWST0
- Control.Monad.Primitive.D:R:PrimStateRWST1
- Control.Monad.Primitive.D:R:PrimStateReaderT
- Control.Monad.Primitive.D:R:PrimStateST
- Control.Monad.Primitive.D:R:PrimStateST0
- Control.Monad.Primitive.D:R:PrimStateSelectT
- Control.Monad.Primitive.D:R:PrimStateStateT
- Control.Monad.Primitive.D:R:PrimStateStateT0
- Control.Monad.Primitive.D:R:PrimStateWriterT
- Control.Monad.Primitive.D:R:PrimStateWriterT0
- Control.Monad.Primitive.D:R:PrimStateWriterT1
Warning: Data.Vector.Mutable: could not find link destinations for:
- Control.Monad.Primitive.D:R:PrimStateAccumT
- Control.Monad.Primitive.D:R:PrimStateContT
- Control.Monad.Primitive.D:R:PrimStateExceptT
- Control.Monad.Primitive.D:R:PrimStateIO
- Control.Monad.Primitive.D:R:PrimStateIdentityT
- Control.Monad.Primitive.D:R:PrimStateMaybeT
- Control.Monad.Primitive.D:R:PrimStateRWST
- Control.Monad.Primitive.D:R:PrimStateRWST0
- Control.Monad.Primitive.D:R:PrimStateRWST1
- Control.Monad.Primitive.D:R:PrimStateReaderT
- Control.Monad.Primitive.D:R:PrimStateST
- Control.Monad.Primitive.D:R:PrimStateST0
- Control.Monad.Primitive.D:R:PrimStateSelectT
- Control.Monad.Primitive.D:R:PrimStateStateT
- Control.Monad.Primitive.D:R:PrimStateStateT0
- Control.Monad.Primitive.D:R:PrimStateWriterT
- Control.Monad.Primitive.D:R:PrimStateWriterT0
- Control.Monad.Primitive.D:R:PrimStateWriterT1
Warning: Data.Vector: could not find link destinations for:
- Data.Vector.D:R:ItemVector
Warning: Data.Vector.Primitive.Mutable: could not find link destinations for:
- Control.Monad.Primitive.D:R:PrimStateAccumT
- Control.Monad.Primitive.D:R:PrimStateContT
- Control.Monad.Primitive.D:R:PrimStateExceptT
- Control.Monad.Primitive.D:R:PrimStateIO
- Control.Monad.Primitive.D:R:PrimStateIdentityT
- Control.Monad.Primitive.D:R:PrimStateMaybeT
- Control.Monad.Primitive.D:R:PrimStateRWST
- Control.Monad.Primitive.D:R:PrimStateRWST0
- Control.Monad.Primitive.D:R:PrimStateRWST1
- Control.Monad.Primitive.D:R:PrimStateReaderT
- Control.Monad.Primitive.D:R:PrimStateST
- Control.Monad.Primitive.D:R:PrimStateST0
- Control.Monad.Primitive.D:R:PrimStateSelectT
- Control.Monad.Primitive.D:R:PrimStateStateT
- Control.Monad.Primitive.D:R:PrimStateStateT0
- Control.Monad.Primitive.D:R:PrimStateWriterT
- Control.Monad.Primitive.D:R:PrimStateWriterT0
- Control.Monad.Primitive.D:R:PrimStateWriterT1
Warning: Data.Vector.Primitive: could not find link destinations for:
- Data.Vector.Primitive.D:R:ItemVector
Warning: Data.Vector.Storable.Mutable: could not find link destinations for:
- Control.Monad.Primitive.D:R:PrimStateAccumT
- Control.Monad.Primitive.D:R:PrimStateContT
- Control.Monad.Primitive.D:R:PrimStateExceptT
- Control.Monad.Primitive.D:R:PrimStateIO
- Control.Monad.Primitive.D:R:PrimStateIdentityT
- Control.Monad.Primitive.D:R:PrimStateMaybeT
- Control.Monad.Primitive.D:R:PrimStateRWST
- Control.Monad.Primitive.D:R:PrimStateRWST0
- Control.Monad.Primitive.D:R:PrimStateRWST1
- Control.Monad.Primitive.D:R:PrimStateReaderT
- Control.Monad.Primitive.D:R:PrimStateST
- Control.Monad.Primitive.D:R:PrimStateST0
- Control.Monad.Primitive.D:R:PrimStateSelectT
- Control.Monad.Primitive.D:R:PrimStateStateT
- Control.Monad.Primitive.D:R:PrimStateStateT0
- Control.Monad.Primitive.D:R:PrimStateWriterT
- Control.Monad.Primitive.D:R:PrimStateWriterT0
- Control.Monad.Primitive.D:R:PrimStateWriterT1
Warning: Data.Vector.Storable: could not find link destinations for:
- Data.Vector.Storable.D:R:ItemVector
Warning: Data.Vector.Strict.Mutable: could not find link destinations for:
- Control.Monad.Primitive.D:R:PrimStateAccumT
- Control.Monad.Primitive.D:R:PrimStateContT
- Control.Monad.Primitive.D:R:PrimStateExceptT
- Control.Monad.Primitive.D:R:PrimStateIO
- Control.Monad.Primitive.D:R:PrimStateIdentityT
- Control.Monad.Primitive.D:R:PrimStateMaybeT
- Control.Monad.Primitive.D:R:PrimStateRWST
- Control.Monad.Primitive.D:R:PrimStateRWST0
- Control.Monad.Primitive.D:R:PrimStateRWST1
- Control.Monad.Primitive.D:R:PrimStateReaderT
- Control.Monad.Primitive.D:R:PrimStateST
- Control.Monad.Primitive.D:R:PrimStateST0
- Control.Monad.Primitive.D:R:PrimStateSelectT
- Control.Monad.Primitive.D:R:PrimStateStateT
- Control.Monad.Primitive.D:R:PrimStateStateT0
- Control.Monad.Primitive.D:R:PrimStateWriterT
- Control.Monad.Primitive.D:R:PrimStateWriterT0
- Control.Monad.Primitive.D:R:PrimStateWriterT1
Warning: Data.Vector.Strict: could not find link destinations for:
- Data.Vector.Strict.D:R:ItemVector
Warning: Data.Vector.Unboxed: could not find link destinations for:
- Data.Vector.Unboxed.Base.V_6
- Data.Vector.Unboxed.Base.V_5
- Data.Vector.Unboxed.Base.V_4
- Data.Vector.Unboxed.Base.V_3
- Data.Vector.Unboxed.Base.V_2
- Data.Vector.Unboxed.Base.V_Compose
- Data.Vector.Unboxed.Base.V_Alt
- Data.Vector.Unboxed.Base.V_Const
- Data.Vector.Unboxed.Base.V_All
- Data.Vector.Unboxed.Base.V_Any
- Data.Vector.Unboxed.Base.V_DoNotUnboxNormalForm
- Data.Vector.Unboxed.Base.V_DoNotUnboxStrict
- Data.Vector.Unboxed.Base.V_DoNotUnboxLazy
- Data.Vector.Unboxed.Base.V_Arg
- Data.Vector.Unboxed.Base.V_WrappedMonoid
- Data.Vector.Unboxed.Base.V_Last
- Data.Vector.Unboxed.Base.V_First
- Data.Vector.Unboxed.Base.V_Max
- Data.Vector.Unboxed.Base.V_Min
- Data.Vector.Unboxed.Base.V_Product
- Data.Vector.Unboxed.Base.V_Sum
- Data.Vector.Unboxed.Base.V_Dual
- Data.Vector.Unboxed.Base.V_Down
- Data.Vector.Unboxed.Base.V_Identity
- Data.Vector.Unboxed.Base.V_Complex
- Data.Vector.Unboxed.Base.V_Bool
- Data.Vector.Unboxed.Base.V_Char
- Data.Vector.Unboxed.Base.V_Double
- Data.Vector.Unboxed.Base.V_Float
- Data.Vector.Unboxed.Base.V_Word64
- Data.Vector.Unboxed.Base.V_Word32
- Data.Vector.Unboxed.Base.V_Word16
- Data.Vector.Unboxed.Base.V_Word8
- Data.Vector.Unboxed.Base.V_Word
- Data.Vector.Unboxed.Base.V_Int64
- Data.Vector.Unboxed.Base.V_Int32
- Data.Vector.Unboxed.Base.V_Int16
- Data.Vector.Unboxed.Base.V_Int8
- Data.Vector.Unboxed.Base.V_Int
- Data.Vector.Unboxed.Base.V_Unit
- Data.Vector.Unboxed.Base.D:R:MVectorsTuple60
- Data.Vector.Unboxed.Base.D:R:MVectorsTuple50
- Data.Vector.Unboxed.Base.D:R:MVectorsTuple40
- Data.Vector.Unboxed.Base.D:R:MVectorsTuple30
- Data.Vector.Unboxed.Base.D:R:MVectorsTuple20
- Data.Vector.Unboxed.Base.D:R:MVectorsCompose0
- Data.Vector.Unboxed.Base.D:R:MVectorsAlt0
- Data.Vector.Unboxed.Base.D:R:MVectorsConst0
- Data.Vector.Unboxed.Base.D:R:MVectorsAll0
- Data.Vector.Unboxed.Base.D:R:MVectorsAny0
- Data.Vector.Unboxed.Base.D:R:MVectorsArg0
- Data.Vector.Unboxed.Base.D:R:MVectorsWrappedMonoid0
- Data.Vector.Unboxed.Base.D:R:MVectorsLast0
- Data.Vector.Unboxed.Base.D:R:MVectorsFirst0
- Data.Vector.Unboxed.Base.D:R:MVectorsMax0
- Data.Vector.Unboxed.Base.D:R:MVectorsMin0
- Data.Vector.Unboxed.Base.D:R:MVectorsProduct0
- Data.Vector.Unboxed.Base.D:R:MVectorsSum0
- Data.Vector.Unboxed.Base.D:R:MVectorsDual0
- Data.Vector.Unboxed.Base.D:R:MVectorsDown0
- Data.Vector.Unboxed.Base.D:R:MVectorsIdentity0
- Data.Vector.Unboxed.Base.D:R:MVectorsComplex0
- Data.Vector.Unboxed.Base.D:R:MVectorsBool0
- Data.Vector.Unboxed.Base.D:R:MVectorsChar0
- Data.Vector.Unboxed.Base.D:R:MVectorsDouble0
- Data.Vector.Unboxed.Base.D:R:MVectorsFloat0
- Data.Vector.Unboxed.Base.D:R:MVectorsWord640
- Data.Vector.Unboxed.Base.D:R:MVectorsWord320
- Data.Vector.Unboxed.Base.D:R:MVectorsWord160
- Data.Vector.Unboxed.Base.D:R:MVectorsWord80
- Data.Vector.Unboxed.Base.D:R:MVectorsWord0
- Data.Vector.Unboxed.Base.D:R:MVectorsInt640
- Data.Vector.Unboxed.Base.D:R:MVectorsInt320
- Data.Vector.Unboxed.Base.D:R:MVectorsInt160
- Data.Vector.Unboxed.Base.D:R:MVectorsInt80
- Data.Vector.Unboxed.Base.D:R:MVectorsInt0
- Data.Vector.Unboxed.Base.D:R:MVectorsUnit0
- Data.Vector.Unboxed.Base.D:R:VectorTuple60
- Data.Vector.Unboxed.Base.D:R:VectorTuple50
- Data.Vector.Unboxed.Base.D:R:VectorTuple40
- Data.Vector.Unboxed.Base.D:R:VectorTuple30
- Data.Vector.Unboxed.Base.D:R:VectorTuple20
- Data.Vector.Unboxed.Base.D:R:VectorCompose0
- Data.Vector.Unboxed.Base.D:R:VectorAlt0
- Data.Vector.Unboxed.Base.D:R:VectorConst0
- Data.Vector.Unboxed.Base.D:R:VectorAll0
- Data.Vector.Unboxed.Base.D:R:VectorAny0
- Data.Vector.Unboxed.Base.D:R:VectorArg0
- Data.Vector.Unboxed.Base.D:R:VectorWrappedMonoid0
- Data.Vector.Unboxed.Base.D:R:VectorLast0
- Data.Vector.Unboxed.Base.D:R:VectorFirst0
- Data.Vector.Unboxed.Base.D:R:VectorMax0
- Data.Vector.Unboxed.Base.D:R:VectorMin0
- Data.Vector.Unboxed.Base.D:R:VectorProduct0
- Data.Vector.Unboxed.Base.D:R:VectorSum0
- Data.Vector.Unboxed.Base.D:R:VectorDual0
- Data.Vector.Unboxed.Base.D:R:VectorDown0
- Data.Vector.Unboxed.Base.D:R:VectorIdentity0
- Data.Vector.Unboxed.Base.D:R:VectorComplex0
- Data.Vector.Unboxed.Base.D:R:VectorBool0
- Data.Vector.Unboxed.Base.D:R:VectorChar0
- Data.Vector.Unboxed.Base.D:R:VectorDouble0
- Data.Vector.Unboxed.Base.D:R:VectorFloat0
- Data.Vector.Unboxed.Base.D:R:VectorWord640
- Data.Vector.Unboxed.Base.D:R:VectorWord320
- Data.Vector.Unboxed.Base.D:R:VectorWord160
- Data.Vector.Unboxed.Base.D:R:VectorWord80
- Data.Vector.Unboxed.Base.D:R:VectorWord0
- Data.Vector.Unboxed.Base.D:R:VectorInt640
- Data.Vector.Unboxed.Base.D:R:VectorInt320
- Data.Vector.Unboxed.Base.D:R:VectorInt160
- Data.Vector.Unboxed.Base.D:R:VectorInt80
- Data.Vector.Unboxed.Base.D:R:VectorInt0
- Data.Vector.Unboxed.Base.D:R:VectorUnit0
- Data.Vector.Unboxed.Base.D:R:VectorUnboxViaPrim0
- Data.Vector.Unboxed.Base.D:R:MVectorsUnboxViaPrim0
- Data.Vector.Unboxed.Base.D:R:VectorAs0
- Data.Vector.Unboxed.Base.D:R:MVectorsAs0
- Data.Vector.Unboxed.Base.D:R:VectorDoNotUnboxLazy0
- Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxLazy0
- Data.Vector.Unboxed.Base.D:R:VectorDoNotUnboxStrict0
- Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxStrict0
- Data.Vector.Unboxed.Base.D:R:VectorDoNotUnboxNormalForm0
- Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxNormalForm0
- Data.Vector.Unboxed.D:R:ItemVector
Warning: Data.Vector.Unboxed.Mutable: could not find link destinations for:
- Control.Monad.Primitive.D:R:PrimStateAccumT
- Control.Monad.Primitive.D:R:PrimStateContT
- Control.Monad.Primitive.D:R:PrimStateExceptT
- Control.Monad.Primitive.D:R:PrimStateIO
- Control.Monad.Primitive.D:R:PrimStateIdentityT
- Control.Monad.Primitive.D:R:PrimStateMaybeT
- Control.Monad.Primitive.D:R:PrimStateRWST
- Control.Monad.Primitive.D:R:PrimStateRWST0
- Control.Monad.Primitive.D:R:PrimStateRWST1
- Control.Monad.Primitive.D:R:PrimStateReaderT
- Control.Monad.Primitive.D:R:PrimStateST
- Control.Monad.Primitive.D:R:PrimStateST0
- Control.Monad.Primitive.D:R:PrimStateSelectT
- Control.Monad.Primitive.D:R:PrimStateStateT
- Control.Monad.Primitive.D:R:PrimStateStateT0
- Control.Monad.Primitive.D:R:PrimStateWriterT
- Control.Monad.Primitive.D:R:PrimStateWriterT0
- Control.Monad.Primitive.D:R:PrimStateWriterT1
- Data.Vector.Unboxed.Base.D:R:MVectorsTuple60
- Data.Vector.Unboxed.Base.D:R:MVectorsTuple50
- Data.Vector.Unboxed.Base.D:R:MVectorsTuple40
- Data.Vector.Unboxed.Base.D:R:MVectorsTuple30
- Data.Vector.Unboxed.Base.D:R:MVectorsTuple20
- Data.Vector.Unboxed.Base.D:R:MVectorsCompose0
- Data.Vector.Unboxed.Base.D:R:MVectorsAlt0
- Data.Vector.Unboxed.Base.D:R:MVectorsConst0
- Data.Vector.Unboxed.Base.D:R:MVectorsAll0
- Data.Vector.Unboxed.Base.D:R:MVectorsAny0
- Data.Vector.Unboxed.Base.D:R:MVectorsArg0
- Data.Vector.Unboxed.Base.D:R:MVectorsWrappedMonoid0
- Data.Vector.Unboxed.Base.D:R:MVectorsLast0
- Data.Vector.Unboxed.Base.D:R:MVectorsFirst0
- Data.Vector.Unboxed.Base.D:R:MVectorsMax0
- Data.Vector.Unboxed.Base.D:R:MVectorsMin0
- Data.Vector.Unboxed.Base.D:R:MVectorsProduct0
- Data.Vector.Unboxed.Base.D:R:MVectorsSum0
- Data.Vector.Unboxed.Base.D:R:MVectorsDual0
- Data.Vector.Unboxed.Base.D:R:MVectorsDown0
- Data.Vector.Unboxed.Base.D:R:MVectorsIdentity0
- Data.Vector.Unboxed.Base.D:R:MVectorsComplex0
- Data.Vector.Unboxed.Base.D:R:MVectorsBool0
- Data.Vector.Unboxed.Base.D:R:MVectorsChar0
- Data.Vector.Unboxed.Base.D:R:MVectorsDouble0
- Data.Vector.Unboxed.Base.D:R:MVectorsFloat0
- Data.Vector.Unboxed.Base.D:R:MVectorsWord640
- Data.Vector.Unboxed.Base.D:R:MVectorsWord320
- Data.Vector.Unboxed.Base.D:R:MVectorsWord160
- Data.Vector.Unboxed.Base.D:R:MVectorsWord80
- Data.Vector.Unboxed.Base.D:R:MVectorsWord0
- Data.Vector.Unboxed.Base.D:R:MVectorsInt640
- Data.Vector.Unboxed.Base.D:R:MVectorsInt320
- Data.Vector.Unboxed.Base.D:R:MVectorsInt160
- Data.Vector.Unboxed.Base.D:R:MVectorsInt80
- Data.Vector.Unboxed.Base.D:R:MVectorsInt0
- Data.Vector.Unboxed.Base.D:R:MVectorsUnit0
- Data.Vector.Unboxed.Base.D:R:MVectorsUnboxViaPrim0
- Data.Vector.Unboxed.Base.D:R:MVectorsAs0
- Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxLazy0
- Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxStrict0
- Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxNormalForm0
Documentation created: dist/doc/html/vector/, dist/doc/html/vector/vector.txt
Preprocessing library 'benchmarks-O2' for vector-0.13.2.0..
Running Haddock on library 'benchmarks-O2' for vector-0.13.2.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 14] Compiling Bench.Vector.Algo.AwShCC ( benchlib/Bench/Vector/Algo/AwShCC.hs, nothing )
[ 2 of 14] Compiling Bench.Vector.Algo.FindIndexR ( benchlib/Bench/Vector/Algo/FindIndexR.hs, nothing )
[ 3 of 14] Compiling Bench.Vector.Algo.HybCC ( benchlib/Bench/Vector/Algo/HybCC.hs, nothing )
[ 4 of 14] Compiling Bench.Vector.Algo.Leaffix ( benchlib/Bench/Vector/Algo/Leaffix.hs, nothing )
[ 5 of 14] Compiling Bench.Vector.Algo.ListRank ( benchlib/Bench/Vector/Algo/ListRank.hs, nothing )
[ 6 of 14] Compiling Bench.Vector.Algo.MutableSet ( benchlib/Bench/Vector/Algo/MutableSet.hs, nothing )
[ 7 of 14] Compiling Bench.Vector.Algo.NextPermutation ( benchlib/Bench/Vector/Algo/NextPermutation.hs, nothing )
[ 8 of 14] Compiling Bench.Vector.Algo.Quickhull ( benchlib/Bench/Vector/Algo/Quickhull.hs, nothing )
[ 9 of 14] Compiling Bench.Vector.Algo.Rootfix ( benchlib/Bench/Vector/Algo/Rootfix.hs, nothing )
[10 of 14] Compiling Bench.Vector.Algo.Spectral ( benchlib/Bench/Vector/Algo/Spectral.hs, nothing )
[11 of 14] Compiling Bench.Vector.Algo.Tridiag ( benchlib/Bench/Vector/Algo/Tridiag.hs, nothing )
[12 of 14] Compiling Bench.Vector.Tasty ( benchlib/Bench/Vector/Tasty.hs, nothing )
[13 of 14] Compiling Bench.Vector.TestData.Graph ( benchlib/Bench/Vector/TestData/Graph.hs, nothing )
[14 of 14] Compiling Bench.Vector.TestData.ParenTree ( benchlib/Bench/Vector/TestData/ParenTree.hs, nothing )
Haddock coverage:
0% ( 0 / 2) in 'Bench.Vector.Algo.AwShCC'
Missing documentation for:
Module header
awshcc (benchlib/Bench/Vector/Algo/AwShCC.hs:8)
0% ( 0 / 4) in 'Bench.Vector.Algo.FindIndexR'
Missing documentation for:
Module header
findIndexR (benchlib/Bench/Vector/Algo/FindIndexR.hs:9)
findIndexR_naive (benchlib/Bench/Vector/Algo/FindIndexR.hs:13)
findIndexR_manual (benchlib/Bench/Vector/Algo/FindIndexR.hs:20)
0% ( 0 / 2) in 'Bench.Vector.Algo.HybCC'
Missing documentation for:
Module header
hybcc (benchlib/Bench/Vector/Algo/HybCC.hs:7)
0% ( 0 / 2) in 'Bench.Vector.Algo.Leaffix'
Missing documentation for:
Module header
leaffix (benchlib/Bench/Vector/Algo/Leaffix.hs:7)
0% ( 0 / 2) in 'Bench.Vector.Algo.ListRank'
Missing documentation for:
Module header
listRank (benchlib/Bench/Vector/Algo/ListRank.hs:8)
0% ( 0 / 2) in 'Bench.Vector.Algo.MutableSet'
Missing documentation for:
Module header
mutableSet (benchlib/Bench/Vector/Algo/MutableSet.hs:12)
Warning: 'Int32' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
50% ( 1 / 2) in 'Bench.Vector.Algo.NextPermutation'
Missing documentation for:
Module header
0% ( 0 / 2) in 'Bench.Vector.Algo.Quickhull'
Missing documentation for:
Module header
quickhull (benchlib/Bench/Vector/Algo/Quickhull.hs:7)
0% ( 0 / 2) in 'Bench.Vector.Algo.Rootfix'
Missing documentation for:
Module header
rootfix (benchlib/Bench/Vector/Algo/Rootfix.hs:7)
0% ( 0 / 2) in 'Bench.Vector.Algo.Spectral'
Missing documentation for:
Module header
spectral (benchlib/Bench/Vector/Algo/Spectral.hs:9)
0% ( 0 / 2) in 'Bench.Vector.Algo.Tridiag'
Missing documentation for:
Module header
tridiag (benchlib/Bench/Vector/Algo/Tridiag.hs:8)
100% ( 3 / 3) in 'Bench.Vector.Tasty'
0% ( 0 / 2) in 'Bench.Vector.TestData.Graph'
Missing documentation for:
Module header
randomGraph (benchlib/Bench/Vector/TestData/Graph.hs:15)
0% ( 0 / 2) in 'Bench.Vector.TestData.ParenTree'
Missing documentation for:
Module header
parenTree (benchlib/Bench/Vector/TestData/ParenTree.hs:6)
Documentation created: dist/doc/html/vector/, dist/doc/html/vector/vector.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/vector-0.13.2.0-Gv6yXNwqQAj3b8A12fweIW
Installing internal library benchmarks-O2 in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/vector-0.13.2.0-Gv6yXNwqQAj3b8A12fweIW
Completed vector-0.13.2.0
Configuring th-lift-instances-0.1.20...
Preprocessing library for th-lift-instances-0.1.20..
Building library for th-lift-instances-0.1.20..
[1 of 1] Compiling Instances.TH.Lift ( src/Instances/TH/Lift.hs, dist/build/Instances/TH/Lift.o, dist/build/Instances/TH/Lift.dyn_o )
Preprocessing library for th-lift-instances-0.1.20..
Running Haddock on library for th-lift-instances-0.1.20..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Instances.TH.Lift ( src/Instances/TH/Lift.hs, nothing )
Haddock coverage:
Warning: 'Word8' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Word16' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Word32' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Word64' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Int8' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Int16' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Int32' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Int64' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'NonEmpty' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Void' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
91% ( 11 / 12) in 'Instances.TH.Lift'
Missing documentation for:
Module header
Warning: Instances.TH.Lift: could not find link destinations for:
- Data.Vector.Vector
- Data.Vector.Primitive.Vector
- Data.Vector.Storable.Vector
- Data.Vector.Unboxed.Base.Unbox
- Data.Vector.Unboxed.Base.Vector
Documentation created: dist/doc/html/th-lift-instances/,
dist/doc/html/th-lift-instances/th-lift-instances.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/th-lift-instances-0.1.20-LycI5KkgZjXEzXZEXUQll5
Completed th-lift-instances-0.1.20
Configuring quickcheck-instances-0.3.33...
Preprocessing library for quickcheck-instances-0.3.33..
Building library for quickcheck-instances-0.3.33..
[ 1 of 26] Compiling Test.QuickCheck.Instances.Containers ( src/Test/QuickCheck/Instances/Containers.hs, dist/build/Test/QuickCheck/Instances/Containers.o, dist/build/Test/QuickCheck/Instances/Containers.dyn_o )
[ 2 of 26] Compiling Test.QuickCheck.Instances.CustomPrelude ( src/Test/QuickCheck/Instances/CustomPrelude.hs, dist/build/Test/QuickCheck/Instances/CustomPrelude.o, dist/build/Test/QuickCheck/Instances/CustomPrelude.dyn_o )
[ 3 of 26] Compiling Test.QuickCheck.Instances.CaseInsensitive ( src/Test/QuickCheck/Instances/CaseInsensitive.hs, dist/build/Test/QuickCheck/Instances/CaseInsensitive.o, dist/build/Test/QuickCheck/Instances/CaseInsensitive.dyn_o )
[ 4 of 26] Compiling Test.QuickCheck.Instances.ByteString ( src/Test/QuickCheck/Instances/ByteString.hs, dist/build/Test/QuickCheck/Instances/ByteString.o, dist/build/Test/QuickCheck/Instances/ByteString.dyn_o )
[ 5 of 26] Compiling Test.QuickCheck.Instances.Array ( src/Test/QuickCheck/Instances/Array.hs, dist/build/Test/QuickCheck/Instances/Array.o, dist/build/Test/QuickCheck/Instances/Array.dyn_o )
[ 6 of 26] Compiling Test.QuickCheck.Instances.DataFix ( src/Test/QuickCheck/Instances/DataFix.hs, dist/build/Test/QuickCheck/Instances/DataFix.o, dist/build/Test/QuickCheck/Instances/DataFix.dyn_o )
[ 7 of 26] Compiling Test.QuickCheck.Instances.Hashable ( src/Test/QuickCheck/Instances/Hashable.hs, dist/build/Test/QuickCheck/Instances/Hashable.o, dist/build/Test/QuickCheck/Instances/Hashable.dyn_o )
[ 8 of 26] Compiling Test.QuickCheck.Instances.Natural ( src/Test/QuickCheck/Instances/Natural.hs, dist/build/Test/QuickCheck/Instances/Natural.o, dist/build/Test/QuickCheck/Instances/Natural.dyn_o )
[ 9 of 26] Compiling Test.QuickCheck.Instances.OldTime ( src/Test/QuickCheck/Instances/OldTime.hs, dist/build/Test/QuickCheck/Instances/OldTime.o, dist/build/Test/QuickCheck/Instances/OldTime.dyn_o )
[10 of 26] Compiling Test.QuickCheck.Instances.Primitive ( src/Test/QuickCheck/Instances/Primitive.hs, dist/build/Test/QuickCheck/Instances/Primitive.o, dist/build/Test/QuickCheck/Instances/Primitive.dyn_o )
[11 of 26] Compiling Test.QuickCheck.Instances.Array.Byte ( src/Test/QuickCheck/Instances/Array/Byte.hs, dist/build/Test/QuickCheck/Instances/Array/Byte.o, dist/build/Test/QuickCheck/Instances/Array/Byte.dyn_o )
[12 of 26] Compiling Test.QuickCheck.Instances.Scientific ( src/Test/QuickCheck/Instances/Scientific.hs, dist/build/Test/QuickCheck/Instances/Scientific.o, dist/build/Test/QuickCheck/Instances/Scientific.dyn_o )
[13 of 26] Compiling Test.QuickCheck.Instances.Semigroup ( src/Test/QuickCheck/Instances/Semigroup.hs, dist/build/Test/QuickCheck/Instances/Semigroup.o, dist/build/Test/QuickCheck/Instances/Semigroup.dyn_o )
[14 of 26] Compiling Test.QuickCheck.Instances.Solo ( src/Test/QuickCheck/Instances/Solo.hs, dist/build/Test/QuickCheck/Instances/Solo.o, dist/build/Test/QuickCheck/Instances/Solo.dyn_o )
[15 of 26] Compiling Test.QuickCheck.Instances.Strict ( src/Test/QuickCheck/Instances/Strict.hs, dist/build/Test/QuickCheck/Instances/Strict.o, dist/build/Test/QuickCheck/Instances/Strict.dyn_o )
[16 of 26] Compiling Test.QuickCheck.Instances.Tagged ( src/Test/QuickCheck/Instances/Tagged.hs, dist/build/Test/QuickCheck/Instances/Tagged.o, dist/build/Test/QuickCheck/Instances/Tagged.dyn_o )
[17 of 26] Compiling Test.QuickCheck.Instances.Text ( src/Test/QuickCheck/Instances/Text.hs, dist/build/Test/QuickCheck/Instances/Text.o, dist/build/Test/QuickCheck/Instances/Text.dyn_o )
[18 of 26] Compiling Test.QuickCheck.Instances.Text.Short ( src/Test/QuickCheck/Instances/Text/Short.hs, dist/build/Test/QuickCheck/Instances/Text/Short.o, dist/build/Test/QuickCheck/Instances/Text/Short.dyn_o )
[19 of 26] Compiling Test.QuickCheck.Instances.These ( src/Test/QuickCheck/Instances/These.hs, dist/build/Test/QuickCheck/Instances/These.o, dist/build/Test/QuickCheck/Instances/These.dyn_o )
[20 of 26] Compiling Test.QuickCheck.Instances.Time ( src/Test/QuickCheck/Instances/Time.hs, dist/build/Test/QuickCheck/Instances/Time.o, dist/build/Test/QuickCheck/Instances/Time.dyn_o )
[21 of 26] Compiling Test.QuickCheck.Instances.Transformer ( src/Test/QuickCheck/Instances/Transformer.hs, dist/build/Test/QuickCheck/Instances/Transformer.o, dist/build/Test/QuickCheck/Instances/Transformer.dyn_o )
[22 of 26] Compiling Test.QuickCheck.Instances.UUID ( src/Test/QuickCheck/Instances/UUID.hs, dist/build/Test/QuickCheck/Instances/UUID.o, dist/build/Test/QuickCheck/Instances/UUID.dyn_o )
[23 of 26] Compiling Test.QuickCheck.Instances.UnorderedContainers ( src/Test/QuickCheck/Instances/UnorderedContainers.hs, dist/build/Test/QuickCheck/Instances/UnorderedContainers.o, dist/build/Test/QuickCheck/Instances/UnorderedContainers.dyn_o )
[24 of 26] Compiling Test.QuickCheck.Instances.Vector ( src/Test/QuickCheck/Instances/Vector.hs, dist/build/Test/QuickCheck/Instances/Vector.o, dist/build/Test/QuickCheck/Instances/Vector.dyn_o )
[25 of 26] Compiling Test.QuickCheck.Instances.Void ( src/Test/QuickCheck/Instances/Void.hs, dist/build/Test/QuickCheck/Instances/Void.o, dist/build/Test/QuickCheck/Instances/Void.dyn_o )
[26 of 26] Compiling Test.QuickCheck.Instances ( src/Test/QuickCheck/Instances.hs, dist/build/Test/QuickCheck/Instances.o, dist/build/Test/QuickCheck/Instances.dyn_o )
Preprocessing library for quickcheck-instances-0.3.33..
Running Haddock on library for quickcheck-instances-0.3.33..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 26] Compiling Test.QuickCheck.Instances.Containers ( src/Test/QuickCheck/Instances/Containers.hs, nothing )
[ 2 of 26] Compiling Test.QuickCheck.Instances.CustomPrelude ( src/Test/QuickCheck/Instances/CustomPrelude.hs, nothing )
[ 3 of 26] Compiling Test.QuickCheck.Instances.CaseInsensitive ( src/Test/QuickCheck/Instances/CaseInsensitive.hs, nothing )
[ 4 of 26] Compiling Test.QuickCheck.Instances.ByteString ( src/Test/QuickCheck/Instances/ByteString.hs, nothing )
[ 5 of 26] Compiling Test.QuickCheck.Instances.Array ( src/Test/QuickCheck/Instances/Array.hs, nothing )
[ 6 of 26] Compiling Test.QuickCheck.Instances.DataFix ( src/Test/QuickCheck/Instances/DataFix.hs, nothing )
[ 7 of 26] Compiling Test.QuickCheck.Instances.Hashable ( src/Test/QuickCheck/Instances/Hashable.hs, nothing )
[ 8 of 26] Compiling Test.QuickCheck.Instances.Natural ( src/Test/QuickCheck/Instances/Natural.hs, nothing )
[ 9 of 26] Compiling Test.QuickCheck.Instances.OldTime ( src/Test/QuickCheck/Instances/OldTime.hs, nothing )
[10 of 26] Compiling Test.QuickCheck.Instances.Primitive ( src/Test/QuickCheck/Instances/Primitive.hs, nothing )
[11 of 26] Compiling Test.QuickCheck.Instances.Array.Byte ( src/Test/QuickCheck/Instances/Array/Byte.hs, nothing )
[12 of 26] Compiling Test.QuickCheck.Instances.Scientific ( src/Test/QuickCheck/Instances/Scientific.hs, nothing )
[13 of 26] Compiling Test.QuickCheck.Instances.Semigroup ( src/Test/QuickCheck/Instances/Semigroup.hs, nothing )
[14 of 26] Compiling Test.QuickCheck.Instances.Solo ( src/Test/QuickCheck/Instances/Solo.hs, nothing )
[15 of 26] Compiling Test.QuickCheck.Instances.Strict ( src/Test/QuickCheck/Instances/Strict.hs, nothing )
[16 of 26] Compiling Test.QuickCheck.Instances.Tagged ( src/Test/QuickCheck/Instances/Tagged.hs, nothing )
[17 of 26] Compiling Test.QuickCheck.Instances.Text ( src/Test/QuickCheck/Instances/Text.hs, nothing )
[18 of 26] Compiling Test.QuickCheck.Instances.Text.Short ( src/Test/QuickCheck/Instances/Text/Short.hs, nothing )
[19 of 26] Compiling Test.QuickCheck.Instances.These ( src/Test/QuickCheck/Instances/These.hs, nothing )
[20 of 26] Compiling Test.QuickCheck.Instances.Time ( src/Test/QuickCheck/Instances/Time.hs, nothing )
[21 of 26] Compiling Test.QuickCheck.Instances.Transformer ( src/Test/QuickCheck/Instances/Transformer.hs, nothing )
[22 of 26] Compiling Test.QuickCheck.Instances.UUID ( src/Test/QuickCheck/Instances/UUID.hs, nothing )
[23 of 26] Compiling Test.QuickCheck.Instances.UnorderedContainers ( src/Test/QuickCheck/Instances/UnorderedContainers.hs, nothing )
[24 of 26] Compiling Test.QuickCheck.Instances.Vector ( src/Test/QuickCheck/Instances/Vector.hs, nothing )
[25 of 26] Compiling Test.QuickCheck.Instances.Void ( src/Test/QuickCheck/Instances/Void.hs, nothing )
[26 of 26] Compiling Test.QuickCheck.Instances ( src/Test/QuickCheck/Instances.hs, nothing )
Haddock coverage:
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Containers'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.CaseInsensitive'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.ByteString'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Array'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.DataFix'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Hashable'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Natural'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.OldTime'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Primitive'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Array.Byte'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Scientific'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Semigroup'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Solo'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Strict'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Tagged'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Text'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Text.Short'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.These'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Time'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Transformer'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.UUID'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.UnorderedContainers'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Vector'
Missing documentation for:
Module header
0% ( 0 / 1) in 'Test.QuickCheck.Instances.Void'
Missing documentation for:
Module header
100% ( 1 / 1) in 'Test.QuickCheck.Instances'
Warning: Test.QuickCheck.Instances.Vector: could not find link destinations for:
- Data.Vector.Vector
- Data.Vector.Primitive.Vector
- Data.Vector.Storable.Vector
- Data.Vector.Unboxed.Base.Unbox
- Data.Vector.Unboxed.Base.Vector
- Data.Vector.Strict.Vector
Documentation created: dist/doc/html/quickcheck-instances/,
dist/doc/html/quickcheck-instances/quickcheck-instances.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/quickcheck-instances-0.3.33-JFu1wWE0lus5MOqwme9beT
Completed quickcheck-instances-0.3.33
Configuring indexed-traversable-instances-0.1.2...
Preprocessing library for indexed-traversable-instances-0.1.2..
Building library for indexed-traversable-instances-0.1.2..
[1 of 1] Compiling Data.Functor.WithIndex.Instances ( src/Data/Functor/WithIndex/Instances.hs, dist/build/Data/Functor/WithIndex/Instances.o, dist/build/Data/Functor/WithIndex/Instances.dyn_o )
Preprocessing library for indexed-traversable-instances-0.1.2..
Running Haddock on library for indexed-traversable-instances-0.1.2..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Data.Functor.WithIndex.Instances ( src/Data/Functor/WithIndex/Instances.hs, nothing )
Haddock coverage:
100% ( 1 / 1) in 'Data.Functor.WithIndex.Instances'
Warning: Data.Functor.WithIndex.Instances: could not find link destinations for:
- Data.Vector.Vector
Documentation created: dist/doc/html/indexed-traversable-instances/,
dist/doc/html/indexed-traversable-instances/indexed-traversable-instances.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/indexed-traversable-instances-0.1.2-8QDHQF8Wv0TEs7ZwptR1dp
Completed indexed-traversable-instances-0.1.2
Configuring bitvec-1.1.5.0...
Preprocessing library for bitvec-1.1.5.0..
Building library for bitvec-1.1.5.0..
[ 1 of 13] Compiling Data.Bit.PdepPext ( src/Data/Bit/PdepPext.hs, dist/build/Data/Bit/PdepPext.o, dist/build/Data/Bit/PdepPext.dyn_o )
[ 2 of 13] Compiling Data.Bit.SIMD ( src/Data/Bit/SIMD.hs, dist/build/Data/Bit/SIMD.o, dist/build/Data/Bit/SIMD.dyn_o )
[ 3 of 13] Compiling Data.Bit.Utils ( src/Data/Bit/Utils.hs, dist/build/Data/Bit/Utils.o, dist/build/Data/Bit/Utils.dyn_o )
[ 4 of 13] Compiling Data.Bit.InternalTS ( src/Data/Bit/InternalTS.hs, dist/build/Data/Bit/InternalTS.o, dist/build/Data/Bit/InternalTS.dyn_o )
[ 5 of 13] Compiling Data.Bit.MutableTS ( src/Data/Bit/MutableTS.hs, dist/build/Data/Bit/MutableTS.o, dist/build/Data/Bit/MutableTS.dyn_o )
[ 6 of 13] Compiling Data.Bit.Internal ( src/Data/Bit/Internal.hs, dist/build/Data/Bit/Internal.o, dist/build/Data/Bit/Internal.dyn_o )
[ 7 of 13] Compiling Data.Bit.Mutable ( src/Data/Bit/Mutable.hs, dist/build/Data/Bit/Mutable.o, dist/build/Data/Bit/Mutable.dyn_o )
[ 8 of 13] Compiling Data.Bit.ImmutableTS ( src/Data/Bit/ImmutableTS.hs, dist/build/Data/Bit/ImmutableTS.o, dist/build/Data/Bit/ImmutableTS.dyn_o )
[ 9 of 13] Compiling Data.Bit.Immutable ( src/Data/Bit/Immutable.hs, dist/build/Data/Bit/Immutable.o, dist/build/Data/Bit/Immutable.dyn_o )
[10 of 13] Compiling Data.Bit.F2PolyTS ( src/Data/Bit/F2PolyTS.hs, dist/build/Data/Bit/F2PolyTS.o, dist/build/Data/Bit/F2PolyTS.dyn_o )
[11 of 13] Compiling Data.Bit.ThreadSafe ( src/Data/Bit/ThreadSafe.hs, dist/build/Data/Bit/ThreadSafe.o, dist/build/Data/Bit/ThreadSafe.dyn_o )
[12 of 13] Compiling Data.Bit.F2Poly ( src/Data/Bit/F2Poly.hs, dist/build/Data/Bit/F2Poly.o, dist/build/Data/Bit/F2Poly.dyn_o )
[13 of 13] Compiling Data.Bit ( src/Data/Bit.hs, dist/build/Data/Bit.o, dist/build/Data/Bit.dyn_o )
Preprocessing library for bitvec-1.1.5.0..
Running Haddock on library for bitvec-1.1.5.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 13] Compiling Data.Bit.PdepPext ( src/Data/Bit/PdepPext.hs, nothing )
[ 2 of 13] Compiling Data.Bit.SIMD ( src/Data/Bit/SIMD.hs, nothing )
[ 3 of 13] Compiling Data.Bit.Utils ( src/Data/Bit/Utils.hs, nothing )
[ 4 of 13] Compiling Data.Bit.InternalTS ( src/Data/Bit/InternalTS.hs, nothing )
[ 5 of 13] Compiling Data.Bit.MutableTS ( src/Data/Bit/MutableTS.hs, nothing )
[ 6 of 13] Compiling Data.Bit.Internal ( src/Data/Bit/Internal.hs, nothing )
[ 7 of 13] Compiling Data.Bit.Mutable ( src/Data/Bit/Mutable.hs, nothing )
[ 8 of 13] Compiling Data.Bit.ImmutableTS ( src/Data/Bit/ImmutableTS.hs, nothing )
[ 9 of 13] Compiling Data.Bit.Immutable ( src/Data/Bit/Immutable.hs, nothing )
[10 of 13] Compiling Data.Bit.F2PolyTS ( src/Data/Bit/F2PolyTS.hs, nothing )
[11 of 13] Compiling Data.Bit.ThreadSafe ( src/Data/Bit/ThreadSafe.hs, nothing )
[12 of 13] Compiling Data.Bit.F2Poly ( src/Data/Bit/F2Poly.hs, nothing )
[13 of 13] Compiling Data.Bit ( src/Data/Bit.hs, nothing )
Haddock coverage:
Warning: 'Bit' is ambiguous. It is defined
* at src/Data/Bit/Internal.hs:81:15
* at src/Data/Bit/Internal.hs:81:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Bit/Internal.hs:81:1
Warning: Data.Bit.InternalTS: Couldn't find .haddock for export Vector
Warning: Data.Bit.InternalTS: Couldn't find .haddock for export MVector
Warning: 'Bit' is ambiguous. It is defined
* at src/Data/Bit/Internal.hs:63:15
* at src/Data/Bit/Internal.hs:63:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Bit/Internal.hs:63:1
Warning: Data.Bit.Internal: Couldn't find .haddock for export Vector
Warning: Data.Bit.Internal: Couldn't find .haddock for export MVector
Warning: 'Bit' is ambiguous. It is defined
* at src/Data/Bit/Internal.hs:81:15
* at src/Data/Bit/Internal.hs:81:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Bit/Internal.hs:81:1
Warning: 'F2Poly' is ambiguous. It is defined
* at src/Data/Bit/F2Poly.hs:69:18
* at src/Data/Bit/F2Poly.hs:69:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Bit/F2Poly.hs:69:1
Warning: Data.Bit.ThreadSafe: Couldn't find .haddock for export Vector
Warning: Data.Bit.ThreadSafe: Couldn't find .haddock for export MVector
95% ( 40 / 42) in 'Data.Bit.ThreadSafe'
Warning: 'Bit' is ambiguous. It is defined
* at src/Data/Bit/Internal.hs:63:15
* at src/Data/Bit/Internal.hs:63:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Bit/Internal.hs:63:1
Warning: 'F2Poly' is ambiguous. It is defined
* at src/Data/Bit/F2Poly.hs:69:18
* at src/Data/Bit/F2Poly.hs:69:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Bit/F2Poly.hs:69:1
Warning: Data.Bit: Couldn't find .haddock for export Vector
Warning: Data.Bit: Couldn't find .haddock for export MVector
95% ( 40 / 42) in 'Data.Bit'
Warning: Data.Bit.ThreadSafe: could not find link destinations for:
- Data.Vector.Generic.Base.Vector
- Data.Vector.Generic.Base.Mutable
- Data.Vector.Unboxed.Base.Unbox
- Data.Vector.Generic.Mutable.Base.MVector
- Data.Vector.Generic.Base.basicLength
- Data.Vector.Generic.Base.basicUnsafeCopy
- Data.Vector.Generic.Base.basicUnsafeFreeze
- Data.Vector.Generic.Base.basicUnsafeIndexM
- Data.Vector.Generic.Base.basicUnsafeSlice
- Data.Vector.Generic.Base.basicUnsafeThaw
- Data.Vector.Generic.Base.elemseq
- Data.Vector.Generic.Mutable.Base.basicClear
- Data.Vector.Generic.Mutable.Base.basicInitialize
- Data.Vector.Generic.Mutable.Base.basicLength
- Data.Vector.Generic.Mutable.Base.basicOverlaps
- Data.Vector.Generic.Mutable.Base.basicSet
- Data.Vector.Generic.Mutable.Base.basicUnsafeCopy
- Data.Vector.Generic.Mutable.Base.basicUnsafeGrow
- Data.Vector.Generic.Mutable.Base.basicUnsafeMove
- Data.Vector.Generic.Mutable.Base.basicUnsafeNew
- Data.Vector.Generic.Mutable.Base.basicUnsafeRead
- Data.Vector.Generic.Mutable.Base.basicUnsafeReplicate
- Data.Vector.Generic.Mutable.Base.basicUnsafeSlice
- Data.Vector.Generic.Mutable.Base.basicUnsafeWrite
- Data.Bit.InternalTS.D:R:VectorBit0
- Data.Bit.InternalTS.D:R:MVectorsBit0
- Data.Bit.InternalTS.Rep_Bit
- Data.Bit.F2PolyTS.Rep_F2Poly
Warning: Data.Bit: could not find link destinations for:
- Data.Vector.Generic.Base.Vector
- Data.Vector.Generic.Base.Mutable
- Data.Vector.Unboxed.Base.Unbox
- Data.Vector.Generic.Mutable.Base.MVector
- Data.Vector.Generic.Base.basicLength
- Data.Vector.Generic.Base.basicUnsafeCopy
- Data.Vector.Generic.Base.basicUnsafeFreeze
- Data.Vector.Generic.Base.basicUnsafeIndexM
- Data.Vector.Generic.Base.basicUnsafeSlice
- Data.Vector.Generic.Base.basicUnsafeThaw
- Data.Vector.Generic.Base.elemseq
- Data.Vector.Generic.Mutable.Base.basicClear
- Data.Vector.Generic.Mutable.Base.basicInitialize
- Data.Vector.Generic.Mutable.Base.basicLength
- Data.Vector.Generic.Mutable.Base.basicOverlaps
- Data.Vector.Generic.Mutable.Base.basicSet
- Data.Vector.Generic.Mutable.Base.basicUnsafeCopy
- Data.Vector.Generic.Mutable.Base.basicUnsafeGrow
- Data.Vector.Generic.Mutable.Base.basicUnsafeMove
- Data.Vector.Generic.Mutable.Base.basicUnsafeNew
- Data.Vector.Generic.Mutable.Base.basicUnsafeRead
- Data.Vector.Generic.Mutable.Base.basicUnsafeReplicate
- Data.Vector.Generic.Mutable.Base.basicUnsafeSlice
- Data.Vector.Generic.Mutable.Base.basicUnsafeWrite
- Data.Bit.Internal.D:R:VectorBit0
- Data.Bit.Internal.D:R:MVectorsBit0
- Data.Bit.Internal.Rep_Bit
- Data.Bit.F2Poly.Rep_F2Poly
Documentation created: dist/doc/html/bitvec/, dist/doc/html/bitvec/bitvec.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/bitvec-1.1.5.0-16tovMFNw5V8l9RJJYP11Q
Completed bitvec-1.1.5.0
Configuring witherable-0.5...
Preprocessing library for witherable-0.5..
Building library for witherable-0.5..
[1 of 1] Compiling Witherable ( src/Witherable.hs, dist/build/Witherable.o, dist/build/Witherable.dyn_o )
Preprocessing library for witherable-0.5..
Running Haddock on library for witherable-0.5..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling Witherable ( src/Witherable.hs, nothing )
Haddock coverage:
Warning: 'Compose' is ambiguous. It is defined
* in Data.Functor.Compose
* in Data.Functor.Compose
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Functor.Compose
93% ( 14 / 15) in 'Witherable'
Missing documentation for:
WrappedFoldable (src/Witherable.hs:733)
Warning: Witherable: could not find link destinations for:
- Data.Vector.Vector
Documentation created: dist/doc/html/witherable/,
dist/doc/html/witherable/witherable.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/witherable-0.5-BJAgps63cBwLnJIjspneCX
Completed witherable-0.5
Configuring semialign-1.3.1...
Preprocessing library for semialign-1.3.1..
Building library for semialign-1.3.1..
[1 of 6] Compiling Data.Semialign.Internal ( src/Data/Semialign/Internal.hs, dist/build/Data/Semialign/Internal.o, dist/build/Data/Semialign/Internal.dyn_o )
[2 of 6] Compiling Data.Semialign.Indexed ( src/Data/Semialign/Indexed.hs, dist/build/Data/Semialign/Indexed.o, dist/build/Data/Semialign/Indexed.dyn_o )
[3 of 6] Compiling Data.Semialign ( src/Data/Semialign.hs, dist/build/Data/Semialign.o, dist/build/Data/Semialign.dyn_o )
[4 of 6] Compiling Data.Align ( src/Data/Align.hs, dist/build/Data/Align.o, dist/build/Data/Align.dyn_o )
[5 of 6] Compiling Data.Crosswalk ( src/Data/Crosswalk.hs, dist/build/Data/Crosswalk.o, dist/build/Data/Crosswalk.dyn_o )
[6 of 6] Compiling Data.Zip ( src/Data/Zip.hs, dist/build/Data/Zip.o, dist/build/Data/Zip.dyn_o )
Preprocessing library for semialign-1.3.1..
Running Haddock on library for semialign-1.3.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 6] Compiling Data.Semialign.Internal ( src/Data/Semialign/Internal.hs, nothing )
[2 of 6] Compiling Data.Semialign.Indexed ( src/Data/Semialign/Indexed.hs, nothing )
[3 of 6] Compiling Data.Semialign ( src/Data/Semialign.hs, nothing )
[4 of 6] Compiling Data.Align ( src/Data/Align.hs, nothing )
[5 of 6] Compiling Data.Crosswalk ( src/Data/Crosswalk.hs, nothing )
[6 of 6] Compiling Data.Zip ( src/Data/Zip.hs, nothing )
Haddock coverage:
Warning: 'tabulate' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'These' is ambiguous. It is defined
* in Data.These
* in Data.These
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.These
Warning: 'Foldable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'join' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'liftA2' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 4 / 4) in 'Data.Semialign.Indexed'
88% ( 16 / 18) in 'Data.Semialign'
Missing documentation for:
unzipDefault (src/Data/Semialign/Internal.hs:308)
alignVectorWith (src/Data/Semialign/Internal.hs:718)
Warning: 'These' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
92% ( 12 / 13) in 'Data.Align'
Missing documentation for:
alignVectorWith (src/Data/Semialign/Internal.hs:718)
80% ( 4 / 5) in 'Data.Crosswalk'
Missing documentation for:
Module header
71% ( 5 / 7) in 'Data.Zip'
Missing documentation for:
unzipDefault (src/Data/Semialign/Internal.hs:308)
Zippy (src/Data/Zip.hs:30)
Warning: Data.Semialign.Indexed: could not find link destinations for:
- Data.Vector.Vector
Warning: Data.Semialign: could not find link destinations for:
- Data.Vector.Generic.Base.Vector
- Data.Vector.Vector
- Data.Vector.Fusion.Bundle.Monadic.Bundle
Warning: Data.Align: could not find link destinations for:
- Data.Vector.Generic.Base.Vector
- Data.Vector.Vector
- Data.Vector.Fusion.Bundle.Monadic.Bundle
Warning: Data.Crosswalk: could not find link destinations for:
- Data.Vector.Vector
Warning: Data.Zip: could not find link destinations for:
- Data.Vector.Vector
- Data.Vector.Fusion.Bundle.Monadic.Bundle
Documentation created: dist/doc/html/semialign/,
dist/doc/html/semialign/semialign.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/semialign-1.3.1-EMpnNMFzv586EMkrFKW60z
Completed semialign-1.3.1
Configuring vector-algorithms-0.9.1.0...
Preprocessing library for vector-algorithms-0.9.1.0..
Building library for vector-algorithms-0.9.1.0..
[ 1 of 11] Compiling Data.Vector.Algorithms.Common ( src/Data/Vector/Algorithms/Common.hs, dist/build/Data/Vector/Algorithms/Common.o, dist/build/Data/Vector/Algorithms/Common.dyn_o )
[ 2 of 11] Compiling Data.Vector.Algorithms.Optimal ( src/Data/Vector/Algorithms/Optimal.hs, dist/build/Data/Vector/Algorithms/Optimal.o, dist/build/Data/Vector/Algorithms/Optimal.dyn_o )
[ 3 of 11] Compiling Data.Vector.Algorithms.Insertion ( src/Data/Vector/Algorithms/Insertion.hs, dist/build/Data/Vector/Algorithms/Insertion.o, dist/build/Data/Vector/Algorithms/Insertion.dyn_o )
[ 4 of 11] Compiling Data.Vector.Algorithms.Merge ( src/Data/Vector/Algorithms/Merge.hs, dist/build/Data/Vector/Algorithms/Merge.o, dist/build/Data/Vector/Algorithms/Merge.dyn_o )
[ 5 of 11] Compiling Data.Vector.Algorithms.AmericanFlag ( src/Data/Vector/Algorithms/AmericanFlag.hs, dist/build/Data/Vector/Algorithms/AmericanFlag.o, dist/build/Data/Vector/Algorithms/AmericanFlag.dyn_o )
[ 6 of 11] Compiling Data.Vector.Algorithms.Heap ( src/Data/Vector/Algorithms/Heap.hs, dist/build/Data/Vector/Algorithms/Heap.o, dist/build/Data/Vector/Algorithms/Heap.dyn_o )
[ 7 of 11] Compiling Data.Vector.Algorithms.Intro ( src/Data/Vector/Algorithms/Intro.hs, dist/build/Data/Vector/Algorithms/Intro.o, dist/build/Data/Vector/Algorithms/Intro.dyn_o )
[ 8 of 11] Compiling Data.Vector.Algorithms.Radix ( src/Data/Vector/Algorithms/Radix.hs, dist/build/Data/Vector/Algorithms/Radix.o, dist/build/Data/Vector/Algorithms/Radix.dyn_o )
[ 9 of 11] Compiling Data.Vector.Algorithms.Search ( src/Data/Vector/Algorithms/Search.hs, dist/build/Data/Vector/Algorithms/Search.o, dist/build/Data/Vector/Algorithms/Search.dyn_o )
[10 of 11] Compiling Data.Vector.Algorithms ( src/Data/Vector/Algorithms.hs, dist/build/Data/Vector/Algorithms.o, dist/build/Data/Vector/Algorithms.dyn_o )
[11 of 11] Compiling Data.Vector.Algorithms.Tim ( src/Data/Vector/Algorithms/Tim.hs, dist/build/Data/Vector/Algorithms/Tim.o, dist/build/Data/Vector/Algorithms/Tim.dyn_o )
Preprocessing library for vector-algorithms-0.9.1.0..
Running Haddock on library for vector-algorithms-0.9.1.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 11] Compiling Data.Vector.Algorithms.Common ( src/Data/Vector/Algorithms/Common.hs, nothing )
[ 2 of 11] Compiling Data.Vector.Algorithms.Optimal ( src/Data/Vector/Algorithms/Optimal.hs, nothing )
[ 3 of 11] Compiling Data.Vector.Algorithms.Insertion ( src/Data/Vector/Algorithms/Insertion.hs, nothing )
[ 4 of 11] Compiling Data.Vector.Algorithms.Merge ( src/Data/Vector/Algorithms/Merge.hs, nothing )
[ 5 of 11] Compiling Data.Vector.Algorithms.AmericanFlag ( src/Data/Vector/Algorithms/AmericanFlag.hs, nothing )
[ 6 of 11] Compiling Data.Vector.Algorithms.Heap ( src/Data/Vector/Algorithms/Heap.hs, nothing )
[ 7 of 11] Compiling Data.Vector.Algorithms.Intro ( src/Data/Vector/Algorithms/Intro.hs, nothing )
[ 8 of 11] Compiling Data.Vector.Algorithms.Radix ( src/Data/Vector/Algorithms/Radix.hs, nothing )
[ 9 of 11] Compiling Data.Vector.Algorithms.Search ( src/Data/Vector/Algorithms/Search.hs, nothing )
[10 of 11] Compiling Data.Vector.Algorithms ( src/Data/Vector/Algorithms.hs, nothing )
[11 of 11] Compiling Data.Vector.Algorithms.Tim ( src/Data/Vector/Algorithms/Tim.hs, nothing )
Haddock coverage:
Warning: 'off' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'lower' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 8 / 8) in 'Data.Vector.Algorithms.Optimal'
100% ( 8 / 8) in 'Data.Vector.Algorithms.Insertion'
100% ( 6 / 6) in 'Data.Vector.Algorithms.Merge'
Warning: 'n' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 7 / 7) in 'Data.Vector.Algorithms.AmericanFlag'
Warning: 'lowest' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 22 / 22) in 'Data.Vector.Algorithms.Heap'
100% ( 16 / 16) in 'Data.Vector.Algorithms.Intro'
75% ( 3 / 4) in 'Data.Vector.Algorithms.Radix'
Missing documentation for:
Radix (src/Data/Vector/Algorithms/Radix.hs:58)
100% ( 17 / 17) in 'Data.Vector.Algorithms.Search'
Warning: 'sortByUniq' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
75% ( 3 / 4) in 'Data.Vector.Algorithms'
Missing documentation for:
Module header
100% ( 5 / 5) in 'Data.Vector.Algorithms.Tim'
Warning: Data.Vector.Algorithms.Optimal: could not find link destinations for:
- Data.Vector.Generic.Mutable.Base.MVector
Warning: Data.Vector.Algorithms.Insertion: could not find link destinations for:
- Data.Vector.Generic.Mutable.Base.MVector
Warning: Data.Vector.Algorithms.Merge: could not find link destinations for:
- Data.Vector.Generic.Mutable.Base.MVector
Warning: Data.Vector.Algorithms.AmericanFlag: could not find link destinations for:
- Data.Vector.Generic.Mutable.Base.MVector
Warning: Data.Vector.Algorithms.Heap: could not find link destinations for:
- Data.Vector.Generic.Mutable.Base.MVector
Warning: Data.Vector.Algorithms.Intro: could not find link destinations for:
- Data.Vector.Generic.Mutable.Base.MVector
Warning: Data.Vector.Algorithms.Radix: could not find link destinations for:
- Data.Vector.Generic.Mutable.Base.MVector
Warning: Data.Vector.Algorithms.Search: could not find link destinations for:
- Data.Vector.Generic.Mutable.Base.MVector
Warning: Data.Vector.Algorithms: could not find link destinations for:
- Data.Vector.Generic.Mutable.Base.MVector
- Data.Vector.Generic.Base.Vector
Warning: Data.Vector.Algorithms.Tim: could not find link destinations for:
- Data.Vector.Generic.Mutable.Base.MVector
Documentation created: dist/doc/html/vector-algorithms/,
dist/doc/html/vector-algorithms/vector-algorithms.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/vector-algorithms-0.9.1.0-IKEFzbTPqd52yfYetGbtgo
Completed vector-algorithms-0.9.1.0
Configuring aeson-2.2.3.0...
Preprocessing library for aeson-2.2.3.0..
Building library for aeson-2.2.3.0..
[ 1 of 32] Compiling Data.Aeson.Internal.ByteString ( src/Data/Aeson/Internal/ByteString.hs, dist/build/Data/Aeson/Internal/ByteString.o, dist/build/Data/Aeson/Internal/ByteString.dyn_o )
[ 2 of 32] Compiling Data.Aeson.Internal.Functions ( src/Data/Aeson/Internal/Functions.hs, dist/build/Data/Aeson/Internal/Functions.o, dist/build/Data/Aeson/Internal/Functions.dyn_o )
[ 3 of 32] Compiling Data.Aeson.Internal.Prelude ( src/Data/Aeson/Internal/Prelude.hs, dist/build/Data/Aeson/Internal/Prelude.o, dist/build/Data/Aeson/Internal/Prelude.dyn_o )
[ 4 of 32] Compiling Data.Aeson.Internal.Scientific ( src/Data/Aeson/Internal/Scientific.hs, dist/build/Data/Aeson/Internal/Scientific.o, dist/build/Data/Aeson/Internal/Scientific.dyn_o )
[ 5 of 32] Compiling Data.Aeson.Internal.TH ( src/Data/Aeson/Internal/TH.hs, dist/build/Data/Aeson/Internal/TH.o, dist/build/Data/Aeson/Internal/TH.dyn_o )
[ 6 of 32] Compiling Data.Aeson.Internal.Text ( src/Data/Aeson/Internal/Text.hs, dist/build/Data/Aeson/Internal/Text.o, dist/build/Data/Aeson/Internal/Text.dyn_o )
[ 7 of 32] Compiling Data.Aeson.Internal.Unescape ( src/Data/Aeson/Internal/Unescape.hs, dist/build/Data/Aeson/Internal/Unescape.o, dist/build/Data/Aeson/Internal/Unescape.dyn_o )
[ 8 of 32] Compiling Data.Aeson.Internal.UnescapeFromText ( src/Data/Aeson/Internal/UnescapeFromText.hs, dist/build/Data/Aeson/Internal/UnescapeFromText.o, dist/build/Data/Aeson/Internal/UnescapeFromText.dyn_o )
[ 9 of 32] Compiling Data.Aeson.Key ( src/Data/Aeson/Key.hs, dist/build/Data/Aeson/Key.o, dist/build/Data/Aeson/Key.dyn_o )
[10 of 32] Compiling Data.Aeson.Decoding.Tokens ( src/Data/Aeson/Decoding/Tokens.hs, dist/build/Data/Aeson/Decoding/Tokens.o, dist/build/Data/Aeson/Decoding/Tokens.dyn_o )
[11 of 32] Compiling Data.Aeson.Decoding.Internal ( src/Data/Aeson/Decoding/Internal.hs, dist/build/Data/Aeson/Decoding/Internal.o, dist/build/Data/Aeson/Decoding/Internal.dyn_o )
[12 of 32] Compiling Data.Aeson.Decoding.Text ( src/Data/Aeson/Decoding/Text.hs, dist/build/Data/Aeson/Decoding/Text.o, dist/build/Data/Aeson/Decoding/Text.dyn_o )
[13 of 32] Compiling Data.Aeson.Decoding.ByteString.Lazy ( src/Data/Aeson/Decoding/ByteString/Lazy.hs, dist/build/Data/Aeson/Decoding/ByteString/Lazy.o, dist/build/Data/Aeson/Decoding/ByteString/Lazy.dyn_o )
[14 of 32] Compiling Data.Aeson.Decoding.ByteString ( src/Data/Aeson/Decoding/ByteString.hs, dist/build/Data/Aeson/Decoding/ByteString.o, dist/build/Data/Aeson/Decoding/ByteString.dyn_o )
[15 of 32] Compiling Data.Aeson.KeyMap ( src/Data/Aeson/KeyMap.hs, dist/build/Data/Aeson/KeyMap.o, dist/build/Data/Aeson/KeyMap.dyn_o )
[16 of 32] Compiling Data.Aeson.Types.Generic ( src/Data/Aeson/Types/Generic.hs, dist/build/Data/Aeson/Types/Generic.o, dist/build/Data/Aeson/Types/Generic.dyn_o )
[17 of 32] Compiling Data.Aeson.Types.Internal ( src/Data/Aeson/Types/Internal.hs, dist/build/Data/Aeson/Types/Internal.o, dist/build/Data/Aeson/Types/Internal.dyn_o )
[18 of 32] Compiling Data.Aeson.Parser.Time ( src/Data/Aeson/Parser/Time.hs, dist/build/Data/Aeson/Parser/Time.o, dist/build/Data/Aeson/Parser/Time.dyn_o )
[19 of 32] Compiling Data.Aeson.Encoding.Builder ( src/Data/Aeson/Encoding/Builder.hs, dist/build/Data/Aeson/Encoding/Builder.o, dist/build/Data/Aeson/Encoding/Builder.dyn_o )
[20 of 32] Compiling Data.Aeson.Encoding.Internal ( src/Data/Aeson/Encoding/Internal.hs, dist/build/Data/Aeson/Encoding/Internal.o, dist/build/Data/Aeson/Encoding/Internal.dyn_o )
[21 of 32] Compiling Data.Aeson.Encoding ( src/Data/Aeson/Encoding.hs, dist/build/Data/Aeson/Encoding.o, dist/build/Data/Aeson/Encoding.dyn_o )
[22 of 32] Compiling Data.Aeson.Decoding.Conversion ( src/Data/Aeson/Decoding/Conversion.hs, dist/build/Data/Aeson/Decoding/Conversion.o, dist/build/Data/Aeson/Decoding/Conversion.dyn_o )
[23 of 32] Compiling Data.Aeson.Types.FromJSON ( src/Data/Aeson/Types/FromJSON.hs, dist/build/Data/Aeson/Types/FromJSON.o, dist/build/Data/Aeson/Types/FromJSON.dyn_o )
[24 of 32] Compiling Data.Aeson.Types.ToJSON ( src/Data/Aeson/Types/ToJSON.hs, dist/build/Data/Aeson/Types/ToJSON.o, dist/build/Data/Aeson/Types/ToJSON.dyn_o )
src/Data/Aeson/Types/ToJSON.hs:1615:23: warning: [GHC-68441] [-Wdeprecations]
In the use of data constructor Solo
(imported from Data.Tuple.Solo, but defined in GHC.Tuple):
Deprecated: "The Solo constructor has been renamed to MkSolo to avoid punning."
|
1615 | liftToJSON _ t _ (Solo a) = t a
| ^^^^
src/Data/Aeson/Types/ToJSON.hs:1618:27: warning: [GHC-68441] [-Wdeprecations]
In the use of data constructor Solo
(imported from Data.Tuple.Solo, but defined in GHC.Tuple):
Deprecated: "The Solo constructor has been renamed to MkSolo to avoid punning."
|
1618 | liftToEncoding _ t _ (Solo a) = t a
| ^^^^
[25 of 32] Compiling Data.Aeson.Types.Class ( src/Data/Aeson/Types/Class.hs, dist/build/Data/Aeson/Types/Class.o, dist/build/Data/Aeson/Types/Class.dyn_o )
[26 of 32] Compiling Data.Aeson.Types ( src/Data/Aeson/Types.hs, dist/build/Data/Aeson/Types.o, dist/build/Data/Aeson/Types.dyn_o )
[27 of 32] Compiling Data.Aeson.Text ( src/Data/Aeson/Text.hs, dist/build/Data/Aeson/Text.o, dist/build/Data/Aeson/Text.dyn_o )
[28 of 32] Compiling Data.Aeson.Decoding ( src/Data/Aeson/Decoding.hs, dist/build/Data/Aeson/Decoding.o, dist/build/Data/Aeson/Decoding.dyn_o )
[29 of 32] Compiling Data.Aeson ( src/Data/Aeson.hs, dist/build/Data/Aeson.o, dist/build/Data/Aeson.dyn_o )
[30 of 32] Compiling Data.Aeson.RFC8785 ( src/Data/Aeson/RFC8785.hs, dist/build/Data/Aeson/RFC8785.o, dist/build/Data/Aeson/RFC8785.dyn_o )
[31 of 32] Compiling Data.Aeson.QQ.Simple ( src/Data/Aeson/QQ/Simple.hs, dist/build/Data/Aeson/QQ/Simple.o, dist/build/Data/Aeson/QQ/Simple.dyn_o )
[32 of 32] Compiling Data.Aeson.TH ( src/Data/Aeson/TH.hs, dist/build/Data/Aeson/TH.o, dist/build/Data/Aeson/TH.dyn_o )
src/Data/Aeson/TH.hs:948:7: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding: Patterns of type [Q Exp] not matched: []
|
948 | x:xs = [ lookupField argTy
| ^^^^^^^^^^^^^^^^^^^^^^^^^^...
src/Data/Aeson/TH.hs:1064:14: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding: Patterns of type [Q Exp] not matched: []
|
1064 | let x:xs = [ dispatchParseJSON jc conName tvMap argTy
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
Preprocessing library for aeson-2.2.3.0..
Running Haddock on library for aeson-2.2.3.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 32] Compiling Data.Aeson.Internal.ByteString ( src/Data/Aeson/Internal/ByteString.hs, nothing )
[ 2 of 32] Compiling Data.Aeson.Internal.Functions ( src/Data/Aeson/Internal/Functions.hs, nothing )
[ 3 of 32] Compiling Data.Aeson.Internal.Prelude ( src/Data/Aeson/Internal/Prelude.hs, nothing )
[ 4 of 32] Compiling Data.Aeson.Internal.Scientific ( src/Data/Aeson/Internal/Scientific.hs, nothing )
[ 5 of 32] Compiling Data.Aeson.Internal.TH ( src/Data/Aeson/Internal/TH.hs, nothing )
[ 6 of 32] Compiling Data.Aeson.Internal.Text ( src/Data/Aeson/Internal/Text.hs, nothing )
[ 7 of 32] Compiling Data.Aeson.Internal.Unescape ( src/Data/Aeson/Internal/Unescape.hs, nothing )
[ 8 of 32] Compiling Data.Aeson.Internal.UnescapeFromText ( src/Data/Aeson/Internal/UnescapeFromText.hs, nothing )
[ 9 of 32] Compiling Data.Aeson.Key ( src/Data/Aeson/Key.hs, nothing )
[10 of 32] Compiling Data.Aeson.Decoding.Tokens ( src/Data/Aeson/Decoding/Tokens.hs, nothing )
[11 of 32] Compiling Data.Aeson.Decoding.Internal ( src/Data/Aeson/Decoding/Internal.hs, nothing )
[12 of 32] Compiling Data.Aeson.Decoding.Text ( src/Data/Aeson/Decoding/Text.hs, nothing )
[13 of 32] Compiling Data.Aeson.Decoding.ByteString.Lazy ( src/Data/Aeson/Decoding/ByteString/Lazy.hs, nothing )
[14 of 32] Compiling Data.Aeson.Decoding.ByteString ( src/Data/Aeson/Decoding/ByteString.hs, nothing )
[15 of 32] Compiling Data.Aeson.KeyMap ( src/Data/Aeson/KeyMap.hs, nothing )
[16 of 32] Compiling Data.Aeson.Types.Generic ( src/Data/Aeson/Types/Generic.hs, nothing )
[17 of 32] Compiling Data.Aeson.Types.Internal ( src/Data/Aeson/Types/Internal.hs, nothing )
[18 of 32] Compiling Data.Aeson.Parser.Time ( src/Data/Aeson/Parser/Time.hs, nothing )
[19 of 32] Compiling Data.Aeson.Encoding.Builder ( src/Data/Aeson/Encoding/Builder.hs, nothing )
[20 of 32] Compiling Data.Aeson.Encoding.Internal ( src/Data/Aeson/Encoding/Internal.hs, nothing )
[21 of 32] Compiling Data.Aeson.Encoding ( src/Data/Aeson/Encoding.hs, nothing )
[22 of 32] Compiling Data.Aeson.Decoding.Conversion ( src/Data/Aeson/Decoding/Conversion.hs, nothing )
[23 of 32] Compiling Data.Aeson.Types.FromJSON ( src/Data/Aeson/Types/FromJSON.hs, nothing )
[24 of 32] Compiling Data.Aeson.Types.ToJSON ( src/Data/Aeson/Types/ToJSON.hs, nothing )
src/Data/Aeson/Types/ToJSON.hs:1615:23: warning: [GHC-68441] [-Wdeprecations]
In the use of data constructor Solo
(imported from Data.Tuple.Solo, but defined in GHC.Tuple):
Deprecated: "The Solo constructor has been renamed to MkSolo to avoid punning."
|
1615 | liftToJSON _ t _ (Solo a) = t a
| ^^^^
src/Data/Aeson/Types/ToJSON.hs:1618:27: warning: [GHC-68441] [-Wdeprecations]
In the use of data constructor Solo
(imported from Data.Tuple.Solo, but defined in GHC.Tuple):
Deprecated: "The Solo constructor has been renamed to MkSolo to avoid punning."
|
1618 | liftToEncoding _ t _ (Solo a) = t a
| ^^^^
[25 of 32] Compiling Data.Aeson.Types.Class ( src/Data/Aeson/Types/Class.hs, nothing )
[26 of 32] Compiling Data.Aeson.Types ( src/Data/Aeson/Types.hs, nothing )
[27 of 32] Compiling Data.Aeson.Text ( src/Data/Aeson/Text.hs, nothing )
[28 of 32] Compiling Data.Aeson.Decoding ( src/Data/Aeson/Decoding.hs, nothing )
[29 of 32] Compiling Data.Aeson ( src/Data/Aeson.hs, nothing )
[30 of 32] Compiling Data.Aeson.RFC8785 ( src/Data/Aeson/RFC8785.hs, nothing )
[31 of 32] Compiling Data.Aeson.QQ.Simple ( src/Data/Aeson/QQ/Simple.hs, nothing )
[32 of 32] Compiling Data.Aeson.TH ( src/Data/Aeson/TH.hs, nothing )
Haddock coverage:
Warning: Data.Aeson.Internal.Prelude: Could not find documentation for exported module: Data.Vector
Warning: Data.Aeson.Internal.Prelude: Couldn't find .haddock for export Vector
Warning: 'letE' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Key' is ambiguous. It is defined
* at src/Data/Aeson/Key.hs:44:15
* at src/Data/Aeson/Key.hs:44:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Key.hs:44:1
Warning: 'Coercible' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'coercing' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
44% ( 4 / 9) in 'Data.Aeson.Key'
Missing documentation for:
Key (src/Data/Aeson/Key.hs:44)
fromString (src/Data/Aeson/Key.hs:48)
toString (src/Data/Aeson/Key.hs:51)
toText (src/Data/Aeson/Key.hs:57)
fromText (src/Data/Aeson/Key.hs:54)
100% ( 7 / 7) in 'Data.Aeson.Decoding.Tokens'
Warning: 'Text' is ambiguous. It is defined
* in Data.Text.Internal
* in Data.Text.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Text.Internal
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 2 / 2) in 'Data.Aeson.Decoding.Text'
100% ( 2 / 2) in 'Data.Aeson.Decoding.ByteString.Lazy'
100% ( 2 / 2) in 'Data.Aeson.Decoding.ByteString'
Warning: 'v' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'KeyMap' is ambiguous. It is defined
* at src/Data/Aeson/KeyMap.hs:143:20
* at src/Data/Aeson/KeyMap.hs:143:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/KeyMap.hs:143:1
Warning: 'const' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
88% ( 61 / 69) in 'Data.Aeson.KeyMap'
Missing documentation for:
coercionToHashMap (src/Data/Aeson/KeyMap.hs:317)
coercionToMap (src/Data/Aeson/KeyMap.hs:321)
foldr (src/Data/Aeson/KeyMap.hs:206)
foldr' (src/Data/Aeson/KeyMap.hs:209)
foldl (src/Data/Aeson/KeyMap.hs:212)
foldl' (src/Data/Aeson/KeyMap.hs:215)
foldMapWithKey (src/Data/Aeson/KeyMap.hs:203)
Key (src/Data/Aeson/Key.hs:44)
Warning: 'ToJSON1' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'FromJSON1' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ToJSON' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'FromJSON' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'throwDecode' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'JSONKeyOptions' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:804:23
* at src/Data/Aeson/Types/Internal.hs:804:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:804:1
Warning: 'ToJSONKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'toJSONKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'genericToJSONKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'FromJSONKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'fromJSONKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'genericFromJSONKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'omittedField' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'allowOmittedFieds' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Object' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:366:14
* at src/Data/Aeson/Types/Internal.hs:360:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:360:1
Warning: 'Parser' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:278:20
* at src/Data/Aeson/Types/Internal.hs:278:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:278:1
Warning: 'Array' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:367:14
* at src/Data/Aeson/Types/Internal.hs:363:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:363:1
Warning: 'String' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:368:14
* in GHC.Base
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:368:14
Warning: '(.:)' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Options' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:705:16
* at src/Data/Aeson/Types/Internal.hs:705:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:705:1
Warning: 'API' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'hashable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: '.=' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Value' is ambiguous. It is defined
* at src/Data/Aeson/Encoding/Internal.hs:130:15
* at src/Data/Aeson/Types/Internal.hs:366:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:366:1
Warning: 'unsafePair' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
25% ( 21 / 82) in 'Data.Aeson.Encoding.Internal'
Missing documentation for:
Module header
encodingToLazyByteString (src/Data/Aeson/Encoding/Internal.hs:98)
retagEncoding (src/Data/Aeson/Encoding/Internal.hs:102)
pair (src/Data/Aeson/Encoding/Internal.hs:134)
pairStr (src/Data/Aeson/Encoding/Internal.hs:138)
pair' (src/Data/Aeson/Encoding/Internal.hs:142)
nullEncoding (src/Data/Aeson/Encoding/Internal.hs:168)
emptyArray_ (src/Data/Aeson/Encoding/Internal.hs:171)
emptyObject_ (src/Data/Aeson/Encoding/Internal.hs:174)
wrapObject (src/Data/Aeson/Encoding/Internal.hs:180)
wrapArray (src/Data/Aeson/Encoding/Internal.hs:177)
null_ (src/Data/Aeson/Encoding/Internal.hs:183)
bool (src/Data/Aeson/Encoding/Internal.hs:186)
key (src/Data/Aeson/Encoding/Internal.hs:247)
text (src/Data/Aeson/Encoding/Internal.hs:250)
lazyText (src/Data/Aeson/Encoding/Internal.hs:253)
string (src/Data/Aeson/Encoding/Internal.hs:266)
list (src/Data/Aeson/Encoding/Internal.hs:196)
empty (src/Data/Aeson/Encoding/Internal.hs:225)
>< (src/Data/Aeson/Encoding/Internal.hs:232)
econcat (src/Data/Aeson/Encoding/Internal.hs:228)
int8 (src/Data/Aeson/Encoding/Internal.hs:285)
int16 (src/Data/Aeson/Encoding/Internal.hs:288)
int32 (src/Data/Aeson/Encoding/Internal.hs:291)
int64 (src/Data/Aeson/Encoding/Internal.hs:294)
int (src/Data/Aeson/Encoding/Internal.hs:297)
word8 (src/Data/Aeson/Encoding/Internal.hs:300)
word16 (src/Data/Aeson/Encoding/Internal.hs:303)
word32 (src/Data/Aeson/Encoding/Internal.hs:306)
word64 (src/Data/Aeson/Encoding/Internal.hs:309)
word (src/Data/Aeson/Encoding/Internal.hs:312)
integer (src/Data/Aeson/Encoding/Internal.hs:315)
float (src/Data/Aeson/Encoding/Internal.hs:318)
scientific (src/Data/Aeson/Encoding/Internal.hs:338)
int8Text (src/Data/Aeson/Encoding/Internal.hs:352)
int16Text (src/Data/Aeson/Encoding/Internal.hs:355)
int32Text (src/Data/Aeson/Encoding/Internal.hs:358)
int64Text (src/Data/Aeson/Encoding/Internal.hs:361)
intText (src/Data/Aeson/Encoding/Internal.hs:364)
word8Text (src/Data/Aeson/Encoding/Internal.hs:367)
word16Text (src/Data/Aeson/Encoding/Internal.hs:370)
word32Text (src/Data/Aeson/Encoding/Internal.hs:373)
word64Text (src/Data/Aeson/Encoding/Internal.hs:376)
wordText (src/Data/Aeson/Encoding/Internal.hs:379)
integerText (src/Data/Aeson/Encoding/Internal.hs:382)
floatText (src/Data/Aeson/Encoding/Internal.hs:385)
scientificText (src/Data/Aeson/Encoding/Internal.hs:409)
day (src/Data/Aeson/Encoding/Internal.hs:416)
month (src/Data/Aeson/Encoding/Internal.hs:419)
quarter (src/Data/Aeson/Encoding/Internal.hs:422)
localTime (src/Data/Aeson/Encoding/Internal.hs:425)
utcTime (src/Data/Aeson/Encoding/Internal.hs:428)
timeOfDay (src/Data/Aeson/Encoding/Internal.hs:431)
zonedTime (src/Data/Aeson/Encoding/Internal.hs:434)
value (src/Data/Aeson/Encoding/Internal.hs:441)
comma (src/Data/Aeson/Encoding/Internal.hs:273)
colon (src/Data/Aeson/Encoding/Internal.hs:274)
openBracket (src/Data/Aeson/Encoding/Internal.hs:275)
closeBracket (src/Data/Aeson/Encoding/Internal.hs:276)
openCurly (src/Data/Aeson/Encoding/Internal.hs:277)
closeCurly (src/Data/Aeson/Encoding/Internal.hs:278)
Warning: 'Encoding' is ambiguous. It is defined
* at src/Data/Aeson/Encoding/Internal.hs:82:25
* at src/Data/Aeson/Encoding/Internal.hs:88:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Encoding/Internal.hs:88:1
Warning: 'Text' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
27% ( 18 / 65) in 'Data.Aeson.Encoding'
Missing documentation for:
encodingToLazyByteString (src/Data/Aeson/Encoding/Internal.hs:98)
pair (src/Data/Aeson/Encoding/Internal.hs:134)
pairStr (src/Data/Aeson/Encoding/Internal.hs:138)
pair' (src/Data/Aeson/Encoding/Internal.hs:142)
nullEncoding (src/Data/Aeson/Encoding/Internal.hs:168)
emptyArray_ (src/Data/Aeson/Encoding/Internal.hs:171)
emptyObject_ (src/Data/Aeson/Encoding/Internal.hs:174)
text (src/Data/Aeson/Encoding/Internal.hs:250)
lazyText (src/Data/Aeson/Encoding/Internal.hs:253)
string (src/Data/Aeson/Encoding/Internal.hs:266)
list (src/Data/Aeson/Encoding/Internal.hs:196)
null_ (src/Data/Aeson/Encoding/Internal.hs:183)
bool (src/Data/Aeson/Encoding/Internal.hs:186)
int8 (src/Data/Aeson/Encoding/Internal.hs:285)
int16 (src/Data/Aeson/Encoding/Internal.hs:288)
int32 (src/Data/Aeson/Encoding/Internal.hs:291)
int64 (src/Data/Aeson/Encoding/Internal.hs:294)
int (src/Data/Aeson/Encoding/Internal.hs:297)
word8 (src/Data/Aeson/Encoding/Internal.hs:300)
word16 (src/Data/Aeson/Encoding/Internal.hs:303)
word32 (src/Data/Aeson/Encoding/Internal.hs:306)
word64 (src/Data/Aeson/Encoding/Internal.hs:309)
word (src/Data/Aeson/Encoding/Internal.hs:312)
integer (src/Data/Aeson/Encoding/Internal.hs:315)
float (src/Data/Aeson/Encoding/Internal.hs:318)
scientific (src/Data/Aeson/Encoding/Internal.hs:338)
int8Text (src/Data/Aeson/Encoding/Internal.hs:352)
int16Text (src/Data/Aeson/Encoding/Internal.hs:355)
int32Text (src/Data/Aeson/Encoding/Internal.hs:358)
int64Text (src/Data/Aeson/Encoding/Internal.hs:361)
intText (src/Data/Aeson/Encoding/Internal.hs:364)
word8Text (src/Data/Aeson/Encoding/Internal.hs:367)
word16Text (src/Data/Aeson/Encoding/Internal.hs:370)
word32Text (src/Data/Aeson/Encoding/Internal.hs:373)
word64Text (src/Data/Aeson/Encoding/Internal.hs:376)
wordText (src/Data/Aeson/Encoding/Internal.hs:379)
integerText (src/Data/Aeson/Encoding/Internal.hs:382)
floatText (src/Data/Aeson/Encoding/Internal.hs:385)
scientificText (src/Data/Aeson/Encoding/Internal.hs:409)
day (src/Data/Aeson/Encoding/Internal.hs:416)
month (src/Data/Aeson/Encoding/Internal.hs:419)
quarter (src/Data/Aeson/Encoding/Internal.hs:422)
localTime (src/Data/Aeson/Encoding/Internal.hs:425)
utcTime (src/Data/Aeson/Encoding/Internal.hs:428)
timeOfDay (src/Data/Aeson/Encoding/Internal.hs:431)
zonedTime (src/Data/Aeson/Encoding/Internal.hs:434)
value (src/Data/Aeson/Encoding/Internal.hs:441)
Warning: 'ConsParseJSON' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Generically1' is ambiguous. It is defined
* in GHC.Generics
* in GHC.Generics
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Generics
Warning: 'ToJSONKeyFunction' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ToJSONKeyValue' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ToJSONKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ToJSONKeyText' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'String' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:368:14
* in GHC.Base
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:368:14
Warning: 'Object' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:366:14
* at src/Data/Aeson/Types/Internal.hs:360:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:360:1
Warning: 'Array' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:367:14
* at src/Data/Aeson/Types/Internal.hs:363:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:363:1
Warning: 'Generically' is ambiguous. It is defined
* in GHC.Generics
* in GHC.Generics
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Generics
Warning: 'genericToJSONKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Bool' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:370:14
* in GHC.Types
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:370:14
Warning: 'Boolean' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Map' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'HashMap' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'FromJSONKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Foo' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'String' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:368:14
* in GHC.Base
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:368:14
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'showsList' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'pairs' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Generically' is ambiguous. It is defined
* in GHC.Generics
* in GHC.Generics
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in GHC.Generics
Warning: 'Object' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:366:14
* at src/Data/Aeson/Types/Internal.hs:360:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:360:1
93% (138 /148) in 'Data.Aeson.Types'
Missing documentation for:
Key (src/Data/Aeson/Key.hs:44)
ToJSONKeyFunction (src/Data/Aeson/Types/ToJSON.hs:532)
GToJSONKey (src/Data/Aeson/Types/ToJSON.hs:596)
genericToJSONKey (src/Data/Aeson/Types/ToJSON.hs:594)
GFromJSONKey (src/Data/Aeson/Types/FromJSON.hs:521)
omitField1 (src/Data/Aeson/Types/ToJSON.hs:691)
omitField2 (src/Data/Aeson/Types/ToJSON.hs:724)
GToJSON (src/Data/Aeson/Types/Class.hs:120)
GToEncoding (src/Data/Aeson/Types/Class.hs:121)
JSONPath (src/Data/Aeson/Types/Internal.hs:116)
Warning: 'encode' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'fromEncoding' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 3 / 3) in 'Data.Aeson.Text'
Warning: 'AesonException' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:923:26
* at src/Data/Aeson/Types/Internal.hs:923:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:923:1
100% ( 12 / 12) in 'Data.Aeson.Decoding'
Warning: 'json' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'AesonException' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:923:26
* at src/Data/Aeson/Types/Internal.hs:923:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:923:1
Warning: 'Generic' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'name' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Object' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:366:14
* at src/Data/Aeson/Types/Internal.hs:360:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:360:1
Cannot find documentation for: $optionsFields
92% (132 /143) in 'Data.Aeson'
Missing documentation for:
Key (src/Data/Aeson/Key.hs:44)
JSONPath (src/Data/Aeson/Types/Internal.hs:116)
ToJSONKeyFunction (src/Data/Aeson/Types/ToJSON.hs:532)
GToJSONKey (src/Data/Aeson/Types/ToJSON.hs:596)
genericToJSONKey (src/Data/Aeson/Types/ToJSON.hs:594)
GFromJSONKey (src/Data/Aeson/Types/FromJSON.hs:521)
omitField1 (src/Data/Aeson/Types/ToJSON.hs:691)
omitField2 (src/Data/Aeson/Types/ToJSON.hs:724)
GToJSON (src/Data/Aeson/Types/Class.hs:120)
GToEncoding (src/Data/Aeson/Types/Class.hs:121)
parseIndexedJSON (src/Data/Aeson/Types/FromJSON.hs:171)
Warning: 'Value' is ambiguous. It is defined
* at src/Data/Aeson/Encoding/Internal.hs:130:15
* at src/Data/Aeson/Types/Internal.hs:366:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:366:1
100% ( 2 / 2) in 'Data.Aeson.RFC8785'
100% ( 2 / 2) in 'Data.Aeson.QQ.Simple'
Warning: 'ToJSON' is ambiguous. It is defined
* at src/Data/Aeson/TH.hs:1906:16
* at src/Data/Aeson/Types/ToJSON.hs:291:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/ToJSON.hs:291:1
Warning: 'Value' is ambiguous. It is defined
* at src/Data/Aeson/TH.hs:1909:18
* at src/Data/Aeson/Types/Internal.hs:366:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:366:1
Warning: 'Object' is ambiguous. It is defined
* at src/Data/Aeson/Types/Internal.hs:366:14
* at src/Data/Aeson/Types/Internal.hs:360:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:360:1
Warning: 'FromJSON3' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 25 / 25) in 'Data.Aeson.TH'
Warning: Data.Aeson.KeyMap: could not find link destinations for:
- Data.Aeson.KeyMap.D:R:ItemKeyMap
Warning: Data.Aeson.Encoding.Internal: could not find link destinations for:
- Data.Aeson.Types.ToJSON.EncodeProduct
- Data.Aeson.Types.ToJSON.gToJSON
Warning: Data.Aeson.Encoding: could not find link destinations for:
- Data.Aeson.Types.ToJSON.EncodeProduct
- Data.Aeson.Types.ToJSON.gToJSON
Warning: Data.Aeson.Types: could not find link destinations for:
- Data.Vector.Vector
- Data.Vector.Generic.Base.Vector
- Data.Aeson.Types.Generic.ProductSize
- Data.Aeson.Types.Generic.AllNullary
- Data.Aeson.Types.Internal.Rep_Value
- Data.Vector.Primitive.Vector
- Data.Vector.Storable.Vector
- Data.Vector.Unboxed.Base.Vector
- Data.Aeson.Types.FromJSON.ConstructorNames
- Data.Aeson.Types.FromJSON.SumFromString
- Data.Aeson.Types.FromJSON.GFromJSON'
- Data.Aeson.Types.FromJSON.gParseJSON
- Data.Aeson.Types.FromJSON.withBoundedScientific
- Data.Aeson.Types.ToJSON.EncodeProduct
- Data.Aeson.Types.ToJSON.WriteProduct
- Data.Aeson.Types.ToJSON.ConsToJSON
- Data.Aeson.Types.ToJSON.GetConName
- Data.Aeson.Types.ToJSON.SumToJSON
- Data.Aeson.Types.ToJSON.gToJSON
Warning: Data.Aeson: could not find link destinations for:
- Data.Vector.Vector
- Data.Vector.Generic.Base.Vector
- Data.Aeson.Types.Generic.ProductSize
- Data.Aeson.Types.Generic.AllNullary
- Data.Aeson.Types.Internal.Rep_Value
- Data.Vector.Primitive.Vector
- Data.Vector.Storable.Vector
- Data.Vector.Unboxed.Base.Vector
- Data.Aeson.Types.FromJSON.ConstructorNames
- Data.Aeson.Types.FromJSON.SumFromString
- Data.Aeson.Types.FromJSON.GFromJSON'
- Data.Aeson.Types.FromJSON.gParseJSON
- Data.Aeson.Types.FromJSON.withBoundedScientific
- Data.Aeson.Types.ToJSON.EncodeProduct
- Data.Aeson.Types.ToJSON.WriteProduct
- Data.Aeson.Types.ToJSON.ConsToJSON
- Data.Aeson.Types.ToJSON.GetConName
- Data.Aeson.Types.ToJSON.SumToJSON
- Data.Aeson.Types.ToJSON.gToJSON
Documentation created: dist/doc/html/aeson/, dist/doc/html/aeson/aeson.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/aeson-2.2.3.0-9n2w8nqVcGrLltjAw6OkWr
Completed aeson-2.2.3.0
Configuring mono-traversable-1.0.21.0...
Preprocessing library for mono-traversable-1.0.21.0..
Building library for mono-traversable-1.0.21.0..
[1 of 6] Compiling Data.MonoTraversable ( src/Data/MonoTraversable.hs, dist/build/Data/MonoTraversable.o, dist/build/Data/MonoTraversable.dyn_o )
src/Data/MonoTraversable.hs:1354:5: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding:
Patterns of type ViewL a not matched: EmptyL
|
1354 | oextract ~(x :< _) = x
| ^^^^^^^^^^^^^^^^^^^^^^
src/Data/MonoTraversable.hs:1356:5: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding:
Patterns of type ViewL a not matched: EmptyL
|
1356 | oextend f w@(~(_ :< xxs)) =
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^...
src/Data/MonoTraversable.hs:1364:5: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding:
Patterns of type ViewR a not matched: EmptyR
|
1364 | oextract ~(_ :> x) = x
| ^^^^^^^^^^^^^^^^^^^^^^
src/Data/MonoTraversable.hs:1366:5: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding:
Patterns of type ViewR a not matched: EmptyR
|
1366 | oextend f w@(~(xxs :> _)) =
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^...
[2 of 6] Compiling Data.Containers ( src/Data/Containers.hs, dist/build/Data/Containers.o, dist/build/Data/Containers.dyn_o )
[3 of 6] Compiling Data.MonoTraversable.Unprefixed ( src/Data/MonoTraversable/Unprefixed.hs, dist/build/Data/MonoTraversable/Unprefixed.o, dist/build/Data/MonoTraversable/Unprefixed.dyn_o )
[4 of 6] Compiling Data.Sequences ( src/Data/Sequences.hs, dist/build/Data/Sequences.o, dist/build/Data/Sequences.dyn_o )
[5 of 6] Compiling Data.NonNull ( src/Data/NonNull.hs, dist/build/Data/NonNull.o, dist/build/Data/NonNull.dyn_o )
[6 of 6] Compiling Paths_mono_traversable ( dist/build/autogen/Paths_mono_traversable.hs, dist/build/Paths_mono_traversable.o, dist/build/Paths_mono_traversable.dyn_o )
Preprocessing library for mono-traversable-1.0.21.0..
Running Haddock on library for mono-traversable-1.0.21.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 6] Compiling Data.MonoTraversable ( src/Data/MonoTraversable.hs, nothing )
[2 of 6] Compiling Data.Containers ( src/Data/Containers.hs, nothing )
[3 of 6] Compiling Data.MonoTraversable.Unprefixed ( src/Data/MonoTraversable/Unprefixed.hs, nothing )
[4 of 6] Compiling Data.Sequences ( src/Data/Sequences.hs, nothing )
[5 of 6] Compiling Data.NonNull ( src/Data/NonNull.hs, nothing )
[6 of 6] Compiling Paths_mono_traversable ( dist/build/autogen/Paths_mono_traversable.hs, nothing )
Haddock coverage:
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Text' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Foldable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'foldlUnwrap' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'intercalate' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'WrappedMono' is ambiguous. It is defined
* at src/Data/MonoTraversable.hs:1461:5
* at src/Data/MonoTraversable.hs:1460:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/MonoTraversable.hs:1460:1
94% ( 34 / 36) in 'Data.MonoTraversable'
Missing documentation for:
replaceElemStrictText (src/Data/MonoTraversable.hs:287)
replaceElemLazyText (src/Data/MonoTraversable.hs:290)
87% ( 7 / 8) in 'Data.Containers'
Missing documentation for:
Module header
100% ( 32 / 32) in 'Data.MonoTraversable.Unprefixed'
Warning: 'a' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'b' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'c' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'not' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Vector' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'z' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Text' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'seq' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'NonNull' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'SemiGroup' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'NonEmpty' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'nfilter' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'String' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'intercalate' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'true' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
80% ( 40 / 50) in 'Data.Sequences'
Missing documentation for:
splitElemStrictBS (src/Data/Sequences.hs:1525)
stripPrefixStrictBS (src/Data/Sequences.hs:1530)
stripSuffixStrictBS (src/Data/Sequences.hs:1535)
splitSeqLazyBS (src/Data/Sequences.hs:1547)
stripPrefixLazyBS (src/Data/Sequences.hs:1552)
stripSuffixLazyBS (src/Data/Sequences.hs:1557)
splitSeqStrictText (src/Data/Sequences.hs:1571)
replaceSeqStrictText (src/Data/Sequences.hs:1576)
splitSeqLazyText (src/Data/Sequences.hs:1590)
replaceSeqLazyText (src/Data/Sequences.hs:1595)
Warning: 'NonNull' is ambiguous. It is defined
* at src/Data/NonNull.hs:58:24
* at src/Data/NonNull.hs:58:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/NonNull.hs:58:1
Warning: 'NonEmpty' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'foldl1'' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 30 / 30) in 'Data.NonNull'
Warning: Data.MonoTraversable: could not find link destinations for:
- Data.Vector.Vector
- Data.Vector.Unboxed.Base.Unbox
- Data.Vector.Storable.Vector
- Data.Vector.Strict.Vector
Warning: Data.Containers: could not find link destinations for:
- Data.Containers.D:R:ContainerKeyIntSet
- Data.Containers.D:R:ContainerKeyHashSet
- Data.Containers.D:R:ContainerKeySet
- Data.Containers.D:R:ContainerKeyIntMap
- Data.Containers.D:R:ContainerKeyHashMap
- Data.Containers.D:R:ContainerKeyMap
- Data.Containers.D:R:BPMKeyConstraintMapkey
- Data.Containers.D:R:MapValueList
- Data.Containers.D:R:MapValueIntMap
- Data.Containers.D:R:MapValueHashMap
- Data.Containers.D:R:MapValueMap
- Data.Containers.D:R:BPMKeyConstraintHashMapkey
- Data.Containers.D:R:ContainerKeyList
- Data.Containers.D:R:KeySetHashMap
- Data.Containers.D:R:KeySetIntMap
- Data.Containers.D:R:KeySetMap
Warning: Data.Sequences: could not find link destinations for:
- Data.Vector.Vector
- Data.Vector.Generic.Base.Vector
- Data.Vector.Unboxed.Base.Unbox
- Data.Vector.Storable.Vector
- Data.Vector.Strict.Vector
- Data.Sequences.D:R:IndexVector
- Data.Sequences.D:R:IndexVector0
- Data.Sequences.D:R:IndexVector1
- Data.Sequences.D:R:IndexVector2
- Data.Sequences.D:R:IndexSeq
- Data.Sequences.D:R:IndexText
- Data.Sequences.D:R:IndexByteString
- Data.Sequences.D:R:IndexText0
- Data.Sequences.D:R:IndexByteString0
- Data.Sequences.D:R:IndexNonEmpty
- Data.Sequences.D:R:IndexList
- Data.NonNull.D:R:IndexNonNull
Warning: Data.NonNull: could not find link destinations for:
- Data.Vector.Vector
- Data.Vector.Unboxed.Base.Unbox
- Data.Vector.Storable.Vector
- Data.Vector.Strict.Vector
- Data.NonNull.D:R:IndexNonNull
Documentation created: dist/doc/html/mono-traversable/,
dist/doc/html/mono-traversable/mono-traversable.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/mono-traversable-1.0.21.0-CXXMYFMoWuUKrYZFMKy0q1
Completed mono-traversable-1.0.21.0
Configuring attoparsec-aeson-2.2.2.0...
Preprocessing library for attoparsec-aeson-2.2.2.0..
Building library for attoparsec-aeson-2.2.2.0..
[1 of 4] Compiling Data.Aeson.Internal.ByteString ( src/Data/Aeson/Internal/ByteString.hs, dist/build/Data/Aeson/Internal/ByteString.o, dist/build/Data/Aeson/Internal/ByteString.dyn_o )
[2 of 4] Compiling Data.Aeson.Internal.Text ( src/Data/Aeson/Internal/Text.hs, dist/build/Data/Aeson/Internal/Text.o, dist/build/Data/Aeson/Internal/Text.dyn_o )
[3 of 4] Compiling Data.Aeson.Parser.Internal ( src/Data/Aeson/Parser/Internal.hs, dist/build/Data/Aeson/Parser/Internal.o, dist/build/Data/Aeson/Parser/Internal.dyn_o )
[4 of 4] Compiling Data.Aeson.Parser ( src/Data/Aeson/Parser.hs, dist/build/Data/Aeson/Parser.o, dist/build/Data/Aeson/Parser.dyn_o )
Preprocessing library for attoparsec-aeson-2.2.2.0..
Running Haddock on library for attoparsec-aeson-2.2.2.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 4] Compiling Data.Aeson.Internal.ByteString ( src/Data/Aeson/Internal/ByteString.hs, nothing )
[2 of 4] Compiling Data.Aeson.Internal.Text ( src/Data/Aeson/Internal/Text.hs, nothing )
[3 of 4] Compiling Data.Aeson.Parser.Internal ( src/Data/Aeson/Parser/Internal.hs, nothing )
[4 of 4] Compiling Data.Aeson.Parser ( src/Data/Aeson/Parser.hs, nothing )
Haddock coverage:
Warning: 'Object' is ambiguous. It is defined
* in Data.Aeson.Types.Internal
* in Data.Aeson.Types.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Aeson.Types.Internal
Warning: 'fromListNoDup' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
86% ( 26 / 30) in 'Data.Aeson.Parser.Internal'
Missing documentation for:
decodeWith (src/Data/Aeson/Parser/Internal.hs:349)
decodeStrictWith (src/Data/Aeson/Parser/Internal.hs:359)
eitherDecodeWith (src/Data/Aeson/Parser/Internal.hs:367)
eitherDecodeStrictWith (src/Data/Aeson/Parser/Internal.hs:403)
84% ( 22 / 26) in 'Data.Aeson.Parser'
Missing documentation for:
decodeWith (src/Data/Aeson/Parser/Internal.hs:349)
decodeStrictWith (src/Data/Aeson/Parser/Internal.hs:359)
eitherDecodeWith (src/Data/Aeson/Parser/Internal.hs:367)
eitherDecodeStrictWith (src/Data/Aeson/Parser/Internal.hs:403)
Documentation created: dist/doc/html/attoparsec-aeson/,
dist/doc/html/attoparsec-aeson/attoparsec-aeson.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/attoparsec-aeson-2.2.2.0-JKfn7weovyuAC2d0fJJ1js
Completed attoparsec-aeson-2.2.2.0
Configuring conduit-1.3.6.1...
Preprocessing library for conduit-1.3.6.1..
Building library for conduit-1.3.6.1..
[ 1 of 14] Compiling Data.Conduit.Internal.Pipe ( src/Data/Conduit/Internal/Pipe.hs, dist/build/Data/Conduit/Internal/Pipe.o, dist/build/Data/Conduit/Internal/Pipe.dyn_o )
src/Data/Conduit/Internal/Pipe.hs:48:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
48 | import Control.Applicative (Applicative (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Pipe.hs:56:51: warning: [GHC-38856] [-Wunused-imports]
The import of MonadUnliftIO
from module Control.Monad.IO.Unlift is redundant
|
56 | import Control.Monad.IO.Unlift (MonadIO (liftIO), MonadUnliftIO, withRunInIO)
| ^^^^^^^^^^^^^
src/Data/Conduit/Internal/Pipe.hs:59:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
59 | import Data.Monoid (Monoid (mappend, mempty))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Pipe.hs:60:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
60 | import Data.Semigroup (Semigroup ((<>)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 2 of 14] Compiling Data.Conduit.Internal.Conduit ( src/Data/Conduit/Internal/Conduit.hs, dist/build/Data/Conduit/Internal/Conduit.o, dist/build/Data/Conduit/Internal/Conduit.dyn_o )
src/Data/Conduit/Internal/Conduit.hs:93:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
93 | import Control.Applicative (Applicative (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Conduit.hs:104:51: warning: [GHC-38856] [-Wunused-imports]
The import of MonadUnliftIO
from module Control.Monad.IO.Unlift is redundant
|
104 | import Control.Monad.IO.Unlift (MonadIO (liftIO), MonadUnliftIO, withRunInIO)
| ^^^^^^^^^^^^^
src/Data/Conduit/Internal/Conduit.hs:108:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
108 | import Data.Monoid (Monoid (mappend, mempty))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Conduit.hs:109:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
109 | import Data.Semigroup (Semigroup ((<>)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Conduit.hs:114:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Traversable is redundant
except perhaps to import instances from Data.Traversable
To import instances alone, use: import Data.Traversable()
|
114 | import Data.Traversable (Traversable (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Conduit.hs:739:20: warning: [GHC-63397] [-Wname-shadowing]
This binding for p shadows the existing binding
bound at src/Data/Conduit/Internal/Conduit.hs:736:25
|
739 | go (HaveOutput p o) = pure $ Just (o, SealedConduitT p)
| ^
src/Data/Conduit/Internal/Conduit.hs:743:18: warning: [GHC-63397] [-Wname-shadowing]
This binding for p shadows the existing binding
bound at src/Data/Conduit/Internal/Conduit.hs:736:25
|
743 | go (Leftover p ()) = go p
| ^
src/Data/Conduit/Internal/Conduit.hs:756:20: warning: [GHC-63397] [-Wname-shadowing]
This binding for p shadows the existing binding
bound at src/Data/Conduit/Internal/Conduit.hs:753:31
|
756 | go (HaveOutput p o) = pure $ Right (o, SealedConduitT p)
| ^
src/Data/Conduit/Internal/Conduit.hs:760:18: warning: [GHC-63397] [-Wname-shadowing]
This binding for p shadows the existing binding
bound at src/Data/Conduit/Internal/Conduit.hs:753:31
|
760 | go (Leftover p ()) = go p
| ^
[ 3 of 14] Compiling Data.Conduit.Internal.Fusion ( src/Data/Conduit/Internal/Fusion.hs, dist/build/Data/Conduit/Internal/Fusion.o, dist/build/Data/Conduit/Internal/Fusion.dyn_o )
src/Data/Conduit/Internal/Fusion.hs:78:23: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
78 | unstream left =$= unstream right = unstream (fuseStream left right)
| ^^^
src/Data/Conduit/Internal/Fusion.hs:129:23: warning: [GHC-68441] [-Wdeprecations]
In the use of $$ (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use runConduit and .|"
|
129 | unstream left $$ unstream right = connectStream left right
| ^^
src/Data/Conduit/Internal/Fusion.hs:154:23: warning: [GHC-68441] [-Wdeprecations]
In the use of $$ (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use runConduit and .|"
|
154 | unstream left $$ right = connectStream1 left right
| ^^
src/Data/Conduit/Internal/Fusion.hs:161:35: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
161 | runConduit (unstream left =$= right) = connectStream1 left right
| ^^^
src/Data/Conduit/Internal/Fusion.hs:171:39: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
171 | runConduitPure (unstream left =$= right) = runIdentity (connectStream1 left right)
| ^^^
src/Data/Conduit/Internal/Fusion.hs:181:38: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
181 | runConduitRes (unstream left =$= right) = runResourceT (connectStream1 left right)
| ^^^
src/Data/Conduit/Internal/Fusion.hs:214:14: warning: [GHC-68441] [-Wdeprecations]
In the use of $$ (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use runConduit and .|"
|
214 | left $$ unstream right = connectStream2 left right
| ^^
src/Data/Conduit/Internal/Fusion.hs:224:26: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
224 | runConduit (left =$= unstream right) = connectStream2 left right
| ^^^
src/Data/Conduit/Internal/Fusion.hs:234:30: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
234 | runConduitPure (left =$= unstream right) = runIdentity (connectStream2 left right)
| ^^^
src/Data/Conduit/Internal/Fusion.hs:244:29: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
244 | runConduitRes (left =$= unstream right) = runResourceT (connectStream2 left right)
| ^^^
[ 4 of 14] Compiling Data.Conduit.Internal.List.Stream ( src/Data/Conduit/Internal/List/Stream.hs, dist/build/Data/Conduit/Internal/List/Stream.o, dist/build/Data/Conduit/Internal/List/Stream.dyn_o )
[ 5 of 14] Compiling Data.Conduit.Combinators.Stream ( src/Data/Conduit/Combinators/Stream.hs, dist/build/Data/Conduit/Combinators/Stream.o, dist/build/Data/Conduit/Combinators/Stream.dyn_o )
src/Data/Conduit/Combinators/Stream.hs:362:61: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
362 | slidingWindowS :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> StreamConduit a m seq
| ^
[ 6 of 14] Compiling Data.Conduit ( src/Data/Conduit.hs, dist/build/Data/Conduit.o, dist/build/Data/Conduit.dyn_o )
src/Data/Conduit.hs:105:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Functor.Identity is redundant
except perhaps to import instances from Data.Functor.Identity
To import instances alone, use: import Data.Functor.Identity()
|
105 | import Data.Functor.Identity (Identity, runIdentity)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit.hs:106:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Monad.Trans.Resource is redundant
except perhaps to import instances from Control.Monad.Trans.Resource
To import instances alone, use: import Control.Monad.Trans.Resource()
|
106 | import Control.Monad.Trans.Resource (ResourceT, runResourceT)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit.hs:107:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Monad.IO.Unlift is redundant
except perhaps to import instances from Control.Monad.IO.Unlift
To import instances alone, use: import Control.Monad.IO.Unlift()
|
107 | import Control.Monad.IO.Unlift (MonadUnliftIO)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 7 of 14] Compiling Data.Conduit.Internal ( src/Data/Conduit/Internal.hs, dist/build/Data/Conduit/Internal.o, dist/build/Data/Conduit/Internal.dyn_o )
[ 8 of 14] Compiling Data.Conduit.Lift ( src/Data/Conduit/Lift.hs, dist/build/Data/Conduit/Lift.o, dist/build/Data/Conduit/Lift.dyn_o )
src/Data/Conduit/Lift.hs:67:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
67 | import Data.Monoid (Monoid(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 9 of 14] Compiling Data.Conduit.List ( src/Data/Conduit/List.hs, dist/build/Data/Conduit/List.o, dist/build/Data/Conduit/List.dyn_o )
[10 of 14] Compiling Data.Streaming.FileRead ( src/Data/Streaming/FileRead.hs, dist/build/Data/Streaming/FileRead.o, dist/build/Data/Streaming/FileRead.dyn_o )
[11 of 14] Compiling Data.Streaming.Filesystem ( src/Data/Streaming/Filesystem.hs, dist/build/Data/Streaming/Filesystem.o, dist/build/Data/Streaming/Filesystem.dyn_o )
[12 of 14] Compiling Data.Conduit.Combinators ( src/Data/Conduit/Combinators.hs, dist/build/Data/Conduit/Combinators.o, dist/build/Data/Conduit/Combinators.dyn_o )
src/Data/Conduit/Combinators.hs:901:43: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
901 | foldl1E :: (Monad m, MonoFoldable mono, a ~ Element mono)
| ^
src/Data/Conduit/Combinators.hs:907:40: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
907 | foldMaybeNull :: (MonoFoldable mono, e ~ Element mono)
| ^
src/Data/Conduit/Combinators.hs:992:51: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
992 | andE :: (Monad m, MonoFoldable mono, Element mono ~ Bool)
| ^
src/Data/Conduit/Combinators.hs:1013:50: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1013 | orE :: (Monad m, MonoFoldable mono, Element mono ~ Bool)
| ^
src/Data/Conduit/Combinators.hs:1801:76: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1801 | slidingWindow, slidingWindowC :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> ConduitT a seq m ()
| ^
src/Data/Conduit/Combinators.hs:2036:51: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2036 | line :: (Monad m, Seq.IsSequence seq, Element seq ~ Char)
| ^
src/Data/Conduit/Combinators.hs:2045:56: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2045 | lineAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8)
| ^
src/Data/Conduit/Combinators.hs:2082:54: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2082 | unlines :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) => ConduitT seq seq m ()
| ^
src/Data/Conduit/Combinators.hs:2090:59: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2090 | unlinesAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) => ConduitT seq seq m ()
| ^
src/Data/Conduit/Combinators.hs:2126:61: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2126 | linesUnbounded :: (Monad m, Seq.IsSequence seq, Element seq ~ Char)
| ^
src/Data/Conduit/Combinators.hs:2135:66: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2135 | linesUnboundedAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8)
| ^
src/Data/Conduit/Combinators.hs:2437:71: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2437 | vectorBuilder :: (PrimMonad m, PrimMonad n, V.Vector v e, PrimState m ~ PrimState n)
| ^
[13 of 14] Compiling Data.Conduit.Combinators.Unqualified ( src/Data/Conduit/Combinators/Unqualified.hs, dist/build/Data/Conduit/Combinators/Unqualified.o, dist/build/Data/Conduit/Combinators/Unqualified.dyn_o )
src/Data/Conduit/Combinators/Unqualified.hs:461:52: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
461 | andCE :: (Monad m, MonoFoldable mono, Element mono ~ Bool)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:480:51: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
480 | orCE :: (Monad m, MonoFoldable mono, Element mono ~ Bool)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:993:61: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
993 | slidingWindowC :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> ConduitT a seq m ()
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1135:52: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1135 | lineC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1144:57: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1144 | lineAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1153:55: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1153 | unlinesC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) => ConduitT seq seq m ()
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1160:60: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1160 | unlinesAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) => ConduitT seq seq m ()
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1170:62: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1170 | linesUnboundedC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1178:67: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1178 | linesUnboundedAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1201:72: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1201 | vectorBuilderC :: (PrimMonad m, V.Vector v e, PrimMonad n, PrimState m ~ PrimState n)
| ^
[14 of 14] Compiling Conduit ( src/Conduit.hs, dist/build/Conduit.o, dist/build/Conduit.dyn_o )
Preprocessing library for conduit-1.3.6.1..
Running Haddock on library for conduit-1.3.6.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 14] Compiling Data.Conduit.Internal.Pipe ( src/Data/Conduit/Internal/Pipe.hs, nothing )
src/Data/Conduit/Internal/Pipe.hs:48:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
48 | import Control.Applicative (Applicative (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Pipe.hs:56:51: warning: [GHC-38856] [-Wunused-imports]
The import of MonadUnliftIO
from module Control.Monad.IO.Unlift is redundant
|
56 | import Control.Monad.IO.Unlift (MonadIO (liftIO), MonadUnliftIO, withRunInIO)
| ^^^^^^^^^^^^^
src/Data/Conduit/Internal/Pipe.hs:59:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
59 | import Data.Monoid (Monoid (mappend, mempty))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Pipe.hs:60:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
60 | import Data.Semigroup (Semigroup ((<>)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 2 of 14] Compiling Data.Conduit.Internal.Conduit ( src/Data/Conduit/Internal/Conduit.hs, nothing )
src/Data/Conduit/Internal/Conduit.hs:93:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Applicative is redundant
except perhaps to import instances from Control.Applicative
To import instances alone, use: import Control.Applicative()
|
93 | import Control.Applicative (Applicative (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Conduit.hs:104:51: warning: [GHC-38856] [-Wunused-imports]
The import of MonadUnliftIO
from module Control.Monad.IO.Unlift is redundant
|
104 | import Control.Monad.IO.Unlift (MonadIO (liftIO), MonadUnliftIO, withRunInIO)
| ^^^^^^^^^^^^^
src/Data/Conduit/Internal/Conduit.hs:108:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
108 | import Data.Monoid (Monoid (mappend, mempty))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Conduit.hs:109:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Semigroup is redundant
except perhaps to import instances from Data.Semigroup
To import instances alone, use: import Data.Semigroup()
|
109 | import Data.Semigroup (Semigroup ((<>)))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Conduit.hs:114:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Traversable is redundant
except perhaps to import instances from Data.Traversable
To import instances alone, use: import Data.Traversable()
|
114 | import Data.Traversable (Traversable (..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit/Internal/Conduit.hs:739:20: warning: [GHC-63397] [-Wname-shadowing]
This binding for p shadows the existing binding
bound at src/Data/Conduit/Internal/Conduit.hs:736:25
|
739 | go (HaveOutput p o) = pure $ Just (o, SealedConduitT p)
| ^
src/Data/Conduit/Internal/Conduit.hs:743:18: warning: [GHC-63397] [-Wname-shadowing]
This binding for p shadows the existing binding
bound at src/Data/Conduit/Internal/Conduit.hs:736:25
|
743 | go (Leftover p ()) = go p
| ^
src/Data/Conduit/Internal/Conduit.hs:756:20: warning: [GHC-63397] [-Wname-shadowing]
This binding for p shadows the existing binding
bound at src/Data/Conduit/Internal/Conduit.hs:753:31
|
756 | go (HaveOutput p o) = pure $ Right (o, SealedConduitT p)
| ^
src/Data/Conduit/Internal/Conduit.hs:760:18: warning: [GHC-63397] [-Wname-shadowing]
This binding for p shadows the existing binding
bound at src/Data/Conduit/Internal/Conduit.hs:753:31
|
760 | go (Leftover p ()) = go p
| ^
[ 3 of 14] Compiling Data.Conduit.Internal.Fusion ( src/Data/Conduit/Internal/Fusion.hs, nothing )
src/Data/Conduit/Internal/Fusion.hs:78:23: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
78 | unstream left =$= unstream right = unstream (fuseStream left right)
| ^^^
src/Data/Conduit/Internal/Fusion.hs:129:23: warning: [GHC-68441] [-Wdeprecations]
In the use of $$ (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use runConduit and .|"
|
129 | unstream left $$ unstream right = connectStream left right
| ^^
src/Data/Conduit/Internal/Fusion.hs:154:23: warning: [GHC-68441] [-Wdeprecations]
In the use of $$ (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use runConduit and .|"
|
154 | unstream left $$ right = connectStream1 left right
| ^^
src/Data/Conduit/Internal/Fusion.hs:161:35: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
161 | runConduit (unstream left =$= right) = connectStream1 left right
| ^^^
src/Data/Conduit/Internal/Fusion.hs:171:39: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
171 | runConduitPure (unstream left =$= right) = runIdentity (connectStream1 left right)
| ^^^
src/Data/Conduit/Internal/Fusion.hs:181:38: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
181 | runConduitRes (unstream left =$= right) = runResourceT (connectStream1 left right)
| ^^^
src/Data/Conduit/Internal/Fusion.hs:214:14: warning: [GHC-68441] [-Wdeprecations]
In the use of $$ (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use runConduit and .|"
|
214 | left $$ unstream right = connectStream2 left right
| ^^
src/Data/Conduit/Internal/Fusion.hs:224:26: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
224 | runConduit (left =$= unstream right) = connectStream2 left right
| ^^^
src/Data/Conduit/Internal/Fusion.hs:234:30: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
234 | runConduitPure (left =$= unstream right) = runIdentity (connectStream2 left right)
| ^^^
src/Data/Conduit/Internal/Fusion.hs:244:29: warning: [GHC-68441] [-Wdeprecations]
In the use of =$= (imported from Data.Conduit.Internal.Conduit):
Deprecated: "Use .|"
|
244 | runConduitRes (left =$= unstream right) = runResourceT (connectStream2 left right)
| ^^^
[ 4 of 14] Compiling Data.Conduit.Internal.List.Stream ( src/Data/Conduit/Internal/List/Stream.hs, nothing )
[ 5 of 14] Compiling Data.Conduit.Combinators.Stream ( src/Data/Conduit/Combinators/Stream.hs, nothing )
src/Data/Conduit/Combinators/Stream.hs:362:61: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
362 | slidingWindowS :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> StreamConduit a m seq
| ^
[ 6 of 14] Compiling Data.Conduit ( src/Data/Conduit.hs, nothing )
src/Data/Conduit.hs:105:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Functor.Identity is redundant
except perhaps to import instances from Data.Functor.Identity
To import instances alone, use: import Data.Functor.Identity()
|
105 | import Data.Functor.Identity (Identity, runIdentity)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit.hs:106:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Monad.Trans.Resource is redundant
except perhaps to import instances from Control.Monad.Trans.Resource
To import instances alone, use: import Control.Monad.Trans.Resource()
|
106 | import Control.Monad.Trans.Resource (ResourceT, runResourceT)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/Data/Conduit.hs:107:1: warning: [GHC-66111] [-Wunused-imports]
The import of Control.Monad.IO.Unlift is redundant
except perhaps to import instances from Control.Monad.IO.Unlift
To import instances alone, use: import Control.Monad.IO.Unlift()
|
107 | import Control.Monad.IO.Unlift (MonadUnliftIO)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 7 of 14] Compiling Data.Conduit.Internal ( src/Data/Conduit/Internal.hs, nothing )
[ 8 of 14] Compiling Data.Conduit.Lift ( src/Data/Conduit/Lift.hs, nothing )
src/Data/Conduit/Lift.hs:67:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Monoid is redundant
except perhaps to import instances from Data.Monoid
To import instances alone, use: import Data.Monoid()
|
67 | import Data.Monoid (Monoid(..))
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[ 9 of 14] Compiling Data.Conduit.List ( src/Data/Conduit/List.hs, nothing )
[10 of 14] Compiling Data.Streaming.FileRead ( src/Data/Streaming/FileRead.hs, nothing )
[11 of 14] Compiling Data.Streaming.Filesystem ( src/Data/Streaming/Filesystem.hs, nothing )
[12 of 14] Compiling Data.Conduit.Combinators ( src/Data/Conduit/Combinators.hs, nothing )
src/Data/Conduit/Combinators.hs:901:43: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
901 | foldl1E :: (Monad m, MonoFoldable mono, a ~ Element mono)
| ^
src/Data/Conduit/Combinators.hs:907:40: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
907 | foldMaybeNull :: (MonoFoldable mono, e ~ Element mono)
| ^
src/Data/Conduit/Combinators.hs:992:51: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
992 | andE :: (Monad m, MonoFoldable mono, Element mono ~ Bool)
| ^
src/Data/Conduit/Combinators.hs:1013:50: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1013 | orE :: (Monad m, MonoFoldable mono, Element mono ~ Bool)
| ^
src/Data/Conduit/Combinators.hs:1801:76: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1801 | slidingWindow, slidingWindowC :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> ConduitT a seq m ()
| ^
src/Data/Conduit/Combinators.hs:2036:51: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2036 | line :: (Monad m, Seq.IsSequence seq, Element seq ~ Char)
| ^
src/Data/Conduit/Combinators.hs:2045:56: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2045 | lineAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8)
| ^
src/Data/Conduit/Combinators.hs:2082:54: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2082 | unlines :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) => ConduitT seq seq m ()
| ^
src/Data/Conduit/Combinators.hs:2090:59: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2090 | unlinesAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) => ConduitT seq seq m ()
| ^
src/Data/Conduit/Combinators.hs:2126:61: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2126 | linesUnbounded :: (Monad m, Seq.IsSequence seq, Element seq ~ Char)
| ^
src/Data/Conduit/Combinators.hs:2135:66: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2135 | linesUnboundedAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8)
| ^
src/Data/Conduit/Combinators.hs:2437:71: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
2437 | vectorBuilder :: (PrimMonad m, PrimMonad n, V.Vector v e, PrimState m ~ PrimState n)
| ^
[13 of 14] Compiling Data.Conduit.Combinators.Unqualified ( src/Data/Conduit/Combinators/Unqualified.hs, nothing )
src/Data/Conduit/Combinators/Unqualified.hs:461:52: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
461 | andCE :: (Monad m, MonoFoldable mono, Element mono ~ Bool)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:480:51: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
480 | orCE :: (Monad m, MonoFoldable mono, Element mono ~ Bool)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:993:61: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
993 | slidingWindowC :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> ConduitT a seq m ()
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1135:52: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1135 | lineC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1144:57: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1144 | lineAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1153:55: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1153 | unlinesC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) => ConduitT seq seq m ()
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1160:60: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1160 | unlinesAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) => ConduitT seq seq m ()
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1170:62: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1170 | linesUnboundedC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1178:67: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1178 | linesUnboundedAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8)
| ^
src/Data/Conduit/Combinators/Unqualified.hs:1201:72: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
1201 | vectorBuilderC :: (PrimMonad m, V.Vector v e, PrimMonad n, PrimState m ~ PrimState n)
| ^
[14 of 14] Compiling Conduit ( src/Conduit.hs, nothing )
Haddock coverage:
Warning: 'hoist' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Source' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Conduit' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'catchC' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'tryC' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ZipConduit' is ambiguous. It is defined
* at src/Data/Conduit/Internal/Conduit.hs:1229:30
* at src/Data/Conduit/Internal/Conduit.hs:1229:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Conduit/Internal/Conduit.hs:1229:1
Warning: 'ConduitT' is ambiguous. It is defined
* at src/Data/Conduit/Internal/Conduit.hs:123:28
* at src/Data/Conduit/Internal/Conduit.hs:123:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Conduit/Internal/Conduit.hs:123:1
Warning: 'SealedConduitT' is ambiguous. It is defined
* at src/Data/Conduit/Internal/Conduit.hs:138:34
* at src/Data/Conduit/Internal/Conduit.hs:138:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Conduit/Internal/Conduit.hs:138:1
18% ( 3 / 16) in 'Data.Conduit.Internal.Fusion'
Missing documentation for:
Module header
Stream (src/Data/Conduit/Internal/Fusion.hs:39)
ConduitWithStream (src/Data/Conduit/Internal/Fusion.hs:43)
StreamConduitT (src/Data/Conduit/Internal/Fusion.hs:47)
StreamConduit (src/Data/Conduit/Internal/Fusion.hs:49)
StreamSource (src/Data/Conduit/Internal/Fusion.hs:51)
StreamProducer (src/Data/Conduit/Internal/Fusion.hs:53)
StreamSink (src/Data/Conduit/Internal/Fusion.hs:55)
StreamConsumer (src/Data/Conduit/Internal/Fusion.hs:57)
streamConduit (src/Data/Conduit/Internal/Fusion.hs:250)
streamSource (src/Data/Conduit/Internal/Fusion.hs:257)
streamSourcePure (src/Data/Conduit/Internal/Fusion.hs:275)
unstream (src/Data/Conduit/Internal/Fusion.hs:60)
0% ( 0 / 41) in 'Data.Conduit.Internal.List.Stream'
Missing documentation for:
Module header
unfoldS (src/Data/Conduit/Internal/List/Stream.hs:17)
unfoldEitherS (src/Data/Conduit/Internal/List/Stream.hs:30)
unfoldMS (src/Data/Conduit/Internal/List/Stream.hs:43)
unfoldEitherMS (src/Data/Conduit/Internal/List/Stream.hs:57)
sourceListS (src/Data/Conduit/Internal/List/Stream.hs:67)
enumFromToS (src/Data/Conduit/Internal/List/Stream.hs:78)
enumFromToS_int (src/Data/Conduit/Internal/List/Stream.hs:90)
iterateS (src/Data/Conduit/Internal/List/Stream.hs:101)
replicateS (src/Data/Conduit/Internal/List/Stream.hs:110)
replicateMS (src/Data/Conduit/Internal/List/Stream.hs:119)
foldS (src/Data/Conduit/Internal/List/Stream.hs:128)
foldMS (src/Data/Conduit/Internal/List/Stream.hs:140)
mapM_S (src/Data/Conduit/Internal/List/Stream.hs:156)
dropS (src/Data/Conduit/Internal/List/Stream.hs:170)
takeS (src/Data/Conduit/Internal/List/Stream.hs:185)
headS (src/Data/Conduit/Internal/List/Stream.hs:198)
mapS (src/Data/Conduit/Internal/List/Stream.hs:210)
mapMS (src/Data/Conduit/Internal/List/Stream.hs:222)
iterMS (src/Data/Conduit/Internal/List/Stream.hs:234)
mapMaybeS (src/Data/Conduit/Internal/List/Stream.hs:246)
mapMaybeMS (src/Data/Conduit/Internal/List/Stream.hs:261)
catMaybesS (src/Data/Conduit/Internal/List/Stream.hs:277)
concatS (src/Data/Conduit/Internal/List/Stream.hs:290)
concatMapS (src/Data/Conduit/Internal/List/Stream.hs:303)
concatMapMS (src/Data/Conduit/Internal/List/Stream.hs:316)
concatMapAccumS (src/Data/Conduit/Internal/List/Stream.hs:331)
mapAccumS (src/Data/Conduit/Internal/List/Stream.hs:346)
mapAccumMS (src/Data/Conduit/Internal/List/Stream.hs:360)
concatMapAccumMS (src/Data/Conduit/Internal/List/Stream.hs:374)
mapFoldableS (src/Data/Conduit/Internal/List/Stream.hs:389)
mapFoldableMS (src/Data/Conduit/Internal/List/Stream.hs:402)
consumeS (src/Data/Conduit/Internal/List/Stream.hs:417)
groupByS (src/Data/Conduit/Internal/List/Stream.hs:429)
groupOn1S (src/Data/Conduit/Internal/List/Stream.hs:433)
GroupByState (src/Data/Conduit/Internal/List/Stream.hs:436)
groupBy1S (src/Data/Conduit/Internal/List/Stream.hs:442)
isolateS (src/Data/Conduit/Internal/List/Stream.hs:463)
filterS (src/Data/Conduit/Internal/List/Stream.hs:476)
sinkNullS (src/Data/Conduit/Internal/List/Stream.hs:489)
sourceNullS (src/Data/Conduit/Internal/List/Stream.hs:501)
11% ( 3 / 27) in 'Data.Conduit.Combinators.Stream'
Missing documentation for:
yieldManyS (src/Data/Conduit/Combinators/Stream.hs:71)
repeatMS (src/Data/Conduit/Combinators/Stream.hs:81)
repeatWhileMS (src/Data/Conduit/Combinators/Stream.hs:91)
foldl1S (src/Data/Conduit/Combinators/Stream.hs:104)
allS (src/Data/Conduit/Combinators/Stream.hs:118)
anyS (src/Data/Conduit/Combinators/Stream.hs:124)
sinkLazyS (src/Data/Conduit/Combinators/Stream.hs:132)
sinkVectorS (src/Data/Conduit/Combinators/Stream.hs:137)
sinkVectorNS (src/Data/Conduit/Combinators/Stream.hs:163)
sinkLazyBuilderS (src/Data/Conduit/Combinators/Stream.hs:182)
lastS (src/Data/Conduit/Combinators/Stream.hs:187)
lastES (src/Data/Conduit/Combinators/Stream.hs:200)
findS (src/Data/Conduit/Combinators/Stream.hs:214)
concatMapS (src/Data/Conduit/Combinators/Stream.hs:231)
concatMapMS (src/Data/Conduit/Combinators/Stream.hs:246)
concatS (src/Data/Conduit/Combinators/Stream.hs:262)
scanlS (src/Data/Conduit/Combinators/Stream.hs:270)
scanlMS (src/Data/Conduit/Combinators/Stream.hs:285)
mapAccumWhileS (src/Data/Conduit/Combinators/Stream.hs:301)
mapAccumWhileMS (src/Data/Conduit/Combinators/Stream.hs:316)
intersperseS (src/Data/Conduit/Combinators/Stream.hs:337)
slidingWindowS (src/Data/Conduit/Combinators/Stream.hs:363)
filterMS (src/Data/Conduit/Combinators/Stream.hs:394)
splitOnUnboundedES (src/Data/Conduit/Combinators/Stream.hs:420)
97% ( 78 / 80) in 'Data.Conduit'
Missing documentation for:
sealConduitT (src/Data/Conduit/Internal/Conduit.hs:298)
unsealConduitT (src/Data/Conduit/Internal/Conduit.hs:301)
91% ( 81 / 89) in 'Data.Conduit.Internal'
Missing documentation for:
Module header
enumFromTo (src/Data/Conduit/Internal/Pipe.hs:500)
yieldM (src/Data/Conduit/Internal/Pipe.hs:251)
sealConduitT (src/Data/Conduit/Internal/Conduit.hs:298)
unsealConduitT (src/Data/Conduit/Internal/Conduit.hs:301)
sourceToPipe (src/Data/Conduit/Internal/Conduit.hs:333)
sinkToPipe (src/Data/Conduit/Internal/Conduit.hs:343)
conduitToPipe (src/Data/Conduit/Internal/Conduit.hs:353)
100% ( 42 / 42) in 'Data.Conduit.Lift'
Warning: 'succ' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Foldable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 60 / 60) in 'Data.Conduit.List'
Warning: 'ResourceT' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'chunkSize' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Flush' is ambiguous. It is defined
* at src/Data/Conduit/Internal/Conduit.hs:1093:26
* at src/Data/Conduit/Internal/Conduit.hs:1093:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Data/Conduit/Internal/Conduit.hs:1093:1
100% (167 /167) in 'Data.Conduit.Combinators'
Warning: 'succ' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'iterM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'takeExactly' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'takeExactlyE' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'take' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'takeE' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'concatMap' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'chunkSize' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'chunksOfExactlyE' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'chunksOfE' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'mapM_' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'concatMapM' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'line' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'unlines' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'linesUnbounded' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% (171 /171) in 'Conduit'
Warning: Data.Conduit.Combinators.Stream: could not find link destinations for:
- Data.Vector.Generic.Base.Vector
Warning: Data.Conduit: could not find link destinations for:
- GHC.Generics.Rep_Void
- Data.Conduit.Internal.Conduit.D:R:PrimStateConduitT
Warning: Data.Conduit.Internal: could not find link destinations for:
- Data.Conduit.Internal.Pipe.D:R:PrimStatePipe
- Data.Conduit.Internal.Conduit.D:R:PrimStateConduitT
Warning: Data.Conduit.Combinators: could not find link destinations for:
- Data.Vector.Generic.Base.Vector
- Data.Conduit.Combinators.Buffer
Warning: Conduit: could not find link destinations for:
- Data.Functor.Identity.Rep_Identity
- Data.Functor.Identity.Rep1_Identity
- Control.Monad.Primitive.D:R:PrimStateAccumT
- Control.Monad.Primitive.D:R:PrimStateContT
- Control.Monad.Primitive.D:R:PrimStateExceptT
- Control.Monad.Primitive.D:R:PrimStateIO
- Control.Monad.Primitive.D:R:PrimStateIdentityT
- Control.Monad.Primitive.D:R:PrimStateMaybeT
- Control.Monad.Primitive.D:R:PrimStateRWST
- Control.Monad.Primitive.D:R:PrimStateRWST0
- Control.Monad.Primitive.D:R:PrimStateRWST1
- Control.Monad.Primitive.D:R:PrimStateReaderT
- Control.Monad.Primitive.D:R:PrimStateST
- Control.Monad.Primitive.D:R:PrimStateST0
- Control.Monad.Primitive.D:R:PrimStateSelectT
- Control.Monad.Primitive.D:R:PrimStateStateT
- Control.Monad.Primitive.D:R:PrimStateStateT0
- Control.Monad.Primitive.D:R:PrimStateWriterT
- Control.Monad.Primitive.D:R:PrimStateWriterT0
- Control.Monad.Primitive.D:R:PrimStateWriterT1
- Control.Monad.Trans.Resource.Internal.D:R:PrimStateResourceT
- Data.Conduit.Internal.Pipe.D:R:PrimStatePipe
- Data.Conduit.Internal.Conduit.D:R:PrimStateConduitT
- Data.Vector.Unboxed.Base.Unbox
- Data.Vector.Generic.Base.Vector
- Data.Vector.Generic.Base.Mutable
- Data.Vector.Generic.Base.basicLength
- Data.Vector.Generic.Base.basicUnsafeCopy
- Data.Vector.Generic.Base.basicUnsafeFreeze
- Data.Vector.Generic.Base.basicUnsafeIndexM
- Data.Vector.Generic.Base.basicUnsafeSlice
- Data.Vector.Generic.Base.basicUnsafeThaw
- Data.Vector.Generic.Base.elemseq
- Data.Vector.Generic.Mutable.Base.MVector
- Data.Vector.Generic.Mutable.Base.basicClear
- Data.Vector.Generic.Mutable.Base.basicInitialize
- Data.Vector.Generic.Mutable.Base.basicLength
- Data.Vector.Generic.Mutable.Base.basicOverlaps
- Data.Vector.Generic.Mutable.Base.basicSet
- Data.Vector.Generic.Mutable.Base.basicUnsafeCopy
- Data.Vector.Generic.Mutable.Base.basicUnsafeGrow
- Data.Vector.Generic.Mutable.Base.basicUnsafeMove
- Data.Vector.Generic.Mutable.Base.basicUnsafeNew
- Data.Vector.Generic.Mutable.Base.basicUnsafeRead
- Data.Vector.Generic.Mutable.Base.basicUnsafeReplicate
- Data.Vector.Generic.Mutable.Base.basicUnsafeSlice
- Data.Vector.Generic.Mutable.Base.basicUnsafeWrite
- Data.Vector.Unboxed.Base.MV_Identity
- Data.Vector.Unboxed.Base.V_Identity
- Data.Vector.Unboxed.Base.D:R:MVectorsIdentity0
- Data.Vector.Unboxed.Base.D:R:VectorIdentity0
- Data.Conduit.Combinators.Buffer
Documentation created: dist/doc/html/conduit/,
dist/doc/html/conduit/conduit.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/conduit-1.3.6.1-GEs17EA0Zy6JnvHx8IYLOM
Completed conduit-1.3.6.1
Configuring conduit-extra-1.3.8...
Preprocessing library for conduit-extra-1.3.8..
Building library for conduit-extra-1.3.8..
[ 1 of 13] Compiling Data.Conduit.Attoparsec ( Data/Conduit/Attoparsec.hs, dist/build/Data/Conduit/Attoparsec.o, dist/build/Data/Conduit/Attoparsec.dyn_o )
[ 2 of 13] Compiling Data.Conduit.Binary ( Data/Conduit/Binary.hs, dist/build/Data/Conduit/Binary.o, dist/build/Data/Conduit/Binary.dyn_o )
[ 3 of 13] Compiling Data.Conduit.ByteString.Builder ( Data/Conduit/ByteString/Builder.hs, dist/build/Data/Conduit/ByteString/Builder.o, dist/build/Data/Conduit/ByteString/Builder.dyn_o )
[ 4 of 13] Compiling Data.Conduit.Filesystem ( Data/Conduit/Filesystem.hs, dist/build/Data/Conduit/Filesystem.o, dist/build/Data/Conduit/Filesystem.dyn_o )
[ 5 of 13] Compiling Data.Conduit.Foldl ( Data/Conduit/Foldl.hs, dist/build/Data/Conduit/Foldl.o, dist/build/Data/Conduit/Foldl.dyn_o )
[ 6 of 13] Compiling Data.Conduit.Lazy ( Data/Conduit/Lazy.hs, dist/build/Data/Conduit/Lazy.o, dist/build/Data/Conduit/Lazy.dyn_o )
[ 7 of 13] Compiling Data.Conduit.Network ( Data/Conduit/Network.hs, dist/build/Data/Conduit/Network.o, dist/build/Data/Conduit/Network.dyn_o )
[ 8 of 13] Compiling Data.Conduit.Network.UDP ( Data/Conduit/Network/UDP.hs, dist/build/Data/Conduit/Network/UDP.o, dist/build/Data/Conduit/Network/UDP.dyn_o )
[ 9 of 13] Compiling Data.Conduit.Network.Unix ( Data/Conduit/Network/Unix.hs, dist/build/Data/Conduit/Network/Unix.o, dist/build/Data/Conduit/Network/Unix.dyn_o )
[10 of 13] Compiling Data.Conduit.Process ( Data/Conduit/Process.hs, dist/build/Data/Conduit/Process.o, dist/build/Data/Conduit/Process.dyn_o )
Data/Conduit/Process.hs:48:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:48:32: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:49:20: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched:
Nothing
|
49 | isStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> sinkHandle h, Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:50:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:50:22: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:50:52: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:51:20: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched:
Nothing
|
51 | isStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> (sinkHandle h, liftIO $ hClose h), Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:66:24: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
66 | instance (MonadIO m, r ~ ()) => InputSource (BuilderInput o m r) where
| ^
Data/Conduit/Process.hs:67:18: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched:
Nothing
|
67 | isStdStream = (\(Just h) -> return $ BuilderInput $ sinkHandleBuilder h, Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:68:35: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where
| ^
Data/Conduit/Process.hs:68:44: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where
| ^
Data/Conduit/Process.hs:69:18: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched:
Nothing
|
69 | isStdStream = (\(Just h) -> return (BuilderInput $ sinkHandleBuilder h, liftIO $ hClose h), Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:70:24: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
70 | instance (MonadIO m, r ~ ()) => InputSource (FlushInput o m r) where
| ^
Data/Conduit/Process.hs:71:18: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched:
Nothing
|
71 | isStdStream = (\(Just h) -> return $ FlushInput $ sinkHandleFlush h, Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:72:35: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where
| ^
Data/Conduit/Process.hs:72:44: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where
| ^
Data/Conduit/Process.hs:73:18: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched:
Nothing
|
73 | isStdStream = (\(Just h) -> return (FlushInput $ sinkHandleFlush h, liftIO $ hClose h), Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:75:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:75:32: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:76:20: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched:
Nothing
|
76 | osStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> sourceHandle h, Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:77:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:77:22: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:77:52: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:78:20: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a lambda abstraction:
Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched:
Nothing
|
78 | osStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> (sourceHandle h, liftIO $ hClose h), Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[11 of 13] Compiling Data.Conduit.Process.Typed ( Data/Conduit/Process/Typed.hs, dist/build/Data/Conduit/Process/Typed.o, dist/build/Data/Conduit/Process/Typed.dyn_o )
[12 of 13] Compiling Data.Conduit.Text ( Data/Conduit/Text.hs, dist/build/Data/Conduit/Text.o, dist/build/Data/Conduit/Text.dyn_o )
[13 of 13] Compiling Data.Conduit.Zlib ( Data/Conduit/Zlib.hs, dist/build/Data/Conduit/Zlib.o, dist/build/Data/Conduit/Zlib.dyn_o )
Preprocessing library for conduit-extra-1.3.8..
Running Haddock on library for conduit-extra-1.3.8..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 13] Compiling Data.Conduit.Attoparsec ( Data/Conduit/Attoparsec.hs, nothing )
[ 2 of 13] Compiling Data.Conduit.Binary ( Data/Conduit/Binary.hs, nothing )
[ 3 of 13] Compiling Data.Conduit.ByteString.Builder ( Data/Conduit/ByteString/Builder.hs, nothing )
[ 4 of 13] Compiling Data.Conduit.Filesystem ( Data/Conduit/Filesystem.hs, nothing )
[ 5 of 13] Compiling Data.Conduit.Foldl ( Data/Conduit/Foldl.hs, nothing )
[ 6 of 13] Compiling Data.Conduit.Lazy ( Data/Conduit/Lazy.hs, nothing )
[ 7 of 13] Compiling Data.Conduit.Network ( Data/Conduit/Network.hs, nothing )
[ 8 of 13] Compiling Data.Conduit.Network.UDP ( Data/Conduit/Network/UDP.hs, nothing )
[ 9 of 13] Compiling Data.Conduit.Network.Unix ( Data/Conduit/Network/Unix.hs, nothing )
[10 of 13] Compiling Data.Conduit.Process ( Data/Conduit/Process.hs, nothing )
Data/Conduit/Process.hs:48:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:48:32: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:50:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:50:22: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:50:52: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:66:24: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
66 | instance (MonadIO m, r ~ ()) => InputSource (BuilderInput o m r) where
| ^
Data/Conduit/Process.hs:68:35: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where
| ^
Data/Conduit/Process.hs:68:44: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where
| ^
Data/Conduit/Process.hs:70:24: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
70 | instance (MonadIO m, r ~ ()) => InputSource (FlushInput o m r) where
| ^
Data/Conduit/Process.hs:72:35: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where
| ^
Data/Conduit/Process.hs:72:44: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where
| ^
Data/Conduit/Process.hs:75:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:75:32: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:77:13: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:77:22: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:77:52: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where
| ^
[11 of 13] Compiling Data.Conduit.Process.Typed ( Data/Conduit/Process/Typed.hs, nothing )
[12 of 13] Compiling Data.Conduit.Text ( Data/Conduit/Text.hs, nothing )
[13 of 13] Compiling Data.Conduit.Zlib ( Data/Conduit/Zlib.hs, nothing )
Haddock coverage:
Warning: 'ParseError' is ambiguous. It is defined
* at Data/Conduit/Attoparsec.hs:44:19
* at Data/Conduit/Attoparsec.hs:44:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Data/Conduit/Attoparsec.hs:44:1
84% ( 11 / 13) in 'Data.Conduit.Attoparsec'
Missing documentation for:
Position (Data/Conduit/Attoparsec.hs:53)
PositionRange (Data/Conduit/Attoparsec.hs:64)
100% ( 45 / 45) in 'Data.Conduit.Binary'
100% ( 12 / 12) in 'Data.Conduit.ByteString.Builder'
100% ( 3 / 3) in 'Data.Conduit.Filesystem'
100% ( 3 / 3) in 'Data.Conduit.Foldl'
100% ( 3 / 3) in 'Data.Conduit.Lazy'
52% ( 18 / 34) in 'Data.Conduit.Network'
Missing documentation for:
Module header
appSource (Data/Conduit/Network.hs:88)
appSink (Data/Conduit/Network.hs:99)
appSockAddr
appLocalAddr
serverSettings (Data/Conduit/Network.hs:82)
runTCPServerWithHandle
clientSettings (Data/Conduit/Network.hs:85)
getPort
getHost
getAfterBind
getNeedLocalAddr
setPort
setHost
setAfterBind
setNeedLocalAddr
90% ( 10 / 11) in 'Data.Conduit.Network.UDP'
Missing documentation for:
Module header
59% ( 13 / 22) in 'Data.Conduit.Network.Unix'
Missing documentation for:
Module header
appSource (Data/Conduit/Network.hs:88)
appSink (Data/Conduit/Network.hs:99)
serverSettings (Data/Conduit/Network/Unix.hs:36)
clientSettings (Data/Conduit/Network/Unix.hs:33)
getPath
getAfterBind
setPath
setAfterBind
100% ( 12 / 12) in 'Data.Conduit.Process'
100% ( 9 / 9) in 'Data.Conduit.Process.Typed'
100% ( 25 / 25) in 'Data.Conduit.Text'
Warning: 'WindowBits' is ambiguous. It is defined
* in Codec.Compression.Zlib.Stream
* in Codec.Compression.Zlib.Stream
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Codec.Compression.Zlib.Stream
100% ( 14 / 14) in 'Data.Conduit.Zlib'
Warning: Data.Conduit.Attoparsec: could not find link destinations for:
- Data.Conduit.Attoparsec.parseA
- Data.Conduit.Attoparsec.feedA
- Data.Conduit.Attoparsec.empty
- Data.Conduit.Attoparsec.isNull
- Data.Conduit.Attoparsec.getLinesCols
- Data.Conduit.Attoparsec.stripFromEnd
Warning: Data.Conduit.Binary: could not find link destinations for:
- Data.Conduit.Binary.SinkStorableInsufficientBytes
Warning: Data.Conduit.ByteString.Builder: could not find link destinations for:
- Data.Conduit.Combinators.Buffer
Warning: Data.Conduit.Zlib: could not find link destinations for:
- Codec.Compression.Zlib.Stream.Rep_WindowBits
Documentation created: dist/doc/html/conduit-extra/,
dist/doc/html/conduit-extra/conduit-extra.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/conduit-extra-1.3.8-Zs3YSlDfwH9BRfJvfPrMl
Completed conduit-extra-1.3.8
Configuring monad-logger-0.3.42...
Preprocessing library for monad-logger-0.3.42..
Building library for monad-logger-0.3.42..
[1 of 3] Compiling Control.Monad.Logger ( Control/Monad/Logger.hs, dist/build/Control/Monad/Logger.o, dist/build/Control/Monad/Logger.dyn_o )
Control/Monad/Logger.hs:206:10: warning: [GHC-06201] [-Wmissing-methods]
" No explicit implementation for
Language.Haskell.TH.Syntax.liftTyped
" In the instance declaration for Lift LogLevel
|
206 | instance Lift LogLevel where
| ^^^^^^^^^^^^^
Control/Monad/Logger.hs:228:104: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
228 | default monadLoggerLog :: (MonadLogger m', Trans.MonadTrans t, MonadLogger (t m'), ToLogStr msg, m ~ t m')
| ^
Control/Monad/Logger.hs:243:68: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
243 | default askLoggerIO :: (Trans.MonadTrans t, MonadLoggerIO n, m ~ t n)
| ^
[2 of 3] Compiling Control.Monad.Logger.CallStack ( Control/Monad/Logger/CallStack.hs, dist/build/Control/Monad/Logger/CallStack.o, dist/build/Control/Monad/Logger/CallStack.dyn_o )
[3 of 3] Compiling Paths_monad_logger ( dist/build/autogen/Paths_monad_logger.hs, dist/build/Paths_monad_logger.o, dist/build/Paths_monad_logger.dyn_o )
Preprocessing library for monad-logger-0.3.42..
Running Haddock on library for monad-logger-0.3.42..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling Control.Monad.Logger ( Control/Monad/Logger.hs, nothing )
Control/Monad/Logger.hs:206:10: warning: [GHC-06201] [-Wmissing-methods]
" No explicit implementation for
Language.Haskell.TH.Syntax.liftTyped
" In the instance declaration for Lift LogLevel
|
206 | instance Lift LogLevel where
| ^^^^^^^^^^^^^
Control/Monad/Logger.hs:228:104: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
228 | default monadLoggerLog :: (MonadLogger m', Trans.MonadTrans t, MonadLogger (t m'), ToLogStr msg, m ~ t m')
| ^
Control/Monad/Logger.hs:243:68: warning: [GHC-58520] [-Wtype-equality-requires-operators]
The use of ~ without TypeOperators
will become an error in a future GHC release.
Suggested fix: Perhaps you intended to use TypeOperators
|
243 | default askLoggerIO :: (Trans.MonadTrans t, MonadLoggerIO n, m ~ t n)
| ^
[2 of 3] Compiling Control.Monad.Logger.CallStack ( Control/Monad/Logger/CallStack.hs, nothing )
[3 of 3] Compiling Paths_monad_logger ( dist/build/autogen/Paths_monad_logger.hs, nothing )
Haddock coverage:
Warning: 'LoggingT' is ambiguous. It is defined
* at Control/Monad/Logger.hs:583:24
* at Control/Monad/Logger.hs:583:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Monad/Logger.hs:583:1
Warning: 'NoLoggingT' is ambiguous. It is defined
* at Control/Monad/Logger.hs:394:26
* at Control/Monad/Logger.hs:394:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Control/Monad/Logger.hs:394:1
Warning: 'Loc' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* in Language.Haskell.TH.Syntax
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Syntax
80% ( 57 / 71) in 'Control.Monad.Logger'
Missing documentation for:
LogLevel (Control/Monad/Logger.hs:183)
LogSource (Control/Monad/Logger.hs:186)
logDebugN (Control/Monad/Logger.hs:935)
logInfoN (Control/Monad/Logger.hs:938)
logWarnN (Control/Monad/Logger.hs:941)
logErrorN (Control/Monad/Logger.hs:944)
logOtherN (Control/Monad/Logger.hs:947)
logDebugNS (Control/Monad/Logger.hs:950)
logInfoNS (Control/Monad/Logger.hs:953)
logWarnNS (Control/Monad/Logger.hs:956)
logErrorNS (Control/Monad/Logger.hs:959)
logOtherNS (Control/Monad/Logger.hs:962)
defaultLogStr (Control/Monad/Logger.hs:744)
Loc
76% ( 45 / 59) in 'Control.Monad.Logger.CallStack'
Missing documentation for:
Loc
LogLevel (Control/Monad/Logger.hs:183)
LogSource (Control/Monad/Logger.hs:186)
logDebugN (Control/Monad/Logger.hs:935)
logInfoN (Control/Monad/Logger.hs:938)
logWarnN (Control/Monad/Logger.hs:941)
logErrorN (Control/Monad/Logger.hs:944)
logOtherN (Control/Monad/Logger.hs:947)
logDebugNS (Control/Monad/Logger.hs:950)
logInfoNS (Control/Monad/Logger.hs:953)
logWarnNS (Control/Monad/Logger.hs:956)
logErrorNS (Control/Monad/Logger.hs:959)
logOtherNS (Control/Monad/Logger.hs:962)
defaultLogStr (Control/Monad/Logger.hs:744)
Warning: Control.Monad.Logger: could not find link destinations for:
- Language.Haskell.TH.Syntax.Rep_Loc
- Control.Monad.Logger.DList
- Control.Monad.Logger.D:R:StTNoLoggingTa
- Control.Monad.Logger.D:R:StTWriterLoggingTa
- Control.Monad.Logger.D:R:StTLoggingTa
Warning: Control.Monad.Logger.CallStack: could not find link destinations for:
- Language.Haskell.TH.Syntax.Rep_Loc
- Control.Monad.Logger.DList
- Control.Monad.Logger.D:R:StTNoLoggingTa
- Control.Monad.Logger.D:R:StTWriterLoggingTa
- Control.Monad.Logger.D:R:StTLoggingTa
Documentation created: dist/doc/html/monad-logger/,
dist/doc/html/monad-logger/monad-logger.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/monad-logger-0.3.42-Ei5Q5CMyuyUBvwd8OvSer8
Completed monad-logger-0.3.42
Configuring persistent-2.18.0.0...
Preprocessing library for persistent-2.18.0.0..
Building library for persistent-2.18.0.0..
[ 1 of 52] Compiling Database.Persist.Class.PersistConfig ( Database/Persist/Class/PersistConfig.hs, dist/build/Database/Persist/Class/PersistConfig.o, dist/build/Database/Persist/Class/PersistConfig.dyn_o )
[ 2 of 52] Compiling Database.Persist.Names ( Database/Persist/Names.hs, dist/build/Database/Persist/Names.o, dist/build/Database/Persist/Names.dyn_o )
[ 3 of 52] Compiling Database.Persist.PersistValue ( Database/Persist/PersistValue.hs, dist/build/Database/Persist/PersistValue.o, dist/build/Database/Persist/PersistValue.dyn_o )
[ 4 of 52] Compiling Database.Persist.Quasi.Internal.TypeParser ( Database/Persist/Quasi/Internal/TypeParser.hs, dist/build/Database/Persist/Quasi/Internal/TypeParser.o, dist/build/Database/Persist/Quasi/Internal/TypeParser.dyn_o )
[ 5 of 52] Compiling Database.Persist.SqlBackend.Internal.IsolationLevel ( Database/Persist/SqlBackend/Internal/IsolationLevel.hs, dist/build/Database/Persist/SqlBackend/Internal/IsolationLevel.o, dist/build/Database/Persist/SqlBackend/Internal/IsolationLevel.dyn_o )
[ 6 of 52] Compiling Database.Persist.SqlBackend.Internal.SqlPoolHooks ( Database/Persist/SqlBackend/Internal/SqlPoolHooks.hs, dist/build/Database/Persist/SqlBackend/Internal/SqlPoolHooks.o, dist/build/Database/Persist/SqlBackend/Internal/SqlPoolHooks.dyn_o )
[ 7 of 52] Compiling Database.Persist.Types.SourceSpan ( Database/Persist/Types/SourceSpan.hs, dist/build/Database/Persist/Types/SourceSpan.o, dist/build/Database/Persist/Types/SourceSpan.dyn_o )
[ 8 of 52] Compiling Database.Persist.Types.Base ( Database/Persist/Types/Base.hs, dist/build/Database/Persist/Types/Base.o, dist/build/Database/Persist/Types/Base.dyn_o )
[ 9 of 52] Compiling Database.Persist.SqlBackend.Internal.Statement ( Database/Persist/SqlBackend/Internal/Statement.hs, dist/build/Database/Persist/SqlBackend/Internal/Statement.o, dist/build/Database/Persist/SqlBackend/Internal/Statement.dyn_o )
Database/Persist/SqlBackend/Internal/Statement.hs:6:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Acquire is redundant
except perhaps to import instances from Data.Acquire
To import instances alone, use: import Data.Acquire()
|
6 | import Data.Acquire
| ^^^^^^^^^^^^^^^^^^^
[10 of 52] Compiling Database.Persist.SqlBackend.Internal.StatementCache ( Database/Persist/SqlBackend/Internal/StatementCache.hs, dist/build/Database/Persist/SqlBackend/Internal/StatementCache.o, dist/build/Database/Persist/SqlBackend/Internal/StatementCache.dyn_o )
[11 of 52] Compiling Database.Persist.SqlBackend.StatementCache ( Database/Persist/SqlBackend/StatementCache.hs, dist/build/Database/Persist/SqlBackend/StatementCache.o, dist/build/Database/Persist/SqlBackend/StatementCache.dyn_o )
[12 of 52] Compiling Database.Persist.SqlBackend.Internal.InsertSqlResult ( Database/Persist/SqlBackend/Internal/InsertSqlResult.hs, dist/build/Database/Persist/SqlBackend/Internal/InsertSqlResult.o, dist/build/Database/Persist/SqlBackend/Internal/InsertSqlResult.dyn_o )
[13 of 52] Compiling Database.Persist.SqlBackend.Internal.MkSqlBackend ( Database/Persist/SqlBackend/Internal/MkSqlBackend.hs, dist/build/Database/Persist/SqlBackend/Internal/MkSqlBackend.o, dist/build/Database/Persist/SqlBackend/Internal/MkSqlBackend.dyn_o )
[14 of 52] Compiling Database.Persist.FieldDef.Internal ( Database/Persist/FieldDef/Internal.hs, dist/build/Database/Persist/FieldDef/Internal.o, dist/build/Database/Persist/FieldDef/Internal.dyn_o )
[15 of 52] Compiling Database.Persist.FieldDef ( Database/Persist/FieldDef.hs, dist/build/Database/Persist/FieldDef.o, dist/build/Database/Persist/FieldDef.dyn_o )
[16 of 52] Compiling Database.Persist.EntityDef.Internal ( Database/Persist/EntityDef/Internal.hs, dist/build/Database/Persist/EntityDef/Internal.o, dist/build/Database/Persist/EntityDef/Internal.dyn_o )
[17 of 52] Compiling Database.Persist.EntityDef ( Database/Persist/EntityDef.hs, dist/build/Database/Persist/EntityDef.o, dist/build/Database/Persist/EntityDef.dyn_o )
[18 of 52] Compiling Database.Persist.Class.PersistField ( Database/Persist/Class/PersistField.hs, dist/build/Database/Persist/Class/PersistField.o, dist/build/Database/Persist/Class/PersistField.dyn_o )
Database/Persist/Class/PersistField.hs:39:1: warning: [GHC-66111] [-Wunused-imports]
The import of Numeric.Natural is redundant
except perhaps to import instances from Numeric.Natural
To import instances alone, use: import Numeric.Natural()
|
39 | import Numeric.Natural (Natural)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[19 of 52] Compiling Database.Persist.Class.PersistEntity ( Database/Persist/Class/PersistEntity.hs, dist/build/Database/Persist/Class/PersistEntity.o, dist/build/Database/Persist/Class/PersistEntity.dyn_o )
Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports]
entityVal is exported by Entity(.., Entity, entityKey,
entityVal) and Entity(.., Entity, entityKey, entityVal)
|
26 | , Entity (.., Entity, entityKey, entityVal)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports]
entityKey is exported by Entity(.., Entity, entityKey,
entityVal) and Entity(.., Entity, entityKey, entityVal)
|
26 | , Entity (.., Entity, entityKey, entityVal)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports]
Entity is exported by Entity(.., Entity, entityKey,
entityVal) and Entity(.., Entity, entityKey, entityVal)
|
26 | , Entity (.., Entity, entityKey, entityVal)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Class/PersistEntity.hs:50:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Functor.Constant is redundant
except perhaps to import instances from Data.Functor.Constant
To import instances alone, use: import Data.Functor.Constant()
|
50 | import Data.Functor.Constant
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Class/PersistEntity.hs:85:1: warning: [GHC-66111] [-Wunused-imports]
The import of GHC.Records is redundant
except perhaps to import instances from GHC.Records
To import instances alone, use: import GHC.Records()
|
85 | import GHC.Records
| ^^^^^^^^^^^^^^^^^^
[20 of 52] Compiling Database.Persist.Types ( Database/Persist/Types.hs, dist/build/Database/Persist/Types.o, dist/build/Database/Persist/Types.dyn_o )
[21 of 52] Compiling Database.Persist.Quasi.PersistSettings.Internal ( Database/Persist/Quasi/PersistSettings/Internal.hs, dist/build/Database/Persist/Quasi/PersistSettings/Internal.o, dist/build/Database/Persist/Quasi/PersistSettings/Internal.dyn_o )
Database/Persist/Quasi/PersistSettings/Internal.hs:3:1: warning: [GHC-38856] [-Wunused-imports]
The import of isDigit, isLower, isSpace
from module Data.Char is redundant
|
3 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Quasi/PersistSettings/Internal.hs:9:1: warning: [GHC-66111] [-Wunused-imports]
The import of Database.Persist.Types is redundant
except perhaps to import instances from Database.Persist.Types
To import instances alone, use: import Database.Persist.Types()
|
9 | import Database.Persist.Types
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[22 of 52] Compiling Database.Persist.Quasi.PersistSettings ( Database/Persist/Quasi/PersistSettings.hs, dist/build/Database/Persist/Quasi/PersistSettings.o, dist/build/Database/Persist/Quasi/PersistSettings.dyn_o )
[23 of 52] Compiling Database.Persist.Class.PersistStore ( Database/Persist/Class/PersistStore.hs, dist/build/Database/Persist/Class/PersistStore.o, dist/build/Database/Persist/Class/PersistStore.dyn_o )
[24 of 52] Compiling Database.Persist.SqlBackend.Internal ( Database/Persist/SqlBackend/Internal.hs, dist/build/Database/Persist/SqlBackend/Internal.o, dist/build/Database/Persist/SqlBackend/Internal.dyn_o )
[25 of 52] Compiling Database.Persist.SqlBackend ( Database/Persist/SqlBackend.hs, dist/build/Database/Persist/SqlBackend.o, dist/build/Database/Persist/SqlBackend.dyn_o )
[26 of 52] Compiling Database.Persist.Class.PersistUnique ( Database/Persist/Class/PersistUnique.hs, dist/build/Database/Persist/Class/PersistUnique.o, dist/build/Database/Persist/Class/PersistUnique.dyn_o )
[27 of 52] Compiling Database.Persist.Class.PersistQuery ( Database/Persist/Class/PersistQuery.hs, dist/build/Database/Persist/Class/PersistQuery.o, dist/build/Database/Persist/Class/PersistQuery.dyn_o )
[28 of 52] Compiling Database.Persist.Class ( Database/Persist/Class.hs, dist/build/Database/Persist/Class.o, dist/build/Database/Persist/Class.dyn_o )
[29 of 52] Compiling Database.Persist.Sql.Types.Internal ( Database/Persist/Sql/Types/Internal.hs, dist/build/Database/Persist/Sql/Types/Internal.o, dist/build/Database/Persist/Sql/Types/Internal.dyn_o )
[30 of 52] Compiling Database.Persist.Sql.Types ( Database/Persist/Sql/Types.hs, dist/build/Database/Persist/Sql/Types.o, dist/build/Database/Persist/Sql/Types.dyn_o )
[31 of 52] Compiling Database.Persist.Sql.Internal ( Database/Persist/Sql/Internal.hs, dist/build/Database/Persist/Sql/Internal.o, dist/build/Database/Persist/Sql/Internal.dyn_o )
[32 of 52] Compiling Database.Persist ( Database/Persist.hs, dist/build/Database/Persist.o, dist/build/Database/Persist.dyn_o )
[33 of 52] Compiling Database.Persist.Sql.Util ( Database/Persist/Sql/Util.hs, dist/build/Database/Persist/Sql/Util.o, dist/build/Database/Persist/Sql/Util.dyn_o )
[34 of 52] Compiling Database.Persist.Sql.Class ( Database/Persist/Sql/Class.hs, dist/build/Database/Persist/Sql/Class.o, dist/build/Database/Persist/Sql/Class.dyn_o )
[35 of 52] Compiling Database.Persist.Sql.Raw ( Database/Persist/Sql/Raw.hs, dist/build/Database/Persist/Sql/Raw.o, dist/build/Database/Persist/Sql/Raw.dyn_o )
[36 of 52] Compiling Database.Persist.SqlBackend.SqlPoolHooks ( Database/Persist/SqlBackend/SqlPoolHooks.hs, dist/build/Database/Persist/SqlBackend/SqlPoolHooks.o, dist/build/Database/Persist/SqlBackend/SqlPoolHooks.dyn_o )
Database/Persist/SqlBackend/SqlPoolHooks.hs:121:1: warning: [GHC-40910] [-Wunused-top-binds]
Defined but not used: modifyRunOnException
|
121 | modifyRunOnException hooks f = hooks{runOnException = f $ runOnException hooks}
| ^^^^^^^^^^^^^^^^^^^^
Database/Persist/SqlBackend/SqlPoolHooks.hs:127:1: warning: [GHC-40910] [-Wunused-top-binds]
Defined but not used: setRunOnException
|
127 | setRunOnException hooks f = hooks{runOnException = f}
| ^^^^^^^^^^^^^^^^^
[37 of 52] Compiling Database.Persist.Sql.Run ( Database/Persist/Sql/Run.hs, dist/build/Database/Persist/Sql/Run.o, dist/build/Database/Persist/Sql/Run.dyn_o )
Database/Persist/Sql/Run.hs:164:13: warning: [GHC-68441] [-Wdeprecations]
In the use of data constructor ReleaseException
(imported from Data.Acquire, but defined in Data.Acquire.Internal):
Deprecated: "Use `ReleaseExceptionWith`, which has the exception in the constructor. This pattern synonym hides the exception and can obscure problems."
|
164 | ReleaseException -> do
| ^^^^^^^^^^^^^^^^
Database/Persist/Sql/Run.hs:294:9: warning: [GHC-68441] [-Wdeprecations]
In the use of createPool (imported from Data.Pool):
Deprecated: "Use newPool instead"
|
294 | createPool
| ^^^^^^^^^^
[38 of 52] Compiling Database.Persist.Sql.Orphan.PersistStore ( Database/Persist/Sql/Orphan/PersistStore.hs, dist/build/Database/Persist/Sql/Orphan/PersistStore.o, dist/build/Database/Persist/Sql/Orphan/PersistStore.dyn_o )
[39 of 52] Compiling Database.Persist.Sql.Orphan.PersistUnique ( Database/Persist/Sql/Orphan/PersistUnique.hs, dist/build/Database/Persist/Sql/Orphan/PersistUnique.o, dist/build/Database/Persist/Sql/Orphan/PersistUnique.dyn_o )
Database/Persist/Sql/Orphan/PersistUnique.hs:54:30: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
54 | return $ head x
| ^^^^
Database/Persist/Sql/Orphan/PersistUnique.hs:81:41: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
81 | uKeys = persistUniqueKeys . head $ rsD
| ^^^^
[40 of 52] Compiling Database.Persist.Sql.Orphan.PersistQuery ( Database/Persist/Sql/Orphan/PersistQuery.hs, dist/build/Database/Persist/Sql/Orphan/PersistQuery.o, dist/build/Database/Persist/Sql/Orphan/PersistQuery.dyn_o )
Database/Persist/Sql/Orphan/PersistQuery.hs:414:46: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
414 | zs = tail (inits (toList $ compositeFields pdef))
| ^^^^
Database/Persist/Sql/Orphan/PersistQuery.hs:428:65: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
428 | (wrapSql sqlcl, concat (tail (inits xs)))
| ^^^^
[41 of 52] Compiling Database.Persist.Sql.Migration ( Database/Persist/Sql/Migration.hs, dist/build/Database/Persist/Sql/Migration.o, dist/build/Database/Persist/Sql/Migration.dyn_o )
[42 of 52] Compiling Database.Persist.ImplicitIdDef.Internal ( Database/Persist/ImplicitIdDef/Internal.hs, dist/build/Database/Persist/ImplicitIdDef/Internal.o, dist/build/Database/Persist/ImplicitIdDef/Internal.dyn_o )
Database/Persist/ImplicitIdDef/Internal.hs:205:13: warning: [GHC-53633] [-Woverlapping-patterns]
Pattern match is redundant
In a case alternative: Fun _ _ -> ...
|
205 | Fun _ _ ->
| ^^^^^^^^^^...
[43 of 52] Compiling Database.Persist.ImplicitIdDef ( Database/Persist/ImplicitIdDef.hs, dist/build/Database/Persist/ImplicitIdDef.o, dist/build/Database/Persist/ImplicitIdDef.dyn_o )
[44 of 52] Compiling Database.Persist.Compatible.Types ( Database/Persist/Compatible/Types.hs, dist/build/Database/Persist/Compatible/Types.o, dist/build/Database/Persist/Compatible/Types.dyn_o )
[45 of 52] Compiling Database.Persist.Compatible.TH ( Database/Persist/Compatible/TH.hs, dist/build/Database/Persist/Compatible/TH.o, dist/build/Database/Persist/Compatible/TH.dyn_o )
[46 of 52] Compiling Database.Persist.Compatible ( Database/Persist/Compatible.hs, dist/build/Database/Persist/Compatible.o, dist/build/Database/Persist/Compatible.dyn_o )
[47 of 52] Compiling Database.Persist.Sql ( Database/Persist/Sql.hs, dist/build/Database/Persist/Sql.o, dist/build/Database/Persist/Sql.dyn_o )
[48 of 52] Compiling Database.Persist.Quasi.Internal.ModelParser ( Database/Persist/Quasi/Internal/ModelParser.hs, dist/build/Database/Persist/Quasi/Internal/ModelParser.o, dist/build/Database/Persist/Quasi/Internal/ModelParser.dyn_o )
Database/Persist/Quasi/Internal/ModelParser.hs:44:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Functor.Identity is redundant
except perhaps to import instances from Data.Functor.Identity
To import instances alone, use: import Data.Functor.Identity()
|
44 | import Data.Functor.Identity
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:146:12: warning: [GHC-63397] [-Wname-shadowing]
This binding for either shadows the existing binding
imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50
(and originally defined in Data.Either)
|
146 | ((_is, either), warnings) = runWriter wm
| ^^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:235:22: warning: [GHC-40910] [-Wunused-local-binds]
Defined but not used: pairs
|
235 | (pairs, _) = attachSourcePos errorOffset [err] posState
| ^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:772:37: warning: [GHC-63397] [-Wname-shadowing]
This binding for extraBlockLines shadows the existing binding
defined at Database/Persist/Quasi/Internal/ModelParser.hs:656:7
|
772 | mkExtraBlockMember dcb (header, extraBlockLines) =
| ^^^^^^^^^^^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:779:20: warning: [GHC-63397] [-Wname-shadowing]
This binding for lines shadows the existing binding
imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50
(and originally defined in base-4.19.2.0:Data.OldList)
|
779 | ensureNonEmpty lines = case NEL.nonEmpty lines of
| ^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:808:5: warning: [GHC-63397] [-Wname-shadowing]
This binding for tokens shadows the existing binding
imported from Text.Megaparsec at Database/Persist/Quasi/Internal/ModelParser.hs:60:1-22
(and originally defined in megaparsec-9.7.0:Text.Megaparsec.Class)
|
808 | tokens <- some $ L.lexeme spaceConsumer (some contentChar)
| ^^^^^^
[49 of 52] Compiling Database.Persist.Quasi.Internal ( Database/Persist/Quasi/Internal.hs, dist/build/Database/Persist/Quasi/Internal.o, dist/build/Database/Persist/Quasi/Internal.dyn_o )
Database/Persist/Quasi/Internal.hs:54:55: warning: [GHC-38856] [-Wunused-imports]
The import of toLower from module Data.Char is redundant
|
54 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower)
| ^^^^^^^
[50 of 52] Compiling Database.Persist.Quasi ( Database/Persist/Quasi.hs, dist/build/Database/Persist/Quasi.o, dist/build/Database/Persist/Quasi.dyn_o )
[51 of 52] Compiling Database.Persist.TH.Internal ( Database/Persist/TH/Internal.hs, dist/build/Database/Persist/TH/Internal.o, dist/build/Database/Persist/TH/Internal.dyn_o )
Database/Persist/TH/Internal.hs:152:1: warning: [GHC-66111] [-Wunused-imports]
The import of Database.Persist.Quasi.PersistSettings is redundant
except perhaps to import instances from Database.Persist.Quasi.PersistSettings
To import instances alone, use: import Database.Persist.Quasi.PersistSettings()
|
152 | import Database.Persist.Quasi.PersistSettings
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/TH/Internal.hs:2758:20: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
2758 | expr <- [e|head . persistUniqueKeys|]
| ^^^^
[52 of 52] Compiling Database.Persist.TH ( Database/Persist/TH.hs, dist/build/Database/Persist/TH.o, dist/build/Database/Persist/TH.dyn_o )
Preprocessing library for persistent-2.18.0.0..
Running Haddock on library for persistent-2.18.0.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 52] Compiling Database.Persist.Class.PersistConfig ( Database/Persist/Class/PersistConfig.hs, /tmp/ghc2913937_0/ghc_22.o, /tmp/ghc2913937_0/ghc_22.dyn_o )
[ 2 of 52] Compiling Database.Persist.Names ( Database/Persist/Names.hs, /tmp/ghc2913937_0/ghc_48.o, /tmp/ghc2913937_0/ghc_48.dyn_o )
[ 3 of 52] Compiling Database.Persist.PersistValue ( Database/Persist/PersistValue.hs, /tmp/ghc2913937_0/ghc_50.o, /tmp/ghc2913937_0/ghc_50.dyn_o )
[ 4 of 52] Compiling Database.Persist.Quasi.Internal.TypeParser ( Database/Persist/Quasi/Internal/TypeParser.hs, /tmp/ghc2913937_0/ghc_58.o, /tmp/ghc2913937_0/ghc_58.dyn_o )
[ 5 of 52] Compiling Database.Persist.SqlBackend.Internal.IsolationLevel ( Database/Persist/SqlBackend/Internal/IsolationLevel.hs, /tmp/ghc2913937_0/ghc_92.o, /tmp/ghc2913937_0/ghc_92.dyn_o )
[ 6 of 52] Compiling Database.Persist.SqlBackend.Internal.SqlPoolHooks ( Database/Persist/SqlBackend/Internal/SqlPoolHooks.hs, /tmp/ghc2913937_0/ghc_96.o, /tmp/ghc2913937_0/ghc_96.dyn_o )
[ 7 of 52] Compiling Database.Persist.Types.SourceSpan ( Database/Persist/Types/SourceSpan.hs, /tmp/ghc2913937_0/ghc_108.o, /tmp/ghc2913937_0/ghc_108.dyn_o )
[ 8 of 52] Compiling Database.Persist.Types.Base ( Database/Persist/Types/Base.hs, /tmp/ghc2913937_0/ghc_106.o, /tmp/ghc2913937_0/ghc_106.dyn_o )
[ 9 of 52] Compiling Database.Persist.SqlBackend.Internal.Statement ( Database/Persist/SqlBackend/Internal/Statement.hs, /tmp/ghc2913937_0/ghc_98.o, /tmp/ghc2913937_0/ghc_98.dyn_o )
Database/Persist/SqlBackend/Internal/Statement.hs:6:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Acquire is redundant
except perhaps to import instances from Data.Acquire
To import instances alone, use: import Data.Acquire()
|
6 | import Data.Acquire
| ^^^^^^^^^^^^^^^^^^^
[10 of 52] Compiling Database.Persist.SqlBackend.Internal.StatementCache ( Database/Persist/SqlBackend/Internal/StatementCache.hs, /tmp/ghc2913937_0/ghc_100.o, /tmp/ghc2913937_0/ghc_100.dyn_o )
[11 of 52] Compiling Database.Persist.SqlBackend.StatementCache ( Database/Persist/SqlBackend/StatementCache.hs, /tmp/ghc2913937_0/ghc_102.o, /tmp/ghc2913937_0/ghc_102.dyn_o )
[12 of 52] Compiling Database.Persist.SqlBackend.Internal.InsertSqlResult ( Database/Persist/SqlBackend/Internal/InsertSqlResult.hs, /tmp/ghc2913937_0/ghc_90.o, /tmp/ghc2913937_0/ghc_90.dyn_o )
[13 of 52] Compiling Database.Persist.SqlBackend.Internal.MkSqlBackend ( Database/Persist/SqlBackend/Internal/MkSqlBackend.hs, /tmp/ghc2913937_0/ghc_94.o, /tmp/ghc2913937_0/ghc_94.dyn_o )
[14 of 52] Compiling Database.Persist.FieldDef.Internal ( Database/Persist/FieldDef/Internal.hs, /tmp/ghc2913937_0/ghc_42.o, /tmp/ghc2913937_0/ghc_42.dyn_o )
[15 of 52] Compiling Database.Persist.FieldDef ( Database/Persist/FieldDef.hs, /tmp/ghc2913937_0/ghc_40.o, /tmp/ghc2913937_0/ghc_40.dyn_o )
[16 of 52] Compiling Database.Persist.EntityDef.Internal ( Database/Persist/EntityDef/Internal.hs, /tmp/ghc2913937_0/ghc_38.o, /tmp/ghc2913937_0/ghc_38.dyn_o )
[17 of 52] Compiling Database.Persist.EntityDef ( Database/Persist/EntityDef.hs, /tmp/ghc2913937_0/ghc_36.o, /tmp/ghc2913937_0/ghc_36.dyn_o )
[18 of 52] Compiling Database.Persist.Class.PersistField ( Database/Persist/Class/PersistField.hs, /tmp/ghc2913937_0/ghc_26.o, /tmp/ghc2913937_0/ghc_26.dyn_o )
Database/Persist/Class/PersistField.hs:39:1: warning: [GHC-66111] [-Wunused-imports]
The import of Numeric.Natural is redundant
except perhaps to import instances from Numeric.Natural
To import instances alone, use: import Numeric.Natural()
|
39 | import Numeric.Natural (Natural)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[19 of 52] Compiling Database.Persist.Class.PersistEntity ( Database/Persist/Class/PersistEntity.hs, /tmp/ghc2913937_0/ghc_24.o, /tmp/ghc2913937_0/ghc_24.dyn_o )
Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports]
entityVal is exported by Entity(.., Entity, entityKey,
entityVal) and Entity(.., Entity, entityKey, entityVal)
|
26 | , Entity (.., Entity, entityKey, entityVal)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports]
entityKey is exported by Entity(.., Entity, entityKey,
entityVal) and Entity(.., Entity, entityKey, entityVal)
|
26 | , Entity (.., Entity, entityKey, entityVal)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports]
Entity is exported by Entity(.., Entity, entityKey,
entityVal) and Entity(.., Entity, entityKey, entityVal)
|
26 | , Entity (.., Entity, entityKey, entityVal)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Class/PersistEntity.hs:50:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Functor.Constant is redundant
except perhaps to import instances from Data.Functor.Constant
To import instances alone, use: import Data.Functor.Constant()
|
50 | import Data.Functor.Constant
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Class/PersistEntity.hs:85:1: warning: [GHC-66111] [-Wunused-imports]
The import of GHC.Records is redundant
except perhaps to import instances from GHC.Records
To import instances alone, use: import GHC.Records()
|
85 | import GHC.Records
| ^^^^^^^^^^^^^^^^^^
[20 of 52] Compiling Database.Persist.Types ( Database/Persist/Types.hs, /tmp/ghc2913937_0/ghc_104.o, /tmp/ghc2913937_0/ghc_104.dyn_o )
[21 of 52] Compiling Database.Persist.Quasi.PersistSettings.Internal ( Database/Persist/Quasi/PersistSettings/Internal.hs, /tmp/ghc2913937_0/ghc_62.o, /tmp/ghc2913937_0/ghc_62.dyn_o )
Database/Persist/Quasi/PersistSettings/Internal.hs:3:1: warning: [GHC-38856] [-Wunused-imports]
The import of isDigit, isLower, isSpace
from module Data.Char is redundant
|
3 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Quasi/PersistSettings/Internal.hs:9:1: warning: [GHC-66111] [-Wunused-imports]
The import of Database.Persist.Types is redundant
except perhaps to import instances from Database.Persist.Types
To import instances alone, use: import Database.Persist.Types()
|
9 | import Database.Persist.Types
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[22 of 52] Compiling Database.Persist.Quasi.PersistSettings ( Database/Persist/Quasi/PersistSettings.hs, /tmp/ghc2913937_0/ghc_60.o, /tmp/ghc2913937_0/ghc_60.dyn_o )
[23 of 52] Compiling Database.Persist.Class.PersistStore ( Database/Persist/Class/PersistStore.hs, /tmp/ghc2913937_0/ghc_30.o, /tmp/ghc2913937_0/ghc_30.dyn_o )
[24 of 52] Compiling Database.Persist.SqlBackend.Internal ( Database/Persist/SqlBackend/Internal.hs, /tmp/ghc2913937_0/ghc_88.o, /tmp/ghc2913937_0/ghc_88.dyn_o )
[25 of 52] Compiling Database.Persist.SqlBackend ( Database/Persist/SqlBackend.hs, nothing )
[26 of 52] Compiling Database.Persist.Class.PersistUnique ( Database/Persist/Class/PersistUnique.hs, /tmp/ghc2913937_0/ghc_32.o, /tmp/ghc2913937_0/ghc_32.dyn_o )
[27 of 52] Compiling Database.Persist.Class.PersistQuery ( Database/Persist/Class/PersistQuery.hs, /tmp/ghc2913937_0/ghc_28.o, /tmp/ghc2913937_0/ghc_28.dyn_o )
[28 of 52] Compiling Database.Persist.Class ( Database/Persist/Class.hs, /tmp/ghc2913937_0/ghc_20.o, /tmp/ghc2913937_0/ghc_20.dyn_o )
[29 of 52] Compiling Database.Persist.Sql.Types.Internal ( Database/Persist/Sql/Types/Internal.hs, /tmp/ghc2913937_0/ghc_84.o, /tmp/ghc2913937_0/ghc_84.dyn_o )
[30 of 52] Compiling Database.Persist.Sql.Types ( Database/Persist/Sql/Types.hs, /tmp/ghc2913937_0/ghc_82.o, /tmp/ghc2913937_0/ghc_82.dyn_o )
[31 of 52] Compiling Database.Persist.Sql.Internal ( Database/Persist/Sql/Internal.hs, /tmp/ghc2913937_0/ghc_68.o, /tmp/ghc2913937_0/ghc_68.dyn_o )
[32 of 52] Compiling Database.Persist ( Database/Persist.hs, /tmp/ghc2913937_0/ghc_18.o, /tmp/ghc2913937_0/ghc_18.dyn_o )
[33 of 52] Compiling Database.Persist.Sql.Util ( Database/Persist/Sql/Util.hs, /tmp/ghc2913937_0/ghc_86.o, /tmp/ghc2913937_0/ghc_86.dyn_o )
[34 of 52] Compiling Database.Persist.Sql.Class ( Database/Persist/Sql/Class.hs, /tmp/ghc2913937_0/ghc_66.o, /tmp/ghc2913937_0/ghc_66.dyn_o )
[35 of 52] Compiling Database.Persist.Sql.Raw ( Database/Persist/Sql/Raw.hs, /tmp/ghc2913937_0/ghc_78.o, /tmp/ghc2913937_0/ghc_78.dyn_o )
[36 of 52] Compiling Database.Persist.SqlBackend.SqlPoolHooks ( Database/Persist/SqlBackend/SqlPoolHooks.hs, nothing )
Database/Persist/SqlBackend/SqlPoolHooks.hs:121:1: warning: [GHC-40910] [-Wunused-top-binds]
Defined but not used: modifyRunOnException
|
121 | modifyRunOnException hooks f = hooks{runOnException = f $ runOnException hooks}
| ^^^^^^^^^^^^^^^^^^^^
Database/Persist/SqlBackend/SqlPoolHooks.hs:127:1: warning: [GHC-40910] [-Wunused-top-binds]
Defined but not used: setRunOnException
|
127 | setRunOnException hooks f = hooks{runOnException = f}
| ^^^^^^^^^^^^^^^^^
[37 of 52] Compiling Database.Persist.Sql.Run ( Database/Persist/Sql/Run.hs, /tmp/ghc2913937_0/ghc_80.o, /tmp/ghc2913937_0/ghc_80.dyn_o )
Database/Persist/Sql/Run.hs:164:13: warning: [GHC-68441] [-Wdeprecations]
In the use of data constructor ReleaseException
(imported from Data.Acquire, but defined in Data.Acquire.Internal):
Deprecated: "Use `ReleaseExceptionWith`, which has the exception in the constructor. This pattern synonym hides the exception and can obscure problems."
|
164 | ReleaseException -> do
| ^^^^^^^^^^^^^^^^
Database/Persist/Sql/Run.hs:294:9: warning: [GHC-68441] [-Wdeprecations]
In the use of createPool (imported from Data.Pool):
Deprecated: "Use newPool instead"
|
294 | createPool
| ^^^^^^^^^^
[38 of 52] Compiling Database.Persist.Sql.Orphan.PersistStore ( Database/Persist/Sql/Orphan/PersistStore.hs, /tmp/ghc2913937_0/ghc_74.o, /tmp/ghc2913937_0/ghc_74.dyn_o )
[39 of 52] Compiling Database.Persist.Sql.Orphan.PersistUnique ( Database/Persist/Sql/Orphan/PersistUnique.hs, /tmp/ghc2913937_0/ghc_76.o, /tmp/ghc2913937_0/ghc_76.dyn_o )
Database/Persist/Sql/Orphan/PersistUnique.hs:54:30: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
54 | return $ head x
| ^^^^
Database/Persist/Sql/Orphan/PersistUnique.hs:81:41: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
81 | uKeys = persistUniqueKeys . head $ rsD
| ^^^^
[40 of 52] Compiling Database.Persist.Sql.Orphan.PersistQuery ( Database/Persist/Sql/Orphan/PersistQuery.hs, /tmp/ghc2913937_0/ghc_72.o, /tmp/ghc2913937_0/ghc_72.dyn_o )
Database/Persist/Sql/Orphan/PersistQuery.hs:414:46: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
414 | zs = tail (inits (toList $ compositeFields pdef))
| ^^^^
Database/Persist/Sql/Orphan/PersistQuery.hs:428:65: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
428 | (wrapSql sqlcl, concat (tail (inits xs)))
| ^^^^
[41 of 52] Compiling Database.Persist.Sql.Migration ( Database/Persist/Sql/Migration.hs, /tmp/ghc2913937_0/ghc_70.o, /tmp/ghc2913937_0/ghc_70.dyn_o )
[42 of 52] Compiling Database.Persist.ImplicitIdDef.Internal ( Database/Persist/ImplicitIdDef/Internal.hs, /tmp/ghc2913937_0/ghc_46.o, /tmp/ghc2913937_0/ghc_46.dyn_o )
[43 of 52] Compiling Database.Persist.ImplicitIdDef ( Database/Persist/ImplicitIdDef.hs, /tmp/ghc2913937_0/ghc_44.o, /tmp/ghc2913937_0/ghc_44.dyn_o )
[44 of 52] Compiling Database.Persist.Compatible.Types ( Database/Persist/Compatible/Types.hs, /tmp/ghc2913937_0/ghc_34.o, /tmp/ghc2913937_0/ghc_34.dyn_o )
[45 of 52] Compiling Database.Persist.Compatible.TH ( Database/Persist/Compatible/TH.hs, nothing )
[46 of 52] Compiling Database.Persist.Compatible ( Database/Persist/Compatible.hs, nothing )
[47 of 52] Compiling Database.Persist.Sql ( Database/Persist/Sql.hs, /tmp/ghc2913937_0/ghc_64.o, /tmp/ghc2913937_0/ghc_64.dyn_o )
[48 of 52] Compiling Database.Persist.Quasi.Internal.ModelParser ( Database/Persist/Quasi/Internal/ModelParser.hs, /tmp/ghc2913937_0/ghc_56.o, /tmp/ghc2913937_0/ghc_56.dyn_o )
Database/Persist/Quasi/Internal/ModelParser.hs:44:1: warning: [GHC-66111] [-Wunused-imports]
The import of Data.Functor.Identity is redundant
except perhaps to import instances from Data.Functor.Identity
To import instances alone, use: import Data.Functor.Identity()
|
44 | import Data.Functor.Identity
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:146:12: warning: [GHC-63397] [-Wname-shadowing]
This binding for either shadows the existing binding
imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50
(and originally defined in Data.Either)
|
146 | ((_is, either), warnings) = runWriter wm
| ^^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:235:22: warning: [GHC-40910] [-Wunused-local-binds]
Defined but not used: pairs
|
235 | (pairs, _) = attachSourcePos errorOffset [err] posState
| ^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:772:37: warning: [GHC-63397] [-Wname-shadowing]
This binding for extraBlockLines shadows the existing binding
defined at Database/Persist/Quasi/Internal/ModelParser.hs:656:7
|
772 | mkExtraBlockMember dcb (header, extraBlockLines) =
| ^^^^^^^^^^^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:779:20: warning: [GHC-63397] [-Wname-shadowing]
This binding for lines shadows the existing binding
imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50
(and originally defined in base-4.19.2.0:Data.OldList)
|
779 | ensureNonEmpty lines = case NEL.nonEmpty lines of
| ^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:808:5: warning: [GHC-63397] [-Wname-shadowing]
This binding for tokens shadows the existing binding
imported from Text.Megaparsec at Database/Persist/Quasi/Internal/ModelParser.hs:60:1-22
(and originally defined in megaparsec-9.7.0:Text.Megaparsec.Class)
|
808 | tokens <- some $ L.lexeme spaceConsumer (some contentChar)
| ^^^^^^
[49 of 52] Compiling Database.Persist.Quasi.Internal ( Database/Persist/Quasi/Internal.hs, /tmp/ghc2913937_0/ghc_54.o, /tmp/ghc2913937_0/ghc_54.dyn_o )
Database/Persist/Quasi/Internal.hs:54:55: warning: [GHC-38856] [-Wunused-imports]
The import of toLower from module Data.Char is redundant
|
54 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower)
| ^^^^^^^
[50 of 52] Compiling Database.Persist.Quasi ( Database/Persist/Quasi.hs, /tmp/ghc2913937_0/ghc_52.o, /tmp/ghc2913937_0/ghc_52.dyn_o )
[51 of 52] Compiling Database.Persist.TH.Internal ( Database/Persist/TH/Internal.hs, nothing )
Database/Persist/TH/Internal.hs:152:1: warning: [GHC-66111] [-Wunused-imports]
The import of Database.Persist.Quasi.PersistSettings is redundant
except perhaps to import instances from Database.Persist.Quasi.PersistSettings
To import instances alone, use: import Database.Persist.Quasi.PersistSettings()
|
152 | import Database.Persist.Quasi.PersistSettings
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/TH/Internal.hs:2758:20: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
2758 | expr <- [e|head . persistUniqueKeys|]
| ^^^^
[52 of 52] Compiling Database.Persist.TH ( Database/Persist/TH.hs, nothing )
Haddock coverage:
50% ( 1 / 2) in 'Database.Persist.Class.PersistConfig'
Missing documentation for:
Module header
Warning: 'ConstraintNameHS' is ambiguous. It is defined
* at Database/Persist/Names.hs:72:28
* at Database/Persist/Names.hs:72:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:72:1
Warning: 'ConstraintNameDB' is ambiguous. It is defined
* at Database/Persist/Names.hs:61:28
* at Database/Persist/Names.hs:61:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:61:1
Warning: 'EntityNameDB' is ambiguous. It is defined
* at Database/Persist/Names.hs:51:24
* at Database/Persist/Names.hs:51:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:51:1
Warning: 'EntityNameHS' is ambiguous. It is defined
* at Database/Persist/Names.hs:44:24
* at Database/Persist/Names.hs:44:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:44:1
Warning: 'FieldNameHS' is ambiguous. It is defined
* at Database/Persist/Names.hs:37:23
* at Database/Persist/Names.hs:37:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:37:1
Warning: 'FieldNameDB' is ambiguous. It is defined
* at Database/Persist/Names.hs:26:23
* at Database/Persist/Names.hs:26:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:26:1
100% ( 8 / 8) in 'Database.Persist.Names'
Warning: 'PersistField' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
75% ( 3 / 4) in 'Database.Persist.PersistValue'
Missing documentation for:
fromPersistValueText (Database/Persist/PersistValue.hs:198)
83% ( 5 / 6) in 'Database.Persist.Quasi.Internal.TypeParser'
Missing documentation for:
Module header
33% ( 1 / 3) in 'Database.Persist.SqlBackend.Internal.IsolationLevel'
Missing documentation for:
Module header
makeIsolationLevelStatement (Database/Persist/SqlBackend/Internal/IsolationLevel.hs:15)
50% ( 1 / 2) in 'Database.Persist.SqlBackend.Internal.SqlPoolHooks'
Missing documentation for:
Module header
50% ( 1 / 2) in 'Database.Persist.Types.SourceSpan'
Missing documentation for:
Module header
Warning: 'FieldDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:707:17
* at Database/Persist/Types/Base.hs:707:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1
Warning: 'Field' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'FieldNameHS' is ambiguous. It is defined
* at Database/Persist/Names.hs:37:23
* at Database/Persist/Names.hs:37:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:37:1
Warning: 'PersistField' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Key' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'mkPersist' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'PersistFieldSql' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'EntityDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:135:18
* at Database/Persist/Types/Base.hs:135:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1
Warning: 'nullable' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'MigrationOnly' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'SafeToRemove' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'FieldCascade' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:596:21
* at Database/Persist/Types/Base.hs:596:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:596:1
Warning: Database.Persist.Types.Base: Could not find documentation for exported module: Database.Persist.Types.Base
Warning: 'Statement' is ambiguous. It is defined
* at Database/Persist/SqlBackend/Internal/Statement.hs:12:18
* at Database/Persist/SqlBackend/Internal/Statement.hs:12:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/SqlBackend/Internal/Statement.hs:12:1
50% ( 1 / 2) in 'Database.Persist.SqlBackend.Internal.Statement'
Missing documentation for:
Module header
Warning: 'StatementCacheKey' is ambiguous. It is defined
* at Database/Persist/SqlBackend/Internal/StatementCache.hs:17:29
* at Database/Persist/SqlBackend/Internal/StatementCache.hs:17:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/SqlBackend/Internal/StatementCache.hs:17:1
50% ( 2 / 4) in 'Database.Persist.SqlBackend.Internal.StatementCache'
Missing documentation for:
Module header
StatementCacheKey (Database/Persist/SqlBackend/Internal/StatementCache.hs:17)
71% ( 5 / 7) in 'Database.Persist.SqlBackend.StatementCache'
Missing documentation for:
Module header
StatementCacheKey (Database/Persist/SqlBackend/Internal/StatementCache.hs:17)
0% ( 0 / 2) in 'Database.Persist.SqlBackend.Internal.InsertSqlResult'
Missing documentation for:
Module header
InsertSqlResult (Database/Persist/SqlBackend/Internal/InsertSqlResult.hs:6)
Warning: 'SqlBackend' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'mkSqlBackend' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'EntityDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:135:18
* at Database/Persist/Types/Base.hs:135:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1
Warning: 'Statement' is ambiguous. It is defined
* at Database/Persist/SqlBackend/Internal/Statement.hs:12:18
* at Database/Persist/SqlBackend/Internal/Statement.hs:12:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/SqlBackend/Internal/Statement.hs:12:1
33% ( 1 / 3) in 'Database.Persist.SqlBackend.Internal.MkSqlBackend'
Missing documentation for:
Module header
LogFunc (Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:79)
87% ( 7 / 8) in 'Database.Persist.FieldDef.Internal'
Missing documentation for:
isFieldNotGenerated (Database/Persist/Types/Base.hs:460)
Warning: 'FieldDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:707:17
* at Database/Persist/Types/Base.hs:707:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1
Warning: 'FieldCascade' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:596:21
* at Database/Persist/Types/Base.hs:596:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:596:1
94% ( 17 / 18) in 'Database.Persist.FieldDef'
Missing documentation for:
isFieldNotGenerated (Database/Persist/Types/Base.hs:460)
Warning: 'EntityDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:135:18
* at Database/Persist/Types/Base.hs:135:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1
75% ( 6 / 8) in 'Database.Persist.EntityDef.Internal'
Missing documentation for:
entityPrimary (Database/Persist/Types/Base.hs:203)
toEmbedEntityDef (Database/Persist/Types/Base.hs:507)
Warning: 'EntityDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:135:18
* at Database/Persist/Types/Base.hs:135:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1
Warning: 'UniqueDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:550:18
* at Database/Persist/Types/Base.hs:550:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:550:1
Warning: 'Unique' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Entity' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'SafeToRemove' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'MigrationOnly' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Source' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
90% ( 27 / 30) in 'Database.Persist.EntityDef'
Missing documentation for:
getEntityComments (Database/Persist/EntityDef.hs:110)
getEntityExtra (Database/Persist/EntityDef.hs:101)
entityPrimary (Database/Persist/Types/Base.hs:203)
Warning: 'Text' is ambiguous. It is defined
* in GHC.TypeError
* in Data.Text.Internal
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Data.Text.Internal
75% ( 3 / 4) in 'Database.Persist.Class.PersistField'
Missing documentation for:
Module header
Warning: 'mkPersist' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'insertKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Entity' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:371:7
* at Database/Persist/Class/PersistEntity.hs:370:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:370:1
Warning: 'select' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'updateWhere' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'deleteWhere' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'EntityDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:135:18
* at Database/Persist/Types/Base.hs:135:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1
Warning: 'derivePersistField' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
85% ( 23 / 27) in 'Database.Persist.Class.PersistEntity'
Missing documentation for:
Module header
BackendSpecificUpdate (Database/Persist/Class/PersistEntity.hs:274)
BackendSpecificFilter (Database/Persist/Class/PersistEntity.hs:306)
SafeToInsertErrorMessage (Database/Persist/Class/PersistEntity.hs:633)
Warning: 'Text' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'FieldDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:707:17
* at Database/Persist/Types/Base.hs:707:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1
77% ( 42 / 54) in 'Database.Persist.Types'
Missing documentation for:
BackendSpecificUpdate (Database/Persist/Class/PersistEntity.hs:274)
BackendSpecificFilter (Database/Persist/Class/PersistEntity.hs:306)
PersistFilter (Database/Persist/Types/Base.hs:669)
PersistUpdate (Database/Persist/Types/Base.hs:695)
ForeignDef (Database/Persist/Types/Base.hs:568)
IsNullable (Database/Persist/Types/Base.hs:111)
fieldAttrsContainsNullable (Database/Persist/Types/Base.hs:117)
CompositeDef (Database/Persist/Types/Base.hs:558)
Attr (Database/Persist/Types/Base.hs:256)
ExtraLine (Database/Persist/Types/Base.hs:254)
PersistException (Database/Persist/Types/Base.hs:638)
UpdateException (Database/Persist/Types/Base.hs:681)
Warning: 'PersistSettings' is ambiguous. It is defined
* at Database/Persist/Quasi/PersistSettings/Internal.hs:19:24
* at Database/Persist/Quasi/PersistSettings/Internal.hs:19:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Quasi/PersistSettings/Internal.hs:19:1
69% ( 16 / 23) in 'Database.Persist.Quasi.PersistSettings.Internal'
Missing documentation for:
Module header
PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19)
defaultPersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:49)
upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58)
lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59)
warningPos (Database/Persist/Quasi/PersistSettings/Internal.hs:86)
toFKNameInfixed (Database/Persist/Quasi/PersistSettings/Internal.hs:108)
73% ( 17 / 23) in 'Database.Persist.Quasi.PersistSettings'
Missing documentation for:
Module header
PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19)
defaultPersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:49)
upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58)
lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59)
warningPos (Database/Persist/Quasi/PersistSettings/Internal.hs:86)
Warning: 'John' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Entity' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:371:7
* at Database/Persist/Class/PersistEntity.hs:370:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:370:1
Warning: 'upsertBy' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'toSqlKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'fromSqlKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'IsSqlBackend' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'SqlBackend' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'SqlReadBackend' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
73% ( 14 / 19) in 'Database.Persist.Class.PersistStore'
Missing documentation for:
Module header
liftPersist (Database/Persist/Class/PersistStore.hs:136)
PersistCore (Database/Persist/Class/PersistStore.hs:159)
PersistStoreRead (Database/Persist/Class/PersistStore.hs:162)
PersistStoreWrite (Database/Persist/Class/PersistStore.hs:232)
Warning: 'SqlBackend' is ambiguous. It is defined
* at Database/Persist/SqlBackend/Internal.hs:36:19
* at Database/Persist/SqlBackend/Internal.hs:36:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/SqlBackend/Internal.hs:36:1
Warning: 'Pool' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ConnectionPool' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'runSqlConn' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'runSqlPool' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'defaultRepsertMany' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'EntityDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:135:18
* at Database/Persist/Types/Base.hs:135:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1
Warning: 'Statement' is ambiguous. It is defined
* at Database/Persist/SqlBackend/Internal/Statement.hs:12:18
* at Database/Persist/SqlBackend/Internal/Statement.hs:12:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/SqlBackend/Internal/Statement.hs:12:1
Warning: 'defaultPutMany' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'connInsertSql' is ambiguous. It is defined
* at Database/Persist/SqlBackend/Internal.hs:40:7
* at Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:28:7
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:28:7
40% ( 2 / 5) in 'Database.Persist.SqlBackend.Internal'
Missing documentation for:
Module header
SqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:145)
emptySqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:150)
Warning: 'SqlBackend' is ambiguous. It is defined
* at Database/Persist/SqlBackend/Internal.hs:36:19
* at Database/Persist/SqlBackend/Internal.hs:36:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/SqlBackend/Internal.hs:36:1
Warning: 'FieldNameDB' is ambiguous. It is defined
* at Database/Persist/Names.hs:26:23
* at Database/Persist/Names.hs:26:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:26:1
Warning: 'ReaderT' is ambiguous. It is defined
* in Control.Monad.Trans.Reader
* in Control.Monad.Trans.Reader
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.Reader
Warning: 'SqlPersistT' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
92% ( 26 / 28) in 'Database.Persist.SqlBackend'
Missing documentation for:
SqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:145)
emptySqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:150)
Warning: 'TypeError' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'UniqueDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:550:18
* at Database/Persist/Types/Base.hs:550:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:550:1
95% ( 19 / 20) in 'Database.Persist.Class.PersistUnique'
Missing documentation for:
Module header
Warning: 'Entity' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:371:7
* at Database/Persist/Class/PersistEntity.hs:370:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:370:1
Warning: 'SqlPersistT' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
85% ( 6 / 7) in 'Database.Persist.Class.PersistQuery'
Missing documentation for:
Module header
94% ( 64 / 68) in 'Database.Persist.Class'
Missing documentation for:
PersistStoreRead (Database/Persist/Class/PersistStore.hs:162)
PersistStoreWrite (Database/Persist/Class/PersistStore.hs:232)
liftPersist (Database/Persist/Class/PersistStore.hs:136)
PersistCore (Database/Persist/Class/PersistStore.hs:159)
80% ( 16 / 20) in 'Database.Persist.Sql.Types.Internal'
Missing documentation for:
LogFunc (Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:79)
InsertSqlResult (Database/Persist/SqlBackend/Internal/InsertSqlResult.hs:6)
makeIsolationLevelStatement (Database/Persist/SqlBackend/Internal/IsolationLevel.hs:15)
SqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:145)
Warning: 'rawSql' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'PersistField' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ConnectionPoolConfig' is ambiguous. It is defined
* at Database/Persist/Sql/Types.hs:79:29
* at Database/Persist/Sql/Types.hs:79:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Sql/Types.hs:79:1
Warning: Database.Persist.Sql.Types: Could not find documentation for exported module: Database.Persist.Sql.Types
Warning: 'ConstraintNameDB' is ambiguous. It is defined
* at Database/Persist/Names.hs:61:28
* at Database/Persist/Names.hs:61:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:61:1
Warning: 'BackendSpecificOverrides' is ambiguous. It is defined
* at Database/Persist/Sql/Internal.hs:36:33
* at Database/Persist/Sql/Internal.hs:36:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Sql/Internal.hs:36:1
Warning: 'Filter' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:321:7
* at Database/Persist/Class/PersistEntity.hs:320:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:320:1
Warning: 'Update' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:288:7
* at Database/Persist/Class/PersistEntity.hs:287:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:287:1
Warning: 'share' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'mkPersist' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'sqlSettings' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'mkMigrate' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'persistLowerCase' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 38 / 38) in 'Database.Persist'
Warning: 'FieldDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:707:17
* at Database/Persist/Types/Base.hs:707:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1
Warning: 'Update' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:288:7
* at Database/Persist/Class/PersistEntity.hs:287:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:287:1
Warning: 'escape' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
26% ( 5 / 19) in 'Database.Persist.Sql.Util'
Missing documentation for:
Module header
parseEntityValues (Database/Persist/Sql/Util.hs:170)
keyAndEntityColumnNames (Database/Persist/Sql/Util.hs:58)
entityColumnCount (Database/Persist/Sql/Util.hs:62)
isIdField (Database/Persist/Sql/Util.hs:207)
dbIdColumns (Database/Persist/Sql/Util.hs:156)
dbIdColumnsEsc (Database/Persist/Sql/Util.hs:159)
dbColumns (Database/Persist/Sql/Util.hs:162)
updatePersistValue (Database/Persist/Sql/Util.hs:215)
mkUpdateText (Database/Persist/Sql/Util.hs:223)
mkUpdateText' (Database/Persist/Sql/Util.hs:229)
commaSeparated (Database/Persist/Sql/Util.hs:220)
parenWrapped (Database/Persist/Sql/Util.hs:243)
parseExistsResult (Database/Persist/Sql/Util.hs:287)
Warning: 'PersistLiteralEncoded' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'PersistFieldSQL' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'EntityWithPrefix' is ambiguous. It is defined
* at Database/Persist/Sql/Class.hs:147:7
* at Database/Persist/Sql/Class.hs:146:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Sql/Class.hs:146:1
Warning: 'Entity' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:371:7
* at Database/Persist/Class/PersistEntity.hs:370:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:370:1
Warning: 'rawSql' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Entity' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:371:7
* at Database/Persist/Class/PersistEntity.hs:370:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:370:1
Warning: 'Single' is ambiguous. It is defined
* at Database/Persist/Sql/Types.hs:152:20
* at Database/Persist/Sql/Types.hs:152:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Sql/Types.hs:152:1
15% ( 2 / 13) in 'Database.Persist.SqlBackend.SqlPoolHooks'
Missing documentation for:
Module header
getAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:62)
modifyAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:68)
setAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:72)
getRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:76)
modifyRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:84)
setRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:90)
getRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:94)
modifyRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:102)
setRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:108)
getRunOnException (Database/Persist/SqlBackend/SqlPoolHooks.hs:113)
Warning: 'Conduit' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Filter' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:321:7
* at Database/Persist/Class/PersistEntity.hs:320:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:320:1
Warning: 'WriterT' is ambiguous. It is defined
* in Control.Monad.Trans.Writer.Lazy
* in Control.Monad.Trans.Writer.Lazy
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.Writer.Lazy
Warning: 'ReaderT' is ambiguous. It is defined
* in Control.Monad.Trans.Reader
* in Control.Monad.Trans.Reader
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Control.Monad.Trans.Reader
Warning: 'SqlBackend' is ambiguous. It is defined
* at Database/Persist/SqlBackend/Internal.hs:36:19
* at Database/Persist/SqlBackend/Internal.hs:36:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/SqlBackend/Internal.hs:36:1
Warning: 'PersistUnsafeMigrationException' is ambiguous. It is defined
* at Database/Persist/Sql/Migration.hs:307:7
* at Database/Persist/Sql/Migration.hs:306:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Sql/Migration.hs:306:1
Warning: 'rawExecute_' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
96% ( 25 / 26) in 'Database.Persist.Sql.Migration'
Missing documentation for:
Sql (Database/Persist/Sql/Migration.hs:79)
Warning: 'PersistSettings' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'BackendKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'SqlBackend' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ImplicitIdDef' is ambiguous. It is defined
* at Database/Persist/ImplicitIdDef/Internal.hs:92:22
* at Database/Persist/ImplicitIdDef/Internal.hs:92:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/ImplicitIdDef/Internal.hs:92:1
Warning: 'ByteString' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'toPersistValue' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'fromPersistValue' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'setImplicitIdDef' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'MkPersistSettings' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'MkPersistBackend' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'mpsGeneric' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'mpsBackend' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'EntityNameHS' is ambiguous. It is defined
* at Database/Persist/Names.hs:44:24
* at Database/Persist/Names.hs:44:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:44:1
Warning: 'FieldTyp' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'insertKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'insert' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'series_name' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
100% ( 6 / 6) in 'Database.Persist.ImplicitIdDef.Internal'
Warning: 'ImplicitIdDef' is ambiguous. It is defined
* at Database/Persist/ImplicitIdDef/Internal.hs:92:22
* at Database/Persist/ImplicitIdDef/Internal.hs:92:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/ImplicitIdDef/Internal.hs:92:1
100% ( 11 / 11) in 'Database.Persist.ImplicitIdDef'
Warning: 'SqlBackend' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Compatible' is ambiguous. It is defined
* at Database/Persist/Compatible/Types.hs:55:26
* at Database/Persist/Compatible/Types.hs:55:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Compatible/Types.hs:55:1
75% ( 3 / 4) in 'Database.Persist.Compatible'
Missing documentation for:
Module header
75% ( 71 / 94) in 'Database.Persist.Sql'
Missing documentation for:
close' (Database/Persist/Sql/Run.hs:364)
runSqlConn (Database/Persist/Sql/Run.hs:199)
runSqlPersistM (Database/Persist/Sql/Run.hs:214)
runSqlPersistMPool (Database/Persist/Sql/Run.hs:219)
liftSqlPersistMPool (Database/Persist/Sql/Run.hs:225)
withSqlPool (Database/Persist/Sql/Run.hs:236)
createSqlPool (Database/Persist/Sql/Run.hs:266)
BackendKey
BackendKey (Database/Persist/Class/PersistStore.hs:160)
withRawQuery (Database/Persist/Sql/Orphan/PersistStore.hs:62)
toSqlKey (Database/Persist/Sql/Orphan/PersistStore.hs:67)
fromSqlKey (Database/Persist/Sql/Orphan/PersistStore.hs:70)
rawQuery (Database/Persist/Sql/Raw.hs:27)
rawQueryRes (Database/Persist/Sql/Raw.hs:38)
getStmtConn (Database/Persist/Sql/Raw.hs:87)
defaultAttribute (Database/Persist/Sql/Internal.hs:74)
Column (Database/Persist/Sql/Types.hs:32)
LogFunc (Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:79)
InsertSqlResult (Database/Persist/SqlBackend/Internal/InsertSqlResult.hs:6)
ConnectionPool (Database/Persist/Sql/Types.hs:74)
SqlPersistT (Database/Persist/Sql/Types.hs:70)
PersistentSqlException (Database/Persist/Sql/Types.hs:64)
SqlPersistM (Database/Persist/Sql/Types.hs:72)
Warning: 'SourceSpan' is ambiguous. It is defined
* at Database/Persist/Types/SourceSpan.hs:17:19
* at Database/Persist/Types/SourceSpan.hs:17:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/SourceSpan.hs:17:1
50% ( 12 / 24) in 'Database.Persist.Quasi.Internal.ModelParser'
Missing documentation for:
Module header
attribute (Database/Persist/Quasi/Internal/ModelParser.hs:345)
Directive (Database/Persist/Quasi/Internal/ModelParser.hs:679)
EntityField (Database/Persist/Quasi/Internal/ModelParser.hs:669)
entityField (Database/Persist/Quasi/Internal/ModelParser.hs:818)
entityFieldContent (Database/Persist/Quasi/Internal/ModelParser.hs:308)
FieldName (Database/Persist/Quasi/Internal/ModelParser.hs:663)
fieldName (Database/Persist/Quasi/Internal/ModelParser.hs:565)
ParsedEntityDef (Database/Persist/Quasi/Internal/ModelParser.hs:581)
parseSource (Database/Persist/Quasi/Internal/ModelParser.hs:979)
toCumulativeParseResult (Database/Persist/Quasi/Internal/ModelParser.hs:125)
initialExtraState (Database/Persist/Quasi/Internal/ModelParser.hs:74)
Warning: 'FieldNameHS' is ambiguous. It is defined
* at Database/Persist/Names.hs:37:23
* at Database/Persist/Names.hs:37:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:37:1
Warning: 'ForeignDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:568:19
* at Database/Persist/Types/Base.hs:568:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:568:1
Warning: 'mpsImplicitIdDef' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'MkPersistSettings' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'insert' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'insertKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'FieldCascade' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:596:21
* at Database/Persist/Types/Base.hs:596:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:596:1
Warning: 'Type' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'EntityField' is ambiguous. It is defined
* at Database/Persist/Quasi/Internal/ModelParser.hs:669:20
* at Database/Persist/Quasi/Internal/ModelParser.hs:669:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Quasi/Internal/ModelParser.hs:669:1
Warning: 'EntityDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:135:18
* at Database/Persist/Types/Base.hs:135:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1
Warning: 'UnboundEntityDef' is ambiguous. It is defined
* at Database/Persist/Quasi/Internal.hs:260:7
* at Database/Persist/Quasi/Internal.hs:259:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:259:1
Warning: 'UnboundFieldDef' is ambiguous. It is defined
* at Database/Persist/Quasi/Internal.hs:336:7
* at Database/Persist/Quasi/Internal.hs:335:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:335:1
Warning: 'CompositeDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:558:21
* at Database/Persist/Types/Base.hs:558:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:558:1
Warning: 'FieldDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:707:17
* at Database/Persist/Types/Base.hs:707:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1
Warning: 'UnboundIdDef' is ambiguous. It is defined
* at Database/Persist/Quasi/Internal.hs:236:21
* at Database/Persist/Quasi/Internal.hs:236:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:236:1
Warning: 'EntityNameHS' is ambiguous. It is defined
* at Database/Persist/Names.hs:44:24
* at Database/Persist/Names.hs:44:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Names.hs:44:1
Warning: 'MigrationOnly' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'SafeToRemove' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
69% ( 23 / 33) in 'Database.Persist.Quasi.Internal'
Missing documentation for:
PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19)
upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58)
lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59)
sourceLocFromTHLoc (Database/Persist/Quasi/Internal.hs:180)
parseFieldType (Database/Persist/Quasi/Internal.hs:80)
takeColsEx (Database/Persist/Quasi/Internal.hs:689)
getSqlNameOr (Database/Persist/Quasi/Internal.hs:748)
isUnboundFieldNullable (Database/Persist/Quasi/Internal.hs:436)
mkAutoIdField' (Database/Persist/Quasi/Internal.hs:666)
FieldTypeLit (Database/Persist/Types/Base.hs:454)
Warning: 'Int64' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'insertKey' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'insert' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'entityAttrs' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'fieldAttrs' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'entityDef' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Proxy' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'entityFields' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Restrict' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Cascade' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'SetNull' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'SetDefault' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'mpsEntityHaddocks' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
85% ( 17 / 20) in 'Database.Persist.Quasi'
Missing documentation for:
PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19)
upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58)
lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59)
Warning: 'EntityJSON' is ambiguous. It is defined
* at Database/Persist/TH/Internal.hs:1292:19
* at Database/Persist/TH/Internal.hs:1292:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/TH/Internal.hs:1292:1
Warning: 'EntityDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:135:18
* at Database/Persist/Types/Base.hs:135:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1
Warning: 'UnboundEntityDef' is ambiguous. It is defined
* at Database/Persist/Quasi/Internal.hs:260:7
* at Database/Persist/Quasi/Internal.hs:259:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:259:1
Warning: 'EmbedEntityDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:479:23
* at Database/Persist/Types/Base.hs:479:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:479:1
Warning: 'QuasiQuoter' is ambiguous. It is defined
* in Language.Haskell.TH.Quote
* in Language.Haskell.TH.Quote
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Quote
Warning: 'ImplicitIdDef' is ambiguous. It is defined
* at Database/Persist/ImplicitIdDef/Internal.hs:92:22
* at Database/Persist/ImplicitIdDef/Internal.hs:92:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/ImplicitIdDef/Internal.hs:92:1
Warning: 'MkPersistSettings' is ambiguous. It is defined
* at Database/Persist/TH/Internal.hs:1113:26
* at Database/Persist/TH/Internal.hs:1113:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/TH/Internal.hs:1113:1
Warning: 'SqlPersist' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'UnboundFieldDef' is ambiguous. It is defined
* at Database/Persist/Quasi/Internal.hs:336:7
* at Database/Persist/Quasi/Internal.hs:335:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:335:1
Warning: 'Name' is ambiguous. It is defined
* in Language.Haskell.TH.Syntax
* in Language.Haskell.TH.Syntax
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined in Language.Haskell.TH.Syntax
Warning: 'customerName' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'FieldDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:707:17
* at Database/Persist/Types/Base.hs:707:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1
Warning: '_customerName' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'User' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
95% ( 45 / 47) in 'Database.Persist.TH.Internal'
Missing documentation for:
EntityJSON (Database/Persist/TH/Internal.hs:1292)
lensPTH (Database/Persist/TH/Internal.hs:1852)
97% ( 38 / 39) in 'Database.Persist.TH'
Missing documentation for:
EntityJSON (Database/Persist/TH/Internal.hs:1292)
Warning: Database.Persist.Class.PersistConfig: could not find link destinations for:
- Database.Persist.Class.PersistConfig.D:R:PersistConfigBackendEither
- Database.Persist.Class.PersistConfig.D:R:PersistConfigPoolEither
Warning: Database.Persist.Class.PersistField: could not find link destinations for:
- Data.Vector.Vector
Warning: Database.Persist.Class.PersistEntity: could not find link destinations for:
- Database.Persist.Class.PersistEntity.EntityErrorMessage
- Database.Persist.Class.PersistEntity.FunctionErrorMessage
- Database.Persist.Class.PersistEntity.Rep_Entity
Warning: Database.Persist.Types: could not find link destinations for:
- Database.Persist.Types.Base.SelfEmbed
- Database.Persist.Class.PersistEntity.EntityErrorMessage
- Database.Persist.Class.PersistEntity.Rep_Entity
Warning: Database.Persist.Class.PersistStore: could not find link destinations for:
- Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend
- Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend
- Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0
- Database.Persist.Compatible.Types.CompatibleKey
- Database.Persist.Compatible.Types.unCompatibleKey
- Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0
- Database.Persist.Compatible.Types.D:R:BaseBackendCompatible
Warning: Database.Persist.SqlBackend.Internal: could not find link destinations for:
- Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0
- Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend
Warning: Database.Persist.SqlBackend: could not find link destinations for:
- Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0
- Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend
Warning: Database.Persist.Class: could not find link destinations for:
- Data.Vector.Vector
- Database.Persist.Class.PersistConfig.D:R:PersistConfigBackendEither
- Database.Persist.Class.PersistConfig.D:R:PersistConfigPoolEither
- Database.Persist.Class.PersistEntity.EntityErrorMessage
- Database.Persist.Class.PersistEntity.FunctionErrorMessage
- Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend
- Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend
- Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0
- Database.Persist.Compatible.Types.CompatibleKey
- Database.Persist.Compatible.Types.unCompatibleKey
- Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0
- Database.Persist.Compatible.Types.D:R:BaseBackendCompatible
Warning: Database.Persist.Sql.Types.Internal: could not find link destinations for:
- Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend
- Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend
- Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0
- Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlWriteBackend
- Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlReadBackend
- Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend
- Database.Persist.Compatible.Types.D:R:BaseBackendCompatible
Warning: Database.Persist.Compatible: could not find link destinations for:
- Database.Persist.Compatible.Types.CompatibleKey
- Database.Persist.Compatible.Types.unCompatibleKey
- Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0
- Database.Persist.Compatible.Types.D:R:BaseBackendCompatible
Warning: Database.Persist.Sql: could not find link destinations for:
- Data.Vector.Vector
- Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend
- Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend
- Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0
- Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlWriteBackend
- Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlReadBackend
- Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend
- Database.Persist.Compatible.Types.CompatibleKey
- Database.Persist.Compatible.Types.unCompatibleKey
- Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0
Warning: Database.Persist.Quasi.Internal.ModelParser: could not find link destinations for:
- Database.Persist.Quasi.Internal.ModelParser.Member
- Database.Persist.Quasi.Internal.ModelParser.DirectiveName
- Database.Persist.Quasi.Internal.ModelParser.FieldStrictness
- Database.Persist.Quasi.Internal.ModelParser.DocCommentBlock
- Database.Persist.Quasi.Internal.ModelParser.InternalParseResult
- Database.Persist.Quasi.Internal.ModelParser.EntityParseError
- Database.Persist.Quasi.Internal.ModelParser.Parser
- Database.Persist.Quasi.Internal.ModelParser.ExtraState
Warning: Database.Persist.Quasi.Internal: could not find link destinations for:
- Database.Persist.Quasi.Internal.ModelParser.EntityParseError
Warning: Database.Persist.TH.Internal: could not find link destinations for:
- Database.Persist.TH.Internal.Lens
Documentation created: dist/doc/html/persistent/,
dist/doc/html/persistent/persistent.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO
Completed persistent-2.18.0.0
Downloading persistent-test-2.13.2.1
Downloaded persistent-test-2.13.2.1
Configuring persistent-test-2.13.2.1...
Preprocessing library for persistent-test-2.13.2.1..
Building library for persistent-test-2.13.2.1..
[ 1 of 41] Compiling Init ( src/Init.hs, dist/build/Init.o, dist/build/Init.dyn_o )
src/Init.hs:168:31: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Database.Persist.TH, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
168 | persistSettings = sqlSettings{mpsGeneric = True}
| ^^^^^^^^^^
[ 2 of 41] Compiling HtmlTest ( src/HtmlTest.hs, dist/build/HtmlTest.o, dist/build/HtmlTest.dyn_o )
src/HtmlTest.hs:18:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
18 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "htmlMigrate"]
| ^^^^^^^^^^
[ 3 of 41] Compiling GeneratedColumnTestSQL ( src/GeneratedColumnTestSQL.hs, dist/build/GeneratedColumnTestSQL.o, dist/build/GeneratedColumnTestSQL.dyn_o )
[ 4 of 41] Compiling ForeignKey ( src/ForeignKey.hs, dist/build/ForeignKey.o, dist/build/ForeignKey.dyn_o )
src/ForeignKey.hs:19:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
19 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"]
| ^^^^^^^^^^
[ 5 of 41] Compiling EquivalentTypeTest ( src/EquivalentTypeTest.hs, dist/build/EquivalentTypeTest.o, dist/build/EquivalentTypeTest.dyn_o )
[ 6 of 41] Compiling EntityEmbedTest ( src/EntityEmbedTest.hs, dist/build/EntityEmbedTest.o, dist/build/EntityEmbedTest.dyn_o )
src/EntityEmbedTest.hs:11:21: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
11 | persistSettings{mpsGeneric = True}
| ^^^^^^^^^^
[ 7 of 41] Compiling EmptyEntityTest ( src/EmptyEntityTest.hs, dist/build/EmptyEntityTest.o, dist/build/EmptyEntityTest.dyn_o )
src/EmptyEntityTest.hs:14:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
14 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"]
| ^^^^^^^^^^
[ 8 of 41] Compiling EmbedTest ( src/EmbedTest.hs, dist/build/EmbedTest.o, dist/build/EmbedTest.dyn_o )
src/EmbedTest.hs:33:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
33 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedMigrate"]
| ^^^^^^^^^^
[ 9 of 41] Compiling EmbedOrderTest ( src/EmbedOrderTest.hs, dist/build/EmbedOrderTest.o, dist/build/EmbedOrderTest.dyn_o )
src/EmbedOrderTest.hs:16:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
16 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedOrderMigrate"]
| ^^^^^^^^^^
[10 of 41] Compiling DataTypeTest ( src/DataTypeTest.hs, dist/build/DataTypeTest.o, dist/build/DataTypeTest.dyn_o )
[11 of 41] Compiling CustomPrimaryKeyReferenceTest ( src/CustomPrimaryKeyReferenceTest.hs, dist/build/CustomPrimaryKeyReferenceTest.o, dist/build/CustomPrimaryKeyReferenceTest.dyn_o )
src/CustomPrimaryKeyReferenceTest.hs:13:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
13 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"]
| ^^^^^^^^^^
[12 of 41] Compiling CustomPersistField ( src/CustomPersistField.hs, dist/build/CustomPersistField.o, dist/build/CustomPersistField.dyn_o )
[13 of 41] Compiling CustomPersistFieldTest ( src/CustomPersistFieldTest.hs, dist/build/CustomPersistFieldTest.o, dist/build/CustomPersistFieldTest.dyn_o )
src/CustomPersistFieldTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "customFieldMigrate"]
| ^^^^^^^^^^
[14 of 41] Compiling CompositeTest ( src/CompositeTest.hs, dist/build/CompositeTest.o, dist/build/CompositeTest.dyn_o )
src/CompositeTest.hs:17:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
17 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"]
| ^^^^^^^^^^
[15 of 41] Compiling LargeNumberTest ( src/LargeNumberTest.hs, dist/build/LargeNumberTest.o, dist/build/LargeNumberTest.dyn_o )
src/LargeNumberTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "numberMigrate"]
| ^^^^^^^^^^
[16 of 41] Compiling LongIdentifierTest ( src/LongIdentifierTest.hs, dist/build/LongIdentifierTest.o, dist/build/LongIdentifierTest.dyn_o )
[17 of 41] Compiling MaxLenTest ( src/MaxLenTest.hs, dist/build/MaxLenTest.o, dist/build/MaxLenTest.dyn_o )
src/MaxLenTest.hs:12:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
12 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maxlenMigrate"]
| ^^^^^^^^^^
[18 of 41] Compiling MaybeFieldDefsTest ( src/MaybeFieldDefsTest.hs, dist/build/MaybeFieldDefsTest.o, dist/build/MaybeFieldDefsTest.dyn_o )
src/MaybeFieldDefsTest.hs:13:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
13 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maybeFieldDefMigrate"]
| ^^^^^^^^^^
[19 of 41] Compiling MigrationColumnLengthTest ( src/MigrationColumnLengthTest.hs, dist/build/MigrationColumnLengthTest.o, dist/build/MigrationColumnLengthTest.dyn_o )
[20 of 41] Compiling MigrationIdempotencyTest ( src/MigrationIdempotencyTest.hs, dist/build/MigrationIdempotencyTest.o, dist/build/MigrationIdempotencyTest.dyn_o )
[21 of 41] Compiling MigrationOnlyTest ( src/MigrationOnlyTest.hs, dist/build/MigrationOnlyTest.o, dist/build/MigrationOnlyTest.dyn_o )
src/MigrationOnlyTest.hs:15:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
15 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll1"]
| ^^^^^^^^^^
src/MigrationOnlyTest.hs:25:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
25 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll2"]
| ^^^^^^^^^^
[22 of 41] Compiling MigrationTest ( src/MigrationTest.hs, dist/build/MigrationTest.o, dist/build/MigrationTest.dyn_o )
[23 of 41] Compiling PersistTestPetCollarType ( src/PersistTestPetCollarType.hs, dist/build/PersistTestPetCollarType.o, dist/build/PersistTestPetCollarType.dyn_o )
[24 of 41] Compiling PersistTestPetType ( src/PersistTestPetType.hs, dist/build/PersistTestPetType.o, dist/build/PersistTestPetType.dyn_o )
[25 of 41] Compiling PersistUniqueTest ( src/PersistUniqueTest.hs, dist/build/PersistUniqueTest.o, dist/build/PersistUniqueTest.dyn_o )
src/PersistUniqueTest.hs:11:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
11 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"]
| ^^^^^^^^^^
[26 of 41] Compiling PersistentTestModelsImports ( src/PersistentTestModelsImports.hs, dist/build/PersistentTestModelsImports.o, dist/build/PersistentTestModelsImports.dyn_o )
[27 of 41] Compiling PersistentTestModels ( src/PersistentTestModels.hs, dist/build/PersistentTestModels.o, dist/build/PersistentTestModels.dyn_o )
src/PersistentTestModels.hs:(28,23)-(128,2): Splicing expression
template-haskell:Language.Haskell.TH.Quote.quoteExp
persistUpperCase
"\n\
\\n\
\-- Dedented comment\n\
\ -- Header-level comment\n\
\ -- Indented comment\n\
\ Person json\n\
\ name Text\n\
\ age Int some=\"ignored -- \\\" attribute\"\n\
\ color Text Maybe -- this is a comment sql=foobarbaz\n\
\ PersonNameKey name -- this is a comment sql=foobarbaz\n\
\ deriving Show Eq\n\
\ Person1\n\
\-- Dedented comment\n\
\ -- Header-level comment\n\
\ -- Indented comment\n\
\ name Text\n\
\ age Int\n\
\ deriving Show Eq\n\
\ PersonMaybeAge\n\
\ name Text\n\
\ age Int Maybe\n\
\ PersonMay json\n\
\ name Text Maybe\n\
\ color Text Maybe\n\
\ deriving Show Eq\n\
\ Pet\n\
\ ownerId PersonId\n\
\ name Text\n\
\ -- deriving Show Eq\n\
\-- Dedented comment\n\
\ -- Header-level comment\n\
\ -- Indented comment\n\
\ type PetType\n\
\ MaybeOwnedPet\n\
\ ownerId PersonId Maybe\n\
\ name Text\n\
\ type PetType\n\
\-- Dedented comment\n\
\ -- Header-level comment\n\
\ -- Indented comment\n\
\ NeedsPet\n\
\ petKey PetId\n\
\ OutdoorPet\n\
\ ownerId PersonId\n\
\ collar PetCollar\n\
\ type PetType\n\
\\n\
\ -- From the scaffold\n\
\ UserPT\n\
\ ident Text\n\
\ password Text Maybe\n\
\ UniqueUserPT ident\n\
\ EmailPT\n\
\ email Text\n\
\ user UserPTId Maybe\n\
\ verkey Text Maybe\n\
\ UniqueEmailPT email\n\
\\n\
\ Upsert\n\
\ email Text\n\
\ attr Text\n\
\ extra Text\n\
\ age Int\n\
\ UniqueUpsert email\n\
\ deriving Eq Show\n\
\\n\
\ UpsertBy\n\
\ email Text\n\
\ city Text\n\
\ attr Text\n\
\ UniqueUpsertBy email\n\
\ UniqueUpsertByCity city\n\
\ deriving Eq Show\n\
\\n\
\ Strict\n\
\ !yes Int\n\
\ ~no Int\n\
\ def Int\n\
\\n\
\ DudeWeirdColumns\n\
\ name Text\n\
\ foo Int Maybe MigrationOnly\n\
\ bar Double SafeToRemove\n\
\ UniqueName name\n\
\ deriving Eq Show\n\
\\n\
\ -- | This is a doc comment for a relationship.\n\
\ -- Only the first line requires a pipe.\n\
\ -- | Pipes are optional on subsequent lines.\n\
\ Relationship\n\
\ -- | Fields should be documentable.\n\
\ name String\n\
\ parent RelationshipId Maybe\n\
\\n\
\ MutA\n\
\ mutB MutBId\n\
\\n\
\ MutB\n\
\ mutA MutAId\n\
\\n"
======>
[Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
34 26 39 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrOther
(Data.Text.unpackCStringLen#
"some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))]
True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
34 26 39 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Person1Id"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
40 26 46 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
40 26 46 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
47 26 49 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
47 26 49 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMayId"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
50 26 53 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
50 26 53 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
54 26 61 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
54 26 61 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
62 26 65 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
62 26 65 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NeedsPetId"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
69 26 70 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
69 26 70 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
71 26 74 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetCollar"# (ghc-prim:GHC.Types.I# 9#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
71 26 74 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
77 26 80 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
77 26 80 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"EmailPTId"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
81 26 85 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
81 26 85 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
87 26 93 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
87 26 93 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertById"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[],
UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
95 26 101 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
95 26 101 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"StrictId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
103 26 106 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
[] False
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
103 26 106 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
108 26 113 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrMigrationOnly, FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrSafeToRemove] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
108 26 113 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False
(Just
(Data.Text.unpackCStringLen#
"This is a doc comment for a relationship.\n\
\Only the first line requires a pipe.\n\
\Pipes are optional on subsequent lines.\n"#
(ghc-prim:GHC.Types.I# 119#)))
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
118 26 121 7)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing
(Just
(Data.Text.unpackCStringLen#
"Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))),
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
118 26 121 7)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
123 26 124 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
123 26 124 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
126 26 127 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
126 26 127 5))]
src/PersistentTestModels.hs:(26,1)-(128,2): Splicing declarations
share
[mkPersist persistSettings {mpsGeneric = True},
mkMigrate "testMigrate"]
([Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
34 26 39 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrOther
(Data.Text.unpackCStringLen#
"some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))]
True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
34 26 39 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Person1Id"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
40 26 46 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
40 26 46 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
47 26 49 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
47 26 49 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMayId"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
50 26 53 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
50 26 53 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
54 26 61 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
54 26 61 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
62 26 65 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
62 26 65 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NeedsPetId"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
69 26 70 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
69 26 70 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
71 26 74 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetCollar"# (ghc-prim:GHC.Types.I# 9#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
71 26 74 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
77 26 80 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
77 26 80 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"EmailPTId"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
81 26 85 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
81 26 85 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
87 26 93 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
87 26 93 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertById"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[],
UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
95 26 101 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
95 26 101 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"StrictId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
103 26 106 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
[] False
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
103 26 106 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
108 26 113 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrMigrationOnly, FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrSafeToRemove] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
108 26 113 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False
(Just
(Data.Text.unpackCStringLen#
"This is a doc comment for a relationship.\n\
\Only the first line requires a pipe.\n\
\Pipes are optional on subsequent lines.\n"#
(ghc-prim:GHC.Types.I# 119#)))
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
118 26 121 7)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing
(Just
(Data.Text.unpackCStringLen#
"Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))),
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
118 26 121 7)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
123 26 124 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
123 26 124 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
126 26 127 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
126 26 127 5))])
======>
instance PersistStore backend =>
PersistField (PersonGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "age", "color"]
instance PersistStore backend =>
PersistFieldSql (PersonGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (Person1Generic backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "age"]
instance PersistStore backend =>
PersistFieldSql (Person1Generic backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (PersonMaybeAgeGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "age"]
instance PersistStore backend =>
PersistFieldSql (PersonMaybeAgeGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (PersonMayGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "color"]
instance PersistStore backend =>
PersistFieldSql (PersonMayGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (PetGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["ownerId", "name", "type"]
instance PersistStore backend =>
PersistFieldSql (PetGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (MaybeOwnedPetGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["ownerId", "name", "type"]
instance PersistStore backend =>
PersistFieldSql (MaybeOwnedPetGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (NeedsPetGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["petKey"]
instance PersistStore backend =>
PersistFieldSql (NeedsPetGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (OutdoorPetGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["ownerId", "collar", "type"]
instance PersistStore backend =>
PersistFieldSql (OutdoorPetGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (UserPTGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["ident", "password"]
instance PersistStore backend =>
PersistFieldSql (UserPTGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (EmailPTGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["email", "user", "verkey"]
instance PersistStore backend =>
PersistFieldSql (EmailPTGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (UpsertGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["email", "attr", "extra", "age"]
instance PersistStore backend =>
PersistFieldSql (UpsertGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (UpsertByGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["email", "city", "attr"]
instance PersistStore backend =>
PersistFieldSql (UpsertByGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (StrictGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["yes", "no", "def"]
instance PersistStore backend =>
PersistFieldSql (StrictGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (DudeWeirdColumnsGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name"]
instance PersistStore backend =>
PersistFieldSql (DudeWeirdColumnsGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (RelationshipGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "parent"]
instance PersistStore backend =>
PersistFieldSql (RelationshipGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (MutAGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["mutB"]
instance PersistStore backend =>
PersistFieldSql (MutAGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (MutBGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["mutA"]
instance PersistStore backend =>
PersistFieldSql (MutBGeneric backend) where
sqlType _ = SqlString
type Person = PersonGeneric SqlBackend
data PersonGeneric backend
= Person {personName :: !Text,
personAge :: !Int,
personColor :: !(Maybe Text)}
deriving stock (Show, Eq)
type PersonId = Key Person
instance PersistStore backend =>
PersistEntity (PersonGeneric backend) where
type PersistEntityBackend (PersonGeneric backend) = backend
data Unique (PersonGeneric backend) = PersonNameKey Text
newtype Key (PersonGeneric backend)
= PersonKey {unPersonKey :: (BackendKey backend)}
data EntityField (PersonGeneric backend) typ
= (typ ~ Key (PersonGeneric backend)) => PersonId |
(typ ~ Text) => PersonName |
(typ ~ Int) => PersonAge |
(typ ~ Maybe Text) => PersonColor
keyToValues
= ((: [])
. (toPersistValue . (\ PersonKey {unPersonKey = x} -> x)))
keyFromValues
= (fmap PersonKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jjN
= ((Entity <$> fromField_a5jjN PersonId)
<*>
(((pure Person <*> fromField_a5jjN PersonName)
<*> fromField_a5jjN PersonAge)
<*> fromField_a5jjN PersonColor))
tabulateEntityApply fromField_a5jjM
= ((Entity <$> fromField_a5jjM PersonId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((Person <$> fromField_a5jjM PersonName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jjM PersonAge)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jjM PersonColor))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
34 26 39 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [FieldAttrOther
(Data.Text.unpackCStringLen#
"some=ignored -- \" attribute"#
(ghc-prim:GHC.Types.I#
27#))],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"color"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"color"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"#
(ghc-prim:GHC.Types.I#
8#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person x_a5jjm x_a5jjn x_a5jjo)
= [toPersistValue x_a5jjm, toPersistValue x_a5jjn,
toPersistValue x_a5jjo]
fromPersistValues [x1_a5jjq, x2_a5jjr, x3_a5jjs]
= Person
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a5jjq
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x2_a5jjr
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x3_a5jjs
fromPersistValues x_a5jjp
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jjp))
persistUniqueToFieldNames PersonNameKey {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
persistUniqueToValues (PersonNameKey x_a5jjt)
= [toPersistValue x_a5jjt]
persistUniqueKeys (Person _name_a5jju _age_a5jjv _color_a5jjw)
= [PersonNameKey _name_a5jju]
persistFieldDef PersonId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef PersonName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Person)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef PersonAge
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Person)
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
persistFieldDef PersonColor
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Person)
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
persistIdField = PersonId
fieldLens PersonId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jjy) key_a5jjz
-> Entity key_a5jjz value_a5jjy)
fieldLens PersonName
= Database.Persist.TH.Internal.lensPTH
((\ Person {personName = x} -> x) . entityVal)
(\ (Entity key_a5jjA value_a5jjB) x_a5jjC
-> Entity
key_a5jjA
(case value_a5jjB of
Person {personAge = personAge_a5jjE,
personColor = personColor_a5jjF}
-> Person
{personName = x_a5jjC, personAge = personAge,
personColor = personColor}))
fieldLens PersonAge
= Database.Persist.TH.Internal.lensPTH
((\ Person {personAge = x} -> x) . entityVal)
(\ (Entity key_a5jjA value_a5jjB) x_a5jjC
-> Entity
key_a5jjA
(case value_a5jjB of
Person {personName = personName_a5jjG,
personColor = personColor_a5jjI}
-> Person
{personName = personName, personAge = x_a5jjC,
personColor = personColor}))
fieldLens PersonColor
= Database.Persist.TH.Internal.lensPTH
((\ Person {personColor = x} -> x) . entityVal)
(\ (Entity key_a5jjA value_a5jjB) x_a5jjC
-> Entity
key_a5jjA
(case value_a5jjB of
Person {personName = personName_a5jjJ, personAge = personAge_a5jjK}
-> Person
{personName = personName, personAge = personAge,
personColor = x_a5jjC}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (PersonGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (PersonGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (PersonGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (PersonGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (PersonGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (PersonGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (PersonGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (PersonGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (PersonGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (PersonGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (PersonGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (PersonGeneric backend) where
toBackendKey = \ PersonKey {unPersonKey = x} -> x
fromBackendKey = PersonKey
type Person1 = Person1Generic SqlBackend
data Person1Generic backend
= Person1 {person1Name :: !Text, person1Age :: !Int}
deriving stock (Show, Eq)
type Person1Id = Key Person1
instance PersistStore backend =>
PersistEntity (Person1Generic backend) where
type PersistEntityBackend (Person1Generic backend) = backend
data Unique (Person1Generic backend)
newtype Key (Person1Generic backend)
= Person1Key {unPerson1Key :: (BackendKey backend)}
data EntityField (Person1Generic backend) typ
= (typ ~ Key (Person1Generic backend)) => Person1Id |
(typ ~ Text) => Person1Name |
(typ ~ Int) => Person1Age
keyToValues
= ((: [])
. (toPersistValue . (\ Person1Key {unPerson1Key = x} -> x)))
keyFromValues
= (fmap Person1Key
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jk6
= ((Entity <$> fromField_a5jk6 Person1Id)
<*>
((pure Person1 <*> fromField_a5jk6 Person1Name)
<*> fromField_a5jk6 Person1Age))
tabulateEntityApply fromField_a5jk5
= ((Entity <$> fromField_a5jk5 Person1Id)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((Person1 <$> fromField_a5jk5 Person1Name)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jk5 Person1Age))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Person1Id"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
40 26 46 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Person1Id"#
(ghc-prim:GHC.Types.I#
9#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person1 x_a5jjO x_a5jjP)
= [toPersistValue x_a5jjO, toPersistValue x_a5jjP]
fromPersistValues [x1_a5jjR, x2_a5jjS]
= Person1
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a5jjR
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x2_a5jjS
fromPersistValues x_a5jjQ
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a5jjQ))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Person1 _name_a5jjT _age_a5jjU) = []
persistFieldDef Person1Id
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Person1Id"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef Person1Name
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Person1)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef Person1Age
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Person1)
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
persistIdField = Person1Id
fieldLens Person1Id
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jjW) key_a5jjX
-> Entity key_a5jjX value_a5jjW)
fieldLens Person1Name
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Name = x} -> x) . entityVal)
(\ (Entity key_a5jjY value_a5jjZ) x_a5jk0
-> Entity
key_a5jjY
(case value_a5jjZ of
Person1 {person1Age = person1Age_a5jk2}
-> Person1 {person1Name = x_a5jk0, person1Age = person1Age}))
fieldLens Person1Age
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Age = x} -> x) . entityVal)
(\ (Entity key_a5jjY value_a5jjZ) x_a5jk0
-> Entity
key_a5jjY
(case value_a5jjZ of
Person1 {person1Name = person1Name_a5jk3}
-> Person1 {person1Name = person1Name, person1Age = x_a5jk0}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (Person1Generic backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (Person1Generic backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (Person1Generic backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (Person1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (Person1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (Person1Generic backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (Person1Generic backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (Person1Generic backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (Person1Generic backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (Person1Generic backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (Person1Generic backend))
instance PersistStore backend =>
ToBackendKey backend (Person1Generic backend) where
toBackendKey = \ Person1Key {unPerson1Key = x} -> x
fromBackendKey = Person1Key
type PersonMaybeAge = PersonMaybeAgeGeneric SqlBackend
data PersonMaybeAgeGeneric backend
= PersonMaybeAge {personMaybeAgeName :: !Text,
personMaybeAgeAge :: !(Maybe Int)}
type PersonMaybeAgeId = Key PersonMaybeAge
instance PersistStore backend =>
PersistEntity (PersonMaybeAgeGeneric backend) where
type PersistEntityBackend (PersonMaybeAgeGeneric backend) = backend
data Unique (PersonMaybeAgeGeneric backend)
newtype Key (PersonMaybeAgeGeneric backend)
= PersonMaybeAgeKey {unPersonMaybeAgeKey :: (BackendKey backend)}
data EntityField (PersonMaybeAgeGeneric backend) typ
= (typ ~ Key (PersonMaybeAgeGeneric backend)) => PersonMaybeAgeId |
(typ ~ Text) => PersonMaybeAgeName |
(typ ~ Maybe Int) => PersonMaybeAgeAge
keyToValues
= ((: [])
. (toPersistValue
. (\ PersonMaybeAgeKey {unPersonMaybeAgeKey = x} -> x)))
keyFromValues
= (fmap PersonMaybeAgeKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jkp
= ((Entity <$> fromField_a5jkp PersonMaybeAgeId)
<*>
((pure PersonMaybeAge <*> fromField_a5jkp PersonMaybeAgeName)
<*> fromField_a5jkp PersonMaybeAgeAge))
tabulateEntityApply fromField_a5jko
= ((Entity <$> fromField_a5jko PersonMaybeAgeId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((PersonMaybeAge <$> fromField_a5jko PersonMaybeAgeName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jko PersonMaybeAgeAge))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
47 26 49 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMaybeAgeId"#
(ghc-prim:GHC.Types.I#
16#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMaybeAge x_a5jk7 x_a5jk8)
= [toPersistValue x_a5jk7, toPersistValue x_a5jk8]
fromPersistValues [x1_a5jka, x2_a5jkb]
= PersonMaybeAge
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a5jka
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x2_a5jkb
fromPersistValues x_a5jk9
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMaybeAge: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 45#))
(Data.Text.Internal.pack $ show x_a5jk9))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMaybeAge _name_a5jkc _age_a5jkd) = []
persistFieldDef PersonMaybeAgeId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef PersonMaybeAgeName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy PersonMaybeAge)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef PersonMaybeAgeAge
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy PersonMaybeAge)
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
persistIdField = PersonMaybeAgeId
fieldLens PersonMaybeAgeId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jkf) key_a5jkg
-> Entity key_a5jkg value_a5jkf)
fieldLens PersonMaybeAgeName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeName = x} -> x) . entityVal)
(\ (Entity key_a5jkh value_a5jki) x_a5jkj
-> Entity
key_a5jkh
(case value_a5jki of
PersonMaybeAge {personMaybeAgeAge = personMaybeAgeAge_a5jkl}
-> PersonMaybeAge
{personMaybeAgeName = x_a5jkj,
personMaybeAgeAge = personMaybeAgeAge}))
fieldLens PersonMaybeAgeAge
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeAge = x} -> x) . entityVal)
(\ (Entity key_a5jkh value_a5jki) x_a5jkj
-> Entity
key_a5jkh
(case value_a5jki of
PersonMaybeAge {personMaybeAgeName = personMaybeAgeName_a5jkm}
-> PersonMaybeAge
{personMaybeAgeName = personMaybeAgeName,
personMaybeAgeAge = x_a5jkj}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (PersonMaybeAgeGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (PersonMaybeAgeGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (PersonMaybeAgeGeneric backend) where
toBackendKey = \ PersonMaybeAgeKey {unPersonMaybeAgeKey = x} -> x
fromBackendKey = PersonMaybeAgeKey
type PersonMay = PersonMayGeneric SqlBackend
data PersonMayGeneric backend
= PersonMay {personMayName :: !(Maybe Text),
personMayColor :: !(Maybe Text)}
deriving stock (Show, Eq)
type PersonMayId = Key PersonMay
instance PersistStore backend =>
PersistEntity (PersonMayGeneric backend) where
type PersistEntityBackend (PersonMayGeneric backend) = backend
data Unique (PersonMayGeneric backend)
newtype Key (PersonMayGeneric backend)
= PersonMayKey {unPersonMayKey :: (BackendKey backend)}
data EntityField (PersonMayGeneric backend) typ
= (typ ~ Key (PersonMayGeneric backend)) => PersonMayId |
(typ ~ Maybe Text) => PersonMayName |
(typ ~ Maybe Text) => PersonMayColor
keyToValues
= ((: [])
. (toPersistValue . (\ PersonMayKey {unPersonMayKey = x} -> x)))
keyFromValues
= (fmap PersonMayKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jkI
= ((Entity <$> fromField_a5jkI PersonMayId)
<*>
((pure PersonMay <*> fromField_a5jkI PersonMayName)
<*> fromField_a5jkI PersonMayColor))
tabulateEntityApply fromField_a5jkH
= ((Entity <$> fromField_a5jkH PersonMayId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((PersonMay <$> fromField_a5jkH PersonMayName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jkH PersonMayColor))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMayId"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
50 26 53 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"color"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"color"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMayId"#
(ghc-prim:GHC.Types.I#
11#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMay x_a5jkq x_a5jkr)
= [toPersistValue x_a5jkq, toPersistValue x_a5jkr]
fromPersistValues [x1_a5jkt, x2_a5jku]
= PersonMay
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a5jkt
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#))
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x2_a5jku
fromPersistValues x_a5jks
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMay: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a5jks))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMay _name_a5jkv _color_a5jkw) = []
persistFieldDef PersonMayId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMayId"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef PersonMayName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy PersonMay)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef PersonMayColor
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy PersonMay)
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
persistIdField = PersonMayId
fieldLens PersonMayId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jky) key_a5jkz
-> Entity key_a5jkz value_a5jky)
fieldLens PersonMayName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayName = x} -> x) . entityVal)
(\ (Entity key_a5jkA value_a5jkB) x_a5jkC
-> Entity
key_a5jkA
(case value_a5jkB of
PersonMay {personMayColor = personMayColor_a5jkE}
-> PersonMay
{personMayName = x_a5jkC, personMayColor = personMayColor}))
fieldLens PersonMayColor
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayColor = x} -> x) . entityVal)
(\ (Entity key_a5jkA value_a5jkB) x_a5jkC
-> Entity
key_a5jkA
(case value_a5jkB of
PersonMay {personMayName = personMayName_a5jkF}
-> PersonMay
{personMayName = personMayName, personMayColor = x_a5jkC}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (PersonMayGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (PersonMayGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (PersonMayGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (PersonMayGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (PersonMayGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (PersonMayGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (PersonMayGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (PersonMayGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (PersonMayGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (PersonMayGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (PersonMayGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (PersonMayGeneric backend) where
toBackendKey = \ PersonMayKey {unPersonMayKey = x} -> x
fromBackendKey = PersonMayKey
type Pet = PetGeneric SqlBackend
data PetGeneric backend
= Pet {petOwnerId :: !(Key (PersonGeneric backend)),
petName :: !Text,
petType :: !PetType}
type PetId = Key Pet
instance PersistStore backend =>
PersistEntity (PetGeneric backend) where
type PersistEntityBackend (PetGeneric backend) = backend
data Unique (PetGeneric backend)
newtype Key (PetGeneric backend)
= PetKey {unPetKey :: (BackendKey backend)}
data EntityField (PetGeneric backend) typ
= (typ ~ Key (PetGeneric backend)) => PetId |
(typ ~ Key (PersonGeneric backend)) => PetOwnerId |
(typ ~ Text) => PetName |
(typ ~ PetType) => PetType
keyToValues
= ((: []) . (toPersistValue . (\ PetKey {unPetKey = x} -> x)))
keyFromValues
= (fmap PetKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jl9
= ((Entity <$> fromField_a5jl9 PetId)
<*>
(((pure Pet <*> fromField_a5jl9 PetOwnerId)
<*> fromField_a5jl9 PetName)
<*> fromField_a5jl9 PetType))
tabulateEntityApply fromField_a5jl8
= ((Entity <$> fromField_a5jl8 PetId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((Pet <$> fromField_a5jl8 PetOwnerId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jl8 PetName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jl8 PetType))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
54 26 61 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"#
(ghc-prim:GHC.Types.I#
8#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PersonId),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person"#
(ghc-prim:GHC.Types.I#
6#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"#
(ghc-prim:GHC.Types.I#
7#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PetType),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetId"#
(ghc-prim:GHC.Types.I#
5#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Pet x_a5jkJ x_a5jkK x_a5jkL)
= [toPersistValue x_a5jkJ, toPersistValue x_a5jkK,
toPersistValue x_a5jkL]
fromPersistValues [x1_a5jkN, x2_a5jkO, x3_a5jkP]
= Pet
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
. fromPersistValue)
x1_a5jkN
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x2_a5jkO
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x3_a5jkP
fromPersistValues x_a5jkM
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Pet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 34#))
(Data.Text.Internal.pack $ show x_a5jkM))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Pet _ownerId_a5jkQ _name_a5jkR _type_a5jkS) = []
persistFieldDef PetId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef PetOwnerId
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Pet)
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
persistFieldDef PetName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Pet)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef PetType
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Pet)
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = PetId
fieldLens PetId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jkU) key_a5jkV
-> Entity key_a5jkV value_a5jkU)
fieldLens PetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petOwnerId = x} -> x) . entityVal)
(\ (Entity key_a5jkW value_a5jkX) x_a5jkY
-> Entity
key_a5jkW
(case value_a5jkX of
Pet {petName = petName_a5jl0, petType = petType_a5jl1}
-> Pet
{petOwnerId = x_a5jkY, petName = petName, petType = petType}))
fieldLens PetName
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petName = x} -> x) . entityVal)
(\ (Entity key_a5jkW value_a5jkX) x_a5jkY
-> Entity
key_a5jkW
(case value_a5jkX of
Pet {petOwnerId = petOwnerId_a5jl2, petType = petType_a5jl4}
-> Pet
{petOwnerId = petOwnerId, petName = x_a5jkY, petType = petType}))
fieldLens PetType
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petType = x} -> x) . entityVal)
(\ (Entity key_a5jkW value_a5jkX) x_a5jkY
-> Entity
key_a5jkW
(case value_a5jkX of
Pet {petOwnerId = petOwnerId_a5jl5, petName = petName_a5jl6}
-> Pet
{petOwnerId = petOwnerId, petName = petName, petType = x_a5jkY}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (PetGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (PetGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (PetGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (PetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (PetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (PetGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (PetGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (PetGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (PetGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (PetGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (PetGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (PetGeneric backend) where
toBackendKey = \ PetKey {unPetKey = x} -> x
fromBackendKey = PetKey
type MaybeOwnedPet = MaybeOwnedPetGeneric SqlBackend
data MaybeOwnedPetGeneric backend
= MaybeOwnedPet {maybeOwnedPetOwnerId :: !(Maybe (Key (PersonGeneric backend))),
maybeOwnedPetName :: !Text,
maybeOwnedPetType :: !PetType}
type MaybeOwnedPetId = Key MaybeOwnedPet
instance PersistStore backend =>
PersistEntity (MaybeOwnedPetGeneric backend) where
type PersistEntityBackend (MaybeOwnedPetGeneric backend) = backend
data Unique (MaybeOwnedPetGeneric backend)
newtype Key (MaybeOwnedPetGeneric backend)
= MaybeOwnedPetKey {unMaybeOwnedPetKey :: (BackendKey backend)}
data EntityField (MaybeOwnedPetGeneric backend) typ
= (typ ~ Key (MaybeOwnedPetGeneric backend)) => MaybeOwnedPetId |
(typ ~ Maybe (Key (PersonGeneric backend))) =>
MaybeOwnedPetOwnerId |
(typ ~ Text) => MaybeOwnedPetName |
(typ ~ PetType) => MaybeOwnedPetType
keyToValues
= ((: [])
. (toPersistValue
. (\ MaybeOwnedPetKey {unMaybeOwnedPetKey = x} -> x)))
keyFromValues
= (fmap MaybeOwnedPetKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jlA
= ((Entity <$> fromField_a5jlA MaybeOwnedPetId)
<*>
(((pure MaybeOwnedPet <*> fromField_a5jlA MaybeOwnedPetOwnerId)
<*> fromField_a5jlA MaybeOwnedPetName)
<*> fromField_a5jlA MaybeOwnedPetType))
tabulateEntityApply fromField_a5jlz
= ((Entity <$> fromField_a5jlz MaybeOwnedPetId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((MaybeOwnedPet <$> fromField_a5jlz MaybeOwnedPetOwnerId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jlz MaybeOwnedPetName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jlz MaybeOwnedPetType))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
62 26 65 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"#
(ghc-prim:GHC.Types.I#
8#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PersonId),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person"#
(ghc-prim:GHC.Types.I#
6#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"#
(ghc-prim:GHC.Types.I#
7#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PetType),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MaybeOwnedPetId"#
(ghc-prim:GHC.Types.I#
15#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MaybeOwnedPet x_a5jla x_a5jlb x_a5jlc)
= [toPersistValue x_a5jla, toPersistValue x_a5jlb,
toPersistValue x_a5jlc]
fromPersistValues [x1_a5jle, x2_a5jlf, x3_a5jlg]
= MaybeOwnedPet
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
. fromPersistValue)
x1_a5jle
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x2_a5jlf
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x3_a5jlg
fromPersistValues x_a5jld
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MaybeOwnedPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a5jld))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(MaybeOwnedPet _ownerId_a5jlh _name_a5jli _type_a5jlj)
= []
persistFieldDef MaybeOwnedPetId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef MaybeOwnedPetOwnerId
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy MaybeOwnedPet)
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
persistFieldDef MaybeOwnedPetName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy MaybeOwnedPet)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef MaybeOwnedPetType
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy MaybeOwnedPet)
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = MaybeOwnedPetId
fieldLens MaybeOwnedPetId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jll) key_a5jlm
-> Entity key_a5jlm value_a5jll)
fieldLens MaybeOwnedPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a5jln value_a5jlo) x_a5jlp
-> Entity
key_a5jln
(case value_a5jlo of
MaybeOwnedPet {maybeOwnedPetName = maybeOwnedPetName_a5jlr,
maybeOwnedPetType = maybeOwnedPetType_a5jls}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = x_a5jlp,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetName
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetName = x} -> x) . entityVal)
(\ (Entity key_a5jln value_a5jlo) x_a5jlp
-> Entity
key_a5jln
(case value_a5jlo of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a5jlt,
maybeOwnedPetType = maybeOwnedPetType_a5jlv}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = x_a5jlp,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetType
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetType = x} -> x) . entityVal)
(\ (Entity key_a5jln value_a5jlo) x_a5jlp
-> Entity
key_a5jln
(case value_a5jlo of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a5jlw,
maybeOwnedPetName = maybeOwnedPetName_a5jlx}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = x_a5jlp}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (MaybeOwnedPetGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (MaybeOwnedPetGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (MaybeOwnedPetGeneric backend) where
toBackendKey = \ MaybeOwnedPetKey {unMaybeOwnedPetKey = x} -> x
fromBackendKey = MaybeOwnedPetKey
type NeedsPet = NeedsPetGeneric SqlBackend
data NeedsPetGeneric backend
= NeedsPet {needsPetPetKey :: !(Key (PetGeneric backend))}
type NeedsPetId = Key NeedsPet
instance PersistStore backend =>
PersistEntity (NeedsPetGeneric backend) where
type PersistEntityBackend (NeedsPetGeneric backend) = backend
data Unique (NeedsPetGeneric backend)
newtype Key (NeedsPetGeneric backend)
= NeedsPetKey {unNeedsPetKey :: (BackendKey backend)}
data EntityField (NeedsPetGeneric backend) typ
= (typ ~ Key (NeedsPetGeneric backend)) => NeedsPetId |
(typ ~ Key (PetGeneric backend)) => NeedsPetPetKey
keyToValues
= ((: [])
. (toPersistValue . (\ NeedsPetKey {unNeedsPetKey = x} -> x)))
keyFromValues
= (fmap NeedsPetKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jlN
= ((Entity <$> fromField_a5jlN NeedsPetId)
<*> (pure NeedsPet <*> fromField_a5jlN NeedsPetPetKey))
tabulateEntityApply fromField_a5jlM
= ((Entity <$> fromField_a5jlM NeedsPetId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(NeedsPet <$> fromField_a5jlM NeedsPetPetKey))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NeedsPetId"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
69 26 70 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"petKey"#
(ghc-prim:GHC.Types.I#
6#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"petKey"#
(ghc-prim:GHC.Types.I#
6#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetId"#
(ghc-prim:GHC.Types.I#
5#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PetId),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Pet"#
(ghc-prim:GHC.Types.I#
3#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NeedsPetId"#
(ghc-prim:GHC.Types.I#
10#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NeedsPet x_a5jlB) = [toPersistValue x_a5jlB]
fromPersistValues [x1_a5jlD]
= NeedsPet
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#))
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
. fromPersistValue)
x1_a5jlD
fromPersistValues x_a5jlC
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NeedsPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a5jlC))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NeedsPet _petKey_a5jlE) = []
persistFieldDef NeedsPetId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NeedsPetId"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef NeedsPetPetKey
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NeedsPet)
(FieldNameHS
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
persistIdField = NeedsPetId
fieldLens NeedsPetId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jlG) key_a5jlH
-> Entity key_a5jlH value_a5jlG)
fieldLens NeedsPetPetKey
= Database.Persist.TH.Internal.lensPTH
((\ NeedsPet {needsPetPetKey = x} -> x) . entityVal)
(\ (Entity key_a5jlI value_a5jlJ) x_a5jlK
-> Entity
key_a5jlI
(case value_a5jlJ of
NeedsPet {} -> NeedsPet {needsPetPetKey = x_a5jlK}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (NeedsPetGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (NeedsPetGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (NeedsPetGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (NeedsPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (NeedsPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (NeedsPetGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (NeedsPetGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (NeedsPetGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (NeedsPetGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (NeedsPetGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (NeedsPetGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (NeedsPetGeneric backend) where
toBackendKey = \ NeedsPetKey {unNeedsPetKey = x} -> x
fromBackendKey = NeedsPetKey
type OutdoorPet = OutdoorPetGeneric SqlBackend
data OutdoorPetGeneric backend
= OutdoorPet {outdoorPetOwnerId :: !(Key (PersonGeneric backend)),
outdoorPetCollar :: !PetCollar,
outdoorPetType :: !PetType}
type OutdoorPetId = Key OutdoorPet
instance PersistStore backend =>
PersistEntity (OutdoorPetGeneric backend) where
type PersistEntityBackend (OutdoorPetGeneric backend) = backend
data Unique (OutdoorPetGeneric backend)
newtype Key (OutdoorPetGeneric backend)
= OutdoorPetKey {unOutdoorPetKey :: (BackendKey backend)}
data EntityField (OutdoorPetGeneric backend) typ
= (typ ~ Key (OutdoorPetGeneric backend)) => OutdoorPetId |
(typ ~ Key (PersonGeneric backend)) => OutdoorPetOwnerId |
(typ ~ PetCollar) => OutdoorPetCollar |
(typ ~ PetType) => OutdoorPetType
keyToValues
= ((: [])
. (toPersistValue . (\ OutdoorPetKey {unOutdoorPetKey = x} -> x)))
keyFromValues
= (fmap OutdoorPetKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jme
= ((Entity <$> fromField_a5jme OutdoorPetId)
<*>
(((pure OutdoorPet <*> fromField_a5jme OutdoorPetOwnerId)
<*> fromField_a5jme OutdoorPetCollar)
<*> fromField_a5jme OutdoorPetType))
tabulateEntityApply fromField_a5jmd
= ((Entity <$> fromField_a5jmd OutdoorPetId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((OutdoorPet <$> fromField_a5jmd OutdoorPetOwnerId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jmd OutdoorPetCollar)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jmd OutdoorPetType))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
71 26 74 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"#
(ghc-prim:GHC.Types.I#
8#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PersonId),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person"#
(ghc-prim:GHC.Types.I#
6#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"collar"#
(ghc-prim:GHC.Types.I#
6#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"collar"#
(ghc-prim:GHC.Types.I#
6#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetCollar"#
(ghc-prim:GHC.Types.I#
9#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PetCollar),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"#
(ghc-prim:GHC.Types.I#
7#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PetType),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"OutdoorPetId"#
(ghc-prim:GHC.Types.I#
12#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (OutdoorPet x_a5jlO x_a5jlP x_a5jlQ)
= [toPersistValue x_a5jlO, toPersistValue x_a5jlP,
toPersistValue x_a5jlQ]
fromPersistValues [x1_a5jlS, x2_a5jlT, x3_a5jlU]
= OutdoorPet
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
. fromPersistValue)
x1_a5jlS
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
. fromPersistValue)
x2_a5jlT
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x3_a5jlU
fromPersistValues x_a5jlR
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"OutdoorPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 41#))
(Data.Text.Internal.pack $ show x_a5jlR))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(OutdoorPet _ownerId_a5jlV _collar_a5jlW _type_a5jlX)
= []
persistFieldDef OutdoorPetId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef OutdoorPetOwnerId
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy OutdoorPet)
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
persistFieldDef OutdoorPetCollar
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy OutdoorPet)
(FieldNameHS
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
persistFieldDef OutdoorPetType
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy OutdoorPet)
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = OutdoorPetId
fieldLens OutdoorPetId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jlZ) key_a5jm0
-> Entity key_a5jm0 value_a5jlZ)
fieldLens OutdoorPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a5jm1 value_a5jm2) x_a5jm3
-> Entity
key_a5jm1
(case value_a5jm2 of
OutdoorPet {outdoorPetCollar = outdoorPetCollar_a5jm5,
outdoorPetType = outdoorPetType_a5jm6}
-> OutdoorPet
{outdoorPetOwnerId = x_a5jm3, outdoorPetCollar = outdoorPetCollar,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetCollar
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetCollar = x} -> x) . entityVal)
(\ (Entity key_a5jm1 value_a5jm2) x_a5jm3
-> Entity
key_a5jm1
(case value_a5jm2 of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a5jm7,
outdoorPetType = outdoorPetType_a5jm9}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = x_a5jm3,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetType
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetType = x} -> x) . entityVal)
(\ (Entity key_a5jm1 value_a5jm2) x_a5jm3
-> Entity
key_a5jm1
(case value_a5jm2 of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a5jma,
outdoorPetCollar = outdoorPetCollar_a5jmb}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId,
outdoorPetCollar = outdoorPetCollar, outdoorPetType = x_a5jm3}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (OutdoorPetGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (OutdoorPetGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (OutdoorPetGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (OutdoorPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (OutdoorPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (OutdoorPetGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (OutdoorPetGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (OutdoorPetGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (OutdoorPetGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (OutdoorPetGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (OutdoorPetGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (OutdoorPetGeneric backend) where
toBackendKey = \ OutdoorPetKey {unOutdoorPetKey = x} -> x
fromBackendKey = OutdoorPetKey
type UserPT = UserPTGeneric SqlBackend
data UserPTGeneric backend
= UserPT {userPTIdent :: !Text, userPTPassword :: !(Maybe Text)}
type UserPTId = Key UserPT
instance PersistStore backend =>
PersistEntity (UserPTGeneric backend) where
type PersistEntityBackend (UserPTGeneric backend) = backend
data Unique (UserPTGeneric backend) = UniqueUserPT Text
newtype Key (UserPTGeneric backend)
= UserPTKey {unUserPTKey :: (BackendKey backend)}
data EntityField (UserPTGeneric backend) typ
= (typ ~ Key (UserPTGeneric backend)) => UserPTId |
(typ ~ Text) => UserPTIdent |
(typ ~ Maybe Text) => UserPTPassword
keyToValues
= ((: [])
. (toPersistValue . (\ UserPTKey {unUserPTKey = x} -> x)))
keyFromValues
= (fmap UserPTKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jmy
= ((Entity <$> fromField_a5jmy UserPTId)
<*>
((pure UserPT <*> fromField_a5jmy UserPTIdent)
<*> fromField_a5jmy UserPTPassword))
tabulateEntityApply fromField_a5jmx
= ((Entity <$> fromField_a5jmx UserPTId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((UserPT <$> fromField_a5jmx UserPTIdent)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jmx UserPTPassword))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
77 26 80 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"ident"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"ident"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"password"#
(ghc-prim:GHC.Types.I#
8#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"password"#
(ghc-prim:GHC.Types.I#
8#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"#
(ghc-prim:GHC.Types.I#
8#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UserPT x_a5jmf x_a5jmg)
= [toPersistValue x_a5jmf, toPersistValue x_a5jmg]
fromPersistValues [x1_a5jmi, x2_a5jmj]
= UserPT
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x1_a5jmi
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
. fromPersistValue)
x2_a5jmj
fromPersistValues x_a5jmh
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UserPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jmh))
persistUniqueToFieldNames UniqueUserPT {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
persistUniqueToValues (UniqueUserPT x_a5jmk)
= [toPersistValue x_a5jmk]
persistUniqueKeys (UserPT _ident_a5jml _password_a5jmm)
= [UniqueUserPT _ident_a5jml]
persistFieldDef UserPTId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef UserPTIdent
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy UserPT)
(FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
persistFieldDef UserPTPassword
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy UserPT)
(FieldNameHS
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
persistIdField = UserPTId
fieldLens UserPTId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jmo) key_a5jmp
-> Entity key_a5jmp value_a5jmo)
fieldLens UserPTIdent
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTIdent = x} -> x) . entityVal)
(\ (Entity key_a5jmq value_a5jmr) x_a5jms
-> Entity
key_a5jmq
(case value_a5jmr of
UserPT {userPTPassword = userPTPassword_a5jmu}
-> UserPT
{userPTIdent = x_a5jms, userPTPassword = userPTPassword}))
fieldLens UserPTPassword
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTPassword = x} -> x) . entityVal)
(\ (Entity key_a5jmq value_a5jmr) x_a5jms
-> Entity
key_a5jmq
(case value_a5jmr of
UserPT {userPTIdent = userPTIdent_a5jmv}
-> UserPT {userPTIdent = userPTIdent, userPTPassword = x_a5jms}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (UserPTGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (UserPTGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (UserPTGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (UserPTGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (UserPTGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (UserPTGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (UserPTGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (UserPTGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (UserPTGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (UserPTGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (UserPTGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (UserPTGeneric backend) where
toBackendKey = \ UserPTKey {unUserPTKey = x} -> x
fromBackendKey = UserPTKey
type EmailPT = EmailPTGeneric SqlBackend
data EmailPTGeneric backend
= EmailPT {emailPTEmail :: !Text,
emailPTUser :: !(Maybe (Key (UserPTGeneric backend))),
emailPTVerkey :: !(Maybe Text)}
type EmailPTId = Key EmailPT
instance PersistStore backend =>
PersistEntity (EmailPTGeneric backend) where
type PersistEntityBackend (EmailPTGeneric backend) = backend
data Unique (EmailPTGeneric backend) = UniqueEmailPT Text
newtype Key (EmailPTGeneric backend)
= EmailPTKey {unEmailPTKey :: (BackendKey backend)}
data EntityField (EmailPTGeneric backend) typ
= (typ ~ Key (EmailPTGeneric backend)) => EmailPTId |
(typ ~ Text) => EmailPTEmail |
(typ ~ Maybe (Key (UserPTGeneric backend))) => EmailPTUser |
(typ ~ Maybe Text) => EmailPTVerkey
keyToValues
= ((: [])
. (toPersistValue . (\ EmailPTKey {unEmailPTKey = x} -> x)))
keyFromValues
= (fmap EmailPTKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jn0
= ((Entity <$> fromField_a5jn0 EmailPTId)
<*>
(((pure EmailPT <*> fromField_a5jn0 EmailPTEmail)
<*> fromField_a5jn0 EmailPTUser)
<*> fromField_a5jn0 EmailPTVerkey))
tabulateEntityApply fromField_a5jmZ
= ((Entity <$> fromField_a5jmZ EmailPTId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((EmailPT <$> fromField_a5jmZ EmailPTEmail)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jmZ EmailPTUser)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jmZ EmailPTVerkey))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"EmailPTId"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
81 26 85 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"user"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"user"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"#
(ghc-prim:GHC.Types.I#
8#)),
fieldSqlType = sqlType
(Proxy ::
Proxy UserPTId),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"UserPT"#
(ghc-prim:GHC.Types.I#
6#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"verkey"#
(ghc-prim:GHC.Types.I#
6#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"verkey"#
(ghc-prim:GHC.Types.I#
6#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"EmailPTId"#
(ghc-prim:GHC.Types.I#
9#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (EmailPT x_a5jmz x_a5jmA x_a5jmB)
= [toPersistValue x_a5jmz, toPersistValue x_a5jmA,
toPersistValue x_a5jmB]
fromPersistValues [x1_a5jmD, x2_a5jmE, x3_a5jmF]
= EmailPT
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x1_a5jmD
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x2_a5jmE
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
. fromPersistValue)
x3_a5jmF
fromPersistValues x_a5jmC
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"EmailPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a5jmC))
persistUniqueToFieldNames UniqueEmailPT {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
persistUniqueToValues (UniqueEmailPT x_a5jmG)
= [toPersistValue x_a5jmG]
persistUniqueKeys (EmailPT _email_a5jmH _user_a5jmI _verkey_a5jmJ)
= [UniqueEmailPT _email_a5jmH]
persistFieldDef EmailPTId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"EmailPTId"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef EmailPTEmail
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy EmailPT)
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
persistFieldDef EmailPTUser
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy EmailPT)
(FieldNameHS
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef EmailPTVerkey
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy EmailPT)
(FieldNameHS
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
persistIdField = EmailPTId
fieldLens EmailPTId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jmL) key_a5jmM
-> Entity key_a5jmM value_a5jmL)
fieldLens EmailPTEmail
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTEmail = x} -> x) . entityVal)
(\ (Entity key_a5jmN value_a5jmO) x_a5jmP
-> Entity
key_a5jmN
(case value_a5jmO of
EmailPT {emailPTUser = emailPTUser_a5jmR,
emailPTVerkey = emailPTVerkey_a5jmS}
-> EmailPT
{emailPTEmail = x_a5jmP, emailPTUser = emailPTUser,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTUser
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTUser = x} -> x) . entityVal)
(\ (Entity key_a5jmN value_a5jmO) x_a5jmP
-> Entity
key_a5jmN
(case value_a5jmO of
EmailPT {emailPTEmail = emailPTEmail_a5jmT,
emailPTVerkey = emailPTVerkey_a5jmV}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = x_a5jmP,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTVerkey
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTVerkey = x} -> x) . entityVal)
(\ (Entity key_a5jmN value_a5jmO) x_a5jmP
-> Entity
key_a5jmN
(case value_a5jmO of
EmailPT {emailPTEmail = emailPTEmail_a5jmW,
emailPTUser = emailPTUser_a5jmX}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = emailPTUser,
emailPTVerkey = x_a5jmP}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (EmailPTGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (EmailPTGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (EmailPTGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (EmailPTGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (EmailPTGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (EmailPTGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (EmailPTGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (EmailPTGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (EmailPTGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (EmailPTGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (EmailPTGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (EmailPTGeneric backend) where
toBackendKey = \ EmailPTKey {unEmailPTKey = x} -> x
fromBackendKey = EmailPTKey
type Upsert = UpsertGeneric SqlBackend
data UpsertGeneric backend
= Upsert {upsertEmail :: !Text,
upsertAttr :: !Text,
upsertExtra :: !Text,
upsertAge :: !Int}
deriving stock (Eq, Show)
type UpsertId = Key Upsert
instance PersistStore backend =>
PersistEntity (UpsertGeneric backend) where
type PersistEntityBackend (UpsertGeneric backend) = backend
data Unique (UpsertGeneric backend) = UniqueUpsert Text
newtype Key (UpsertGeneric backend)
= UpsertKey {unUpsertKey :: (BackendKey backend)}
data EntityField (UpsertGeneric backend) typ
= (typ ~ Key (UpsertGeneric backend)) => UpsertId |
(typ ~ Text) => UpsertEmail |
(typ ~ Text) => UpsertAttr |
(typ ~ Text) => UpsertExtra |
(typ ~ Int) => UpsertAge
keyToValues
= ((: [])
. (toPersistValue . (\ UpsertKey {unUpsertKey = x} -> x)))
keyFromValues
= (fmap UpsertKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jnC
= ((Entity <$> fromField_a5jnC UpsertId)
<*>
((((pure Upsert <*> fromField_a5jnC UpsertEmail)
<*> fromField_a5jnC UpsertAttr)
<*> fromField_a5jnC UpsertExtra)
<*> fromField_a5jnC UpsertAge))
tabulateEntityApply fromField_a5jnB
= ((Entity <$> fromField_a5jnB UpsertId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((((Upsert <$> fromField_a5jnB UpsertEmail)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jnB UpsertAttr)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jnB UpsertExtra)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jnB UpsertAge))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
87 26 93 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"attr"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"attr"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"extra"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"extra"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertId"#
(ghc-prim:GHC.Types.I#
8#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Upsert x_a5jn1 x_a5jn2 x_a5jn3 x_a5jn4)
= [toPersistValue x_a5jn1, toPersistValue x_a5jn2,
toPersistValue x_a5jn3, toPersistValue x_a5jn4]
fromPersistValues [x1_a5jn6, x2_a5jn7, x3_a5jn8, x4_a5jn9]
= Upsert
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x1_a5jn6
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x2_a5jn7
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x3_a5jn8
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x4_a5jn9
fromPersistValues x_a5jn5
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Upsert: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jn5))
persistUniqueToFieldNames UniqueUpsert {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
persistUniqueToValues (UniqueUpsert x_a5jna)
= [toPersistValue x_a5jna]
persistUniqueKeys
(Upsert _email_a5jnb _attr_a5jnc _extra_a5jnd _age_a5jne)
= [UniqueUpsert _email_a5jnb]
persistFieldDef UpsertId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef UpsertEmail
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Upsert)
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
persistFieldDef UpsertAttr
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Upsert)
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef UpsertExtra
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Upsert)
(FieldNameHS
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
persistFieldDef UpsertAge
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Upsert)
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
persistIdField = UpsertId
fieldLens UpsertId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jng) key_a5jnh
-> Entity key_a5jnh value_a5jng)
fieldLens UpsertEmail
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertEmail = x} -> x) . entityVal)
(\ (Entity key_a5jni value_a5jnj) x_a5jnk
-> Entity
key_a5jni
(case value_a5jnj of
Upsert {upsertAttr = upsertAttr_a5jnm,
upsertExtra = upsertExtra_a5jnn, upsertAge = upsertAge_a5jno}
-> Upsert
{upsertEmail = x_a5jnk, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertAttr
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAttr = x} -> x) . entityVal)
(\ (Entity key_a5jni value_a5jnj) x_a5jnk
-> Entity
key_a5jni
(case value_a5jnj of
Upsert {upsertEmail = upsertEmail_a5jnp,
upsertExtra = upsertExtra_a5jnr, upsertAge = upsertAge_a5jns}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = x_a5jnk,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertExtra
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertExtra = x} -> x) . entityVal)
(\ (Entity key_a5jni value_a5jnj) x_a5jnk
-> Entity
key_a5jni
(case value_a5jnj of
Upsert {upsertEmail = upsertEmail_a5jnt,
upsertAttr = upsertAttr_a5jnu, upsertAge = upsertAge_a5jnw}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = x_a5jnk, upsertAge = upsertAge}))
fieldLens UpsertAge
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAge = x} -> x) . entityVal)
(\ (Entity key_a5jni value_a5jnj) x_a5jnk
-> Entity
key_a5jni
(case value_a5jnj of
Upsert {upsertEmail = upsertEmail_a5jnx,
upsertAttr = upsertAttr_a5jny, upsertExtra = upsertExtra_a5jnz}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = x_a5jnk}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (UpsertGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (UpsertGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (UpsertGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (UpsertGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (UpsertGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (UpsertGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (UpsertGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (UpsertGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (UpsertGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (UpsertGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (UpsertGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (UpsertGeneric backend) where
toBackendKey = \ UpsertKey {unUpsertKey = x} -> x
fromBackendKey = UpsertKey
type UpsertBy = UpsertByGeneric SqlBackend
data UpsertByGeneric backend
= UpsertBy {upsertByEmail :: !Text,
upsertByCity :: !Text,
upsertByAttr :: !Text}
deriving stock (Eq, Show)
type UpsertById = Key UpsertBy
instance PersistStore backend =>
PersistEntity (UpsertByGeneric backend) where
type PersistEntityBackend (UpsertByGeneric backend) = backend
data Unique (UpsertByGeneric backend)
= UniqueUpsertBy Text | UniqueUpsertByCity Text
newtype Key (UpsertByGeneric backend)
= UpsertByKey {unUpsertByKey :: (BackendKey backend)}
data EntityField (UpsertByGeneric backend) typ
= (typ ~ Key (UpsertByGeneric backend)) => UpsertById |
(typ ~ Text) => UpsertByEmail |
(typ ~ Text) => UpsertByCity |
(typ ~ Text) => UpsertByAttr
keyToValues
= ((: [])
. (toPersistValue . (\ UpsertByKey {unUpsertByKey = x} -> x)))
keyFromValues
= (fmap UpsertByKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jo5
= ((Entity <$> fromField_a5jo5 UpsertById)
<*>
(((pure UpsertBy <*> fromField_a5jo5 UpsertByEmail)
<*> fromField_a5jo5 UpsertByCity)
<*> fromField_a5jo5 UpsertByAttr))
tabulateEntityApply fromField_a5jo4
= ((Entity <$> fromField_a5jo4 UpsertById)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((UpsertBy <$> fromField_a5jo4 UpsertByEmail)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jo4 UpsertByCity)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jo4 UpsertByAttr))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertById"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[],
UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
95 26 101 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"city"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"city"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"attr"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"attr"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertById"#
(ghc-prim:GHC.Types.I#
10#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UpsertBy x_a5jnD x_a5jnE x_a5jnF)
= [toPersistValue x_a5jnD, toPersistValue x_a5jnE,
toPersistValue x_a5jnF]
fromPersistValues [x1_a5jnH, x2_a5jnI, x3_a5jnJ]
= UpsertBy
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#))
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x1_a5jnH
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#))
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x2_a5jnI
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#))
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x3_a5jnJ
fromPersistValues x_a5jnG
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UpsertBy: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a5jnG))
persistUniqueToFieldNames UniqueUpsertBy {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
persistUniqueToFieldNames UniqueUpsertByCity {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
persistUniqueToValues (UniqueUpsertBy x_a5jnK)
= [toPersistValue x_a5jnK]
persistUniqueToValues (UniqueUpsertByCity x_a5jnL)
= [toPersistValue x_a5jnL]
persistUniqueKeys (UpsertBy _email_a5jnM _city_a5jnN _attr_a5jnO)
= [UniqueUpsertBy _email_a5jnM, UniqueUpsertByCity _city_a5jnN]
persistFieldDef UpsertById
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertById"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef UpsertByEmail
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy UpsertBy)
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
persistFieldDef UpsertByCity
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy UpsertBy)
(FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef UpsertByAttr
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy UpsertBy)
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = UpsertById
fieldLens UpsertById
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jnQ) key_a5jnR
-> Entity key_a5jnR value_a5jnQ)
fieldLens UpsertByEmail
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByEmail = x} -> x) . entityVal)
(\ (Entity key_a5jnS value_a5jnT) x_a5jnU
-> Entity
key_a5jnS
(case value_a5jnT of
UpsertBy {upsertByCity = upsertByCity_a5jnW,
upsertByAttr = upsertByAttr_a5jnX}
-> UpsertBy
{upsertByEmail = x_a5jnU, upsertByCity = upsertByCity,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByCity
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByCity = x} -> x) . entityVal)
(\ (Entity key_a5jnS value_a5jnT) x_a5jnU
-> Entity
key_a5jnS
(case value_a5jnT of
UpsertBy {upsertByEmail = upsertByEmail_a5jnY,
upsertByAttr = upsertByAttr_a5jo0}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = x_a5jnU,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByAttr
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByAttr = x} -> x) . entityVal)
(\ (Entity key_a5jnS value_a5jnT) x_a5jnU
-> Entity
key_a5jnS
(case value_a5jnT of
UpsertBy {upsertByEmail = upsertByEmail_a5jo1,
upsertByCity = upsertByCity_a5jo2}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = upsertByCity,
upsertByAttr = x_a5jnU}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (UpsertByGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (UpsertByGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (UpsertByGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (UpsertByGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (UpsertByGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (UpsertByGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (UpsertByGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (UpsertByGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (UpsertByGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (UpsertByGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (UpsertByGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (UpsertByGeneric backend) where
toBackendKey = \ UpsertByKey {unUpsertByKey = x} -> x
fromBackendKey = UpsertByKey
type Strict = StrictGeneric SqlBackend
data StrictGeneric backend
= Strict {strictYes :: !Int, strictNo :: Int, strictDef :: !Int}
type StrictId = Key Strict
instance PersistStore backend =>
PersistEntity (StrictGeneric backend) where
type PersistEntityBackend (StrictGeneric backend) = backend
data Unique (StrictGeneric backend)
newtype Key (StrictGeneric backend)
= StrictKey {unStrictKey :: (BackendKey backend)}
data EntityField (StrictGeneric backend) typ
= (typ ~ Key (StrictGeneric backend)) => StrictId |
(typ ~ Int) => StrictYes |
(typ ~ Int) => StrictNo |
(typ ~ Int) => StrictDef
keyToValues
= ((: [])
. (toPersistValue . (\ StrictKey {unStrictKey = x} -> x)))
keyFromValues
= (fmap StrictKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jow
= ((Entity <$> fromField_a5jow StrictId)
<*>
(((pure Strict <*> fromField_a5jow StrictYes)
<*> fromField_a5jow StrictNo)
<*> fromField_a5jow StrictDef))
tabulateEntityApply fromField_a5jov
= ((Entity <$> fromField_a5jov StrictId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((Strict <$> fromField_a5jov StrictYes)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jov StrictNo)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jov StrictDef))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"StrictId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
103 26 106 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"yes"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"yes"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"no"#
(ghc-prim:GHC.Types.I#
2#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"no"#
(ghc-prim:GHC.Types.I#
2#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = False,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"def"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"def"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"StrictId"#
(ghc-prim:GHC.Types.I#
8#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Strict x_a5jo6 x_a5jo7 x_a5jo8)
= [toPersistValue x_a5jo6, toPersistValue x_a5jo7,
toPersistValue x_a5jo8]
fromPersistValues [x1_a5joa, x2_a5job, x3_a5joc]
= Strict
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x1_a5joa
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
. fromPersistValue)
x2_a5job
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x3_a5joc
fromPersistValues x_a5jo9
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Strict: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jo9))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Strict _yes_a5jod _no_a5joe _def_a5jof) = []
persistFieldDef StrictId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"StrictId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef StrictYes
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Strict)
(FieldNameHS
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
persistFieldDef StrictNo
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Strict)
(FieldNameHS
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
persistFieldDef StrictDef
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Strict)
(FieldNameHS
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
persistIdField = StrictId
fieldLens StrictId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5joh) key_a5joi
-> Entity key_a5joi value_a5joh)
fieldLens StrictYes
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictYes = x} -> x) . entityVal)
(\ (Entity key_a5joj value_a5jok) x_a5jol
-> Entity
key_a5joj
(case value_a5jok of
Strict {strictNo = strictNo_a5jon, strictDef = strictDef_a5joo}
-> Strict
{strictYes = x_a5jol, strictNo = strictNo, strictDef = strictDef}))
fieldLens StrictNo
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictNo = x} -> x) . entityVal)
(\ (Entity key_a5joj value_a5jok) x_a5jol
-> Entity
key_a5joj
(case value_a5jok of
Strict {strictYes = strictYes_a5jop, strictDef = strictDef_a5jor}
-> Strict
{strictYes = strictYes, strictNo = x_a5jol,
strictDef = strictDef}))
fieldLens StrictDef
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictDef = x} -> x) . entityVal)
(\ (Entity key_a5joj value_a5jok) x_a5jol
-> Entity
key_a5joj
(case value_a5jok of
Strict {strictYes = strictYes_a5jos, strictNo = strictNo_a5jot}
-> Strict
{strictYes = strictYes, strictNo = strictNo, strictDef = x_a5jol}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (StrictGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (StrictGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (StrictGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (StrictGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (StrictGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (StrictGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (StrictGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (StrictGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (StrictGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (StrictGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (StrictGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (StrictGeneric backend) where
toBackendKey = \ StrictKey {unStrictKey = x} -> x
fromBackendKey = StrictKey
type DudeWeirdColumns = DudeWeirdColumnsGeneric SqlBackend
data DudeWeirdColumnsGeneric backend
= DudeWeirdColumns {dudeWeirdColumnsName :: !Text}
deriving stock (Eq, Show)
type DudeWeirdColumnsId = Key DudeWeirdColumns
instance PersistStore backend =>
PersistEntity (DudeWeirdColumnsGeneric backend) where
type PersistEntityBackend (DudeWeirdColumnsGeneric backend) = backend
data Unique (DudeWeirdColumnsGeneric backend) = UniqueName Text
newtype Key (DudeWeirdColumnsGeneric backend)
= DudeWeirdColumnsKey {unDudeWeirdColumnsKey :: (BackendKey backend)}
data EntityField (DudeWeirdColumnsGeneric backend) typ
= (typ ~ Key (DudeWeirdColumnsGeneric backend)) =>
DudeWeirdColumnsId |
(typ ~ Text) => DudeWeirdColumnsName
keyToValues
= ((: [])
. (toPersistValue
. (\ DudeWeirdColumnsKey {unDudeWeirdColumnsKey = x} -> x)))
keyFromValues
= (fmap DudeWeirdColumnsKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5joK
= ((Entity <$> fromField_a5joK DudeWeirdColumnsId)
<*>
(pure DudeWeirdColumns <*> fromField_a5joK DudeWeirdColumnsName))
tabulateEntityApply fromField_a5joJ
= ((Entity <$> fromField_a5joJ DudeWeirdColumnsId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(DudeWeirdColumns <$> fromField_a5joJ DudeWeirdColumnsName))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
108 26 113 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"foo"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"foo"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [FieldAttrMigrationOnly,
FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"bar"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"bar"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Double"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Double),
fieldAttrs = [FieldAttrSafeToRemove],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"DudeWeirdColumnsId"#
(ghc-prim:GHC.Types.I#
18#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (DudeWeirdColumns x_a5jox)
= [toPersistValue x_a5jox]
fromPersistValues [x1_a5joz]
= DudeWeirdColumns
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a5joz
fromPersistValues x_a5joy
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"DudeWeirdColumns: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 47#))
(Data.Text.Internal.pack $ show x_a5joy))
persistUniqueToFieldNames UniqueName {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
persistUniqueToValues (UniqueName x_a5joA)
= [toPersistValue x_a5joA]
persistUniqueKeys (DudeWeirdColumns _name_a5joB)
= [UniqueName _name_a5joB]
persistFieldDef DudeWeirdColumnsId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef DudeWeirdColumnsName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy DudeWeirdColumns)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = DudeWeirdColumnsId
fieldLens DudeWeirdColumnsId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5joD) key_a5joE
-> Entity key_a5joE value_a5joD)
fieldLens DudeWeirdColumnsName
= Database.Persist.TH.Internal.lensPTH
((\ DudeWeirdColumns {dudeWeirdColumnsName = x} -> x) . entityVal)
(\ (Entity key_a5joF value_a5joG) x_a5joH
-> Entity
key_a5joF
(case value_a5joG of
DudeWeirdColumns {}
-> DudeWeirdColumns {dudeWeirdColumnsName = x_a5joH}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (DudeWeirdColumnsGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (DudeWeirdColumnsGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (DudeWeirdColumnsGeneric backend) where
toBackendKey
= \ DudeWeirdColumnsKey {unDudeWeirdColumnsKey = x} -> x
fromBackendKey = DudeWeirdColumnsKey
type Relationship = RelationshipGeneric SqlBackend
data RelationshipGeneric backend
= Relationship {relationshipName :: !String,
relationshipParent :: !(Maybe (Key (RelationshipGeneric backend)))}
type RelationshipId = Key Relationship
instance PersistStore backend =>
PersistEntity (RelationshipGeneric backend) where
type PersistEntityBackend (RelationshipGeneric backend) = backend
data Unique (RelationshipGeneric backend)
newtype Key (RelationshipGeneric backend)
= RelationshipKey {unRelationshipKey :: (BackendKey backend)}
data EntityField (RelationshipGeneric backend) typ
= (typ ~ Key (RelationshipGeneric backend)) => RelationshipId |
(typ ~ String) => RelationshipName |
(typ ~ Maybe (Key (RelationshipGeneric backend))) =>
RelationshipParent
keyToValues
= ((: [])
. (toPersistValue
. (\ RelationshipKey {unRelationshipKey = x} -> x)))
keyFromValues
= (fmap RelationshipKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jp3
= ((Entity <$> fromField_a5jp3 RelationshipId)
<*>
((pure Relationship <*> fromField_a5jp3 RelationshipName)
<*> fromField_a5jp3 RelationshipParent))
tabulateEntityApply fromField_a5jp2
= ((Entity <$> fromField_a5jp2 RelationshipId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((Relationship <$> fromField_a5jp2 RelationshipName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5jp2 RelationshipParent))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False
(Just
(Data.Text.unpackCStringLen#
"This is a doc comment for a relationship.\n\
\Only the first line requires a pipe.\n\
\Pipes are optional on subsequent lines.\n"#
(ghc-prim:GHC.Types.I# 119#)))
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
118 26 121 7))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"String"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy String),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Just
(Data.Text.unpackCStringLen#
"Fields should be documentable.\n"#
(ghc-prim:GHC.Types.I#
31#)),
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"#
(ghc-prim:GHC.Types.I#
14#)),
fieldSqlType = sqlType
(Proxy ::
Proxy RelationshipId),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Relationship"#
(ghc-prim:GHC.Types.I#
12#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"#
(ghc-prim:GHC.Types.I#
14#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Relationship x_a5joL x_a5joM)
= [toPersistValue x_a5joL, toPersistValue x_a5joM]
fromPersistValues [x1_a5joO, x2_a5joP]
= Relationship
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a5joO
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#))
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
. fromPersistValue)
x2_a5joP
fromPersistValues x_a5joN
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Relationship: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 43#))
(Data.Text.Internal.pack $ show x_a5joN))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Relationship _name_a5joQ _parent_a5joR) = []
persistFieldDef RelationshipId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef RelationshipName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Relationship)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef RelationshipParent
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Relationship)
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
persistIdField = RelationshipId
fieldLens RelationshipId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5joT) key_a5joU
-> Entity key_a5joU value_a5joT)
fieldLens RelationshipName
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipName = x} -> x) . entityVal)
(\ (Entity key_a5joV value_a5joW) x_a5joX
-> Entity
key_a5joV
(case value_a5joW of
Relationship {relationshipParent = relationshipParent_a5joZ}
-> Relationship
{relationshipName = x_a5joX,
relationshipParent = relationshipParent}))
fieldLens RelationshipParent
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipParent = x} -> x) . entityVal)
(\ (Entity key_a5joV value_a5joW) x_a5joX
-> Entity
key_a5joV
(case value_a5joW of
Relationship {relationshipName = relationshipName_a5jp0}
-> Relationship
{relationshipName = relationshipName,
relationshipParent = x_a5joX}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (RelationshipGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (RelationshipGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (RelationshipGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (RelationshipGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (RelationshipGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (RelationshipGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (RelationshipGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (RelationshipGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (RelationshipGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (RelationshipGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (RelationshipGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (RelationshipGeneric backend) where
toBackendKey = \ RelationshipKey {unRelationshipKey = x} -> x
fromBackendKey = RelationshipKey
type MutA = MutAGeneric SqlBackend
data MutAGeneric backend
= MutA {mutAMutB :: !(Key (MutBGeneric backend))}
type MutAId = Key MutA
instance PersistStore backend =>
PersistEntity (MutAGeneric backend) where
type PersistEntityBackend (MutAGeneric backend) = backend
data Unique (MutAGeneric backend)
newtype Key (MutAGeneric backend)
= MutAKey {unMutAKey :: (BackendKey backend)}
data EntityField (MutAGeneric backend) typ
= (typ ~ Key (MutAGeneric backend)) => MutAId |
(typ ~ Key (MutBGeneric backend)) => MutAMutB
keyToValues
= ((: []) . (toPersistValue . (\ MutAKey {unMutAKey = x} -> x)))
keyFromValues
= (fmap MutAKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jpg
= ((Entity <$> fromField_a5jpg MutAId)
<*> (pure MutA <*> fromField_a5jpg MutAMutB))
tabulateEntityApply fromField_a5jpf
= ((Entity <$> fromField_a5jpf MutAId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(MutA <$> fromField_a5jpf MutAMutB))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
123 26 124 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"mutB"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"mutB"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MutBId"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy MutBId),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"MutB"#
(ghc-prim:GHC.Types.I#
4#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MutAId"#
(ghc-prim:GHC.Types.I#
6#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutA x_a5jp4) = [toPersistValue x_a5jp4]
fromPersistValues [x1_a5jp6]
= MutA
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a5jp6
fromPersistValues x_a5jp5
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutA: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a5jp5))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutA _mutB_a5jp7) = []
persistFieldDef MutAId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef MutAMutB
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy MutA)
(FieldNameHS
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = MutAId
fieldLens MutAId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jp9) key_a5jpa
-> Entity key_a5jpa value_a5jp9)
fieldLens MutAMutB
= Database.Persist.TH.Internal.lensPTH
((\ MutA {mutAMutB = x} -> x) . entityVal)
(\ (Entity key_a5jpb value_a5jpc) x_a5jpd
-> Entity
key_a5jpb
(case value_a5jpc of MutA {} -> MutA {mutAMutB = x_a5jpd}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (MutAGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (MutAGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (MutAGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (MutAGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (MutAGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (MutAGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (MutAGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (MutAGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (MutAGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (MutAGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (MutAGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (MutAGeneric backend) where
toBackendKey = \ MutAKey {unMutAKey = x} -> x
fromBackendKey = MutAKey
type MutB = MutBGeneric SqlBackend
data MutBGeneric backend
= MutB {mutBMutA :: !(Key (MutAGeneric backend))}
type MutBId = Key MutB
instance PersistStore backend =>
PersistEntity (MutBGeneric backend) where
type PersistEntityBackend (MutBGeneric backend) = backend
data Unique (MutBGeneric backend)
newtype Key (MutBGeneric backend)
= MutBKey {unMutBKey :: (BackendKey backend)}
data EntityField (MutBGeneric backend) typ
= (typ ~ Key (MutBGeneric backend)) => MutBId |
(typ ~ Key (MutAGeneric backend)) => MutBMutA
keyToValues
= ((: []) . (toPersistValue . (\ MutBKey {unMutBKey = x} -> x)))
keyFromValues
= (fmap MutBKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5jpt
= ((Entity <$> fromField_a5jpt MutBId)
<*> (pure MutB <*> fromField_a5jpt MutBMutA))
tabulateEntityApply fromField_a5jps
= ((Entity <$> fromField_a5jps MutBId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(MutB <$> fromField_a5jps MutBMutA))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
126 26 127 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"mutA"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"mutA"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MutAId"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy MutAId),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"MutA"#
(ghc-prim:GHC.Types.I#
4#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MutBId"#
(ghc-prim:GHC.Types.I#
6#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutB x_a5jph) = [toPersistValue x_a5jph]
fromPersistValues [x1_a5jpj]
= MutB
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a5jpj
fromPersistValues x_a5jpi
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutB: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a5jpi))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutB _mutA_a5jpk) = []
persistFieldDef MutBId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef MutBMutA
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy MutB)
(FieldNameHS
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = MutBId
fieldLens MutBId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5jpm) key_a5jpn
-> Entity key_a5jpn value_a5jpm)
fieldLens MutBMutA
= Database.Persist.TH.Internal.lensPTH
((\ MutB {mutBMutA = x} -> x) . entityVal)
(\ (Entity key_a5jpo value_a5jpp) x_a5jpq
-> Entity
key_a5jpo
(case value_a5jpp of MutB {} -> MutB {mutBMutA = x_a5jpq}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (MutBGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (MutBGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (MutBGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (MutBGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (MutBGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (MutBGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (MutBGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (MutBGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (MutBGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (MutBGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (MutBGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (MutBGeneric backend) where
toBackendKey = \ MutBKey {unMutBKey = x} -> x
fromBackendKey = MutBKey
instance PersistStore backend =>
ToJSON (PersonGeneric backend) where
toJSON (Person name_a5jpv age_a5jpw color_a5jpx)
= object
[(Data.Aeson.Key.fromString "name" .= name_a5jpv),
(Data.Aeson.Key.fromString "age" .= age_a5jpw),
(Data.Aeson.Key.fromString "color" .= color_a5jpx)]
instance PersistStore backend =>
FromJSON (PersonGeneric backend) where
parseJSON
= withObject
"Person"
(\ obj_a5jpu
-> (((pure Person
<*> (obj_a5jpu .: Data.Aeson.Key.fromString "name"))
<*> (obj_a5jpu .: Data.Aeson.Key.fromString "age"))
<*> (obj_a5jpu .:? Data.Aeson.Key.fromString "color")))
instance PersistStore backend =>
ToJSON (Entity (PersonGeneric backend)) where
toJSON = entityIdToJSON
instance PersistStore backend =>
FromJSON (Entity (PersonGeneric backend)) where
parseJSON = entityIdFromJSON
instance PersistStore backend =>
ToJSON (PersonMayGeneric backend) where
toJSON (PersonMay name_a5jpz color_a5jpA)
= object
[(Data.Aeson.Key.fromString "name" .= name_a5jpz),
(Data.Aeson.Key.fromString "color" .= color_a5jpA)]
instance PersistStore backend =>
FromJSON (PersonMayGeneric backend) where
parseJSON
= withObject
"PersonMay"
(\ obj_a5jpy
-> ((pure PersonMay
<*> (obj_a5jpy .:? Data.Aeson.Key.fromString "name"))
<*> (obj_a5jpy .:? Data.Aeson.Key.fromString "color")))
instance PersistStore backend =>
ToJSON (Entity (PersonMayGeneric backend)) where
toJSON = entityIdToJSON
instance PersistStore backend =>
FromJSON (Entity (PersonMayGeneric backend)) where
parseJSON = entityIdFromJSON
instance PersistStoreWrite backend =>
OnlyOneUniqueKey (PersonGeneric backend) where
onlyUniqueP = (head . persistUniqueKeys)
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (PersonGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (Person1Generic backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (Person1Generic backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (PersonMaybeAgeGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (PersonMaybeAgeGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (PersonMayGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (PersonMayGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (PetGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (PetGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (MaybeOwnedPetGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (MaybeOwnedPetGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (NeedsPetGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (NeedsPetGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (OutdoorPetGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (OutdoorPetGeneric backend) where
requireUniquesP _ = error "impossible"
instance PersistStoreWrite backend =>
OnlyOneUniqueKey (UserPTGeneric backend) where
onlyUniqueP = (head . persistUniqueKeys)
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (UserPTGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance PersistStoreWrite backend =>
OnlyOneUniqueKey (EmailPTGeneric backend) where
onlyUniqueP = (head . persistUniqueKeys)
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (EmailPTGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance PersistStoreWrite backend =>
OnlyOneUniqueKey (UpsertGeneric backend) where
onlyUniqueP = (head . persistUniqueKeys)
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (UpsertGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance (GHC.TypeError.TypeError (MultipleUniqueKeysError (UpsertByGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (UpsertByGeneric backend) where
onlyUniqueP _ = error "impossible"
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (UpsertByGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (StrictGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (StrictGeneric backend) where
requireUniquesP _ = error "impossible"
instance PersistStoreWrite backend =>
OnlyOneUniqueKey (DudeWeirdColumnsGeneric backend) where
onlyUniqueP = (head . persistUniqueKeys)
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (DudeWeirdColumnsGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (RelationshipGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (RelationshipGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (MutAGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (MutAGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (MutBGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (MutBGeneric backend) where
requireUniquesP _ = error "impossible"
instance SymbolToField "id" (PersonGeneric backend) (Key (PersonGeneric backend)) where
symbolToField = PersonId
instance SymbolToField "name" (PersonGeneric backend) Text where
symbolToField = PersonName
instance SymbolToField "age" (PersonGeneric backend) Int where
symbolToField = PersonAge
instance SymbolToField "color" (PersonGeneric backend) (Maybe Text) where
symbolToField = PersonColor
instance SymbolToField "id" (Person1Generic backend) (Key (Person1Generic backend)) where
symbolToField = Person1Id
instance SymbolToField "name" (Person1Generic backend) Text where
symbolToField = Person1Name
instance SymbolToField "age" (Person1Generic backend) Int where
symbolToField = Person1Age
instance SymbolToField "id" (PersonMaybeAgeGeneric backend) (Key (PersonMaybeAgeGeneric backend)) where
symbolToField = PersonMaybeAgeId
instance SymbolToField "name" (PersonMaybeAgeGeneric backend) Text where
symbolToField = PersonMaybeAgeName
instance SymbolToField "age" (PersonMaybeAgeGeneric backend) (Maybe Int) where
symbolToField = PersonMaybeAgeAge
instance SymbolToField "id" (PersonMayGeneric backend) (Key (PersonMayGeneric backend)) where
symbolToField = PersonMayId
instance SymbolToField "name" (PersonMayGeneric backend) (Maybe Text) where
symbolToField = PersonMayName
instance SymbolToField "color" (PersonMayGeneric backend) (Maybe Text) where
symbolToField = PersonMayColor
instance SymbolToField "id" (PetGeneric backend) (Key (PetGeneric backend)) where
symbolToField = PetId
instance SymbolToField "ownerId" (PetGeneric backend) (Key (PersonGeneric backend)) where
symbolToField = PetOwnerId
instance SymbolToField "name" (PetGeneric backend) Text where
symbolToField = PetName
instance SymbolToField "type" (PetGeneric backend) PetType where
symbolToField = PetType
instance SymbolToField "id" (MaybeOwnedPetGeneric backend) (Key (MaybeOwnedPetGeneric backend)) where
symbolToField = MaybeOwnedPetId
instance SymbolToField "ownerId" (MaybeOwnedPetGeneric backend) (Maybe (Key (PersonGeneric backend))) where
symbolToField = MaybeOwnedPetOwnerId
instance SymbolToField "name" (MaybeOwnedPetGeneric backend) Text where
symbolToField = MaybeOwnedPetName
instance SymbolToField "type" (MaybeOwnedPetGeneric backend) PetType where
symbolToField = MaybeOwnedPetType
instance SymbolToField "id" (NeedsPetGeneric backend) (Key (NeedsPetGeneric backend)) where
symbolToField = NeedsPetId
instance SymbolToField "petKey" (NeedsPetGeneric backend) (Key (PetGeneric backend)) where
symbolToField = NeedsPetPetKey
instance SymbolToField "id" (OutdoorPetGeneric backend) (Key (OutdoorPetGeneric backend)) where
symbolToField = OutdoorPetId
instance SymbolToField "ownerId" (OutdoorPetGeneric backend) (Key (PersonGeneric backend)) where
symbolToField = OutdoorPetOwnerId
instance SymbolToField "collar" (OutdoorPetGeneric backend) PetCollar where
symbolToField = OutdoorPetCollar
instance SymbolToField "type" (OutdoorPetGeneric backend) PetType where
symbolToField = OutdoorPetType
instance SymbolToField "id" (UserPTGeneric backend) (Key (UserPTGeneric backend)) where
symbolToField = UserPTId
instance SymbolToField "ident" (UserPTGeneric backend) Text where
symbolToField = UserPTIdent
instance SymbolToField "password" (UserPTGeneric backend) (Maybe Text) where
symbolToField = UserPTPassword
instance SymbolToField "id" (EmailPTGeneric backend) (Key (EmailPTGeneric backend)) where
symbolToField = EmailPTId
instance SymbolToField "email" (EmailPTGeneric backend) Text where
symbolToField = EmailPTEmail
instance SymbolToField "user" (EmailPTGeneric backend) (Maybe (Key (UserPTGeneric backend))) where
symbolToField = EmailPTUser
instance SymbolToField "verkey" (EmailPTGeneric backend) (Maybe Text) where
symbolToField = EmailPTVerkey
instance SymbolToField "id" (UpsertGeneric backend) (Key (UpsertGeneric backend)) where
symbolToField = UpsertId
instance SymbolToField "email" (UpsertGeneric backend) Text where
symbolToField = UpsertEmail
instance SymbolToField "attr" (UpsertGeneric backend) Text where
symbolToField = UpsertAttr
instance SymbolToField "extra" (UpsertGeneric backend) Text where
symbolToField = UpsertExtra
instance SymbolToField "age" (UpsertGeneric backend) Int where
symbolToField = UpsertAge
instance SymbolToField "id" (UpsertByGeneric backend) (Key (UpsertByGeneric backend)) where
symbolToField = UpsertById
instance SymbolToField "email" (UpsertByGeneric backend) Text where
symbolToField = UpsertByEmail
instance SymbolToField "city" (UpsertByGeneric backend) Text where
symbolToField = UpsertByCity
instance SymbolToField "attr" (UpsertByGeneric backend) Text where
symbolToField = UpsertByAttr
instance SymbolToField "id" (StrictGeneric backend) (Key (StrictGeneric backend)) where
symbolToField = StrictId
instance SymbolToField "yes" (StrictGeneric backend) Int where
symbolToField = StrictYes
instance SymbolToField "no" (StrictGeneric backend) Int where
symbolToField = StrictNo
instance SymbolToField "def" (StrictGeneric backend) Int where
symbolToField = StrictDef
instance SymbolToField "id" (DudeWeirdColumnsGeneric backend) (Key (DudeWeirdColumnsGeneric backend)) where
symbolToField = DudeWeirdColumnsId
instance SymbolToField "name" (DudeWeirdColumnsGeneric backend) Text where
symbolToField = DudeWeirdColumnsName
instance SymbolToField "id" (RelationshipGeneric backend) (Key (RelationshipGeneric backend)) where
symbolToField = RelationshipId
instance SymbolToField "name" (RelationshipGeneric backend) String where
symbolToField = RelationshipName
instance SymbolToField "parent" (RelationshipGeneric backend) (Maybe (Key (RelationshipGeneric backend))) where
symbolToField = RelationshipParent
instance SymbolToField "id" (MutAGeneric backend) (Key (MutAGeneric backend)) where
symbolToField = MutAId
instance SymbolToField "mutB" (MutAGeneric backend) (Key (MutBGeneric backend)) where
symbolToField = MutAMutB
instance SymbolToField "id" (MutBGeneric backend) (Key (MutBGeneric backend)) where
symbolToField = MutBId
instance SymbolToField "mutA" (MutBGeneric backend) (Key (MutAGeneric backend)) where
symbolToField = MutBMutA
instance PersistStoreWrite backend =>
SafeToInsert (PersonGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (Person1Generic backend)
instance PersistStoreWrite backend =>
SafeToInsert (PersonMaybeAgeGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (PersonMayGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (PetGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (MaybeOwnedPetGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (NeedsPetGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (OutdoorPetGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (UserPTGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (EmailPTGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (UpsertGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (UpsertByGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (StrictGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (DudeWeirdColumnsGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (RelationshipGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (MutAGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (MutBGeneric backend)
entityDefListFortestMigrate :: [EntityDef]
entityDefListFortestMigrate
= [entityDef (Proxy :: Proxy Person),
entityDef (Proxy :: Proxy Person1),
entityDef (Proxy :: Proxy PersonMaybeAge),
entityDef (Proxy :: Proxy PersonMay),
entityDef (Proxy :: Proxy Pet),
entityDef (Proxy :: Proxy MaybeOwnedPet),
entityDef (Proxy :: Proxy NeedsPet),
entityDef (Proxy :: Proxy OutdoorPet),
entityDef (Proxy :: Proxy UserPT),
entityDef (Proxy :: Proxy EmailPT),
entityDef (Proxy :: Proxy Upsert),
entityDef (Proxy :: Proxy UpsertBy),
entityDef (Proxy :: Proxy Strict),
entityDef (Proxy :: Proxy DudeWeirdColumns),
entityDef (Proxy :: Proxy Relationship),
entityDef (Proxy :: Proxy MutA), entityDef (Proxy :: Proxy MutB)]
testMigrate :: Migration
testMigrate = migrateModels entityDefListFortestMigrate
src/PersistentTestModels.hs:(147,23)-(158,2): Splicing expression
template-haskell:Language.Haskell.TH.Quote.quoteExp
persistLowerCase
"\n\
\NoPrefix1\n\
\ someFieldName Int\n\
\NoPrefix2\n\
\ someOtherFieldName Int\n\
\ unprefixedRef NoPrefix1Id\n\
\+NoPrefixSum\n\
\ unprefixedLeft Int\n\
\ unprefixedRight String\n\
\ deriving Show Eq\n\
\\n"
======>
[Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix1"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix1"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
149 24 150 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"someFieldName"# (ghc-prim:GHC.Types.I# 13#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"some_field_name"# (ghc-prim:GHC.Types.I# 15#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
149 24 150 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix2"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix2"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
151 24 153 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"some_other_field_name"# (ghc-prim:GHC.Types.I# 21#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
151 24 153 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
154 24 157 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_left"# (ghc-prim:GHC.Types.I# 15#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRight"# (ghc-prim:GHC.Types.I# 15#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_right"# (ghc-prim:GHC.Types.I# 16#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
154 24 157 5))]
src/PersistentTestModels.hs:(137,1)-(158,2): Splicing declarations
share
[mkPersist
persistSettings
{mpsPrefixFields = False, mpsFieldLabelModifier = \ _ _ -> "",
mpsConstraintLabelModifier = \ _ _ -> "", mpsGeneric = True},
mkMigrate "noPrefixMigrate"]
([Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix1"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix1"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
149 24 150 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"someFieldName"# (ghc-prim:GHC.Types.I# 13#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"some_field_name"# (ghc-prim:GHC.Types.I# 15#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
149 24 150 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix2"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix2"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
151 24 153 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"some_other_field_name"# (ghc-prim:GHC.Types.I# 21#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
151 24 153 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
154 24 157 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_left"# (ghc-prim:GHC.Types.I# 15#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRight"# (ghc-prim:GHC.Types.I# 15#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_right"# (ghc-prim:GHC.Types.I# 16#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
154 24 157 5))])
======>
instance PersistStore backend =>
PersistField (NoPrefix1Generic backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["someFieldName"]
instance PersistStore backend =>
PersistFieldSql (NoPrefix1Generic backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (NoPrefix2Generic backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["someOtherFieldName", "unprefixedRef"]
instance PersistStore backend =>
PersistFieldSql (NoPrefix2Generic backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (NoPrefixSumGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["unprefixedLeft", "unprefixedRight"]
instance PersistStore backend =>
PersistFieldSql (NoPrefixSumGeneric backend) where
sqlType _ = SqlString
type NoPrefix1 = NoPrefix1Generic SqlBackend
data NoPrefix1Generic backend = NoPrefix1 {someFieldName :: !Int}
type NoPrefix1Id = Key NoPrefix1
instance PersistStore backend =>
PersistEntity (NoPrefix1Generic backend) where
type PersistEntityBackend (NoPrefix1Generic backend) = backend
data Unique (NoPrefix1Generic backend)
newtype Key (NoPrefix1Generic backend)
= NoPrefix1Key {unNoPrefix1Key :: (BackendKey backend)}
data EntityField (NoPrefix1Generic backend) typ
= (typ ~ Key (NoPrefix1Generic backend)) => NoPrefix1Id |
(typ ~ Int) => SomeFieldName
keyToValues
= ((: [])
. (toPersistValue . (\ NoPrefix1Key {unNoPrefix1Key = x} -> x)))
keyFromValues
= (fmap NoPrefix1Key
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5wSy
= ((Entity <$> fromField_a5wSy NoPrefix1Id)
<*> (pure NoPrefix1 <*> fromField_a5wSy SomeFieldName))
tabulateEntityApply fromField_a5wSx
= ((Entity <$> fromField_a5wSx NoPrefix1Id)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(NoPrefix1 <$> fromField_a5wSx SomeFieldName))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix1"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix1"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
149 24 150 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"someFieldName"#
(ghc-prim:GHC.Types.I#
13#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"some_field_name"#
(ghc-prim:GHC.Types.I#
15#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"#
(ghc-prim:GHC.Types.I#
11#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix1 x_a5wSm) = [toPersistValue x_a5wSm]
fromPersistValues [x1_a5wSo]
= NoPrefix1
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"no_prefix1"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen#
"someFieldName"# (ghc-prim:GHC.Types.I# 13#)))
. fromPersistValue)
x1_a5wSo
fromPersistValues x_a5wSn
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a5wSn))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NoPrefix1 _someFieldName_a5wSp) = []
persistFieldDef NoPrefix1Id
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef SomeFieldName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NoPrefix1)
(FieldNameHS
(Data.Text.unpackCStringLen#
"someFieldName"# (ghc-prim:GHC.Types.I# 13#)))
persistIdField = NoPrefix1Id
fieldLens NoPrefix1Id
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5wSr) key_a5wSs
-> Entity key_a5wSs value_a5wSr)
fieldLens SomeFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix1 {someFieldName = x} -> x) . entityVal)
(\ (Entity key_a5wSt value_a5wSu) x_a5wSv
-> Entity
key_a5wSt
(case value_a5wSu of
NoPrefix1 {} -> NoPrefix1 {someFieldName = x_a5wSv}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (NoPrefix1Generic backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (NoPrefix1Generic backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (NoPrefix1Generic backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (NoPrefix1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefix1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefix1Generic backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (NoPrefix1Generic backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (NoPrefix1Generic backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (NoPrefix1Generic backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (NoPrefix1Generic backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (NoPrefix1Generic backend))
instance PersistStore backend =>
ToBackendKey backend (NoPrefix1Generic backend) where
toBackendKey = \ NoPrefix1Key {unNoPrefix1Key = x} -> x
fromBackendKey = NoPrefix1Key
type NoPrefix2 = NoPrefix2Generic SqlBackend
data NoPrefix2Generic backend
= NoPrefix2 {someOtherFieldName :: !Int,
unprefixedRef :: !(Key (NoPrefix1Generic backend))}
type NoPrefix2Id = Key NoPrefix2
instance PersistStore backend =>
PersistEntity (NoPrefix2Generic backend) where
type PersistEntityBackend (NoPrefix2Generic backend) = backend
data Unique (NoPrefix2Generic backend)
newtype Key (NoPrefix2Generic backend)
= NoPrefix2Key {unNoPrefix2Key :: (BackendKey backend)}
data EntityField (NoPrefix2Generic backend) typ
= (typ ~ Key (NoPrefix2Generic backend)) => NoPrefix2Id |
(typ ~ Int) => SomeOtherFieldName |
(typ ~ Key (NoPrefix1Generic backend)) => UnprefixedRef
keyToValues
= ((: [])
. (toPersistValue . (\ NoPrefix2Key {unNoPrefix2Key = x} -> x)))
keyFromValues
= (fmap NoPrefix2Key
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5wSR
= ((Entity <$> fromField_a5wSR NoPrefix2Id)
<*>
((pure NoPrefix2 <*> fromField_a5wSR SomeOtherFieldName)
<*> fromField_a5wSR UnprefixedRef))
tabulateEntityApply fromField_a5wSQ
= ((Entity <$> fromField_a5wSQ NoPrefix2Id)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((NoPrefix2 <$> fromField_a5wSQ SomeOtherFieldName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5wSQ UnprefixedRef))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix2"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix2"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
151 24 153 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"someOtherFieldName"#
(ghc-prim:GHC.Types.I#
18#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"some_other_field_name"#
(ghc-prim:GHC.Types.I#
21#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRef"#
(ghc-prim:GHC.Types.I#
13#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_ref"#
(ghc-prim:GHC.Types.I#
14#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"#
(ghc-prim:GHC.Types.I#
11#)),
fieldSqlType = sqlType
(Proxy ::
Proxy NoPrefix1Id),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix1"#
(ghc-prim:GHC.Types.I#
9#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix2Id"#
(ghc-prim:GHC.Types.I#
11#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix2 x_a5wSz x_a5wSA)
= [toPersistValue x_a5wSz, toPersistValue x_a5wSA]
fromPersistValues [x1_a5wSC, x2_a5wSD]
= NoPrefix2
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"no_prefix2"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen#
"someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)))
. fromPersistValue)
x1_a5wSC
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"no_prefix2"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen#
"unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)))
. fromPersistValue)
x2_a5wSD
fromPersistValues x_a5wSB
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a5wSB))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(NoPrefix2 _someOtherFieldName_a5wSE _unprefixedRef_a5wSF)
= []
persistFieldDef NoPrefix2Id
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef SomeOtherFieldName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NoPrefix2)
(FieldNameHS
(Data.Text.unpackCStringLen#
"someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)))
persistFieldDef UnprefixedRef
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NoPrefix2)
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)))
persistIdField = NoPrefix2Id
fieldLens NoPrefix2Id
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5wSH) key_a5wSI
-> Entity key_a5wSI value_a5wSH)
fieldLens SomeOtherFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {someOtherFieldName = x} -> x) . entityVal)
(\ (Entity key_a5wSJ value_a5wSK) x_a5wSL
-> Entity
key_a5wSJ
(case value_a5wSK of
NoPrefix2 {unprefixedRef = unprefixedRef_a5wSN}
-> NoPrefix2
{someOtherFieldName = x_a5wSL, unprefixedRef = unprefixedRef}))
fieldLens UnprefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {unprefixedRef = x} -> x) . entityVal)
(\ (Entity key_a5wSJ value_a5wSK) x_a5wSL
-> Entity
key_a5wSJ
(case value_a5wSK of
NoPrefix2 {someOtherFieldName = someOtherFieldName_a5wSO}
-> NoPrefix2
{someOtherFieldName = someOtherFieldName,
unprefixedRef = x_a5wSL}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (NoPrefix2Generic backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (NoPrefix2Generic backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (NoPrefix2Generic backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (NoPrefix2Generic backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefix2Generic backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefix2Generic backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (NoPrefix2Generic backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (NoPrefix2Generic backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (NoPrefix2Generic backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (NoPrefix2Generic backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (NoPrefix2Generic backend))
instance PersistStore backend =>
ToBackendKey backend (NoPrefix2Generic backend) where
toBackendKey = \ NoPrefix2Key {unNoPrefix2Key = x} -> x
fromBackendKey = NoPrefix2Key
type NoPrefixSum = NoPrefixSumGeneric SqlBackend
data NoPrefixSumGeneric backend
= UnprefixedLeftSum Int | UnprefixedRightSum String
deriving stock (Show, Eq)
type NoPrefixSumId = Key NoPrefixSum
instance PersistStore backend =>
PersistEntity (NoPrefixSumGeneric backend) where
type PersistEntityBackend (NoPrefixSumGeneric backend) = backend
data Unique (NoPrefixSumGeneric backend)
newtype Key (NoPrefixSumGeneric backend)
= NoPrefixSumKey {unNoPrefixSumKey :: (BackendKey backend)}
data EntityField (NoPrefixSumGeneric backend) typ
= (typ ~ Key (NoPrefixSumGeneric backend)) => NoPrefixSumId |
(typ ~ Int) => UnprefixedLeft |
(typ ~ String) => UnprefixedRight
keyToValues
= ((: [])
. (toPersistValue
. (\ NoPrefixSumKey {unNoPrefixSumKey = x} -> x)))
keyFromValues
= (fmap NoPrefixSumKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5wT3
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a5wT2
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
154 24 157 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedLeft"#
(ghc-prim:GHC.Types.I#
14#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_left"#
(ghc-prim:GHC.Types.I#
15#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRight"#
(ghc-prim:GHC.Types.I#
15#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_right"#
(ghc-prim:GHC.Types.I#
16#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"String"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy String),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefixSumId"#
(ghc-prim:GHC.Types.I#
13#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UnprefixedLeftSum x_a5wSS)
= [toPersistValue x_a5wSS, PersistNull]
toPersistFields (UnprefixedRightSum x_a5wST)
= [PersistNull, toPersistValue x_a5wST]
fromPersistValues [x_a5wSU, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a5wSU
= (UnprefixedLeftSum `fmap` fromPersistValue x_a5wSU)
fromPersistValues [PersistNull, x_a5wSV]
| Database.Persist.TH.Internal.isNotNull x_a5wSV
= (UnprefixedRightSum `fmap` fromPersistValue x_a5wSV)
fromPersistValues _
= Left
("Invalid fromPersistValues input: sum type with all nulls. Entity: "
`mappend`
Data.Text.unpackCStringLen#
"NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys _ = []
persistFieldDef NoPrefixSumId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef UnprefixedLeft
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NoPrefixSum)
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#)))
persistFieldDef UnprefixedRight
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NoPrefixSum)
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRight"# (ghc-prim:GHC.Types.I# 15#)))
persistIdField = NoPrefixSumId
fieldLens NoPrefixSumId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5wSX) key_a5wSY
-> Entity key_a5wSY value_a5wSX)
fieldLens UnprefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5wT0)
-> case value_a5wT0 of
UnprefixedLeftSum x_a5wT1 -> x_a5wT1
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5wSZ _) x_a5wT1
-> Entity key_a5wSZ (UnprefixedLeftSum x_a5wT1))
fieldLens UnprefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5wT0)
-> case value_a5wT0 of
UnprefixedRightSum x_a5wT1 -> x_a5wT1
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5wSZ _) x_a5wT1
-> Entity key_a5wSZ (UnprefixedRightSum x_a5wT1))
deriving stock instance Show (BackendKey backend) =>
Show (Key (NoPrefixSumGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (NoPrefixSumGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (NoPrefixSumGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (NoPrefixSumGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefixSumGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefixSumGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (NoPrefixSumGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (NoPrefixSumGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (NoPrefixSumGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (NoPrefixSumGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (NoPrefixSumGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (NoPrefixSumGeneric backend) where
toBackendKey = \ NoPrefixSumKey {unNoPrefixSumKey = x} -> x
fromBackendKey = NoPrefixSumKey
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (NoPrefix1Generic backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (NoPrefix1Generic backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (NoPrefix2Generic backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (NoPrefix2Generic backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (NoPrefixSumGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (NoPrefixSumGeneric backend) where
requireUniquesP _ = error "impossible"
instance SymbolToField "id" (NoPrefix1Generic backend) (Key (NoPrefix1Generic backend)) where
symbolToField = NoPrefix1Id
instance SymbolToField "someFieldName" (NoPrefix1Generic backend) Int where
symbolToField = SomeFieldName
instance SymbolToField "id" (NoPrefix2Generic backend) (Key (NoPrefix2Generic backend)) where
symbolToField = NoPrefix2Id
instance SymbolToField "someOtherFieldName" (NoPrefix2Generic backend) Int where
symbolToField = SomeOtherFieldName
instance SymbolToField "unprefixedRef" (NoPrefix2Generic backend) (Key (NoPrefix1Generic backend)) where
symbolToField = UnprefixedRef
instance SymbolToField "id" (NoPrefixSumGeneric backend) (Key (NoPrefixSumGeneric backend)) where
symbolToField = NoPrefixSumId
instance SymbolToField "unprefixedLeft" (NoPrefixSumGeneric backend) Int where
symbolToField = UnprefixedLeft
instance SymbolToField "unprefixedRight" (NoPrefixSumGeneric backend) String where
symbolToField = UnprefixedRight
instance PersistStoreWrite backend =>
SafeToInsert (NoPrefix1Generic backend)
instance PersistStoreWrite backend =>
SafeToInsert (NoPrefix2Generic backend)
instance PersistStoreWrite backend =>
SafeToInsert (NoPrefixSumGeneric backend)
entityDefListFornoPrefixMigrate :: [EntityDef]
entityDefListFornoPrefixMigrate
= [entityDef (Proxy :: Proxy NoPrefix1),
entityDef (Proxy :: Proxy NoPrefix2),
entityDef (Proxy :: Proxy NoPrefixSum)]
noPrefixMigrate :: Migration
noPrefixMigrate = migrateModels entityDefListFornoPrefixMigrate
src/PersistentTestModels.hs:(182,23)-(192,2): Splicing expression
template-haskell:Language.Haskell.TH.Quote.quoteExp
persistLowerCase
"\n\
\CustomPrefix1\n\
\ customFieldName Int\n\
\CustomPrefix2\n\
\ otherCustomFieldName Int\n\
\ customPrefixedRef CustomPrefix1Id\n\
\+CustomPrefixSum\n\
\ customPrefixedLeft Int\n\
\ customPrefixedRight String\n\
\ deriving Show Eq\n"
======>
[Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix1"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
184 24 185 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customFieldName"# (ghc-prim:GHC.Types.I# 15#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_field_name"# (ghc-prim:GHC.Types.I# 17#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
184 24 185 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix2"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
186 24 188 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
186 24 188 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
189 24 192 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
189 24 192 5))]
src/PersistentTestModels.hs:(166,1)-(192,2): Splicing declarations
share
[mkPersist
persistSettings
{mpsFieldLabelModifier = \ entity_a5z2B field_a5z2C
-> case entity_a5z2B of
"CustomPrefix1" -> append "_cp1" field_a5z2C
"CustomPrefix2" -> append "_cp2" field_a5z2C
_ -> error "should not be called",
mpsConstraintLabelModifier = \ entity_a5z2D field_a5z2E
-> case entity_a5z2D of
"CustomPrefix1" -> append "CP1" field_a5z2E
"CustomPrefix2" -> append "CP2" field_a5z2E
"CustomPrefixSum" -> append "CP" field_a5z2E
_ -> error "should not be called",
mpsGeneric = True},
mkMigrate "customPrefixMigrate"]
([Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix1"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
184 24 185 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customFieldName"# (ghc-prim:GHC.Types.I# 15#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_field_name"# (ghc-prim:GHC.Types.I# 17#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
184 24 185 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix2"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
186 24 188 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
186 24 188 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
189 24 192 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
189 24 192 5))])
======>
instance PersistStore backend =>
PersistField (CustomPrefix1Generic backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["customFieldName"]
instance PersistStore backend =>
PersistFieldSql (CustomPrefix1Generic backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (CustomPrefix2Generic backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["otherCustomFieldName", "customPrefixedRef"]
instance PersistStore backend =>
PersistFieldSql (CustomPrefix2Generic backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (CustomPrefixSumGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["customPrefixedLeft", "customPrefixedRight"]
instance PersistStore backend =>
PersistFieldSql (CustomPrefixSumGeneric backend) where
sqlType _ = SqlString
type CustomPrefix1 = CustomPrefix1Generic SqlBackend
data CustomPrefix1Generic backend
= CustomPrefix1 {_cp1CustomFieldName :: !Int}
type CustomPrefix1Id = Key CustomPrefix1
instance PersistStore backend =>
PersistEntity (CustomPrefix1Generic backend) where
type PersistEntityBackend (CustomPrefix1Generic backend) = backend
data Unique (CustomPrefix1Generic backend)
newtype Key (CustomPrefix1Generic backend)
= CustomPrefix1Key {unCustomPrefix1Key :: (BackendKey backend)}
data EntityField (CustomPrefix1Generic backend) typ
= (typ ~ Key (CustomPrefix1Generic backend)) => CustomPrefix1Id |
(typ ~ Int) => CP1CustomFieldName
keyToValues
= ((: [])
. (toPersistValue
. (\ CustomPrefix1Key {unCustomPrefix1Key = x} -> x)))
keyFromValues
= (fmap CustomPrefix1Key
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5zm7
= ((Entity <$> fromField_a5zm7 CustomPrefix1Id)
<*> (pure CustomPrefix1 <*> fromField_a5zm7 CP1CustomFieldName))
tabulateEntityApply fromField_a5zm6
= ((Entity <$> fromField_a5zm6 CustomPrefix1Id)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(CustomPrefix1 <$> fromField_a5zm6 CP1CustomFieldName))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix1"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
184 24 185 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"customFieldName"#
(ghc-prim:GHC.Types.I#
15#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"custom_field_name"#
(ghc-prim:GHC.Types.I#
17#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"#
(ghc-prim:GHC.Types.I#
15#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix1 x_a5zlV) = [toPersistValue x_a5zlV]
fromPersistValues [x1_a5zlX]
= CustomPrefix1
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))
(Data.Text.unpackCStringLen#
"customFieldName"# (ghc-prim:GHC.Types.I# 15#)))
. fromPersistValue)
x1_a5zlX
fromPersistValues x_a5zlW
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a5zlW))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (CustomPrefix1 _customFieldName_a5zlY) = []
persistFieldDef CustomPrefix1Id
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef CP1CustomFieldName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy CustomPrefix1)
(FieldNameHS
(Data.Text.unpackCStringLen#
"customFieldName"# (ghc-prim:GHC.Types.I# 15#)))
persistIdField = CustomPrefix1Id
fieldLens CustomPrefix1Id
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5zm0) key_a5zm1
-> Entity key_a5zm1 value_a5zm0)
fieldLens CP1CustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix1 {_cp1CustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a5zm2 value_a5zm3) x_a5zm4
-> Entity
key_a5zm2
(case value_a5zm3 of
CustomPrefix1 {} -> CustomPrefix1 {_cp1CustomFieldName = x_a5zm4}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (CustomPrefix1Generic backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (CustomPrefix1Generic backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (CustomPrefix1Generic backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (CustomPrefix1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefix1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefix1Generic backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (CustomPrefix1Generic backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (CustomPrefix1Generic backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (CustomPrefix1Generic backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (CustomPrefix1Generic backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (CustomPrefix1Generic backend))
instance PersistStore backend =>
ToBackendKey backend (CustomPrefix1Generic backend) where
toBackendKey = \ CustomPrefix1Key {unCustomPrefix1Key = x} -> x
fromBackendKey = CustomPrefix1Key
type CustomPrefix2 = CustomPrefix2Generic SqlBackend
data CustomPrefix2Generic backend
= CustomPrefix2 {_cp2OtherCustomFieldName :: !Int,
_cp2CustomPrefixedRef :: !(Key (CustomPrefix1Generic backend))}
type CustomPrefix2Id = Key CustomPrefix2
instance PersistStore backend =>
PersistEntity (CustomPrefix2Generic backend) where
type PersistEntityBackend (CustomPrefix2Generic backend) = backend
data Unique (CustomPrefix2Generic backend)
newtype Key (CustomPrefix2Generic backend)
= CustomPrefix2Key {unCustomPrefix2Key :: (BackendKey backend)}
data EntityField (CustomPrefix2Generic backend) typ
= (typ ~ Key (CustomPrefix2Generic backend)) => CustomPrefix2Id |
(typ ~ Int) => CP2OtherCustomFieldName |
(typ ~ Key (CustomPrefix1Generic backend)) => CP2CustomPrefixedRef
keyToValues
= ((: [])
. (toPersistValue
. (\ CustomPrefix2Key {unCustomPrefix2Key = x} -> x)))
keyFromValues
= (fmap CustomPrefix2Key
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5zmq
= ((Entity <$> fromField_a5zmq CustomPrefix2Id)
<*>
((pure CustomPrefix2 <*> fromField_a5zmq CP2OtherCustomFieldName)
<*> fromField_a5zmq CP2CustomPrefixedRef))
tabulateEntityApply fromField_a5zmp
= ((Entity <$> fromField_a5zmp CustomPrefix2Id)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((CustomPrefix2 <$> fromField_a5zmp CP2OtherCustomFieldName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5zmp CP2CustomPrefixedRef))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix2"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
186 24 188 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"otherCustomFieldName"#
(ghc-prim:GHC.Types.I#
20#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"other_custom_field_name"#
(ghc-prim:GHC.Types.I#
23#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRef"#
(ghc-prim:GHC.Types.I#
17#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_ref"#
(ghc-prim:GHC.Types.I#
19#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"#
(ghc-prim:GHC.Types.I#
15#)),
fieldSqlType = sqlType
(Proxy ::
Proxy CustomPrefix1Id),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix1"#
(ghc-prim:GHC.Types.I#
13#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix2Id"#
(ghc-prim:GHC.Types.I#
15#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix2 x_a5zm8 x_a5zm9)
= [toPersistValue x_a5zm8, toPersistValue x_a5zm9]
fromPersistValues [x1_a5zmb, x2_a5zmc]
= CustomPrefix2
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))
(Data.Text.unpackCStringLen#
"otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)))
. fromPersistValue)
x1_a5zmb
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))
(Data.Text.unpackCStringLen#
"customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)))
. fromPersistValue)
x2_a5zmc
fromPersistValues x_a5zma
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a5zma))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(CustomPrefix2 _otherCustomFieldName_a5zmd
_customPrefixedRef_a5zme)
= []
persistFieldDef CustomPrefix2Id
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef CP2OtherCustomFieldName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy CustomPrefix2)
(FieldNameHS
(Data.Text.unpackCStringLen#
"otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)))
persistFieldDef CP2CustomPrefixedRef
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy CustomPrefix2)
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)))
persistIdField = CustomPrefix2Id
fieldLens CustomPrefix2Id
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5zmg) key_a5zmh
-> Entity key_a5zmh value_a5zmg)
fieldLens CP2OtherCustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2OtherCustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a5zmi value_a5zmj) x_a5zmk
-> Entity
key_a5zmi
(case value_a5zmj of
CustomPrefix2 {_cp2CustomPrefixedRef = _cp2CustomPrefixedRef_a5zmm}
-> CustomPrefix2
{_cp2OtherCustomFieldName = x_a5zmk,
_cp2CustomPrefixedRef = _cp2CustomPrefixedRef}))
fieldLens CP2CustomPrefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2CustomPrefixedRef = x} -> x) . entityVal)
(\ (Entity key_a5zmi value_a5zmj) x_a5zmk
-> Entity
key_a5zmi
(case value_a5zmj of
CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName_a5zmn}
-> CustomPrefix2
{_cp2OtherCustomFieldName = _cp2OtherCustomFieldName,
_cp2CustomPrefixedRef = x_a5zmk}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (CustomPrefix2Generic backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (CustomPrefix2Generic backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (CustomPrefix2Generic backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (CustomPrefix2Generic backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefix2Generic backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefix2Generic backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (CustomPrefix2Generic backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (CustomPrefix2Generic backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (CustomPrefix2Generic backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (CustomPrefix2Generic backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (CustomPrefix2Generic backend))
instance PersistStore backend =>
ToBackendKey backend (CustomPrefix2Generic backend) where
toBackendKey = \ CustomPrefix2Key {unCustomPrefix2Key = x} -> x
fromBackendKey = CustomPrefix2Key
type CustomPrefixSum = CustomPrefixSumGeneric SqlBackend
data CustomPrefixSumGeneric backend
= CPCustomPrefixedLeftSum Int | CPCustomPrefixedRightSum String
deriving stock (Show, Eq)
type CustomPrefixSumId = Key CustomPrefixSum
instance PersistStore backend =>
PersistEntity (CustomPrefixSumGeneric backend) where
type PersistEntityBackend (CustomPrefixSumGeneric backend) = backend
data Unique (CustomPrefixSumGeneric backend)
newtype Key (CustomPrefixSumGeneric backend)
= CustomPrefixSumKey {unCustomPrefixSumKey :: (BackendKey backend)}
data EntityField (CustomPrefixSumGeneric backend) typ
= (typ ~ Key (CustomPrefixSumGeneric backend)) =>
CustomPrefixSumId |
(typ ~ Int) => CPCustomPrefixedLeft |
(typ ~ String) => CPCustomPrefixedRight
keyToValues
= ((: [])
. (toPersistValue
. (\ CustomPrefixSumKey {unCustomPrefixSumKey = x} -> x)))
keyFromValues
= (fmap CustomPrefixSumKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a5zmC
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a5zmB
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
189 24 192 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedLeft"#
(ghc-prim:GHC.Types.I#
18#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_left"#
(ghc-prim:GHC.Types.I#
20#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRight"#
(ghc-prim:GHC.Types.I#
19#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_right"#
(ghc-prim:GHC.Types.I#
21#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"String"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy String),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefixSumId"#
(ghc-prim:GHC.Types.I#
17#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CPCustomPrefixedLeftSum x_a5zmr)
= [toPersistValue x_a5zmr, PersistNull]
toPersistFields (CPCustomPrefixedRightSum x_a5zms)
= [PersistNull, toPersistValue x_a5zms]
fromPersistValues [x_a5zmt, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a5zmt
= (CPCustomPrefixedLeftSum `fmap` fromPersistValue x_a5zmt)
fromPersistValues [PersistNull, x_a5zmu]
| Database.Persist.TH.Internal.isNotNull x_a5zmu
= (CPCustomPrefixedRightSum `fmap` fromPersistValue x_a5zmu)
fromPersistValues _
= Left
("Invalid fromPersistValues input: sum type with all nulls. Entity: "
`mappend`
Data.Text.unpackCStringLen#
"CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys _ = []
persistFieldDef CustomPrefixSumId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef CPCustomPrefixedLeft
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy CustomPrefixSum)
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#)))
persistFieldDef CPCustomPrefixedRight
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy CustomPrefixSum)
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#)))
persistIdField = CustomPrefixSumId
fieldLens CustomPrefixSumId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5zmw) key_a5zmx
-> Entity key_a5zmx value_a5zmw)
fieldLens CPCustomPrefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5zmz)
-> case value_a5zmz of
CPCustomPrefixedLeftSum x_a5zmA -> x_a5zmA
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5zmy _) x_a5zmA
-> Entity key_a5zmy (CPCustomPrefixedLeftSum x_a5zmA))
fieldLens CPCustomPrefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5zmz)
-> case value_a5zmz of
CPCustomPrefixedRightSum x_a5zmA -> x_a5zmA
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5zmy _) x_a5zmA
-> Entity key_a5zmy (CPCustomPrefixedRightSum x_a5zmA))
deriving stock instance Show (BackendKey backend) =>
Show (Key (CustomPrefixSumGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (CustomPrefixSumGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (CustomPrefixSumGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (CustomPrefixSumGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefixSumGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefixSumGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (CustomPrefixSumGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (CustomPrefixSumGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (CustomPrefixSumGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (CustomPrefixSumGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (CustomPrefixSumGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (CustomPrefixSumGeneric backend) where
toBackendKey = \ CustomPrefixSumKey {unCustomPrefixSumKey = x} -> x
fromBackendKey = CustomPrefixSumKey
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (CustomPrefix1Generic backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (CustomPrefix1Generic backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (CustomPrefix2Generic backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (CustomPrefix2Generic backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (CustomPrefixSumGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (CustomPrefixSumGeneric backend) where
requireUniquesP _ = error "impossible"
instance SymbolToField "id" (CustomPrefix1Generic backend) (Key (CustomPrefix1Generic backend)) where
symbolToField = CustomPrefix1Id
instance SymbolToField "customFieldName" (CustomPrefix1Generic backend) Int where
symbolToField = CP1CustomFieldName
instance SymbolToField "id" (CustomPrefix2Generic backend) (Key (CustomPrefix2Generic backend)) where
symbolToField = CustomPrefix2Id
instance SymbolToField "otherCustomFieldName" (CustomPrefix2Generic backend) Int where
symbolToField = CP2OtherCustomFieldName
instance SymbolToField "customPrefixedRef" (CustomPrefix2Generic backend) (Key (CustomPrefix1Generic backend)) where
symbolToField = CP2CustomPrefixedRef
instance SymbolToField "id" (CustomPrefixSumGeneric backend) (Key (CustomPrefixSumGeneric backend)) where
symbolToField = CustomPrefixSumId
instance SymbolToField "customPrefixedLeft" (CustomPrefixSumGeneric backend) Int where
symbolToField = CPCustomPrefixedLeft
instance SymbolToField "customPrefixedRight" (CustomPrefixSumGeneric backend) String where
symbolToField = CPCustomPrefixedRight
instance PersistStoreWrite backend =>
SafeToInsert (CustomPrefix1Generic backend)
instance PersistStoreWrite backend =>
SafeToInsert (CustomPrefix2Generic backend)
instance PersistStoreWrite backend =>
SafeToInsert (CustomPrefixSumGeneric backend)
entityDefListForcustomPrefixMigrate :: [EntityDef]
entityDefListForcustomPrefixMigrate
= [entityDef (Proxy :: Proxy CustomPrefix1),
entityDef (Proxy :: Proxy CustomPrefix2),
entityDef (Proxy :: Proxy CustomPrefixSum)]
customPrefixMigrate :: Migration
customPrefixMigrate
= migrateModels entityDefListForcustomPrefixMigrate
src/PersistentTestModels.hs:(206,23)-(213,2): Splicing expression
template-haskell:Language.Haskell.TH.Quote.quoteExp
persistLowerCase
"\n\
\\n\
\Tree sql=trees\n\
\ name String\n\
\ parent String Maybe\n\
\ Primary name\n\
\ Foreign Tree fkparent parent\n"
======>
[Database.Persist.Quasi.Internal.UnboundEntityDef
[Database.Persist.Quasi.Internal.UnboundForeignDef
(Database.Persist.Quasi.Internal.FieldListImpliedId
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))
NEL.:| []))
(ForeignDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#)))
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"fkparent"# (ghc-prim:GHC.Types.I# 8#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"treefkparent"# (ghc-prim:GHC.Types.I# 12#)))
(FieldCascade Nothing Nothing) [] [] False True)]
(Database.Persist.Quasi.Internal.NaturalKey
(Database.Persist.Quasi.Internal.UnboundCompositeDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))
NEL.:| [])
[]))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#)))
(SqlOther
(Data.Text.unpackCStringLen#
"Primary Key"# (ghc-prim:GHC.Types.I# 11#)))
[] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing
True))
[Data.Text.unpackCStringLen#
"sql=trees"# (ghc-prim:GHC.Types.I# 9#)]
[]
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"primary_key"# (ghc-prim:GHC.Types.I# 11#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
209 24 213 3)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
209 24 213 3))]
src/PersistentTestModels.hs:(202,1)-(213,2): Splicing declarations
share
[mkPersist
persistSettings {mpsPrefixFields = False, mpsGeneric = False},
mkMigrate "treeMigrate"]
([Database.Persist.Quasi.Internal.UnboundEntityDef
[Database.Persist.Quasi.Internal.UnboundForeignDef
(Database.Persist.Quasi.Internal.FieldListImpliedId
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))
NEL.:| []))
(ForeignDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#)))
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"fkparent"# (ghc-prim:GHC.Types.I# 8#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"treefkparent"# (ghc-prim:GHC.Types.I# 12#)))
(FieldCascade Nothing Nothing) [] [] False True)]
(Database.Persist.Quasi.Internal.NaturalKey
(Database.Persist.Quasi.Internal.UnboundCompositeDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))
NEL.:| [])
[]))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#)))
(SqlOther
(Data.Text.unpackCStringLen#
"Primary Key"# (ghc-prim:GHC.Types.I# 11#)))
[] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing
True))
[Data.Text.unpackCStringLen#
"sql=trees"# (ghc-prim:GHC.Types.I# 9#)]
[]
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"primary_key"# (ghc-prim:GHC.Types.I# 11#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
209 24 213 3)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
209 24 213 3))])
======>
instance PersistField Tree where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "parent"]
instance PersistFieldSql Tree where
sqlType _ = SqlString
data Tree = Tree {name :: !String, parent :: !(Maybe String)}
fkparent :: Tree -> Maybe (Key Tree)
fkparent record_mkForeignKeysComposite_a5BG8
= fmap
TreeKey
(ghc-prim:GHC.Prim.coerce
(parent record_mkForeignKeysComposite_a5BG8))
type TreeId = Key Tree
instance PersistEntity Tree where
type PersistEntityBackend Tree = SqlBackend
data Unique Tree = TreePrimaryKey String
newtype Key Tree
= TreeKey {unTreeKey :: String}
deriving stock Show
deriving stock Read
deriving newtype Eq
deriving newtype Ord
deriving newtype Web.PathPieces.PathPiece
deriving newtype Web.Internal.HttpApiData.ToHttpApiData
deriving newtype Web.Internal.HttpApiData.FromHttpApiData
deriving newtype PersistField
deriving newtype PersistFieldSql
deriving newtype ToJSON
deriving newtype FromJSON
data EntityField Tree typ
= (typ ~ TreeId) => TreeId |
(typ ~ String) => Name |
(typ ~ Maybe String) => Parent
keyToValues record_a5BG9
= [toPersistValue ((\ TreeKey {unTreeKey = x} -> x) record_a5BG9)]
keyFromValues [x1_a5BGb]
= TreeKey
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a5BGb
keyFromValues x_a5BGa
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: keyFromValues failed on: "# (ghc-prim:GHC.Types.I# 31#))
(Data.Text.Internal.pack $ show x_a5BGa))
keyFromRecordM
= Just (\ Tree {name = name_a5BGl} -> TreeKey name_a5BGl)
tabulateEntityA fromField_a5BGn
= ((Entity <$> fromField_a5BGn TreeId)
<*>
((pure Tree <*> fromField_a5BGn Name) <*> fromField_a5BGn Parent))
tabulateEntityApply fromField_a5BGm
= ((Entity <$> fromField_a5BGm TreeId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((Tree <$> fromField_a5BGm Name)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a5BGm Parent))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#)))
(SqlOther
(Data.Text.unpackCStringLen#
"Primary Key"# (ghc-prim:GHC.Types.I# 11#)))
[] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing
True))
[Data.Text.unpackCStringLen#
"sql=trees"# (ghc-prim:GHC.Types.I# 9#)]
[]
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"primary_key"# (ghc-prim:GHC.Types.I# 11#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
209 24 213 3))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"String"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy String),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"String"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy String),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdNaturalKey
CompositeDef
{compositeFields = NEL.fromList
[Database.Persist.TH.Internal.lookupEntityField
(Proxy ::
Proxy Tree)
(FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)))],
compositeAttrs = []},
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = [ForeignDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Tree"#
(ghc-prim:GHC.Types.I#
4#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"tree"#
(ghc-prim:GHC.Types.I#
4#)))
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"fkparent"#
(ghc-prim:GHC.Types.I#
8#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"treefkparent"#
(ghc-prim:GHC.Types.I#
12#)))
(FieldCascade
Nothing
Nothing)
[]
[]
False
True
{foreignFields = [((FieldNameHS
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#)),
FieldNameDB
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#))),
(FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#))))],
foreignNullable = True,
foreignRefTableDBName = EntityNameDB
(Data.Text.unpackCStringLen#
"trees"#
(ghc-prim:GHC.Types.I#
5#))}]}
toPersistFields (Tree x_a5BG0 x_a5BG1)
= [toPersistValue x_a5BG0, toPersistValue x_a5BG1]
fromPersistValues [x1_a5BG3, x2_a5BG4]
= Tree
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a5BG3
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
. fromPersistValue)
x2_a5BG4
fromPersistValues x_a5BG2
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a5BG2))
persistUniqueToFieldNames TreePrimaryKey {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
persistUniqueToValues (TreePrimaryKey x_a5BG5)
= [toPersistValue x_a5BG5]
persistUniqueKeys (Tree _name_a5BG6 _parent_a5BG7)
= [TreePrimaryKey _name_a5BG6]
persistFieldDef TreeId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdNaturalKey
CompositeDef
{compositeFields = NEL.fromList
[Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Tree)
(FieldNameHS
(Data.Text.unpackCStringLen#
"name"# (ghc-prim:GHC.Types.I# 4#)))],
compositeAttrs = []})
persistFieldDef Name
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Tree)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef Parent
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Tree)
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
persistIdField = TreeId
fieldLens TreeId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a5BGc) key_a5BGd
-> Entity key_a5BGd value_a5BGc)
fieldLens Name
= Database.Persist.TH.Internal.lensPTH
((\ Tree {name = x} -> x) . entityVal)
(\ (Entity key_a5BGe value_a5BGf) x_a5BGg
-> Entity
key_a5BGe
(case value_a5BGf of
Tree {parent = parent_a5BGi}
-> Tree {name = x_a5BGg, parent = parent}))
fieldLens Parent
= Database.Persist.TH.Internal.lensPTH
((\ Tree {parent = x} -> x) . entityVal)
(\ (Entity key_a5BGe value_a5BGf) x_a5BGg
-> Entity
key_a5BGe
(case value_a5BGf of
Tree {name = name_a5BGj} -> Tree {name = name, parent = x_a5BGg}))
instance OnlyOneUniqueKey Tree where
onlyUniqueP = (head . persistUniqueKeys)
instance AtLeastOneUniqueKey Tree where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance SymbolToField "id" Tree (Key Tree) where
symbolToField = TreeId
instance SymbolToField "name" Tree String where
symbolToField = Name
instance SymbolToField "parent" Tree (Maybe String) where
symbolToField = Parent
instance SafeToInsert Tree
entityDefListFortreeMigrate :: [EntityDef]
entityDefListFortreeMigrate = [entityDef (Proxy :: Proxy Tree)]
treeMigrate :: Migration
treeMigrate = migrateModels entityDefListFortreeMigrate
src/PersistentTestModels.hs:27:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
27 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "testMigrate"]
| ^^^^^^^^^^
src/PersistentTestModels.hs:137:1: warning: [GHC-39584]
persistent has deprecated sum type entities as of 2.14.0.0.
We will delete support for these entities in 2.15.0.0.
If you need these, please add a comment on this GitHub issue:
https://github.com/yesodweb/persistent/issues/987
|
137 | share
| ^^^^^...
src/PersistentTestModels.hs:143:15: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
143 | , mpsGeneric = True
| ^^^^^^^^^^
src/PersistentTestModels.hs:166:1: warning: [GHC-39584]
persistent has deprecated sum type entities as of 2.14.0.0.
We will delete support for these entities in 2.15.0.0.
If you need these, please add a comment on this GitHub issue:
https://github.com/yesodweb/persistent/issues/987
|
166 | share
| ^^^^^...
src/PersistentTestModels.hs:178:15: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
178 | , mpsGeneric = True
| ^^^^^^^^^^
src/PersistentTestModels.hs:203:58: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
203 | [ mkPersist persistSettings{mpsPrefixFields = False, mpsGeneric = False}
| ^^^^^^^^^^
src/PersistentTestModels.hs:223:10: warning: [GHC-06201] [-Wmissing-methods]
" No explicit implementation for
tabulateEntityA and tabulateEntityApply
" In the instance declaration for
PersistEntity (ReverseFieldOrder a)
|
223 | instance (PersistEntity a) => PersistEntity (ReverseFieldOrder a) where
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/PersistentTestModels.hs:228:54: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
228 | keyFromValues = fmap RFOKey . fromPersistValue . head
| ^^^^
[28 of 41] Compiling PersistentTest ( src/PersistentTest.hs, dist/build/PersistentTest.o, dist/build/PersistentTest.dyn_o )
[29 of 41] Compiling MpsNoPrefixTest ( src/MpsNoPrefixTest.hs, dist/build/MpsNoPrefixTest.o, dist/build/MpsNoPrefixTest.dyn_o )
[30 of 41] Compiling MpsCustomPrefixTest ( src/MpsCustomPrefixTest.hs, dist/build/MpsCustomPrefixTest.o, dist/build/MpsCustomPrefixTest.dyn_o )
[31 of 41] Compiling PrimaryTest ( src/PrimaryTest.hs, dist/build/PrimaryTest.o, dist/build/PrimaryTest.dyn_o )
src/PrimaryTest.hs:12:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
12 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"]
| ^^^^^^^^^^
[32 of 41] Compiling RawSqlTest ( src/RawSqlTest.hs, dist/build/RawSqlTest.o, dist/build/RawSqlTest.dyn_o )
[33 of 41] Compiling ReadWriteTest ( src/ReadWriteTest.hs, dist/build/ReadWriteTest.o, dist/build/ReadWriteTest.dyn_o )
[34 of 41] Compiling Recursive ( src/Recursive.hs, dist/build/Recursive.o, dist/build/Recursive.dyn_o )
src/Recursive.hs:10:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
10 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "recursiveMigrate"]
| ^^^^^^^^^^
[35 of 41] Compiling RenameTest ( src/RenameTest.hs, dist/build/RenameTest.o, dist/build/RenameTest.dyn_o )
src/RenameTest.hs:19:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
19 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"]
| ^^^^^^^^^^
[36 of 41] Compiling SumTypeTest ( src/SumTypeTest.hs, dist/build/SumTypeTest.o, dist/build/SumTypeTest.dyn_o )
src/SumTypeTest.hs:13:1: warning: [GHC-39584]
persistent has deprecated sum type entities as of 2.14.0.0.
We will delete support for these entities in 2.15.0.0.
If you need these, please add a comment on this GitHub issue:
https://github.com/yesodweb/persistent/issues/987
|
13 | share
| ^^^^^...
src/SumTypeTest.hs:14:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
14 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "sumTypeMigrate"]
| ^^^^^^^^^^
[37 of 41] Compiling TransactionLevelTest ( src/TransactionLevelTest.hs, dist/build/TransactionLevelTest.o, dist/build/TransactionLevelTest.dyn_o )
[38 of 41] Compiling TreeTest ( src/TreeTest.hs, dist/build/TreeTest.o, dist/build/TreeTest.dyn_o )
src/TreeTest.hs:13:33: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
13 | [ mkPersist persistSettings{mpsGeneric = False}
| ^^^^^^^^^^
[39 of 41] Compiling TypeLitFieldDefsTest ( src/TypeLitFieldDefsTest.hs, dist/build/TypeLitFieldDefsTest.o, dist/build/TypeLitFieldDefsTest.dyn_o )
src/TypeLitFieldDefsTest.hs:34:29: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
34 | [ mkPersist sqlSettings{mpsGeneric = True}
| ^^^^^^^^^^
[40 of 41] Compiling UniqueTest ( src/UniqueTest.hs, dist/build/UniqueTest.o, dist/build/UniqueTest.dyn_o )
[41 of 41] Compiling UpsertTest ( src/UpsertTest.hs, dist/build/UpsertTest.o, dist/build/UpsertTest.dyn_o )
Preprocessing library for persistent-test-2.13.2.1..
Running Haddock on library for persistent-test-2.13.2.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 41] Compiling Init ( src/Init.hs, /tmp/ghc2919749_0/ghc_10.o, /tmp/ghc2919749_0/ghc_10.dyn_o )
src/Init.hs:168:31: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Database.Persist.TH, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
168 | persistSettings = sqlSettings{mpsGeneric = True}
| ^^^^^^^^^^
[ 2 of 41] Compiling HtmlTest ( src/HtmlTest.hs, nothing )
src/HtmlTest.hs:18:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
18 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "htmlMigrate"]
| ^^^^^^^^^^
[ 3 of 41] Compiling GeneratedColumnTestSQL ( src/GeneratedColumnTestSQL.hs, nothing )
[ 4 of 41] Compiling ForeignKey ( src/ForeignKey.hs, nothing )
src/ForeignKey.hs:19:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
19 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"]
| ^^^^^^^^^^
[ 5 of 41] Compiling EquivalentTypeTest ( src/EquivalentTypeTest.hs, nothing )
[ 6 of 41] Compiling EntityEmbedTest ( src/EntityEmbedTest.hs, /tmp/ghc2919749_0/ghc_8.o, /tmp/ghc2919749_0/ghc_8.dyn_o )
src/EntityEmbedTest.hs:11:21: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
11 | persistSettings{mpsGeneric = True}
| ^^^^^^^^^^
[ 7 of 41] Compiling EmptyEntityTest ( src/EmptyEntityTest.hs, nothing )
src/EmptyEntityTest.hs:14:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
14 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"]
| ^^^^^^^^^^
[ 8 of 41] Compiling EmbedTest ( src/EmbedTest.hs, nothing )
src/EmbedTest.hs:33:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
33 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedMigrate"]
| ^^^^^^^^^^
[ 9 of 41] Compiling EmbedOrderTest ( src/EmbedOrderTest.hs, nothing )
src/EmbedOrderTest.hs:16:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
16 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedOrderMigrate"]
| ^^^^^^^^^^
[10 of 41] Compiling DataTypeTest ( src/DataTypeTest.hs, nothing )
[11 of 41] Compiling CustomPrimaryKeyReferenceTest ( src/CustomPrimaryKeyReferenceTest.hs, nothing )
src/CustomPrimaryKeyReferenceTest.hs:13:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
13 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"]
| ^^^^^^^^^^
[12 of 41] Compiling CustomPersistField ( src/CustomPersistField.hs, /tmp/ghc2919749_0/ghc_6.o, /tmp/ghc2919749_0/ghc_6.dyn_o )
[13 of 41] Compiling CustomPersistFieldTest ( src/CustomPersistFieldTest.hs, nothing )
src/CustomPersistFieldTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "customFieldMigrate"]
| ^^^^^^^^^^
[14 of 41] Compiling CompositeTest ( src/CompositeTest.hs, nothing )
src/CompositeTest.hs:17:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
17 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"]
| ^^^^^^^^^^
[15 of 41] Compiling LargeNumberTest ( src/LargeNumberTest.hs, nothing )
src/LargeNumberTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "numberMigrate"]
| ^^^^^^^^^^
[16 of 41] Compiling LongIdentifierTest ( src/LongIdentifierTest.hs, nothing )
[17 of 41] Compiling MaxLenTest ( src/MaxLenTest.hs, nothing )
src/MaxLenTest.hs:12:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
12 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maxlenMigrate"]
| ^^^^^^^^^^
[18 of 41] Compiling MaybeFieldDefsTest ( src/MaybeFieldDefsTest.hs, nothing )
src/MaybeFieldDefsTest.hs:13:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
13 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maybeFieldDefMigrate"]
| ^^^^^^^^^^
[19 of 41] Compiling MigrationColumnLengthTest ( src/MigrationColumnLengthTest.hs, nothing )
[20 of 41] Compiling MigrationIdempotencyTest ( src/MigrationIdempotencyTest.hs, nothing )
[21 of 41] Compiling MigrationOnlyTest ( src/MigrationOnlyTest.hs, nothing )
src/MigrationOnlyTest.hs:15:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
15 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll1"]
| ^^^^^^^^^^
src/MigrationOnlyTest.hs:25:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
25 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll2"]
| ^^^^^^^^^^
[22 of 41] Compiling MigrationTest ( src/MigrationTest.hs, nothing )
[23 of 41] Compiling PersistTestPetCollarType ( src/PersistTestPetCollarType.hs, /tmp/ghc2919749_0/ghc_12.o, /tmp/ghc2919749_0/ghc_12.dyn_o )
[24 of 41] Compiling PersistTestPetType ( src/PersistTestPetType.hs, /tmp/ghc2919749_0/ghc_14.o, /tmp/ghc2919749_0/ghc_14.dyn_o )
[25 of 41] Compiling PersistUniqueTest ( src/PersistUniqueTest.hs, nothing )
src/PersistUniqueTest.hs:11:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
11 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"]
| ^^^^^^^^^^
[26 of 41] Compiling PersistentTestModelsImports ( src/PersistentTestModelsImports.hs, /tmp/ghc2919749_0/ghc_18.o, /tmp/ghc2919749_0/ghc_18.dyn_o )
[27 of 41] Compiling PersistentTestModels ( src/PersistentTestModels.hs, /tmp/ghc2919749_0/ghc_16.o, /tmp/ghc2919749_0/ghc_16.dyn_o )
src/PersistentTestModels.hs:(28,23)-(128,2): Splicing expression
template-haskell:Language.Haskell.TH.Quote.quoteExp
persistUpperCase
"\n\
\\n\
\-- Dedented comment\n\
\ -- Header-level comment\n\
\ -- Indented comment\n\
\ Person json\n\
\ name Text\n\
\ age Int some=\"ignored -- \\\" attribute\"\n\
\ color Text Maybe -- this is a comment sql=foobarbaz\n\
\ PersonNameKey name -- this is a comment sql=foobarbaz\n\
\ deriving Show Eq\n\
\ Person1\n\
\-- Dedented comment\n\
\ -- Header-level comment\n\
\ -- Indented comment\n\
\ name Text\n\
\ age Int\n\
\ deriving Show Eq\n\
\ PersonMaybeAge\n\
\ name Text\n\
\ age Int Maybe\n\
\ PersonMay json\n\
\ name Text Maybe\n\
\ color Text Maybe\n\
\ deriving Show Eq\n\
\ Pet\n\
\ ownerId PersonId\n\
\ name Text\n\
\ -- deriving Show Eq\n\
\-- Dedented comment\n\
\ -- Header-level comment\n\
\ -- Indented comment\n\
\ type PetType\n\
\ MaybeOwnedPet\n\
\ ownerId PersonId Maybe\n\
\ name Text\n\
\ type PetType\n\
\-- Dedented comment\n\
\ -- Header-level comment\n\
\ -- Indented comment\n\
\ NeedsPet\n\
\ petKey PetId\n\
\ OutdoorPet\n\
\ ownerId PersonId\n\
\ collar PetCollar\n\
\ type PetType\n\
\\n\
\ -- From the scaffold\n\
\ UserPT\n\
\ ident Text\n\
\ password Text Maybe\n\
\ UniqueUserPT ident\n\
\ EmailPT\n\
\ email Text\n\
\ user UserPTId Maybe\n\
\ verkey Text Maybe\n\
\ UniqueEmailPT email\n\
\\n\
\ Upsert\n\
\ email Text\n\
\ attr Text\n\
\ extra Text\n\
\ age Int\n\
\ UniqueUpsert email\n\
\ deriving Eq Show\n\
\\n\
\ UpsertBy\n\
\ email Text\n\
\ city Text\n\
\ attr Text\n\
\ UniqueUpsertBy email\n\
\ UniqueUpsertByCity city\n\
\ deriving Eq Show\n\
\\n\
\ Strict\n\
\ !yes Int\n\
\ ~no Int\n\
\ def Int\n\
\\n\
\ DudeWeirdColumns\n\
\ name Text\n\
\ foo Int Maybe MigrationOnly\n\
\ bar Double SafeToRemove\n\
\ UniqueName name\n\
\ deriving Eq Show\n\
\\n\
\ -- | This is a doc comment for a relationship.\n\
\ -- Only the first line requires a pipe.\n\
\ -- | Pipes are optional on subsequent lines.\n\
\ Relationship\n\
\ -- | Fields should be documentable.\n\
\ name String\n\
\ parent RelationshipId Maybe\n\
\\n\
\ MutA\n\
\ mutB MutBId\n\
\\n\
\ MutB\n\
\ mutA MutAId\n\
\\n"
======>
[Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
34 26 39 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrOther
(Data.Text.unpackCStringLen#
"some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))]
True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
34 26 39 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Person1Id"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
40 26 46 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
40 26 46 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
47 26 49 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
47 26 49 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMayId"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
50 26 53 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
50 26 53 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
54 26 61 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
54 26 61 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
62 26 65 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
62 26 65 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NeedsPetId"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
69 26 70 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
69 26 70 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
71 26 74 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetCollar"# (ghc-prim:GHC.Types.I# 9#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
71 26 74 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
77 26 80 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
77 26 80 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"EmailPTId"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
81 26 85 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
81 26 85 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
87 26 93 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
87 26 93 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertById"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[],
UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
95 26 101 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
95 26 101 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"StrictId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
103 26 106 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
[] False
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
103 26 106 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
108 26 113 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrMigrationOnly, FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrSafeToRemove] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
108 26 113 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False
(Just
(Data.Text.unpackCStringLen#
"This is a doc comment for a relationship.\n\
\Only the first line requires a pipe.\n\
\Pipes are optional on subsequent lines.\n"#
(ghc-prim:GHC.Types.I# 119#)))
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
118 26 121 7)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing
(Just
(Data.Text.unpackCStringLen#
"Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))),
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
118 26 121 7)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
123 26 124 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
123 26 124 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
126 26 127 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
126 26 127 5))]
src/PersistentTestModels.hs:(26,1)-(128,2): Splicing declarations
share
[mkPersist persistSettings {mpsGeneric = True},
mkMigrate "testMigrate"]
([Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
34 26 39 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrOther
(Data.Text.unpackCStringLen#
"some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))]
True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
34 26 39 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Person1Id"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
40 26 46 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
40 26 46 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
47 26 49 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
47 26 49 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMayId"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
50 26 53 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
50 26 53 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
54 26 61 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
54 26 61 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
62 26 65 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
62 26 65 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NeedsPetId"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
69 26 70 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
69 26 70 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
71 26 74 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetCollar"# (ghc-prim:GHC.Types.I# 9#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"# (ghc-prim:GHC.Types.I# 7#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
71 26 74 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
77 26 80 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
77 26 80 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"EmailPTId"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
81 26 85 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
81 26 85 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
87 26 93 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
87 26 93 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertById"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[],
UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
95 26 101 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
95 26 101 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"StrictId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
103 26 106 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
[] False
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
103 26 106 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
108 26 113 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrMigrationOnly, FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)))
[FieldAttrSafeToRemove] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
108 26 113 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False
(Just
(Data.Text.unpackCStringLen#
"This is a doc comment for a relationship.\n\
\Only the first line requires a pipe.\n\
\Pipes are optional on subsequent lines.\n"#
(ghc-prim:GHC.Types.I# 119#)))
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
118 26 121 7)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing
(Just
(Data.Text.unpackCStringLen#
"Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))),
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
118 26 121 7)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
123 26 124 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
123 26 124 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
126 26 127 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
126 26 127 5))])
======>
instance PersistStore backend =>
PersistField (PersonGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "age", "color"]
instance PersistStore backend =>
PersistFieldSql (PersonGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (Person1Generic backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "age"]
instance PersistStore backend =>
PersistFieldSql (Person1Generic backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (PersonMaybeAgeGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "age"]
instance PersistStore backend =>
PersistFieldSql (PersonMaybeAgeGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (PersonMayGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "color"]
instance PersistStore backend =>
PersistFieldSql (PersonMayGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (PetGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["ownerId", "name", "type"]
instance PersistStore backend =>
PersistFieldSql (PetGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (MaybeOwnedPetGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["ownerId", "name", "type"]
instance PersistStore backend =>
PersistFieldSql (MaybeOwnedPetGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (NeedsPetGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["petKey"]
instance PersistStore backend =>
PersistFieldSql (NeedsPetGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (OutdoorPetGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["ownerId", "collar", "type"]
instance PersistStore backend =>
PersistFieldSql (OutdoorPetGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (UserPTGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["ident", "password"]
instance PersistStore backend =>
PersistFieldSql (UserPTGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (EmailPTGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["email", "user", "verkey"]
instance PersistStore backend =>
PersistFieldSql (EmailPTGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (UpsertGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["email", "attr", "extra", "age"]
instance PersistStore backend =>
PersistFieldSql (UpsertGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (UpsertByGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["email", "city", "attr"]
instance PersistStore backend =>
PersistFieldSql (UpsertByGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (StrictGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["yes", "no", "def"]
instance PersistStore backend =>
PersistFieldSql (StrictGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (DudeWeirdColumnsGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name"]
instance PersistStore backend =>
PersistFieldSql (DudeWeirdColumnsGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (RelationshipGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "parent"]
instance PersistStore backend =>
PersistFieldSql (RelationshipGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (MutAGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["mutB"]
instance PersistStore backend =>
PersistFieldSql (MutAGeneric backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (MutBGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["mutA"]
instance PersistStore backend =>
PersistFieldSql (MutBGeneric backend) where
sqlType _ = SqlString
type Person = PersonGeneric SqlBackend
data PersonGeneric backend
= Person {personName :: !Text,
personAge :: !Int,
personColor :: !(Maybe Text)}
deriving stock (Show, Eq)
type PersonId = Key Person
instance PersistStore backend =>
PersistEntity (PersonGeneric backend) where
type PersistEntityBackend (PersonGeneric backend) = backend
data Unique (PersonGeneric backend) = PersonNameKey Text
newtype Key (PersonGeneric backend)
= PersonKey {unPersonKey :: (BackendKey backend)}
data EntityField (PersonGeneric backend) typ
= (typ ~ Key (PersonGeneric backend)) => PersonId |
(typ ~ Text) => PersonName |
(typ ~ Int) => PersonAge |
(typ ~ Maybe Text) => PersonColor
keyToValues
= ((: [])
. (toPersistValue . (\ PersonKey {unPersonKey = x} -> x)))
keyFromValues
= (fmap PersonKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GEz
= ((Entity <$> fromField_a1GEz PersonId)
<*>
(((pure Person <*> fromField_a1GEz PersonName)
<*> fromField_a1GEz PersonAge)
<*> fromField_a1GEz PersonColor))
tabulateEntityApply fromField_a1GEy
= ((Entity <$> fromField_a1GEy PersonId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((Person <$> fromField_a1GEy PersonName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GEy PersonAge)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GEy PersonColor))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"PersonNameKey"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
34 26 39 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [FieldAttrOther
(Data.Text.unpackCStringLen#
"some=ignored -- \" attribute"#
(ghc-prim:GHC.Types.I#
27#))],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"color"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"color"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"#
(ghc-prim:GHC.Types.I#
8#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person x_a1GE8 x_a1GE9 x_a1GEa)
= [toPersistValue x_a1GE8, toPersistValue x_a1GE9,
toPersistValue x_a1GEa]
fromPersistValues [x1_a1GEc, x2_a1GEd, x3_a1GEe]
= Person
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a1GEc
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x2_a1GEd
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x3_a1GEe
fromPersistValues x_a1GEb
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GEb))
persistUniqueToFieldNames PersonNameKey {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
persistUniqueToValues (PersonNameKey x_a1GEf)
= [toPersistValue x_a1GEf]
persistUniqueKeys (Person _name_a1GEg _age_a1GEh _color_a1GEi)
= [PersonNameKey _name_a1GEg]
persistFieldDef PersonId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef PersonName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Person)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef PersonAge
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Person)
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
persistFieldDef PersonColor
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Person)
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
persistIdField = PersonId
fieldLens PersonId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GEk) key_a1GEl
-> Entity key_a1GEl value_a1GEk)
fieldLens PersonName
= Database.Persist.TH.Internal.lensPTH
((\ Person {personName = x} -> x) . entityVal)
(\ (Entity key_a1GEm value_a1GEn) x_a1GEo
-> Entity
key_a1GEm
(case value_a1GEn of
Person {personAge = personAge_a1GEq,
personColor = personColor_a1GEr}
-> Person
{personName = x_a1GEo, personAge = personAge,
personColor = personColor}))
fieldLens PersonAge
= Database.Persist.TH.Internal.lensPTH
((\ Person {personAge = x} -> x) . entityVal)
(\ (Entity key_a1GEm value_a1GEn) x_a1GEo
-> Entity
key_a1GEm
(case value_a1GEn of
Person {personName = personName_a1GEs,
personColor = personColor_a1GEu}
-> Person
{personName = personName, personAge = x_a1GEo,
personColor = personColor}))
fieldLens PersonColor
= Database.Persist.TH.Internal.lensPTH
((\ Person {personColor = x} -> x) . entityVal)
(\ (Entity key_a1GEm value_a1GEn) x_a1GEo
-> Entity
key_a1GEm
(case value_a1GEn of
Person {personName = personName_a1GEv, personAge = personAge_a1GEw}
-> Person
{personName = personName, personAge = personAge,
personColor = x_a1GEo}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (PersonGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (PersonGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (PersonGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (PersonGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (PersonGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (PersonGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (PersonGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (PersonGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (PersonGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (PersonGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (PersonGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (PersonGeneric backend) where
toBackendKey = \ PersonKey {unPersonKey = x} -> x
fromBackendKey = PersonKey
type Person1 = Person1Generic SqlBackend
data Person1Generic backend
= Person1 {person1Name :: !Text, person1Age :: !Int}
deriving stock (Show, Eq)
type Person1Id = Key Person1
instance PersistStore backend =>
PersistEntity (Person1Generic backend) where
type PersistEntityBackend (Person1Generic backend) = backend
data Unique (Person1Generic backend)
newtype Key (Person1Generic backend)
= Person1Key {unPerson1Key :: (BackendKey backend)}
data EntityField (Person1Generic backend) typ
= (typ ~ Key (Person1Generic backend)) => Person1Id |
(typ ~ Text) => Person1Name |
(typ ~ Int) => Person1Age
keyToValues
= ((: [])
. (toPersistValue . (\ Person1Key {unPerson1Key = x} -> x)))
keyFromValues
= (fmap Person1Key
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GES
= ((Entity <$> fromField_a1GES Person1Id)
<*>
((pure Person1 <*> fromField_a1GES Person1Name)
<*> fromField_a1GES Person1Age))
tabulateEntityApply fromField_a1GER
= ((Entity <$> fromField_a1GER Person1Id)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((Person1 <$> fromField_a1GER Person1Name)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GER Person1Age))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Person1"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Person1Id"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
40 26 46 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Person1Id"#
(ghc-prim:GHC.Types.I#
9#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person1 x_a1GEA x_a1GEB)
= [toPersistValue x_a1GEA, toPersistValue x_a1GEB]
fromPersistValues [x1_a1GED, x2_a1GEE]
= Person1
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a1GED
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x2_a1GEE
fromPersistValues x_a1GEC
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a1GEC))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Person1 _name_a1GEF _age_a1GEG) = []
persistFieldDef Person1Id
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Person1Id"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef Person1Name
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Person1)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef Person1Age
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Person1)
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
persistIdField = Person1Id
fieldLens Person1Id
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GEI) key_a1GEJ
-> Entity key_a1GEJ value_a1GEI)
fieldLens Person1Name
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Name = x} -> x) . entityVal)
(\ (Entity key_a1GEK value_a1GEL) x_a1GEM
-> Entity
key_a1GEK
(case value_a1GEL of
Person1 {person1Age = person1Age_a1GEO}
-> Person1 {person1Name = x_a1GEM, person1Age = person1Age}))
fieldLens Person1Age
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Age = x} -> x) . entityVal)
(\ (Entity key_a1GEK value_a1GEL) x_a1GEM
-> Entity
key_a1GEK
(case value_a1GEL of
Person1 {person1Name = person1Name_a1GEP}
-> Person1 {person1Name = person1Name, person1Age = x_a1GEM}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (Person1Generic backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (Person1Generic backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (Person1Generic backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (Person1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (Person1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (Person1Generic backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (Person1Generic backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (Person1Generic backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (Person1Generic backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (Person1Generic backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (Person1Generic backend))
instance PersistStore backend =>
ToBackendKey backend (Person1Generic backend) where
toBackendKey = \ Person1Key {unPerson1Key = x} -> x
fromBackendKey = Person1Key
type PersonMaybeAge = PersonMaybeAgeGeneric SqlBackend
data PersonMaybeAgeGeneric backend
= PersonMaybeAge {personMaybeAgeName :: !Text,
personMaybeAgeAge :: !(Maybe Int)}
type PersonMaybeAgeId = Key PersonMaybeAge
instance PersistStore backend =>
PersistEntity (PersonMaybeAgeGeneric backend) where
type PersistEntityBackend (PersonMaybeAgeGeneric backend) = backend
data Unique (PersonMaybeAgeGeneric backend)
newtype Key (PersonMaybeAgeGeneric backend)
= PersonMaybeAgeKey {unPersonMaybeAgeKey :: (BackendKey backend)}
data EntityField (PersonMaybeAgeGeneric backend) typ
= (typ ~ Key (PersonMaybeAgeGeneric backend)) => PersonMaybeAgeId |
(typ ~ Text) => PersonMaybeAgeName |
(typ ~ Maybe Int) => PersonMaybeAgeAge
keyToValues
= ((: [])
. (toPersistValue
. (\ PersonMaybeAgeKey {unPersonMaybeAgeKey = x} -> x)))
keyFromValues
= (fmap PersonMaybeAgeKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GFb
= ((Entity <$> fromField_a1GFb PersonMaybeAgeId)
<*>
((pure PersonMaybeAge <*> fromField_a1GFb PersonMaybeAgeName)
<*> fromField_a1GFb PersonMaybeAgeAge))
tabulateEntityApply fromField_a1GFa
= ((Entity <$> fromField_a1GFa PersonMaybeAgeId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((PersonMaybeAge <$> fromField_a1GFa PersonMaybeAgeName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GFa PersonMaybeAgeAge))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
47 26 49 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMaybeAgeId"#
(ghc-prim:GHC.Types.I#
16#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMaybeAge x_a1GET x_a1GEU)
= [toPersistValue x_a1GET, toPersistValue x_a1GEU]
fromPersistValues [x1_a1GEW, x2_a1GEX]
= PersonMaybeAge
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a1GEW
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x2_a1GEX
fromPersistValues x_a1GEV
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMaybeAge: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 45#))
(Data.Text.Internal.pack $ show x_a1GEV))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMaybeAge _name_a1GEY _age_a1GEZ) = []
persistFieldDef PersonMaybeAgeId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef PersonMaybeAgeName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy PersonMaybeAge)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef PersonMaybeAgeAge
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy PersonMaybeAge)
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
persistIdField = PersonMaybeAgeId
fieldLens PersonMaybeAgeId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GF1) key_a1GF2
-> Entity key_a1GF2 value_a1GF1)
fieldLens PersonMaybeAgeName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeName = x} -> x) . entityVal)
(\ (Entity key_a1GF3 value_a1GF4) x_a1GF5
-> Entity
key_a1GF3
(case value_a1GF4 of
PersonMaybeAge {personMaybeAgeAge = personMaybeAgeAge_a1GF7}
-> PersonMaybeAge
{personMaybeAgeName = x_a1GF5,
personMaybeAgeAge = personMaybeAgeAge}))
fieldLens PersonMaybeAgeAge
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeAge = x} -> x) . entityVal)
(\ (Entity key_a1GF3 value_a1GF4) x_a1GF5
-> Entity
key_a1GF3
(case value_a1GF4 of
PersonMaybeAge {personMaybeAgeName = personMaybeAgeName_a1GF8}
-> PersonMaybeAge
{personMaybeAgeName = personMaybeAgeName,
personMaybeAgeAge = x_a1GF5}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (PersonMaybeAgeGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (PersonMaybeAgeGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (PersonMaybeAgeGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (PersonMaybeAgeGeneric backend) where
toBackendKey = \ PersonMaybeAgeKey {unPersonMaybeAgeKey = x} -> x
fromBackendKey = PersonMaybeAgeKey
type PersonMay = PersonMayGeneric SqlBackend
data PersonMayGeneric backend
= PersonMay {personMayName :: !(Maybe Text),
personMayColor :: !(Maybe Text)}
deriving stock (Show, Eq)
type PersonMayId = Key PersonMay
instance PersistStore backend =>
PersistEntity (PersonMayGeneric backend) where
type PersistEntityBackend (PersonMayGeneric backend) = backend
data Unique (PersonMayGeneric backend)
newtype Key (PersonMayGeneric backend)
= PersonMayKey {unPersonMayKey :: (BackendKey backend)}
data EntityField (PersonMayGeneric backend) typ
= (typ ~ Key (PersonMayGeneric backend)) => PersonMayId |
(typ ~ Maybe Text) => PersonMayName |
(typ ~ Maybe Text) => PersonMayColor
keyToValues
= ((: [])
. (toPersistValue . (\ PersonMayKey {unPersonMayKey = x} -> x)))
keyFromValues
= (fmap PersonMayKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GFu
= ((Entity <$> fromField_a1GFu PersonMayId)
<*>
((pure PersonMay <*> fromField_a1GFu PersonMayName)
<*> fromField_a1GFu PersonMayColor))
tabulateEntityApply fromField_a1GFt
= ((Entity <$> fromField_a1GFt PersonMayId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((PersonMay <$> fromField_a1GFt PersonMayName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GFt PersonMayColor))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMayId"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] []
[] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
50 26 53 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"color"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"color"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMayId"#
(ghc-prim:GHC.Types.I#
11#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMay x_a1GFc x_a1GFd)
= [toPersistValue x_a1GFc, toPersistValue x_a1GFd]
fromPersistValues [x1_a1GFf, x2_a1GFg]
= PersonMay
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a1GFf
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"PersonMay"# (ghc-prim:GHC.Types.I# 9#))
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x2_a1GFg
fromPersistValues x_a1GFe
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMay: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a1GFe))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMay _name_a1GFh _color_a1GFi) = []
persistFieldDef PersonMayId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonMayId"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef PersonMayName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy PersonMay)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef PersonMayColor
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy PersonMay)
(FieldNameHS
(Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)))
persistIdField = PersonMayId
fieldLens PersonMayId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GFk) key_a1GFl
-> Entity key_a1GFl value_a1GFk)
fieldLens PersonMayName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayName = x} -> x) . entityVal)
(\ (Entity key_a1GFm value_a1GFn) x_a1GFo
-> Entity
key_a1GFm
(case value_a1GFn of
PersonMay {personMayColor = personMayColor_a1GFq}
-> PersonMay
{personMayName = x_a1GFo, personMayColor = personMayColor}))
fieldLens PersonMayColor
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayColor = x} -> x) . entityVal)
(\ (Entity key_a1GFm value_a1GFn) x_a1GFo
-> Entity
key_a1GFm
(case value_a1GFn of
PersonMay {personMayName = personMayName_a1GFr}
-> PersonMay
{personMayName = personMayName, personMayColor = x_a1GFo}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (PersonMayGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (PersonMayGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (PersonMayGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (PersonMayGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (PersonMayGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (PersonMayGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (PersonMayGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (PersonMayGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (PersonMayGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (PersonMayGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (PersonMayGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (PersonMayGeneric backend) where
toBackendKey = \ PersonMayKey {unPersonMayKey = x} -> x
fromBackendKey = PersonMayKey
type Pet = PetGeneric SqlBackend
data PetGeneric backend
= Pet {petOwnerId :: !(Key (PersonGeneric backend)),
petName :: !Text,
petType :: !PetType}
type PetId = Key Pet
instance PersistStore backend =>
PersistEntity (PetGeneric backend) where
type PersistEntityBackend (PetGeneric backend) = backend
data Unique (PetGeneric backend)
newtype Key (PetGeneric backend)
= PetKey {unPetKey :: (BackendKey backend)}
data EntityField (PetGeneric backend) typ
= (typ ~ Key (PetGeneric backend)) => PetId |
(typ ~ Key (PersonGeneric backend)) => PetOwnerId |
(typ ~ Text) => PetName |
(typ ~ PetType) => PetType
keyToValues
= ((: []) . (toPersistValue . (\ PetKey {unPetKey = x} -> x)))
keyFromValues
= (fmap PetKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GFV
= ((Entity <$> fromField_a1GFV PetId)
<*>
(((pure Pet <*> fromField_a1GFV PetOwnerId)
<*> fromField_a1GFV PetName)
<*> fromField_a1GFV PetType))
tabulateEntityApply fromField_a1GFU
= ((Entity <$> fromField_a1GFU PetId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((Pet <$> fromField_a1GFU PetOwnerId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GFU PetName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GFU PetType))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
54 26 61 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"#
(ghc-prim:GHC.Types.I#
8#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PersonId),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person"#
(ghc-prim:GHC.Types.I#
6#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"#
(ghc-prim:GHC.Types.I#
7#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PetType),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetId"#
(ghc-prim:GHC.Types.I#
5#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Pet x_a1GFv x_a1GFw x_a1GFx)
= [toPersistValue x_a1GFv, toPersistValue x_a1GFw,
toPersistValue x_a1GFx]
fromPersistValues [x1_a1GFz, x2_a1GFA, x3_a1GFB]
= Pet
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
. fromPersistValue)
x1_a1GFz
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x2_a1GFA
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x3_a1GFB
fromPersistValues x_a1GFy
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Pet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 34#))
(Data.Text.Internal.pack $ show x_a1GFy))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Pet _ownerId_a1GFC _name_a1GFD _type_a1GFE) = []
persistFieldDef PetId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef PetOwnerId
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Pet)
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
persistFieldDef PetName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Pet)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef PetType
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Pet)
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = PetId
fieldLens PetId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GFG) key_a1GFH
-> Entity key_a1GFH value_a1GFG)
fieldLens PetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petOwnerId = x} -> x) . entityVal)
(\ (Entity key_a1GFI value_a1GFJ) x_a1GFK
-> Entity
key_a1GFI
(case value_a1GFJ of
Pet {petName = petName_a1GFM, petType = petType_a1GFN}
-> Pet
{petOwnerId = x_a1GFK, petName = petName, petType = petType}))
fieldLens PetName
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petName = x} -> x) . entityVal)
(\ (Entity key_a1GFI value_a1GFJ) x_a1GFK
-> Entity
key_a1GFI
(case value_a1GFJ of
Pet {petOwnerId = petOwnerId_a1GFO, petType = petType_a1GFQ}
-> Pet
{petOwnerId = petOwnerId, petName = x_a1GFK, petType = petType}))
fieldLens PetType
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petType = x} -> x) . entityVal)
(\ (Entity key_a1GFI value_a1GFJ) x_a1GFK
-> Entity
key_a1GFI
(case value_a1GFJ of
Pet {petOwnerId = petOwnerId_a1GFR, petName = petName_a1GFS}
-> Pet
{petOwnerId = petOwnerId, petName = petName, petType = x_a1GFK}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (PetGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (PetGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (PetGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (PetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (PetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (PetGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (PetGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (PetGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (PetGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (PetGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (PetGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (PetGeneric backend) where
toBackendKey = \ PetKey {unPetKey = x} -> x
fromBackendKey = PetKey
type MaybeOwnedPet = MaybeOwnedPetGeneric SqlBackend
data MaybeOwnedPetGeneric backend
= MaybeOwnedPet {maybeOwnedPetOwnerId :: !(Maybe (Key (PersonGeneric backend))),
maybeOwnedPetName :: !Text,
maybeOwnedPetType :: !PetType}
type MaybeOwnedPetId = Key MaybeOwnedPet
instance PersistStore backend =>
PersistEntity (MaybeOwnedPetGeneric backend) where
type PersistEntityBackend (MaybeOwnedPetGeneric backend) = backend
data Unique (MaybeOwnedPetGeneric backend)
newtype Key (MaybeOwnedPetGeneric backend)
= MaybeOwnedPetKey {unMaybeOwnedPetKey :: (BackendKey backend)}
data EntityField (MaybeOwnedPetGeneric backend) typ
= (typ ~ Key (MaybeOwnedPetGeneric backend)) => MaybeOwnedPetId |
(typ ~ Maybe (Key (PersonGeneric backend))) =>
MaybeOwnedPetOwnerId |
(typ ~ Text) => MaybeOwnedPetName |
(typ ~ PetType) => MaybeOwnedPetType
keyToValues
= ((: [])
. (toPersistValue
. (\ MaybeOwnedPetKey {unMaybeOwnedPetKey = x} -> x)))
keyFromValues
= (fmap MaybeOwnedPetKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GGm
= ((Entity <$> fromField_a1GGm MaybeOwnedPetId)
<*>
(((pure MaybeOwnedPet <*> fromField_a1GGm MaybeOwnedPetOwnerId)
<*> fromField_a1GGm MaybeOwnedPetName)
<*> fromField_a1GGm MaybeOwnedPetType))
tabulateEntityApply fromField_a1GGl
= ((Entity <$> fromField_a1GGl MaybeOwnedPetId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((MaybeOwnedPet <$> fromField_a1GGl MaybeOwnedPetOwnerId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GGl MaybeOwnedPetName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GGl MaybeOwnedPetType))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
62 26 65 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"#
(ghc-prim:GHC.Types.I#
8#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PersonId),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person"#
(ghc-prim:GHC.Types.I#
6#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"#
(ghc-prim:GHC.Types.I#
7#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PetType),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MaybeOwnedPetId"#
(ghc-prim:GHC.Types.I#
15#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MaybeOwnedPet x_a1GFW x_a1GFX x_a1GFY)
= [toPersistValue x_a1GFW, toPersistValue x_a1GFX,
toPersistValue x_a1GFY]
fromPersistValues [x1_a1GG0, x2_a1GG1, x3_a1GG2]
= MaybeOwnedPet
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
. fromPersistValue)
x1_a1GG0
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x2_a1GG1
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x3_a1GG2
fromPersistValues x_a1GFZ
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MaybeOwnedPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a1GFZ))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(MaybeOwnedPet _ownerId_a1GG3 _name_a1GG4 _type_a1GG5)
= []
persistFieldDef MaybeOwnedPetId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef MaybeOwnedPetOwnerId
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy MaybeOwnedPet)
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
persistFieldDef MaybeOwnedPetName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy MaybeOwnedPet)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef MaybeOwnedPetType
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy MaybeOwnedPet)
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = MaybeOwnedPetId
fieldLens MaybeOwnedPetId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GG7) key_a1GG8
-> Entity key_a1GG8 value_a1GG7)
fieldLens MaybeOwnedPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a1GG9 value_a1GGa) x_a1GGb
-> Entity
key_a1GG9
(case value_a1GGa of
MaybeOwnedPet {maybeOwnedPetName = maybeOwnedPetName_a1GGd,
maybeOwnedPetType = maybeOwnedPetType_a1GGe}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = x_a1GGb,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetName
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetName = x} -> x) . entityVal)
(\ (Entity key_a1GG9 value_a1GGa) x_a1GGb
-> Entity
key_a1GG9
(case value_a1GGa of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a1GGf,
maybeOwnedPetType = maybeOwnedPetType_a1GGh}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = x_a1GGb,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetType
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetType = x} -> x) . entityVal)
(\ (Entity key_a1GG9 value_a1GGa) x_a1GGb
-> Entity
key_a1GG9
(case value_a1GGa of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a1GGi,
maybeOwnedPetName = maybeOwnedPetName_a1GGj}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = x_a1GGb}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (MaybeOwnedPetGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (MaybeOwnedPetGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (MaybeOwnedPetGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (MaybeOwnedPetGeneric backend) where
toBackendKey = \ MaybeOwnedPetKey {unMaybeOwnedPetKey = x} -> x
fromBackendKey = MaybeOwnedPetKey
type NeedsPet = NeedsPetGeneric SqlBackend
data NeedsPetGeneric backend
= NeedsPet {needsPetPetKey :: !(Key (PetGeneric backend))}
type NeedsPetId = Key NeedsPet
instance PersistStore backend =>
PersistEntity (NeedsPetGeneric backend) where
type PersistEntityBackend (NeedsPetGeneric backend) = backend
data Unique (NeedsPetGeneric backend)
newtype Key (NeedsPetGeneric backend)
= NeedsPetKey {unNeedsPetKey :: (BackendKey backend)}
data EntityField (NeedsPetGeneric backend) typ
= (typ ~ Key (NeedsPetGeneric backend)) => NeedsPetId |
(typ ~ Key (PetGeneric backend)) => NeedsPetPetKey
keyToValues
= ((: [])
. (toPersistValue . (\ NeedsPetKey {unNeedsPetKey = x} -> x)))
keyFromValues
= (fmap NeedsPetKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GGz
= ((Entity <$> fromField_a1GGz NeedsPetId)
<*> (pure NeedsPet <*> fromField_a1GGz NeedsPetPetKey))
tabulateEntityApply fromField_a1GGy
= ((Entity <$> fromField_a1GGy NeedsPetId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(NeedsPet <$> fromField_a1GGy NeedsPetPetKey))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NeedsPetId"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
69 26 70 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"petKey"#
(ghc-prim:GHC.Types.I#
6#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"petKey"#
(ghc-prim:GHC.Types.I#
6#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetId"#
(ghc-prim:GHC.Types.I#
5#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PetId),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Pet"#
(ghc-prim:GHC.Types.I#
3#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NeedsPetId"#
(ghc-prim:GHC.Types.I#
10#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NeedsPet x_a1GGn) = [toPersistValue x_a1GGn]
fromPersistValues [x1_a1GGp]
= NeedsPet
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"NeedsPet"# (ghc-prim:GHC.Types.I# 8#))
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
. fromPersistValue)
x1_a1GGp
fromPersistValues x_a1GGo
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NeedsPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a1GGo))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NeedsPet _petKey_a1GGq) = []
persistFieldDef NeedsPetId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NeedsPetId"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef NeedsPetPetKey
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NeedsPet)
(FieldNameHS
(Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)))
persistIdField = NeedsPetId
fieldLens NeedsPetId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GGs) key_a1GGt
-> Entity key_a1GGt value_a1GGs)
fieldLens NeedsPetPetKey
= Database.Persist.TH.Internal.lensPTH
((\ NeedsPet {needsPetPetKey = x} -> x) . entityVal)
(\ (Entity key_a1GGu value_a1GGv) x_a1GGw
-> Entity
key_a1GGu
(case value_a1GGv of
NeedsPet {} -> NeedsPet {needsPetPetKey = x_a1GGw}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (NeedsPetGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (NeedsPetGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (NeedsPetGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (NeedsPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (NeedsPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (NeedsPetGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (NeedsPetGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (NeedsPetGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (NeedsPetGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (NeedsPetGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (NeedsPetGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (NeedsPetGeneric backend) where
toBackendKey = \ NeedsPetKey {unNeedsPetKey = x} -> x
fromBackendKey = NeedsPetKey
type OutdoorPet = OutdoorPetGeneric SqlBackend
data OutdoorPetGeneric backend
= OutdoorPet {outdoorPetOwnerId :: !(Key (PersonGeneric backend)),
outdoorPetCollar :: !PetCollar,
outdoorPetType :: !PetType}
type OutdoorPetId = Key OutdoorPet
instance PersistStore backend =>
PersistEntity (OutdoorPetGeneric backend) where
type PersistEntityBackend (OutdoorPetGeneric backend) = backend
data Unique (OutdoorPetGeneric backend)
newtype Key (OutdoorPetGeneric backend)
= OutdoorPetKey {unOutdoorPetKey :: (BackendKey backend)}
data EntityField (OutdoorPetGeneric backend) typ
= (typ ~ Key (OutdoorPetGeneric backend)) => OutdoorPetId |
(typ ~ Key (PersonGeneric backend)) => OutdoorPetOwnerId |
(typ ~ PetCollar) => OutdoorPetCollar |
(typ ~ PetType) => OutdoorPetType
keyToValues
= ((: [])
. (toPersistValue . (\ OutdoorPetKey {unOutdoorPetKey = x} -> x)))
keyFromValues
= (fmap OutdoorPetKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GH0
= ((Entity <$> fromField_a1GH0 OutdoorPetId)
<*>
(((pure OutdoorPet <*> fromField_a1GH0 OutdoorPetOwnerId)
<*> fromField_a1GH0 OutdoorPetCollar)
<*> fromField_a1GH0 OutdoorPetType))
tabulateEntityApply fromField_a1GGZ
= ((Entity <$> fromField_a1GGZ OutdoorPetId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((OutdoorPet <$> fromField_a1GGZ OutdoorPetOwnerId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GGZ OutdoorPetCollar)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GGZ OutdoorPetType))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
71 26 74 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"ownerId"#
(ghc-prim:GHC.Types.I#
7#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PersonId"#
(ghc-prim:GHC.Types.I#
8#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PersonId),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Person"#
(ghc-prim:GHC.Types.I#
6#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"collar"#
(ghc-prim:GHC.Types.I#
6#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"collar"#
(ghc-prim:GHC.Types.I#
6#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetCollar"#
(ghc-prim:GHC.Types.I#
9#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PetCollar),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"type"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"PetType"#
(ghc-prim:GHC.Types.I#
7#)),
fieldSqlType = sqlType
(Proxy ::
Proxy PetType),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"OutdoorPetId"#
(ghc-prim:GHC.Types.I#
12#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (OutdoorPet x_a1GGA x_a1GGB x_a1GGC)
= [toPersistValue x_a1GGA, toPersistValue x_a1GGB,
toPersistValue x_a1GGC]
fromPersistValues [x1_a1GGE, x2_a1GGF, x3_a1GGG]
= OutdoorPet
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
. fromPersistValue)
x1_a1GGE
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
. fromPersistValue)
x2_a1GGF
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x3_a1GGG
fromPersistValues x_a1GGD
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"OutdoorPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 41#))
(Data.Text.Internal.pack $ show x_a1GGD))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(OutdoorPet _ownerId_a1GGH _collar_a1GGI _type_a1GGJ)
= []
persistFieldDef OutdoorPetId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef OutdoorPetOwnerId
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy OutdoorPet)
(FieldNameHS
(Data.Text.unpackCStringLen#
"ownerId"# (ghc-prim:GHC.Types.I# 7#)))
persistFieldDef OutdoorPetCollar
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy OutdoorPet)
(FieldNameHS
(Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)))
persistFieldDef OutdoorPetType
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy OutdoorPet)
(FieldNameHS
(Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = OutdoorPetId
fieldLens OutdoorPetId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GGL) key_a1GGM
-> Entity key_a1GGM value_a1GGL)
fieldLens OutdoorPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a1GGN value_a1GGO) x_a1GGP
-> Entity
key_a1GGN
(case value_a1GGO of
OutdoorPet {outdoorPetCollar = outdoorPetCollar_a1GGR,
outdoorPetType = outdoorPetType_a1GGS}
-> OutdoorPet
{outdoorPetOwnerId = x_a1GGP, outdoorPetCollar = outdoorPetCollar,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetCollar
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetCollar = x} -> x) . entityVal)
(\ (Entity key_a1GGN value_a1GGO) x_a1GGP
-> Entity
key_a1GGN
(case value_a1GGO of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a1GGT,
outdoorPetType = outdoorPetType_a1GGV}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = x_a1GGP,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetType
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetType = x} -> x) . entityVal)
(\ (Entity key_a1GGN value_a1GGO) x_a1GGP
-> Entity
key_a1GGN
(case value_a1GGO of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a1GGW,
outdoorPetCollar = outdoorPetCollar_a1GGX}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId,
outdoorPetCollar = outdoorPetCollar, outdoorPetType = x_a1GGP}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (OutdoorPetGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (OutdoorPetGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (OutdoorPetGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (OutdoorPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (OutdoorPetGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (OutdoorPetGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (OutdoorPetGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (OutdoorPetGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (OutdoorPetGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (OutdoorPetGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (OutdoorPetGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (OutdoorPetGeneric backend) where
toBackendKey = \ OutdoorPetKey {unOutdoorPetKey = x} -> x
fromBackendKey = OutdoorPetKey
type UserPT = UserPTGeneric SqlBackend
data UserPTGeneric backend
= UserPT {userPTIdent :: !Text, userPTPassword :: !(Maybe Text)}
type UserPTId = Key UserPT
instance PersistStore backend =>
PersistEntity (UserPTGeneric backend) where
type PersistEntityBackend (UserPTGeneric backend) = backend
data Unique (UserPTGeneric backend) = UniqueUserPT Text
newtype Key (UserPTGeneric backend)
= UserPTKey {unUserPTKey :: (BackendKey backend)}
data EntityField (UserPTGeneric backend) typ
= (typ ~ Key (UserPTGeneric backend)) => UserPTId |
(typ ~ Text) => UserPTIdent |
(typ ~ Maybe Text) => UserPTPassword
keyToValues
= ((: [])
. (toPersistValue . (\ UserPTKey {unUserPTKey = x} -> x)))
keyFromValues
= (fmap UserPTKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GHk
= ((Entity <$> fromField_a1GHk UserPTId)
<*>
((pure UserPT <*> fromField_a1GHk UserPTIdent)
<*> fromField_a1GHk UserPTPassword))
tabulateEntityApply fromField_a1GHj
= ((Entity <$> fromField_a1GHj UserPTId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((UserPT <$> fromField_a1GHj UserPTIdent)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GHj UserPTPassword))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
77 26 80 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"ident"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"ident"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"password"#
(ghc-prim:GHC.Types.I#
8#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"password"#
(ghc-prim:GHC.Types.I#
8#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"#
(ghc-prim:GHC.Types.I#
8#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UserPT x_a1GH1 x_a1GH2)
= [toPersistValue x_a1GH1, toPersistValue x_a1GH2]
fromPersistValues [x1_a1GH4, x2_a1GH5]
= UserPT
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x1_a1GH4
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
. fromPersistValue)
x2_a1GH5
fromPersistValues x_a1GH3
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UserPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GH3))
persistUniqueToFieldNames UniqueUserPT {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
persistUniqueToValues (UniqueUserPT x_a1GH6)
= [toPersistValue x_a1GH6]
persistUniqueKeys (UserPT _ident_a1GH7 _password_a1GH8)
= [UniqueUserPT _ident_a1GH7]
persistFieldDef UserPTId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef UserPTIdent
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy UserPT)
(FieldNameHS
(Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)))
persistFieldDef UserPTPassword
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy UserPT)
(FieldNameHS
(Data.Text.unpackCStringLen#
"password"# (ghc-prim:GHC.Types.I# 8#)))
persistIdField = UserPTId
fieldLens UserPTId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GHa) key_a1GHb
-> Entity key_a1GHb value_a1GHa)
fieldLens UserPTIdent
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTIdent = x} -> x) . entityVal)
(\ (Entity key_a1GHc value_a1GHd) x_a1GHe
-> Entity
key_a1GHc
(case value_a1GHd of
UserPT {userPTPassword = userPTPassword_a1GHg}
-> UserPT
{userPTIdent = x_a1GHe, userPTPassword = userPTPassword}))
fieldLens UserPTPassword
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTPassword = x} -> x) . entityVal)
(\ (Entity key_a1GHc value_a1GHd) x_a1GHe
-> Entity
key_a1GHc
(case value_a1GHd of
UserPT {userPTIdent = userPTIdent_a1GHh}
-> UserPT {userPTIdent = userPTIdent, userPTPassword = x_a1GHe}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (UserPTGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (UserPTGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (UserPTGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (UserPTGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (UserPTGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (UserPTGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (UserPTGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (UserPTGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (UserPTGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (UserPTGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (UserPTGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (UserPTGeneric backend) where
toBackendKey = \ UserPTKey {unUserPTKey = x} -> x
fromBackendKey = UserPTKey
type EmailPT = EmailPTGeneric SqlBackend
data EmailPTGeneric backend
= EmailPT {emailPTEmail :: !Text,
emailPTUser :: !(Maybe (Key (UserPTGeneric backend))),
emailPTVerkey :: !(Maybe Text)}
type EmailPTId = Key EmailPT
instance PersistStore backend =>
PersistEntity (EmailPTGeneric backend) where
type PersistEntityBackend (EmailPTGeneric backend) = backend
data Unique (EmailPTGeneric backend) = UniqueEmailPT Text
newtype Key (EmailPTGeneric backend)
= EmailPTKey {unEmailPTKey :: (BackendKey backend)}
data EntityField (EmailPTGeneric backend) typ
= (typ ~ Key (EmailPTGeneric backend)) => EmailPTId |
(typ ~ Text) => EmailPTEmail |
(typ ~ Maybe (Key (UserPTGeneric backend))) => EmailPTUser |
(typ ~ Maybe Text) => EmailPTVerkey
keyToValues
= ((: [])
. (toPersistValue . (\ EmailPTKey {unEmailPTKey = x} -> x)))
keyFromValues
= (fmap EmailPTKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GHM
= ((Entity <$> fromField_a1GHM EmailPTId)
<*>
(((pure EmailPT <*> fromField_a1GHM EmailPTEmail)
<*> fromField_a1GHM EmailPTUser)
<*> fromField_a1GHM EmailPTVerkey))
tabulateEntityApply fromField_a1GHL
= ((Entity <$> fromField_a1GHL EmailPTId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((EmailPT <$> fromField_a1GHL EmailPTEmail)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GHL EmailPTUser)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GHL EmailPTVerkey))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"EmailPT"# (ghc-prim:GHC.Types.I# 7#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"EmailPTId"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
81 26 85 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"user"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"user"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UserPTId"#
(ghc-prim:GHC.Types.I#
8#)),
fieldSqlType = sqlType
(Proxy ::
Proxy UserPTId),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"UserPT"#
(ghc-prim:GHC.Types.I#
6#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"verkey"#
(ghc-prim:GHC.Types.I#
6#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"verkey"#
(ghc-prim:GHC.Types.I#
6#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"EmailPTId"#
(ghc-prim:GHC.Types.I#
9#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (EmailPT x_a1GHl x_a1GHm x_a1GHn)
= [toPersistValue x_a1GHl, toPersistValue x_a1GHm,
toPersistValue x_a1GHn]
fromPersistValues [x1_a1GHp, x2_a1GHq, x3_a1GHr]
= EmailPT
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x1_a1GHp
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x2_a1GHq
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
. fromPersistValue)
x3_a1GHr
fromPersistValues x_a1GHo
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"EmailPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a1GHo))
persistUniqueToFieldNames UniqueEmailPT {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
persistUniqueToValues (UniqueEmailPT x_a1GHs)
= [toPersistValue x_a1GHs]
persistUniqueKeys (EmailPT _email_a1GHt _user_a1GHu _verkey_a1GHv)
= [UniqueEmailPT _email_a1GHt]
persistFieldDef EmailPTId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"EmailPTId"# (ghc-prim:GHC.Types.I# 9#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef EmailPTEmail
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy EmailPT)
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
persistFieldDef EmailPTUser
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy EmailPT)
(FieldNameHS
(Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef EmailPTVerkey
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy EmailPT)
(FieldNameHS
(Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)))
persistIdField = EmailPTId
fieldLens EmailPTId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GHx) key_a1GHy
-> Entity key_a1GHy value_a1GHx)
fieldLens EmailPTEmail
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTEmail = x} -> x) . entityVal)
(\ (Entity key_a1GHz value_a1GHA) x_a1GHB
-> Entity
key_a1GHz
(case value_a1GHA of
EmailPT {emailPTUser = emailPTUser_a1GHD,
emailPTVerkey = emailPTVerkey_a1GHE}
-> EmailPT
{emailPTEmail = x_a1GHB, emailPTUser = emailPTUser,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTUser
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTUser = x} -> x) . entityVal)
(\ (Entity key_a1GHz value_a1GHA) x_a1GHB
-> Entity
key_a1GHz
(case value_a1GHA of
EmailPT {emailPTEmail = emailPTEmail_a1GHF,
emailPTVerkey = emailPTVerkey_a1GHH}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = x_a1GHB,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTVerkey
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTVerkey = x} -> x) . entityVal)
(\ (Entity key_a1GHz value_a1GHA) x_a1GHB
-> Entity
key_a1GHz
(case value_a1GHA of
EmailPT {emailPTEmail = emailPTEmail_a1GHI,
emailPTUser = emailPTUser_a1GHJ}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = emailPTUser,
emailPTVerkey = x_a1GHB}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (EmailPTGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (EmailPTGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (EmailPTGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (EmailPTGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (EmailPTGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (EmailPTGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (EmailPTGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (EmailPTGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (EmailPTGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (EmailPTGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (EmailPTGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (EmailPTGeneric backend) where
toBackendKey = \ EmailPTKey {unEmailPTKey = x} -> x
fromBackendKey = EmailPTKey
type Upsert = UpsertGeneric SqlBackend
data UpsertGeneric backend
= Upsert {upsertEmail :: !Text,
upsertAttr :: !Text,
upsertExtra :: !Text,
upsertAge :: !Int}
deriving stock (Eq, Show)
type UpsertId = Key Upsert
instance PersistStore backend =>
PersistEntity (UpsertGeneric backend) where
type PersistEntityBackend (UpsertGeneric backend) = backend
data Unique (UpsertGeneric backend) = UniqueUpsert Text
newtype Key (UpsertGeneric backend)
= UpsertKey {unUpsertKey :: (BackendKey backend)}
data EntityField (UpsertGeneric backend) typ
= (typ ~ Key (UpsertGeneric backend)) => UpsertId |
(typ ~ Text) => UpsertEmail |
(typ ~ Text) => UpsertAttr |
(typ ~ Text) => UpsertExtra |
(typ ~ Int) => UpsertAge
keyToValues
= ((: [])
. (toPersistValue . (\ UpsertKey {unUpsertKey = x} -> x)))
keyFromValues
= (fmap UpsertKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GIo
= ((Entity <$> fromField_a1GIo UpsertId)
<*>
((((pure Upsert <*> fromField_a1GIo UpsertEmail)
<*> fromField_a1GIo UpsertAttr)
<*> fromField_a1GIo UpsertExtra)
<*> fromField_a1GIo UpsertAge))
tabulateEntityApply fromField_a1GIn
= ((Entity <$> fromField_a1GIn UpsertId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((((Upsert <$> fromField_a1GIn UpsertEmail)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GIn UpsertAttr)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GIn UpsertExtra)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GIn UpsertAge))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
87 26 93 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"attr"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"attr"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"extra"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"extra"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"age"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertId"#
(ghc-prim:GHC.Types.I#
8#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Upsert x_a1GHN x_a1GHO x_a1GHP x_a1GHQ)
= [toPersistValue x_a1GHN, toPersistValue x_a1GHO,
toPersistValue x_a1GHP, toPersistValue x_a1GHQ]
fromPersistValues [x1_a1GHS, x2_a1GHT, x3_a1GHU, x4_a1GHV]
= Upsert
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x1_a1GHS
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x2_a1GHT
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x3_a1GHU
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x4_a1GHV
fromPersistValues x_a1GHR
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Upsert: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GHR))
persistUniqueToFieldNames UniqueUpsert {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
persistUniqueToValues (UniqueUpsert x_a1GHW)
= [toPersistValue x_a1GHW]
persistUniqueKeys
(Upsert _email_a1GHX _attr_a1GHY _extra_a1GHZ _age_a1GI0)
= [UniqueUpsert _email_a1GHX]
persistFieldDef UpsertId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef UpsertEmail
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Upsert)
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
persistFieldDef UpsertAttr
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Upsert)
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef UpsertExtra
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Upsert)
(FieldNameHS
(Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)))
persistFieldDef UpsertAge
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Upsert)
(FieldNameHS
(Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)))
persistIdField = UpsertId
fieldLens UpsertId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GI2) key_a1GI3
-> Entity key_a1GI3 value_a1GI2)
fieldLens UpsertEmail
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertEmail = x} -> x) . entityVal)
(\ (Entity key_a1GI4 value_a1GI5) x_a1GI6
-> Entity
key_a1GI4
(case value_a1GI5 of
Upsert {upsertAttr = upsertAttr_a1GI8,
upsertExtra = upsertExtra_a1GI9, upsertAge = upsertAge_a1GIa}
-> Upsert
{upsertEmail = x_a1GI6, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertAttr
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAttr = x} -> x) . entityVal)
(\ (Entity key_a1GI4 value_a1GI5) x_a1GI6
-> Entity
key_a1GI4
(case value_a1GI5 of
Upsert {upsertEmail = upsertEmail_a1GIb,
upsertExtra = upsertExtra_a1GId, upsertAge = upsertAge_a1GIe}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = x_a1GI6,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertExtra
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertExtra = x} -> x) . entityVal)
(\ (Entity key_a1GI4 value_a1GI5) x_a1GI6
-> Entity
key_a1GI4
(case value_a1GI5 of
Upsert {upsertEmail = upsertEmail_a1GIf,
upsertAttr = upsertAttr_a1GIg, upsertAge = upsertAge_a1GIi}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = x_a1GI6, upsertAge = upsertAge}))
fieldLens UpsertAge
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAge = x} -> x) . entityVal)
(\ (Entity key_a1GI4 value_a1GI5) x_a1GI6
-> Entity
key_a1GI4
(case value_a1GI5 of
Upsert {upsertEmail = upsertEmail_a1GIj,
upsertAttr = upsertAttr_a1GIk, upsertExtra = upsertExtra_a1GIl}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = x_a1GI6}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (UpsertGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (UpsertGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (UpsertGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (UpsertGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (UpsertGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (UpsertGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (UpsertGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (UpsertGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (UpsertGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (UpsertGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (UpsertGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (UpsertGeneric backend) where
toBackendKey = \ UpsertKey {unUpsertKey = x} -> x
fromBackendKey = UpsertKey
type UpsertBy = UpsertByGeneric SqlBackend
data UpsertByGeneric backend
= UpsertBy {upsertByEmail :: !Text,
upsertByCity :: !Text,
upsertByAttr :: !Text}
deriving stock (Eq, Show)
type UpsertById = Key UpsertBy
instance PersistStore backend =>
PersistEntity (UpsertByGeneric backend) where
type PersistEntityBackend (UpsertByGeneric backend) = backend
data Unique (UpsertByGeneric backend)
= UniqueUpsertBy Text | UniqueUpsertByCity Text
newtype Key (UpsertByGeneric backend)
= UpsertByKey {unUpsertByKey :: (BackendKey backend)}
data EntityField (UpsertByGeneric backend) typ
= (typ ~ Key (UpsertByGeneric backend)) => UpsertById |
(typ ~ Text) => UpsertByEmail |
(typ ~ Text) => UpsertByCity |
(typ ~ Text) => UpsertByAttr
keyToValues
= ((: [])
. (toPersistValue . (\ UpsertByKey {unUpsertByKey = x} -> x)))
keyFromValues
= (fmap UpsertByKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GIR
= ((Entity <$> fromField_a1GIR UpsertById)
<*>
(((pure UpsertBy <*> fromField_a1GIR UpsertByEmail)
<*> fromField_a1GIR UpsertByCity)
<*> fromField_a1GIR UpsertByAttr))
tabulateEntityApply fromField_a1GIQ
= ((Entity <$> fromField_a1GIQ UpsertById)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((UpsertBy <$> fromField_a1GIQ UpsertByEmail)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GIQ UpsertByCity)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GIQ UpsertByAttr))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertById"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
[],
UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
95 26 101 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"email"#
(ghc-prim:GHC.Types.I#
5#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"city"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"city"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"attr"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"attr"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertById"#
(ghc-prim:GHC.Types.I#
10#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UpsertBy x_a1GIp x_a1GIq x_a1GIr)
= [toPersistValue x_a1GIp, toPersistValue x_a1GIq,
toPersistValue x_a1GIr]
fromPersistValues [x1_a1GIt, x2_a1GIu, x3_a1GIv]
= UpsertBy
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#))
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
. fromPersistValue)
x1_a1GIt
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#))
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x2_a1GIu
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"UpsertBy"# (ghc-prim:GHC.Types.I# 8#))
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x3_a1GIv
fromPersistValues x_a1GIs
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UpsertBy: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a1GIs))
persistUniqueToFieldNames UniqueUpsertBy {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)),
FieldNameDB
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
NEL.:| [])
persistUniqueToFieldNames UniqueUpsertByCity {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
persistUniqueToValues (UniqueUpsertBy x_a1GIw)
= [toPersistValue x_a1GIw]
persistUniqueToValues (UniqueUpsertByCity x_a1GIx)
= [toPersistValue x_a1GIx]
persistUniqueKeys (UpsertBy _email_a1GIy _city_a1GIz _attr_a1GIA)
= [UniqueUpsertBy _email_a1GIy, UniqueUpsertByCity _city_a1GIz]
persistFieldDef UpsertById
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"UpsertById"# (ghc-prim:GHC.Types.I# 10#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef UpsertByEmail
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy UpsertBy)
(FieldNameHS
(Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)))
persistFieldDef UpsertByCity
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy UpsertBy)
(FieldNameHS
(Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef UpsertByAttr
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy UpsertBy)
(FieldNameHS
(Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = UpsertById
fieldLens UpsertById
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GIC) key_a1GID
-> Entity key_a1GID value_a1GIC)
fieldLens UpsertByEmail
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByEmail = x} -> x) . entityVal)
(\ (Entity key_a1GIE value_a1GIF) x_a1GIG
-> Entity
key_a1GIE
(case value_a1GIF of
UpsertBy {upsertByCity = upsertByCity_a1GII,
upsertByAttr = upsertByAttr_a1GIJ}
-> UpsertBy
{upsertByEmail = x_a1GIG, upsertByCity = upsertByCity,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByCity
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByCity = x} -> x) . entityVal)
(\ (Entity key_a1GIE value_a1GIF) x_a1GIG
-> Entity
key_a1GIE
(case value_a1GIF of
UpsertBy {upsertByEmail = upsertByEmail_a1GIK,
upsertByAttr = upsertByAttr_a1GIM}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = x_a1GIG,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByAttr
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByAttr = x} -> x) . entityVal)
(\ (Entity key_a1GIE value_a1GIF) x_a1GIG
-> Entity
key_a1GIE
(case value_a1GIF of
UpsertBy {upsertByEmail = upsertByEmail_a1GIN,
upsertByCity = upsertByCity_a1GIO}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = upsertByCity,
upsertByAttr = x_a1GIG}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (UpsertByGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (UpsertByGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (UpsertByGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (UpsertByGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (UpsertByGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (UpsertByGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (UpsertByGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (UpsertByGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (UpsertByGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (UpsertByGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (UpsertByGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (UpsertByGeneric backend) where
toBackendKey = \ UpsertByKey {unUpsertByKey = x} -> x
fromBackendKey = UpsertByKey
type Strict = StrictGeneric SqlBackend
data StrictGeneric backend
= Strict {strictYes :: !Int, strictNo :: Int, strictDef :: !Int}
type StrictId = Key Strict
instance PersistStore backend =>
PersistEntity (StrictGeneric backend) where
type PersistEntityBackend (StrictGeneric backend) = backend
data Unique (StrictGeneric backend)
newtype Key (StrictGeneric backend)
= StrictKey {unStrictKey :: (BackendKey backend)}
data EntityField (StrictGeneric backend) typ
= (typ ~ Key (StrictGeneric backend)) => StrictId |
(typ ~ Int) => StrictYes |
(typ ~ Int) => StrictNo |
(typ ~ Int) => StrictDef
keyToValues
= ((: [])
. (toPersistValue . (\ StrictKey {unStrictKey = x} -> x)))
keyFromValues
= (fmap StrictKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GJi
= ((Entity <$> fromField_a1GJi StrictId)
<*>
(((pure Strict <*> fromField_a1GJi StrictYes)
<*> fromField_a1GJi StrictNo)
<*> fromField_a1GJi StrictDef))
tabulateEntityApply fromField_a1GJh
= ((Entity <$> fromField_a1GJh StrictId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(((Strict <$> fromField_a1GJh StrictYes)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GJh StrictNo)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GJh StrictDef))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"StrictId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
103 26 106 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"yes"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"yes"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"no"#
(ghc-prim:GHC.Types.I#
2#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"no"#
(ghc-prim:GHC.Types.I#
2#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = False,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"def"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"def"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"StrictId"#
(ghc-prim:GHC.Types.I#
8#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Strict x_a1GIS x_a1GIT x_a1GIU)
= [toPersistValue x_a1GIS, toPersistValue x_a1GIT,
toPersistValue x_a1GIU]
fromPersistValues [x1_a1GIW, x2_a1GIX, x3_a1GIY]
= Strict
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x1_a1GIW
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
. fromPersistValue)
x2_a1GIX
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
. fromPersistValue)
x3_a1GIY
fromPersistValues x_a1GIV
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Strict: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GIV))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Strict _yes_a1GIZ _no_a1GJ0 _def_a1GJ1) = []
persistFieldDef StrictId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"StrictId"# (ghc-prim:GHC.Types.I# 8#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef StrictYes
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Strict)
(FieldNameHS
(Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)))
persistFieldDef StrictNo
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Strict)
(FieldNameHS
(Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)))
persistFieldDef StrictDef
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Strict)
(FieldNameHS
(Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)))
persistIdField = StrictId
fieldLens StrictId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GJ3) key_a1GJ4
-> Entity key_a1GJ4 value_a1GJ3)
fieldLens StrictYes
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictYes = x} -> x) . entityVal)
(\ (Entity key_a1GJ5 value_a1GJ6) x_a1GJ7
-> Entity
key_a1GJ5
(case value_a1GJ6 of
Strict {strictNo = strictNo_a1GJ9, strictDef = strictDef_a1GJa}
-> Strict
{strictYes = x_a1GJ7, strictNo = strictNo, strictDef = strictDef}))
fieldLens StrictNo
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictNo = x} -> x) . entityVal)
(\ (Entity key_a1GJ5 value_a1GJ6) x_a1GJ7
-> Entity
key_a1GJ5
(case value_a1GJ6 of
Strict {strictYes = strictYes_a1GJb, strictDef = strictDef_a1GJd}
-> Strict
{strictYes = strictYes, strictNo = x_a1GJ7,
strictDef = strictDef}))
fieldLens StrictDef
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictDef = x} -> x) . entityVal)
(\ (Entity key_a1GJ5 value_a1GJ6) x_a1GJ7
-> Entity
key_a1GJ5
(case value_a1GJ6 of
Strict {strictYes = strictYes_a1GJe, strictNo = strictNo_a1GJf}
-> Strict
{strictYes = strictYes, strictNo = strictNo, strictDef = x_a1GJ7}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (StrictGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (StrictGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (StrictGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (StrictGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (StrictGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (StrictGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (StrictGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (StrictGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (StrictGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (StrictGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (StrictGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (StrictGeneric backend) where
toBackendKey = \ StrictKey {unStrictKey = x} -> x
fromBackendKey = StrictKey
type DudeWeirdColumns = DudeWeirdColumnsGeneric SqlBackend
data DudeWeirdColumnsGeneric backend
= DudeWeirdColumns {dudeWeirdColumnsName :: !Text}
deriving stock (Eq, Show)
type DudeWeirdColumnsId = Key DudeWeirdColumns
instance PersistStore backend =>
PersistEntity (DudeWeirdColumnsGeneric backend) where
type PersistEntityBackend (DudeWeirdColumnsGeneric backend) = backend
data Unique (DudeWeirdColumnsGeneric backend) = UniqueName Text
newtype Key (DudeWeirdColumnsGeneric backend)
= DudeWeirdColumnsKey {unDudeWeirdColumnsKey :: (BackendKey backend)}
data EntityField (DudeWeirdColumnsGeneric backend) typ
= (typ ~ Key (DudeWeirdColumnsGeneric backend)) =>
DudeWeirdColumnsId |
(typ ~ Text) => DudeWeirdColumnsName
keyToValues
= ((: [])
. (toPersistValue
. (\ DudeWeirdColumnsKey {unDudeWeirdColumnsKey = x} -> x)))
keyFromValues
= (fmap DudeWeirdColumnsKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GJw
= ((Entity <$> fromField_a1GJw DudeWeirdColumnsId)
<*>
(pure DudeWeirdColumns <*> fromField_a1GJw DudeWeirdColumnsName))
tabulateEntityApply fromField_a1GJv
= ((Entity <$> fromField_a1GJv DudeWeirdColumnsId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(DudeWeirdColumns <$> fromField_a1GJv DudeWeirdColumnsName))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] []
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"UniqueName"# (ghc-prim:GHC.Types.I# 10#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[]
[Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#),
Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)]
Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
108 26 113 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Text"#
(ghc-prim:GHC.Types.I#
4#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Text),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"foo"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"foo"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [FieldAttrMigrationOnly,
FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"bar"#
(ghc-prim:GHC.Types.I#
3#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"bar"#
(ghc-prim:GHC.Types.I#
3#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Double"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Double),
fieldAttrs = [FieldAttrSafeToRemove],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"DudeWeirdColumnsId"#
(ghc-prim:GHC.Types.I#
18#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (DudeWeirdColumns x_a1GJj)
= [toPersistValue x_a1GJj]
fromPersistValues [x1_a1GJl]
= DudeWeirdColumns
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a1GJl
fromPersistValues x_a1GJk
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"DudeWeirdColumns: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 47#))
(Data.Text.Internal.pack $ show x_a1GJk))
persistUniqueToFieldNames UniqueName {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
persistUniqueToValues (UniqueName x_a1GJm)
= [toPersistValue x_a1GJm]
persistUniqueKeys (DudeWeirdColumns _name_a1GJn)
= [UniqueName _name_a1GJn]
persistFieldDef DudeWeirdColumnsId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef DudeWeirdColumnsName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy DudeWeirdColumns)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = DudeWeirdColumnsId
fieldLens DudeWeirdColumnsId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GJp) key_a1GJq
-> Entity key_a1GJq value_a1GJp)
fieldLens DudeWeirdColumnsName
= Database.Persist.TH.Internal.lensPTH
((\ DudeWeirdColumns {dudeWeirdColumnsName = x} -> x) . entityVal)
(\ (Entity key_a1GJr value_a1GJs) x_a1GJt
-> Entity
key_a1GJr
(case value_a1GJs of
DudeWeirdColumns {}
-> DudeWeirdColumns {dudeWeirdColumnsName = x_a1GJt}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (DudeWeirdColumnsGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (DudeWeirdColumnsGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (DudeWeirdColumnsGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (DudeWeirdColumnsGeneric backend) where
toBackendKey
= \ DudeWeirdColumnsKey {unDudeWeirdColumnsKey = x} -> x
fromBackendKey = DudeWeirdColumnsKey
type Relationship = RelationshipGeneric SqlBackend
data RelationshipGeneric backend
= Relationship {relationshipName :: !String,
relationshipParent :: !(Maybe (Key (RelationshipGeneric backend)))}
type RelationshipId = Key Relationship
instance PersistStore backend =>
PersistEntity (RelationshipGeneric backend) where
type PersistEntityBackend (RelationshipGeneric backend) = backend
data Unique (RelationshipGeneric backend)
newtype Key (RelationshipGeneric backend)
= RelationshipKey {unRelationshipKey :: (BackendKey backend)}
data EntityField (RelationshipGeneric backend) typ
= (typ ~ Key (RelationshipGeneric backend)) => RelationshipId |
(typ ~ String) => RelationshipName |
(typ ~ Maybe (Key (RelationshipGeneric backend))) =>
RelationshipParent
keyToValues
= ((: [])
. (toPersistValue
. (\ RelationshipKey {unRelationshipKey = x} -> x)))
keyFromValues
= (fmap RelationshipKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GJP
= ((Entity <$> fromField_a1GJP RelationshipId)
<*>
((pure Relationship <*> fromField_a1GJP RelationshipName)
<*> fromField_a1GJP RelationshipParent))
tabulateEntityApply fromField_a1GJO
= ((Entity <$> fromField_a1GJO RelationshipId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((Relationship <$> fromField_a1GJO RelationshipName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1GJO RelationshipParent))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False
(Just
(Data.Text.unpackCStringLen#
"This is a doc comment for a relationship.\n\
\Only the first line requires a pipe.\n\
\Pipes are optional on subsequent lines.\n"#
(ghc-prim:GHC.Types.I# 119#)))
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
118 26 121 7))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"String"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy String),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Just
(Data.Text.unpackCStringLen#
"Fields should be documentable.\n"#
(ghc-prim:GHC.Types.I#
31#)),
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"#
(ghc-prim:GHC.Types.I#
14#)),
fieldSqlType = sqlType
(Proxy ::
Proxy RelationshipId),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Relationship"#
(ghc-prim:GHC.Types.I#
12#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"#
(ghc-prim:GHC.Types.I#
14#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Relationship x_a1GJx x_a1GJy)
= [toPersistValue x_a1GJx, toPersistValue x_a1GJy]
fromPersistValues [x1_a1GJA, x2_a1GJB]
= Relationship
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a1GJA
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"Relationship"# (ghc-prim:GHC.Types.I# 12#))
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
. fromPersistValue)
x2_a1GJB
fromPersistValues x_a1GJz
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Relationship: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 43#))
(Data.Text.Internal.pack $ show x_a1GJz))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Relationship _name_a1GJC _parent_a1GJD) = []
persistFieldDef RelationshipId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"RelationshipId"# (ghc-prim:GHC.Types.I# 14#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef RelationshipName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Relationship)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef RelationshipParent
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Relationship)
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
persistIdField = RelationshipId
fieldLens RelationshipId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GJF) key_a1GJG
-> Entity key_a1GJG value_a1GJF)
fieldLens RelationshipName
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipName = x} -> x) . entityVal)
(\ (Entity key_a1GJH value_a1GJI) x_a1GJJ
-> Entity
key_a1GJH
(case value_a1GJI of
Relationship {relationshipParent = relationshipParent_a1GJL}
-> Relationship
{relationshipName = x_a1GJJ,
relationshipParent = relationshipParent}))
fieldLens RelationshipParent
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipParent = x} -> x) . entityVal)
(\ (Entity key_a1GJH value_a1GJI) x_a1GJJ
-> Entity
key_a1GJH
(case value_a1GJI of
Relationship {relationshipName = relationshipName_a1GJM}
-> Relationship
{relationshipName = relationshipName,
relationshipParent = x_a1GJJ}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (RelationshipGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (RelationshipGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (RelationshipGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (RelationshipGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (RelationshipGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (RelationshipGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (RelationshipGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (RelationshipGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (RelationshipGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (RelationshipGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (RelationshipGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (RelationshipGeneric backend) where
toBackendKey = \ RelationshipKey {unRelationshipKey = x} -> x
fromBackendKey = RelationshipKey
type MutA = MutAGeneric SqlBackend
data MutAGeneric backend
= MutA {mutAMutB :: !(Key (MutBGeneric backend))}
type MutAId = Key MutA
instance PersistStore backend =>
PersistEntity (MutAGeneric backend) where
type PersistEntityBackend (MutAGeneric backend) = backend
data Unique (MutAGeneric backend)
newtype Key (MutAGeneric backend)
= MutAKey {unMutAKey :: (BackendKey backend)}
data EntityField (MutAGeneric backend) typ
= (typ ~ Key (MutAGeneric backend)) => MutAId |
(typ ~ Key (MutBGeneric backend)) => MutAMutB
keyToValues
= ((: []) . (toPersistValue . (\ MutAKey {unMutAKey = x} -> x)))
keyFromValues
= (fmap MutAKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GK2
= ((Entity <$> fromField_a1GK2 MutAId)
<*> (pure MutA <*> fromField_a1GK2 MutAMutB))
tabulateEntityApply fromField_a1GK1
= ((Entity <$> fromField_a1GK1 MutAId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(MutA <$> fromField_a1GK1 MutAMutB))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
123 26 124 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"mutB"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"mutB"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MutBId"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy MutBId),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"MutB"#
(ghc-prim:GHC.Types.I#
4#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MutAId"#
(ghc-prim:GHC.Types.I#
6#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutA x_a1GJQ) = [toPersistValue x_a1GJQ]
fromPersistValues [x1_a1GJS]
= MutA
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a1GJS
fromPersistValues x_a1GJR
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutA: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a1GJR))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutA _mutB_a1GJT) = []
persistFieldDef MutAId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef MutAMutB
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy MutA)
(FieldNameHS
(Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = MutAId
fieldLens MutAId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GJV) key_a1GJW
-> Entity key_a1GJW value_a1GJV)
fieldLens MutAMutB
= Database.Persist.TH.Internal.lensPTH
((\ MutA {mutAMutB = x} -> x) . entityVal)
(\ (Entity key_a1GJX value_a1GJY) x_a1GJZ
-> Entity
key_a1GJX
(case value_a1GJY of MutA {} -> MutA {mutAMutB = x_a1GJZ}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (MutAGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (MutAGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (MutAGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (MutAGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (MutAGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (MutAGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (MutAGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (MutAGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (MutAGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (MutAGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (MutAGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (MutAGeneric backend) where
toBackendKey = \ MutAKey {unMutAKey = x} -> x
fromBackendKey = MutAKey
type MutB = MutBGeneric SqlBackend
data MutBGeneric backend
= MutB {mutBMutA :: !(Key (MutAGeneric backend))}
type MutBId = Key MutB
instance PersistStore backend =>
PersistEntity (MutBGeneric backend) where
type PersistEntityBackend (MutBGeneric backend) = backend
data Unique (MutBGeneric backend)
newtype Key (MutBGeneric backend)
= MutBKey {unMutBKey :: (BackendKey backend)}
data EntityField (MutBGeneric backend) typ
= (typ ~ Key (MutBGeneric backend)) => MutBId |
(typ ~ Key (MutAGeneric backend)) => MutBMutA
keyToValues
= ((: []) . (toPersistValue . (\ MutBKey {unMutBKey = x} -> x)))
keyFromValues
= (fmap MutBKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1GKf
= ((Entity <$> fromField_a1GKf MutBId)
<*> (pure MutB <*> fromField_a1GKf MutBMutA))
tabulateEntityApply fromField_a1GKe
= ((Entity <$> fromField_a1GKe MutBId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(MutB <$> fromField_a1GKe MutBMutA))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
126 26 127 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"mutA"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"mutA"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MutAId"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy MutAId),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"MutA"#
(ghc-prim:GHC.Types.I#
4#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"MutBId"#
(ghc-prim:GHC.Types.I#
6#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutB x_a1GK3) = [toPersistValue x_a1GK3]
fromPersistValues [x1_a1GK5]
= MutB
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a1GK5
fromPersistValues x_a1GK4
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutB: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a1GK4))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutB _mutA_a1GK6) = []
persistFieldDef MutBId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef MutBMutA
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy MutB)
(FieldNameHS
(Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)))
persistIdField = MutBId
fieldLens MutBId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1GK8) key_a1GK9
-> Entity key_a1GK9 value_a1GK8)
fieldLens MutBMutA
= Database.Persist.TH.Internal.lensPTH
((\ MutB {mutBMutA = x} -> x) . entityVal)
(\ (Entity key_a1GKa value_a1GKb) x_a1GKc
-> Entity
key_a1GKa
(case value_a1GKb of MutB {} -> MutB {mutBMutA = x_a1GKc}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (MutBGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (MutBGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (MutBGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (MutBGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (MutBGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (MutBGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (MutBGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (MutBGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (MutBGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (MutBGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (MutBGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (MutBGeneric backend) where
toBackendKey = \ MutBKey {unMutBKey = x} -> x
fromBackendKey = MutBKey
instance PersistStore backend =>
ToJSON (PersonGeneric backend) where
toJSON (Person name_a1GKh age_a1GKi color_a1GKj)
= object
[(Data.Aeson.Key.fromString "name" .= name_a1GKh),
(Data.Aeson.Key.fromString "age" .= age_a1GKi),
(Data.Aeson.Key.fromString "color" .= color_a1GKj)]
instance PersistStore backend =>
FromJSON (PersonGeneric backend) where
parseJSON
= withObject
"Person"
(\ obj_a1GKg
-> (((pure Person
<*> (obj_a1GKg .: Data.Aeson.Key.fromString "name"))
<*> (obj_a1GKg .: Data.Aeson.Key.fromString "age"))
<*> (obj_a1GKg .:? Data.Aeson.Key.fromString "color")))
instance PersistStore backend =>
ToJSON (Entity (PersonGeneric backend)) where
toJSON = entityIdToJSON
instance PersistStore backend =>
FromJSON (Entity (PersonGeneric backend)) where
parseJSON = entityIdFromJSON
instance PersistStore backend =>
ToJSON (PersonMayGeneric backend) where
toJSON (PersonMay name_a1GKl color_a1GKm)
= object
[(Data.Aeson.Key.fromString "name" .= name_a1GKl),
(Data.Aeson.Key.fromString "color" .= color_a1GKm)]
instance PersistStore backend =>
FromJSON (PersonMayGeneric backend) where
parseJSON
= withObject
"PersonMay"
(\ obj_a1GKk
-> ((pure PersonMay
<*> (obj_a1GKk .:? Data.Aeson.Key.fromString "name"))
<*> (obj_a1GKk .:? Data.Aeson.Key.fromString "color")))
instance PersistStore backend =>
ToJSON (Entity (PersonMayGeneric backend)) where
toJSON = entityIdToJSON
instance PersistStore backend =>
FromJSON (Entity (PersonMayGeneric backend)) where
parseJSON = entityIdFromJSON
instance PersistStoreWrite backend =>
OnlyOneUniqueKey (PersonGeneric backend) where
onlyUniqueP = (head . persistUniqueKeys)
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (PersonGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (Person1Generic backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (Person1Generic backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (PersonMaybeAgeGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (PersonMaybeAgeGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (PersonMayGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (PersonMayGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (PetGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (PetGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (MaybeOwnedPetGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (MaybeOwnedPetGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (NeedsPetGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (NeedsPetGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (OutdoorPetGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (OutdoorPetGeneric backend) where
requireUniquesP _ = error "impossible"
instance PersistStoreWrite backend =>
OnlyOneUniqueKey (UserPTGeneric backend) where
onlyUniqueP = (head . persistUniqueKeys)
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (UserPTGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance PersistStoreWrite backend =>
OnlyOneUniqueKey (EmailPTGeneric backend) where
onlyUniqueP = (head . persistUniqueKeys)
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (EmailPTGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance PersistStoreWrite backend =>
OnlyOneUniqueKey (UpsertGeneric backend) where
onlyUniqueP = (head . persistUniqueKeys)
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (UpsertGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance (GHC.TypeError.TypeError (MultipleUniqueKeysError (UpsertByGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (UpsertByGeneric backend) where
onlyUniqueP _ = error "impossible"
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (UpsertByGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (StrictGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (StrictGeneric backend) where
requireUniquesP _ = error "impossible"
instance PersistStoreWrite backend =>
OnlyOneUniqueKey (DudeWeirdColumnsGeneric backend) where
onlyUniqueP = (head . persistUniqueKeys)
instance PersistStoreWrite backend =>
AtLeastOneUniqueKey (DudeWeirdColumnsGeneric backend) where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (RelationshipGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (RelationshipGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (MutAGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (MutAGeneric backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (MutBGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (MutBGeneric backend) where
requireUniquesP _ = error "impossible"
instance SymbolToField "id" (PersonGeneric backend) (Key (PersonGeneric backend)) where
symbolToField = PersonId
instance SymbolToField "name" (PersonGeneric backend) Text where
symbolToField = PersonName
instance SymbolToField "age" (PersonGeneric backend) Int where
symbolToField = PersonAge
instance SymbolToField "color" (PersonGeneric backend) (Maybe Text) where
symbolToField = PersonColor
instance SymbolToField "id" (Person1Generic backend) (Key (Person1Generic backend)) where
symbolToField = Person1Id
instance SymbolToField "name" (Person1Generic backend) Text where
symbolToField = Person1Name
instance SymbolToField "age" (Person1Generic backend) Int where
symbolToField = Person1Age
instance SymbolToField "id" (PersonMaybeAgeGeneric backend) (Key (PersonMaybeAgeGeneric backend)) where
symbolToField = PersonMaybeAgeId
instance SymbolToField "name" (PersonMaybeAgeGeneric backend) Text where
symbolToField = PersonMaybeAgeName
instance SymbolToField "age" (PersonMaybeAgeGeneric backend) (Maybe Int) where
symbolToField = PersonMaybeAgeAge
instance SymbolToField "id" (PersonMayGeneric backend) (Key (PersonMayGeneric backend)) where
symbolToField = PersonMayId
instance SymbolToField "name" (PersonMayGeneric backend) (Maybe Text) where
symbolToField = PersonMayName
instance SymbolToField "color" (PersonMayGeneric backend) (Maybe Text) where
symbolToField = PersonMayColor
instance SymbolToField "id" (PetGeneric backend) (Key (PetGeneric backend)) where
symbolToField = PetId
instance SymbolToField "ownerId" (PetGeneric backend) (Key (PersonGeneric backend)) where
symbolToField = PetOwnerId
instance SymbolToField "name" (PetGeneric backend) Text where
symbolToField = PetName
instance SymbolToField "type" (PetGeneric backend) PetType where
symbolToField = PetType
instance SymbolToField "id" (MaybeOwnedPetGeneric backend) (Key (MaybeOwnedPetGeneric backend)) where
symbolToField = MaybeOwnedPetId
instance SymbolToField "ownerId" (MaybeOwnedPetGeneric backend) (Maybe (Key (PersonGeneric backend))) where
symbolToField = MaybeOwnedPetOwnerId
instance SymbolToField "name" (MaybeOwnedPetGeneric backend) Text where
symbolToField = MaybeOwnedPetName
instance SymbolToField "type" (MaybeOwnedPetGeneric backend) PetType where
symbolToField = MaybeOwnedPetType
instance SymbolToField "id" (NeedsPetGeneric backend) (Key (NeedsPetGeneric backend)) where
symbolToField = NeedsPetId
instance SymbolToField "petKey" (NeedsPetGeneric backend) (Key (PetGeneric backend)) where
symbolToField = NeedsPetPetKey
instance SymbolToField "id" (OutdoorPetGeneric backend) (Key (OutdoorPetGeneric backend)) where
symbolToField = OutdoorPetId
instance SymbolToField "ownerId" (OutdoorPetGeneric backend) (Key (PersonGeneric backend)) where
symbolToField = OutdoorPetOwnerId
instance SymbolToField "collar" (OutdoorPetGeneric backend) PetCollar where
symbolToField = OutdoorPetCollar
instance SymbolToField "type" (OutdoorPetGeneric backend) PetType where
symbolToField = OutdoorPetType
instance SymbolToField "id" (UserPTGeneric backend) (Key (UserPTGeneric backend)) where
symbolToField = UserPTId
instance SymbolToField "ident" (UserPTGeneric backend) Text where
symbolToField = UserPTIdent
instance SymbolToField "password" (UserPTGeneric backend) (Maybe Text) where
symbolToField = UserPTPassword
instance SymbolToField "id" (EmailPTGeneric backend) (Key (EmailPTGeneric backend)) where
symbolToField = EmailPTId
instance SymbolToField "email" (EmailPTGeneric backend) Text where
symbolToField = EmailPTEmail
instance SymbolToField "user" (EmailPTGeneric backend) (Maybe (Key (UserPTGeneric backend))) where
symbolToField = EmailPTUser
instance SymbolToField "verkey" (EmailPTGeneric backend) (Maybe Text) where
symbolToField = EmailPTVerkey
instance SymbolToField "id" (UpsertGeneric backend) (Key (UpsertGeneric backend)) where
symbolToField = UpsertId
instance SymbolToField "email" (UpsertGeneric backend) Text where
symbolToField = UpsertEmail
instance SymbolToField "attr" (UpsertGeneric backend) Text where
symbolToField = UpsertAttr
instance SymbolToField "extra" (UpsertGeneric backend) Text where
symbolToField = UpsertExtra
instance SymbolToField "age" (UpsertGeneric backend) Int where
symbolToField = UpsertAge
instance SymbolToField "id" (UpsertByGeneric backend) (Key (UpsertByGeneric backend)) where
symbolToField = UpsertById
instance SymbolToField "email" (UpsertByGeneric backend) Text where
symbolToField = UpsertByEmail
instance SymbolToField "city" (UpsertByGeneric backend) Text where
symbolToField = UpsertByCity
instance SymbolToField "attr" (UpsertByGeneric backend) Text where
symbolToField = UpsertByAttr
instance SymbolToField "id" (StrictGeneric backend) (Key (StrictGeneric backend)) where
symbolToField = StrictId
instance SymbolToField "yes" (StrictGeneric backend) Int where
symbolToField = StrictYes
instance SymbolToField "no" (StrictGeneric backend) Int where
symbolToField = StrictNo
instance SymbolToField "def" (StrictGeneric backend) Int where
symbolToField = StrictDef
instance SymbolToField "id" (DudeWeirdColumnsGeneric backend) (Key (DudeWeirdColumnsGeneric backend)) where
symbolToField = DudeWeirdColumnsId
instance SymbolToField "name" (DudeWeirdColumnsGeneric backend) Text where
symbolToField = DudeWeirdColumnsName
instance SymbolToField "id" (RelationshipGeneric backend) (Key (RelationshipGeneric backend)) where
symbolToField = RelationshipId
instance SymbolToField "name" (RelationshipGeneric backend) String where
symbolToField = RelationshipName
instance SymbolToField "parent" (RelationshipGeneric backend) (Maybe (Key (RelationshipGeneric backend))) where
symbolToField = RelationshipParent
instance SymbolToField "id" (MutAGeneric backend) (Key (MutAGeneric backend)) where
symbolToField = MutAId
instance SymbolToField "mutB" (MutAGeneric backend) (Key (MutBGeneric backend)) where
symbolToField = MutAMutB
instance SymbolToField "id" (MutBGeneric backend) (Key (MutBGeneric backend)) where
symbolToField = MutBId
instance SymbolToField "mutA" (MutBGeneric backend) (Key (MutAGeneric backend)) where
symbolToField = MutBMutA
instance PersistStoreWrite backend =>
SafeToInsert (PersonGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (Person1Generic backend)
instance PersistStoreWrite backend =>
SafeToInsert (PersonMaybeAgeGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (PersonMayGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (PetGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (MaybeOwnedPetGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (NeedsPetGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (OutdoorPetGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (UserPTGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (EmailPTGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (UpsertGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (UpsertByGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (StrictGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (DudeWeirdColumnsGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (RelationshipGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (MutAGeneric backend)
instance PersistStoreWrite backend =>
SafeToInsert (MutBGeneric backend)
entityDefListFortestMigrate :: [EntityDef]
entityDefListFortestMigrate
= [entityDef (Proxy :: Proxy Person),
entityDef (Proxy :: Proxy Person1),
entityDef (Proxy :: Proxy PersonMaybeAge),
entityDef (Proxy :: Proxy PersonMay),
entityDef (Proxy :: Proxy Pet),
entityDef (Proxy :: Proxy MaybeOwnedPet),
entityDef (Proxy :: Proxy NeedsPet),
entityDef (Proxy :: Proxy OutdoorPet),
entityDef (Proxy :: Proxy UserPT),
entityDef (Proxy :: Proxy EmailPT),
entityDef (Proxy :: Proxy Upsert),
entityDef (Proxy :: Proxy UpsertBy),
entityDef (Proxy :: Proxy Strict),
entityDef (Proxy :: Proxy DudeWeirdColumns),
entityDef (Proxy :: Proxy Relationship),
entityDef (Proxy :: Proxy MutA), entityDef (Proxy :: Proxy MutB)]
testMigrate :: Migration
testMigrate = migrateModels entityDefListFortestMigrate
src/PersistentTestModels.hs:(147,23)-(158,2): Splicing expression
template-haskell:Language.Haskell.TH.Quote.quoteExp
persistLowerCase
"\n\
\NoPrefix1\n\
\ someFieldName Int\n\
\NoPrefix2\n\
\ someOtherFieldName Int\n\
\ unprefixedRef NoPrefix1Id\n\
\+NoPrefixSum\n\
\ unprefixedLeft Int\n\
\ unprefixedRight String\n\
\ deriving Show Eq\n\
\\n"
======>
[Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix1"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix1"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
149 24 150 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"someFieldName"# (ghc-prim:GHC.Types.I# 13#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"some_field_name"# (ghc-prim:GHC.Types.I# 15#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
149 24 150 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix2"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix2"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
151 24 153 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"some_other_field_name"# (ghc-prim:GHC.Types.I# 21#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
151 24 153 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
154 24 157 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_left"# (ghc-prim:GHC.Types.I# 15#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRight"# (ghc-prim:GHC.Types.I# 15#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_right"# (ghc-prim:GHC.Types.I# 16#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
154 24 157 5))]
src/PersistentTestModels.hs:(137,1)-(158,2): Splicing declarations
share
[mkPersist
persistSettings
{mpsPrefixFields = False, mpsFieldLabelModifier = \ _ _ -> "",
mpsConstraintLabelModifier = \ _ _ -> "", mpsGeneric = True},
mkMigrate "noPrefixMigrate"]
([Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix1"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix1"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
149 24 150 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"someFieldName"# (ghc-prim:GHC.Types.I# 13#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"some_field_name"# (ghc-prim:GHC.Types.I# 15#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
149 24 150 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix2"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix2"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
151 24 153 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"some_other_field_name"# (ghc-prim:GHC.Types.I# 21#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
151 24 153 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
154 24 157 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_left"# (ghc-prim:GHC.Types.I# 15#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRight"# (ghc-prim:GHC.Types.I# 15#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_right"# (ghc-prim:GHC.Types.I# 16#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
154 24 157 5))])
======>
instance PersistStore backend =>
PersistField (NoPrefix1Generic backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["someFieldName"]
instance PersistStore backend =>
PersistFieldSql (NoPrefix1Generic backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (NoPrefix2Generic backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["someOtherFieldName", "unprefixedRef"]
instance PersistStore backend =>
PersistFieldSql (NoPrefix2Generic backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (NoPrefixSumGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["unprefixedLeft", "unprefixedRight"]
instance PersistStore backend =>
PersistFieldSql (NoPrefixSumGeneric backend) where
sqlType _ = SqlString
type NoPrefix1 = NoPrefix1Generic SqlBackend
data NoPrefix1Generic backend = NoPrefix1 {someFieldName :: !Int}
type NoPrefix1Id = Key NoPrefix1
instance PersistStore backend =>
PersistEntity (NoPrefix1Generic backend) where
type PersistEntityBackend (NoPrefix1Generic backend) = backend
data Unique (NoPrefix1Generic backend)
newtype Key (NoPrefix1Generic backend)
= NoPrefix1Key {unNoPrefix1Key :: (BackendKey backend)}
data EntityField (NoPrefix1Generic backend) typ
= (typ ~ Key (NoPrefix1Generic backend)) => NoPrefix1Id |
(typ ~ Int) => SomeFieldName
keyToValues
= ((: [])
. (toPersistValue . (\ NoPrefix1Key {unNoPrefix1Key = x} -> x)))
keyFromValues
= (fmap NoPrefix1Key
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1Udk
= ((Entity <$> fromField_a1Udk NoPrefix1Id)
<*> (pure NoPrefix1 <*> fromField_a1Udk SomeFieldName))
tabulateEntityApply fromField_a1Udj
= ((Entity <$> fromField_a1Udj NoPrefix1Id)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(NoPrefix1 <$> fromField_a1Udj SomeFieldName))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix1"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix1"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
149 24 150 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"someFieldName"#
(ghc-prim:GHC.Types.I#
13#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"some_field_name"#
(ghc-prim:GHC.Types.I#
15#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"#
(ghc-prim:GHC.Types.I#
11#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix1 x_a1Ud8) = [toPersistValue x_a1Ud8]
fromPersistValues [x1_a1Uda]
= NoPrefix1
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"no_prefix1"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen#
"someFieldName"# (ghc-prim:GHC.Types.I# 13#)))
. fromPersistValue)
x1_a1Uda
fromPersistValues x_a1Ud9
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a1Ud9))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NoPrefix1 _someFieldName_a1Udb) = []
persistFieldDef NoPrefix1Id
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef SomeFieldName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NoPrefix1)
(FieldNameHS
(Data.Text.unpackCStringLen#
"someFieldName"# (ghc-prim:GHC.Types.I# 13#)))
persistIdField = NoPrefix1Id
fieldLens NoPrefix1Id
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1Udd) key_a1Ude
-> Entity key_a1Ude value_a1Udd)
fieldLens SomeFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix1 {someFieldName = x} -> x) . entityVal)
(\ (Entity key_a1Udf value_a1Udg) x_a1Udh
-> Entity
key_a1Udf
(case value_a1Udg of
NoPrefix1 {} -> NoPrefix1 {someFieldName = x_a1Udh}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (NoPrefix1Generic backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (NoPrefix1Generic backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (NoPrefix1Generic backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (NoPrefix1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefix1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefix1Generic backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (NoPrefix1Generic backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (NoPrefix1Generic backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (NoPrefix1Generic backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (NoPrefix1Generic backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (NoPrefix1Generic backend))
instance PersistStore backend =>
ToBackendKey backend (NoPrefix1Generic backend) where
toBackendKey = \ NoPrefix1Key {unNoPrefix1Key = x} -> x
fromBackendKey = NoPrefix1Key
type NoPrefix2 = NoPrefix2Generic SqlBackend
data NoPrefix2Generic backend
= NoPrefix2 {someOtherFieldName :: !Int,
unprefixedRef :: !(Key (NoPrefix1Generic backend))}
type NoPrefix2Id = Key NoPrefix2
instance PersistStore backend =>
PersistEntity (NoPrefix2Generic backend) where
type PersistEntityBackend (NoPrefix2Generic backend) = backend
data Unique (NoPrefix2Generic backend)
newtype Key (NoPrefix2Generic backend)
= NoPrefix2Key {unNoPrefix2Key :: (BackendKey backend)}
data EntityField (NoPrefix2Generic backend) typ
= (typ ~ Key (NoPrefix2Generic backend)) => NoPrefix2Id |
(typ ~ Int) => SomeOtherFieldName |
(typ ~ Key (NoPrefix1Generic backend)) => UnprefixedRef
keyToValues
= ((: [])
. (toPersistValue . (\ NoPrefix2Key {unNoPrefix2Key = x} -> x)))
keyFromValues
= (fmap NoPrefix2Key
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1UdD
= ((Entity <$> fromField_a1UdD NoPrefix2Id)
<*>
((pure NoPrefix2 <*> fromField_a1UdD SomeOtherFieldName)
<*> fromField_a1UdD UnprefixedRef))
tabulateEntityApply fromField_a1UdC
= ((Entity <$> fromField_a1UdC NoPrefix2Id)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((NoPrefix2 <$> fromField_a1UdC SomeOtherFieldName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1UdC UnprefixedRef))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix2"# (ghc-prim:GHC.Types.I# 9#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix2"# (ghc-prim:GHC.Types.I# 10#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
151 24 153 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"someOtherFieldName"#
(ghc-prim:GHC.Types.I#
18#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"some_other_field_name"#
(ghc-prim:GHC.Types.I#
21#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRef"#
(ghc-prim:GHC.Types.I#
13#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_ref"#
(ghc-prim:GHC.Types.I#
14#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix1Id"#
(ghc-prim:GHC.Types.I#
11#)),
fieldSqlType = sqlType
(Proxy ::
Proxy NoPrefix1Id),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefix1"#
(ghc-prim:GHC.Types.I#
9#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix2Id"#
(ghc-prim:GHC.Types.I#
11#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix2 x_a1Udl x_a1Udm)
= [toPersistValue x_a1Udl, toPersistValue x_a1Udm]
fromPersistValues [x1_a1Udo, x2_a1Udp]
= NoPrefix2
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"no_prefix2"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen#
"someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)))
. fromPersistValue)
x1_a1Udo
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"no_prefix2"# (ghc-prim:GHC.Types.I# 10#))
(Data.Text.unpackCStringLen#
"unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)))
. fromPersistValue)
x2_a1Udp
fromPersistValues x_a1Udn
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a1Udn))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(NoPrefix2 _someOtherFieldName_a1Udq _unprefixedRef_a1Udr)
= []
persistFieldDef NoPrefix2Id
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef SomeOtherFieldName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NoPrefix2)
(FieldNameHS
(Data.Text.unpackCStringLen#
"someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)))
persistFieldDef UnprefixedRef
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NoPrefix2)
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)))
persistIdField = NoPrefix2Id
fieldLens NoPrefix2Id
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1Udt) key_a1Udu
-> Entity key_a1Udu value_a1Udt)
fieldLens SomeOtherFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {someOtherFieldName = x} -> x) . entityVal)
(\ (Entity key_a1Udv value_a1Udw) x_a1Udx
-> Entity
key_a1Udv
(case value_a1Udw of
NoPrefix2 {unprefixedRef = unprefixedRef_a1Udz}
-> NoPrefix2
{someOtherFieldName = x_a1Udx, unprefixedRef = unprefixedRef}))
fieldLens UnprefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {unprefixedRef = x} -> x) . entityVal)
(\ (Entity key_a1Udv value_a1Udw) x_a1Udx
-> Entity
key_a1Udv
(case value_a1Udw of
NoPrefix2 {someOtherFieldName = someOtherFieldName_a1UdA}
-> NoPrefix2
{someOtherFieldName = someOtherFieldName,
unprefixedRef = x_a1Udx}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (NoPrefix2Generic backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (NoPrefix2Generic backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (NoPrefix2Generic backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (NoPrefix2Generic backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefix2Generic backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefix2Generic backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (NoPrefix2Generic backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (NoPrefix2Generic backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (NoPrefix2Generic backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (NoPrefix2Generic backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (NoPrefix2Generic backend))
instance PersistStore backend =>
ToBackendKey backend (NoPrefix2Generic backend) where
toBackendKey = \ NoPrefix2Key {unNoPrefix2Key = x} -> x
fromBackendKey = NoPrefix2Key
type NoPrefixSum = NoPrefixSumGeneric SqlBackend
data NoPrefixSumGeneric backend
= UnprefixedLeftSum Int | UnprefixedRightSum String
deriving stock (Show, Eq)
type NoPrefixSumId = Key NoPrefixSum
instance PersistStore backend =>
PersistEntity (NoPrefixSumGeneric backend) where
type PersistEntityBackend (NoPrefixSumGeneric backend) = backend
data Unique (NoPrefixSumGeneric backend)
newtype Key (NoPrefixSumGeneric backend)
= NoPrefixSumKey {unNoPrefixSumKey :: (BackendKey backend)}
data EntityField (NoPrefixSumGeneric backend) typ
= (typ ~ Key (NoPrefixSumGeneric backend)) => NoPrefixSumId |
(typ ~ Int) => UnprefixedLeft |
(typ ~ String) => UnprefixedRight
keyToValues
= ((: [])
. (toPersistValue
. (\ NoPrefixSumKey {unNoPrefixSumKey = x} -> x)))
keyFromValues
= (fmap NoPrefixSumKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1UdP
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a1UdO
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
154 24 157 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedLeft"#
(ghc-prim:GHC.Types.I#
14#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_left"#
(ghc-prim:GHC.Types.I#
15#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRight"#
(ghc-prim:GHC.Types.I#
15#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"unprefixed_right"#
(ghc-prim:GHC.Types.I#
16#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"String"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy String),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefixSumId"#
(ghc-prim:GHC.Types.I#
13#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UnprefixedLeftSum x_a1UdE)
= [toPersistValue x_a1UdE, PersistNull]
toPersistFields (UnprefixedRightSum x_a1UdF)
= [PersistNull, toPersistValue x_a1UdF]
fromPersistValues [x_a1UdG, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a1UdG
= (UnprefixedLeftSum `fmap` fromPersistValue x_a1UdG)
fromPersistValues [PersistNull, x_a1UdH]
| Database.Persist.TH.Internal.isNotNull x_a1UdH
= (UnprefixedRightSum `fmap` fromPersistValue x_a1UdH)
fromPersistValues _
= Left
("Invalid fromPersistValues input: sum type with all nulls. Entity: "
`mappend`
Data.Text.unpackCStringLen#
"NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys _ = []
persistFieldDef NoPrefixSumId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef UnprefixedLeft
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NoPrefixSum)
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#)))
persistFieldDef UnprefixedRight
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy NoPrefixSum)
(FieldNameHS
(Data.Text.unpackCStringLen#
"unprefixedRight"# (ghc-prim:GHC.Types.I# 15#)))
persistIdField = NoPrefixSumId
fieldLens NoPrefixSumId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1UdJ) key_a1UdK
-> Entity key_a1UdK value_a1UdJ)
fieldLens UnprefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1UdM)
-> case value_a1UdM of
UnprefixedLeftSum x_a1UdN -> x_a1UdN
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1UdL _) x_a1UdN
-> Entity key_a1UdL (UnprefixedLeftSum x_a1UdN))
fieldLens UnprefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1UdM)
-> case value_a1UdM of
UnprefixedRightSum x_a1UdN -> x_a1UdN
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1UdL _) x_a1UdN
-> Entity key_a1UdL (UnprefixedRightSum x_a1UdN))
deriving stock instance Show (BackendKey backend) =>
Show (Key (NoPrefixSumGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (NoPrefixSumGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (NoPrefixSumGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (NoPrefixSumGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefixSumGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefixSumGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (NoPrefixSumGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (NoPrefixSumGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (NoPrefixSumGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (NoPrefixSumGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (NoPrefixSumGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (NoPrefixSumGeneric backend) where
toBackendKey = \ NoPrefixSumKey {unNoPrefixSumKey = x} -> x
fromBackendKey = NoPrefixSumKey
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (NoPrefix1Generic backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (NoPrefix1Generic backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (NoPrefix2Generic backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (NoPrefix2Generic backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (NoPrefixSumGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (NoPrefixSumGeneric backend) where
requireUniquesP _ = error "impossible"
instance SymbolToField "id" (NoPrefix1Generic backend) (Key (NoPrefix1Generic backend)) where
symbolToField = NoPrefix1Id
instance SymbolToField "someFieldName" (NoPrefix1Generic backend) Int where
symbolToField = SomeFieldName
instance SymbolToField "id" (NoPrefix2Generic backend) (Key (NoPrefix2Generic backend)) where
symbolToField = NoPrefix2Id
instance SymbolToField "someOtherFieldName" (NoPrefix2Generic backend) Int where
symbolToField = SomeOtherFieldName
instance SymbolToField "unprefixedRef" (NoPrefix2Generic backend) (Key (NoPrefix1Generic backend)) where
symbolToField = UnprefixedRef
instance SymbolToField "id" (NoPrefixSumGeneric backend) (Key (NoPrefixSumGeneric backend)) where
symbolToField = NoPrefixSumId
instance SymbolToField "unprefixedLeft" (NoPrefixSumGeneric backend) Int where
symbolToField = UnprefixedLeft
instance SymbolToField "unprefixedRight" (NoPrefixSumGeneric backend) String where
symbolToField = UnprefixedRight
instance PersistStoreWrite backend =>
SafeToInsert (NoPrefix1Generic backend)
instance PersistStoreWrite backend =>
SafeToInsert (NoPrefix2Generic backend)
instance PersistStoreWrite backend =>
SafeToInsert (NoPrefixSumGeneric backend)
entityDefListFornoPrefixMigrate :: [EntityDef]
entityDefListFornoPrefixMigrate
= [entityDef (Proxy :: Proxy NoPrefix1),
entityDef (Proxy :: Proxy NoPrefix2),
entityDef (Proxy :: Proxy NoPrefixSum)]
noPrefixMigrate :: Migration
noPrefixMigrate = migrateModels entityDefListFornoPrefixMigrate
src/PersistentTestModels.hs:(182,23)-(192,2): Splicing expression
template-haskell:Language.Haskell.TH.Quote.quoteExp
persistLowerCase
"\n\
\CustomPrefix1\n\
\ customFieldName Int\n\
\CustomPrefix2\n\
\ otherCustomFieldName Int\n\
\ customPrefixedRef CustomPrefix1Id\n\
\+CustomPrefixSum\n\
\ customPrefixedLeft Int\n\
\ customPrefixedRight String\n\
\ deriving Show Eq\n"
======>
[Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix1"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
184 24 185 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customFieldName"# (ghc-prim:GHC.Types.I# 15#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_field_name"# (ghc-prim:GHC.Types.I# 17#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
184 24 185 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix2"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
186 24 188 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
186 24 188 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
189 24 192 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
189 24 192 5))]
src/PersistentTestModels.hs:(166,1)-(192,2): Splicing declarations
share
[mkPersist
persistSettings
{mpsFieldLabelModifier = \ entity_a1Wnn field_a1Wno
-> case entity_a1Wnn of
"CustomPrefix1" -> append "_cp1" field_a1Wno
"CustomPrefix2" -> append "_cp2" field_a1Wno
_ -> error "should not be called",
mpsConstraintLabelModifier = \ entity_a1Wnp field_a1Wnq
-> case entity_a1Wnp of
"CustomPrefix1" -> append "CP1" field_a1Wnq
"CustomPrefix2" -> append "CP2" field_a1Wnq
"CustomPrefixSum" -> append "CP" field_a1Wnq
_ -> error "should not be called",
mpsGeneric = True},
mkMigrate "customPrefixMigrate"]
([Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix1"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
184 24 185 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customFieldName"# (ghc-prim:GHC.Types.I# 15#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_field_name"# (ghc-prim:GHC.Types.I# 17#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
184 24 185 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix2"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
186 24 188 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
186 24 188 5)),
Database.Persist.Quasi.Internal.UnboundEntityDef
[]
(Database.Persist.Quasi.Internal.DefaultKey
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
189 24 192 5)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
189 24 192 5))])
======>
instance PersistStore backend =>
PersistField (CustomPrefix1Generic backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["customFieldName"]
instance PersistStore backend =>
PersistFieldSql (CustomPrefix1Generic backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (CustomPrefix2Generic backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["otherCustomFieldName", "customPrefixedRef"]
instance PersistStore backend =>
PersistFieldSql (CustomPrefix2Generic backend) where
sqlType _ = SqlString
instance PersistStore backend =>
PersistField (CustomPrefixSumGeneric backend) where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["customPrefixedLeft", "customPrefixedRight"]
instance PersistStore backend =>
PersistFieldSql (CustomPrefixSumGeneric backend) where
sqlType _ = SqlString
type CustomPrefix1 = CustomPrefix1Generic SqlBackend
data CustomPrefix1Generic backend
= CustomPrefix1 {_cp1CustomFieldName :: !Int}
type CustomPrefix1Id = Key CustomPrefix1
instance PersistStore backend =>
PersistEntity (CustomPrefix1Generic backend) where
type PersistEntityBackend (CustomPrefix1Generic backend) = backend
data Unique (CustomPrefix1Generic backend)
newtype Key (CustomPrefix1Generic backend)
= CustomPrefix1Key {unCustomPrefix1Key :: (BackendKey backend)}
data EntityField (CustomPrefix1Generic backend) typ
= (typ ~ Key (CustomPrefix1Generic backend)) => CustomPrefix1Id |
(typ ~ Int) => CP1CustomFieldName
keyToValues
= ((: [])
. (toPersistValue
. (\ CustomPrefix1Key {unCustomPrefix1Key = x} -> x)))
keyFromValues
= (fmap CustomPrefix1Key
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1WGT
= ((Entity <$> fromField_a1WGT CustomPrefix1Id)
<*> (pure CustomPrefix1 <*> fromField_a1WGT CP1CustomFieldName))
tabulateEntityApply fromField_a1WGS
= ((Entity <$> fromField_a1WGS CustomPrefix1Id)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
(CustomPrefix1 <$> fromField_a1WGS CP1CustomFieldName))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix1"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
184 24 185 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"customFieldName"#
(ghc-prim:GHC.Types.I#
15#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"custom_field_name"#
(ghc-prim:GHC.Types.I#
17#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"#
(ghc-prim:GHC.Types.I#
15#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix1 x_a1WGH) = [toPersistValue x_a1WGH]
fromPersistValues [x1_a1WGJ]
= CustomPrefix1
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))
(Data.Text.unpackCStringLen#
"customFieldName"# (ghc-prim:GHC.Types.I# 15#)))
. fromPersistValue)
x1_a1WGJ
fromPersistValues x_a1WGI
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a1WGI))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (CustomPrefix1 _customFieldName_a1WGK) = []
persistFieldDef CustomPrefix1Id
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef CP1CustomFieldName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy CustomPrefix1)
(FieldNameHS
(Data.Text.unpackCStringLen#
"customFieldName"# (ghc-prim:GHC.Types.I# 15#)))
persistIdField = CustomPrefix1Id
fieldLens CustomPrefix1Id
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1WGM) key_a1WGN
-> Entity key_a1WGN value_a1WGM)
fieldLens CP1CustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix1 {_cp1CustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a1WGO value_a1WGP) x_a1WGQ
-> Entity
key_a1WGO
(case value_a1WGP of
CustomPrefix1 {} -> CustomPrefix1 {_cp1CustomFieldName = x_a1WGQ}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (CustomPrefix1Generic backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (CustomPrefix1Generic backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (CustomPrefix1Generic backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (CustomPrefix1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefix1Generic backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefix1Generic backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (CustomPrefix1Generic backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (CustomPrefix1Generic backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (CustomPrefix1Generic backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (CustomPrefix1Generic backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (CustomPrefix1Generic backend))
instance PersistStore backend =>
ToBackendKey backend (CustomPrefix1Generic backend) where
toBackendKey = \ CustomPrefix1Key {unCustomPrefix1Key = x} -> x
fromBackendKey = CustomPrefix1Key
type CustomPrefix2 = CustomPrefix2Generic SqlBackend
data CustomPrefix2Generic backend
= CustomPrefix2 {_cp2OtherCustomFieldName :: !Int,
_cp2CustomPrefixedRef :: !(Key (CustomPrefix1Generic backend))}
type CustomPrefix2Id = Key CustomPrefix2
instance PersistStore backend =>
PersistEntity (CustomPrefix2Generic backend) where
type PersistEntityBackend (CustomPrefix2Generic backend) = backend
data Unique (CustomPrefix2Generic backend)
newtype Key (CustomPrefix2Generic backend)
= CustomPrefix2Key {unCustomPrefix2Key :: (BackendKey backend)}
data EntityField (CustomPrefix2Generic backend) typ
= (typ ~ Key (CustomPrefix2Generic backend)) => CustomPrefix2Id |
(typ ~ Int) => CP2OtherCustomFieldName |
(typ ~ Key (CustomPrefix1Generic backend)) => CP2CustomPrefixedRef
keyToValues
= ((: [])
. (toPersistValue
. (\ CustomPrefix2Key {unCustomPrefix2Key = x} -> x)))
keyFromValues
= (fmap CustomPrefix2Key
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1WHc
= ((Entity <$> fromField_a1WHc CustomPrefix2Id)
<*>
((pure CustomPrefix2 <*> fromField_a1WHc CP2OtherCustomFieldName)
<*> fromField_a1WHc CP2CustomPrefixedRef))
tabulateEntityApply fromField_a1WHb
= ((Entity <$> fromField_a1WHb CustomPrefix2Id)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((CustomPrefix2 <$> fromField_a1WHb CP2OtherCustomFieldName)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1WHb CP2CustomPrefixedRef))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix2"# (ghc-prim:GHC.Types.I# 14#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] [] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
186 24 188 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"otherCustomFieldName"#
(ghc-prim:GHC.Types.I#
20#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"other_custom_field_name"#
(ghc-prim:GHC.Types.I#
23#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRef"#
(ghc-prim:GHC.Types.I#
17#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_ref"#
(ghc-prim:GHC.Types.I#
19#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix1Id"#
(ghc-prim:GHC.Types.I#
15#)),
fieldSqlType = sqlType
(Proxy ::
Proxy CustomPrefix1Id),
fieldAttrs = [],
fieldStrict = True,
fieldReference = ForeignRef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefix1"#
(ghc-prim:GHC.Types.I#
13#))),
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix2Id"#
(ghc-prim:GHC.Types.I#
15#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix2 x_a1WGU x_a1WGV)
= [toPersistValue x_a1WGU, toPersistValue x_a1WGV]
fromPersistValues [x1_a1WGX, x2_a1WGY]
= CustomPrefix2
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))
(Data.Text.unpackCStringLen#
"otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)))
. fromPersistValue)
x1_a1WGX
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen#
"custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))
(Data.Text.unpackCStringLen#
"customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)))
. fromPersistValue)
x2_a1WGY
fromPersistValues x_a1WGW
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a1WGW))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(CustomPrefix2 _otherCustomFieldName_a1WGZ
_customPrefixedRef_a1WH0)
= []
persistFieldDef CustomPrefix2Id
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef CP2OtherCustomFieldName
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy CustomPrefix2)
(FieldNameHS
(Data.Text.unpackCStringLen#
"otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)))
persistFieldDef CP2CustomPrefixedRef
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy CustomPrefix2)
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)))
persistIdField = CustomPrefix2Id
fieldLens CustomPrefix2Id
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1WH2) key_a1WH3
-> Entity key_a1WH3 value_a1WH2)
fieldLens CP2OtherCustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2OtherCustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a1WH4 value_a1WH5) x_a1WH6
-> Entity
key_a1WH4
(case value_a1WH5 of
CustomPrefix2 {_cp2CustomPrefixedRef = _cp2CustomPrefixedRef_a1WH8}
-> CustomPrefix2
{_cp2OtherCustomFieldName = x_a1WH6,
_cp2CustomPrefixedRef = _cp2CustomPrefixedRef}))
fieldLens CP2CustomPrefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2CustomPrefixedRef = x} -> x) . entityVal)
(\ (Entity key_a1WH4 value_a1WH5) x_a1WH6
-> Entity
key_a1WH4
(case value_a1WH5 of
CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName_a1WH9}
-> CustomPrefix2
{_cp2OtherCustomFieldName = _cp2OtherCustomFieldName,
_cp2CustomPrefixedRef = x_a1WH6}))
deriving stock instance Show (BackendKey backend) =>
Show (Key (CustomPrefix2Generic backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (CustomPrefix2Generic backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (CustomPrefix2Generic backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (CustomPrefix2Generic backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefix2Generic backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefix2Generic backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (CustomPrefix2Generic backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (CustomPrefix2Generic backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (CustomPrefix2Generic backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (CustomPrefix2Generic backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (CustomPrefix2Generic backend))
instance PersistStore backend =>
ToBackendKey backend (CustomPrefix2Generic backend) where
toBackendKey = \ CustomPrefix2Key {unCustomPrefix2Key = x} -> x
fromBackendKey = CustomPrefix2Key
type CustomPrefixSum = CustomPrefixSumGeneric SqlBackend
data CustomPrefixSumGeneric backend
= CPCustomPrefixedLeftSum Int | CPCustomPrefixedRightSum String
deriving stock (Show, Eq)
type CustomPrefixSumId = Key CustomPrefixSum
instance PersistStore backend =>
PersistEntity (CustomPrefixSumGeneric backend) where
type PersistEntityBackend (CustomPrefixSumGeneric backend) = backend
data Unique (CustomPrefixSumGeneric backend)
newtype Key (CustomPrefixSumGeneric backend)
= CustomPrefixSumKey {unCustomPrefixSumKey :: (BackendKey backend)}
data EntityField (CustomPrefixSumGeneric backend) typ
= (typ ~ Key (CustomPrefixSumGeneric backend)) =>
CustomPrefixSumId |
(typ ~ Int) => CPCustomPrefixedLeft |
(typ ~ String) => CPCustomPrefixedRight
keyToValues
= ((: [])
. (toPersistValue
. (\ CustomPrefixSumKey {unCustomPrefixSumKey = x} -> x)))
keyFromValues
= (fmap CustomPrefixSumKey
. (fromPersistValue . Database.Persist.TH.Internal.headNote))
keyFromRecordM = Nothing
tabulateEntityA fromField_a1WHo
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a1WHn
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
[] [] [] []
[Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#),
Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)]
Data.Map.Internal.Tip True Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
189 24 192 5))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedLeft"#
(ghc-prim:GHC.Types.I#
18#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_left"#
(ghc-prim:GHC.Types.I#
20#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"Int"#
(ghc-prim:GHC.Types.I#
3#)),
fieldSqlType = sqlType
(Proxy ::
Proxy Int),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRight"#
(ghc-prim:GHC.Types.I#
19#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"custom_prefixed_right"#
(ghc-prim:GHC.Types.I#
21#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"String"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy String),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen#
"Id"#
(ghc-prim:GHC.Types.I#
2#)))
(FieldNameDB
(Data.Text.unpackCStringLen#
"id"#
(ghc-prim:GHC.Types.I#
2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefixSumId"#
(ghc-prim:GHC.Types.I#
17#)))
SqlInt64
[]
True
NoReference
(FieldCascade
Nothing
Nothing)
Nothing
Nothing
True),
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CPCustomPrefixedLeftSum x_a1WHd)
= [toPersistValue x_a1WHd, PersistNull]
toPersistFields (CPCustomPrefixedRightSum x_a1WHe)
= [PersistNull, toPersistValue x_a1WHe]
fromPersistValues [x_a1WHf, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a1WHf
= (CPCustomPrefixedLeftSum `fmap` fromPersistValue x_a1WHf)
fromPersistValues [PersistNull, x_a1WHg]
| Database.Persist.TH.Internal.isNotNull x_a1WHg
= (CPCustomPrefixedRightSum `fmap` fromPersistValue x_a1WHg)
fromPersistValues _
= Left
("Invalid fromPersistValues input: sum type with all nulls. Entity: "
`mappend`
Data.Text.unpackCStringLen#
"CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys _ = []
persistFieldDef CustomPrefixSumId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#)))
SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing
Nothing True))
persistFieldDef CPCustomPrefixedLeft
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy CustomPrefixSum)
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#)))
persistFieldDef CPCustomPrefixedRight
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy CustomPrefixSum)
(FieldNameHS
(Data.Text.unpackCStringLen#
"customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#)))
persistIdField = CustomPrefixSumId
fieldLens CustomPrefixSumId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1WHi) key_a1WHj
-> Entity key_a1WHj value_a1WHi)
fieldLens CPCustomPrefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1WHl)
-> case value_a1WHl of
CPCustomPrefixedLeftSum x_a1WHm -> x_a1WHm
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1WHk _) x_a1WHm
-> Entity key_a1WHk (CPCustomPrefixedLeftSum x_a1WHm))
fieldLens CPCustomPrefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1WHl)
-> case value_a1WHl of
CPCustomPrefixedRightSum x_a1WHm -> x_a1WHm
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1WHk _) x_a1WHm
-> Entity key_a1WHk (CPCustomPrefixedRightSum x_a1WHm))
deriving stock instance Show (BackendKey backend) =>
Show (Key (CustomPrefixSumGeneric backend))
deriving stock instance Read (BackendKey backend) =>
Read (Key (CustomPrefixSumGeneric backend))
deriving newtype instance Eq (BackendKey backend) =>
Eq (Key (CustomPrefixSumGeneric backend))
deriving newtype instance Ord (BackendKey backend) =>
Ord (Key (CustomPrefixSumGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefixSumGeneric backend))
deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) =>
Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefixSumGeneric backend))
deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) =>
Web.PathPieces.PathPiece (Key (CustomPrefixSumGeneric backend))
deriving newtype instance PersistField (BackendKey backend) =>
PersistField (Key (CustomPrefixSumGeneric backend))
deriving newtype instance PersistFieldSql (BackendKey backend) =>
PersistFieldSql (Key (CustomPrefixSumGeneric backend))
deriving newtype instance ToJSON (BackendKey backend) =>
ToJSON (Key (CustomPrefixSumGeneric backend))
deriving newtype instance FromJSON (BackendKey backend) =>
FromJSON (Key (CustomPrefixSumGeneric backend))
instance PersistStore backend =>
ToBackendKey backend (CustomPrefixSumGeneric backend) where
toBackendKey = \ CustomPrefixSumKey {unCustomPrefixSumKey = x} -> x
fromBackendKey = CustomPrefixSumKey
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (CustomPrefix1Generic backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (CustomPrefix1Generic backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (CustomPrefix2Generic backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (CustomPrefix2Generic backend) where
requireUniquesP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)),
PersistStoreWrite backend) =>
OnlyOneUniqueKey (CustomPrefixSumGeneric backend) where
onlyUniqueP _ = error "impossible"
instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)),
PersistStoreWrite backend) =>
AtLeastOneUniqueKey (CustomPrefixSumGeneric backend) where
requireUniquesP _ = error "impossible"
instance SymbolToField "id" (CustomPrefix1Generic backend) (Key (CustomPrefix1Generic backend)) where
symbolToField = CustomPrefix1Id
instance SymbolToField "customFieldName" (CustomPrefix1Generic backend) Int where
symbolToField = CP1CustomFieldName
instance SymbolToField "id" (CustomPrefix2Generic backend) (Key (CustomPrefix2Generic backend)) where
symbolToField = CustomPrefix2Id
instance SymbolToField "otherCustomFieldName" (CustomPrefix2Generic backend) Int where
symbolToField = CP2OtherCustomFieldName
instance SymbolToField "customPrefixedRef" (CustomPrefix2Generic backend) (Key (CustomPrefix1Generic backend)) where
symbolToField = CP2CustomPrefixedRef
instance SymbolToField "id" (CustomPrefixSumGeneric backend) (Key (CustomPrefixSumGeneric backend)) where
symbolToField = CustomPrefixSumId
instance SymbolToField "customPrefixedLeft" (CustomPrefixSumGeneric backend) Int where
symbolToField = CPCustomPrefixedLeft
instance SymbolToField "customPrefixedRight" (CustomPrefixSumGeneric backend) String where
symbolToField = CPCustomPrefixedRight
instance PersistStoreWrite backend =>
SafeToInsert (CustomPrefix1Generic backend)
instance PersistStoreWrite backend =>
SafeToInsert (CustomPrefix2Generic backend)
instance PersistStoreWrite backend =>
SafeToInsert (CustomPrefixSumGeneric backend)
entityDefListForcustomPrefixMigrate :: [EntityDef]
entityDefListForcustomPrefixMigrate
= [entityDef (Proxy :: Proxy CustomPrefix1),
entityDef (Proxy :: Proxy CustomPrefix2),
entityDef (Proxy :: Proxy CustomPrefixSum)]
customPrefixMigrate :: Migration
customPrefixMigrate
= migrateModels entityDefListForcustomPrefixMigrate
src/PersistentTestModels.hs:(206,23)-(213,2): Splicing expression
template-haskell:Language.Haskell.TH.Quote.quoteExp
persistLowerCase
"\n\
\\n\
\Tree sql=trees\n\
\ name String\n\
\ parent String Maybe\n\
\ Primary name\n\
\ Foreign Tree fkparent parent\n"
======>
[Database.Persist.Quasi.Internal.UnboundEntityDef
[Database.Persist.Quasi.Internal.UnboundForeignDef
(Database.Persist.Quasi.Internal.FieldListImpliedId
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))
NEL.:| []))
(ForeignDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#)))
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"fkparent"# (ghc-prim:GHC.Types.I# 8#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"treefkparent"# (ghc-prim:GHC.Types.I# 12#)))
(FieldCascade Nothing Nothing) [] [] False True)]
(Database.Persist.Quasi.Internal.NaturalKey
(Database.Persist.Quasi.Internal.UnboundCompositeDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))
NEL.:| [])
[]))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#)))
(SqlOther
(Data.Text.unpackCStringLen#
"Primary Key"# (ghc-prim:GHC.Types.I# 11#)))
[] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing
True))
[Data.Text.unpackCStringLen#
"sql=trees"# (ghc-prim:GHC.Types.I# 9#)]
[]
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"primary_key"# (ghc-prim:GHC.Types.I# 11#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
209 24 213 3)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
209 24 213 3))]
src/PersistentTestModels.hs:(202,1)-(213,2): Splicing declarations
share
[mkPersist
persistSettings {mpsPrefixFields = False, mpsGeneric = False},
mkMigrate "treeMigrate"]
([Database.Persist.Quasi.Internal.UnboundEntityDef
[Database.Persist.Quasi.Internal.UnboundForeignDef
(Database.Persist.Quasi.Internal.FieldListImpliedId
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))
NEL.:| []))
(ForeignDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#)))
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"fkparent"# (ghc-prim:GHC.Types.I# 8#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"treefkparent"# (ghc-prim:GHC.Types.I# 12#)))
(FieldCascade Nothing Nothing) [] [] False True)]
(Database.Persist.Quasi.Internal.NaturalKey
(Database.Persist.Quasi.Internal.UnboundCompositeDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))
NEL.:| [])
[]))
(persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#)))
(SqlOther
(Data.Text.unpackCStringLen#
"Primary Key"# (ghc-prim:GHC.Types.I# 11#)))
[] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing
True))
[Data.Text.unpackCStringLen#
"sql=trees"# (ghc-prim:GHC.Types.I# 9#)]
[]
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"primary_key"# (ghc-prim:GHC.Types.I# 11#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
209 24 213 3)))
[Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
[] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing,
Database.Persist.Quasi.Internal.UnboundFieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
[FieldAttrMaybe] True
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)))
(FieldCascade Nothing Nothing) Nothing Nothing]
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
209 24 213 3))])
======>
instance PersistField Tree where
toPersistValue
= Database.Persist.TH.Internal.entityToPersistValueHelper
fromPersistValue
= Database.Persist.TH.Internal.entityFromPersistValueHelper
["name", "parent"]
instance PersistFieldSql Tree where
sqlType _ = SqlString
data Tree = Tree {name :: !String, parent :: !(Maybe String)}
fkparent :: Tree -> Maybe (Key Tree)
fkparent record_mkForeignKeysComposite_a1Z0U
= fmap
TreeKey
(ghc-prim:GHC.Prim.coerce
(parent record_mkForeignKeysComposite_a1Z0U))
type TreeId = Key Tree
instance PersistEntity Tree where
type PersistEntityBackend Tree = SqlBackend
data Unique Tree = TreePrimaryKey String
newtype Key Tree
= TreeKey {unTreeKey :: String}
deriving stock Show
deriving stock Read
deriving newtype Eq
deriving newtype Ord
deriving newtype Web.PathPieces.PathPiece
deriving newtype Web.Internal.HttpApiData.ToHttpApiData
deriving newtype Web.Internal.HttpApiData.FromHttpApiData
deriving newtype PersistField
deriving newtype PersistFieldSql
deriving newtype ToJSON
deriving newtype FromJSON
data EntityField Tree typ
= (typ ~ TreeId) => TreeId |
(typ ~ String) => Name |
(typ ~ Maybe String) => Parent
keyToValues record_a1Z0V
= [toPersistValue ((\ TreeKey {unTreeKey = x} -> x) record_a1Z0V)]
keyFromValues [x1_a1Z0X]
= TreeKey
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a1Z0X
keyFromValues x_a1Z0W
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: keyFromValues failed on: "# (ghc-prim:GHC.Types.I# 31#))
(Data.Text.Internal.pack $ show x_a1Z0W))
keyFromRecordM
= Just (\ Tree {name = name_a1Z17} -> TreeKey name_a1Z17)
tabulateEntityA fromField_a1Z19
= ((Entity <$> fromField_a1Z19 TreeId)
<*>
((pure Tree <*> fromField_a1Z19 Name) <*> fromField_a1Z19 Parent))
tabulateEntityApply fromField_a1Z18
= ((Entity <$> fromField_a1Z18 TreeId)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
((Tree <$> fromField_a1Z18 Name)
semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.>
fromField_a1Z18 Parent))
entityDef _
= persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef
(EntityNameHS
(Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#)))
(EntityNameDB
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)))
(EntityIdField
(FieldDef
(FieldNameHS
(Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#)))
(FieldNameDB
(Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))
(FTTypeCon
Nothing
(Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#)))
(SqlOther
(Data.Text.unpackCStringLen#
"Primary Key"# (ghc-prim:GHC.Types.I# 11#)))
[] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing
True))
[Data.Text.unpackCStringLen#
"sql=trees"# (ghc-prim:GHC.Types.I# 9#)]
[]
[UniqueDef
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"primary_key"# (ghc-prim:GHC.Types.I# 11#)))
((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
[]]
[] [] Data.Map.Internal.Tip False Nothing
(Just
(Database.Persist.Types.SourceSpan.SourceSpan
(Data.Text.unpackCStringLen#
"src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#))
209 24 213 3))
{persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"String"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy String),
fieldAttrs = [],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False},
FieldDef
{fieldHaskell = FieldNameHS
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#)),
fieldDB = FieldNameDB
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#)),
fieldType = FTTypeCon
Nothing
(Data.Text.unpackCStringLen#
"String"#
(ghc-prim:GHC.Types.I#
6#)),
fieldSqlType = sqlType
(Proxy ::
Proxy String),
fieldAttrs = [FieldAttrMaybe],
fieldStrict = True,
fieldReference = NoReference,
fieldCascade = FieldCascade
Nothing
Nothing,
fieldComments = Nothing,
fieldGenerated = Nothing,
fieldIsImplicitIdColumn = False}],
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdNaturalKey
CompositeDef
{compositeFields = NEL.fromList
[Database.Persist.TH.Internal.lookupEntityField
(Proxy ::
Proxy Tree)
(FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)))],
compositeAttrs = []},
persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = [ForeignDef
(EntityNameHS
(Data.Text.unpackCStringLen#
"Tree"#
(ghc-prim:GHC.Types.I#
4#)))
(EntityNameDB
(Data.Text.unpackCStringLen#
"tree"#
(ghc-prim:GHC.Types.I#
4#)))
(ConstraintNameHS
(Data.Text.unpackCStringLen#
"fkparent"#
(ghc-prim:GHC.Types.I#
8#)))
(ConstraintNameDB
(Data.Text.unpackCStringLen#
"treefkparent"#
(ghc-prim:GHC.Types.I#
12#)))
(FieldCascade
Nothing
Nothing)
[]
[]
False
True
{foreignFields = [((FieldNameHS
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#)),
FieldNameDB
(Data.Text.unpackCStringLen#
"parent"#
(ghc-prim:GHC.Types.I#
6#))),
(FieldNameHS
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#)),
FieldNameDB
(Data.Text.unpackCStringLen#
"name"#
(ghc-prim:GHC.Types.I#
4#))))],
foreignNullable = True,
foreignRefTableDBName = EntityNameDB
(Data.Text.unpackCStringLen#
"trees"#
(ghc-prim:GHC.Types.I#
5#))}]}
toPersistFields (Tree x_a1Z0M x_a1Z0N)
= [toPersistValue x_a1Z0M, toPersistValue x_a1Z0N]
fromPersistValues [x1_a1Z0P, x2_a1Z0Q]
= Tree
<$>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
. fromPersistValue)
x1_a1Z0P
<*>
(Database.Persist.TH.Internal.mapLeft
(Database.Persist.TH.Internal.fieldError
(Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
. fromPersistValue)
x2_a1Z0Q
fromPersistValues x_a1Z0O
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a1Z0O))
persistUniqueToFieldNames TreePrimaryKey {}
= ((FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)),
FieldNameDB
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
NEL.:| [])
persistUniqueToValues (TreePrimaryKey x_a1Z0R)
= [toPersistValue x_a1Z0R]
persistUniqueKeys (Tree _name_a1Z0S _parent_a1Z0T)
= [TreePrimaryKey _name_a1Z0S]
persistFieldDef TreeId
= Database.Persist.TH.Internal.stripIdFieldImpl
(EntityIdNaturalKey
CompositeDef
{compositeFields = NEL.fromList
[Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Tree)
(FieldNameHS
(Data.Text.unpackCStringLen#
"name"# (ghc-prim:GHC.Types.I# 4#)))],
compositeAttrs = []})
persistFieldDef Name
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Tree)
(FieldNameHS
(Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))
persistFieldDef Parent
= Database.Persist.TH.Internal.lookupEntityField
(Proxy :: Proxy Tree)
(FieldNameHS
(Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)))
persistIdField = TreeId
fieldLens TreeId
= Database.Persist.TH.Internal.lensPTH
entityKey
(\ (Entity _ value_a1Z0Y) key_a1Z0Z
-> Entity key_a1Z0Z value_a1Z0Y)
fieldLens Name
= Database.Persist.TH.Internal.lensPTH
((\ Tree {name = x} -> x) . entityVal)
(\ (Entity key_a1Z10 value_a1Z11) x_a1Z12
-> Entity
key_a1Z10
(case value_a1Z11 of
Tree {parent = parent_a1Z14}
-> Tree {name = x_a1Z12, parent = parent}))
fieldLens Parent
= Database.Persist.TH.Internal.lensPTH
((\ Tree {parent = x} -> x) . entityVal)
(\ (Entity key_a1Z10 value_a1Z11) x_a1Z12
-> Entity
key_a1Z10
(case value_a1Z11 of
Tree {name = name_a1Z15} -> Tree {name = name, parent = x_a1Z12}))
instance OnlyOneUniqueKey Tree where
onlyUniqueP = (head . persistUniqueKeys)
instance AtLeastOneUniqueKey Tree where
requireUniquesP = (NEL.fromList . persistUniqueKeys)
instance SymbolToField "id" Tree (Key Tree) where
symbolToField = TreeId
instance SymbolToField "name" Tree String where
symbolToField = Name
instance SymbolToField "parent" Tree (Maybe String) where
symbolToField = Parent
instance SafeToInsert Tree
entityDefListFortreeMigrate :: [EntityDef]
entityDefListFortreeMigrate = [entityDef (Proxy :: Proxy Tree)]
treeMigrate :: Migration
treeMigrate = migrateModels entityDefListFortreeMigrate
src/PersistentTestModels.hs:27:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
27 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "testMigrate"]
| ^^^^^^^^^^
src/PersistentTestModels.hs:137:1: warning: [GHC-39584]
persistent has deprecated sum type entities as of 2.14.0.0.
We will delete support for these entities in 2.15.0.0.
If you need these, please add a comment on this GitHub issue:
https://github.com/yesodweb/persistent/issues/987
|
137 | share
| ^^^^^...
src/PersistentTestModels.hs:143:15: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
143 | , mpsGeneric = True
| ^^^^^^^^^^
src/PersistentTestModels.hs:166:1: warning: [GHC-39584]
persistent has deprecated sum type entities as of 2.14.0.0.
We will delete support for these entities in 2.15.0.0.
If you need these, please add a comment on this GitHub issue:
https://github.com/yesodweb/persistent/issues/987
|
166 | share
| ^^^^^...
src/PersistentTestModels.hs:178:15: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
178 | , mpsGeneric = True
| ^^^^^^^^^^
src/PersistentTestModels.hs:203:58: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
203 | [ mkPersist persistSettings{mpsPrefixFields = False, mpsGeneric = False}
| ^^^^^^^^^^
src/PersistentTestModels.hs:223:10: warning: [GHC-06201] [-Wmissing-methods]
" No explicit implementation for
tabulateEntityA and tabulateEntityApply
" In the instance declaration for
PersistEntity (ReverseFieldOrder a)
|
223 | instance (PersistEntity a) => PersistEntity (ReverseFieldOrder a) where
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/PersistentTestModels.hs:228:54: warning: [GHC-63394] [-Wx-partial]
In the use of head
(imported from Prelude, but defined in GHC.List):
"This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty."
|
228 | keyFromValues = fmap RFOKey . fromPersistValue . head
| ^^^^
[28 of 41] Compiling PersistentTest ( src/PersistentTest.hs, nothing )
[29 of 41] Compiling MpsNoPrefixTest ( src/MpsNoPrefixTest.hs, nothing )
[30 of 41] Compiling MpsCustomPrefixTest ( src/MpsCustomPrefixTest.hs, nothing )
[31 of 41] Compiling PrimaryTest ( src/PrimaryTest.hs, nothing )
src/PrimaryTest.hs:12:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
12 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"]
| ^^^^^^^^^^
[32 of 41] Compiling RawSqlTest ( src/RawSqlTest.hs, nothing )
[33 of 41] Compiling ReadWriteTest ( src/ReadWriteTest.hs, nothing )
[34 of 41] Compiling Recursive ( src/Recursive.hs, nothing )
src/Recursive.hs:10:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
10 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "recursiveMigrate"]
| ^^^^^^^^^^
[35 of 41] Compiling RenameTest ( src/RenameTest.hs, nothing )
src/RenameTest.hs:19:28: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
19 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"]
| ^^^^^^^^^^
[36 of 41] Compiling SumTypeTest ( src/SumTypeTest.hs, nothing )
src/SumTypeTest.hs:13:1: warning: [GHC-39584]
persistent has deprecated sum type entities as of 2.14.0.0.
We will delete support for these entities in 2.15.0.0.
If you need these, please add a comment on this GitHub issue:
https://github.com/yesodweb/persistent/issues/987
|
13 | share
| ^^^^^...
src/SumTypeTest.hs:14:32: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
14 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "sumTypeMigrate"]
| ^^^^^^^^^^
[37 of 41] Compiling TransactionLevelTest ( src/TransactionLevelTest.hs, nothing )
[38 of 41] Compiling TreeTest ( src/TreeTest.hs, nothing )
src/TreeTest.hs:13:33: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
13 | [ mkPersist persistSettings{mpsGeneric = False}
| ^^^^^^^^^^
[39 of 41] Compiling TypeLitFieldDefsTest ( src/TypeLitFieldDefsTest.hs, nothing )
src/TypeLitFieldDefsTest.hs:34:29: warning: [GHC-68441] [-Wdeprecations]
In the use of record field of MkPersistSettings mpsGeneric
(imported from Init, but defined in Database.Persist.TH.Internal):
Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem.
Github: https://github.com/yesodweb/persistent/issues/1204"
|
34 | [ mkPersist sqlSettings{mpsGeneric = True}
| ^^^^^^^^^^
[40 of 41] Compiling UniqueTest ( src/UniqueTest.hs, nothing )
[41 of 41] Compiling UpsertTest ( src/UpsertTest.hs, nothing )
Haddock coverage:
62% ( 34 / 54) in 'Init'
Missing documentation for:
@/= (src/Init.hs:130)
@== (src/Init.hs:133)
==@ (src/Init.hs:134)
asIO (src/Init.hs:126)
assertNotEqual (src/Init.hs:141)
assertNotEmpty (src/Init.hs:155)
assertEmpty (src/Init.hs:152)
isTravis (src/Init.hs:158)
persistSettings (src/Init.hs:168)
BackendKey
GenerateKey (src/Init.hs:180)
RunDb (src/Init.hs:256)
Runner (src/Init.hs:240)
truncateTimeOfDay (src/Init.hs:209)
truncateToMicro (src/Init.hs:214)
truncateUTCTime (src/Init.hs:221)
arbText (src/Init.hs:230)
changeBackend (src/Init.hs:264)
UUID (src/Init.hs:290)
sqlSettingsUuid (src/Init.hs:310)
0% ( 0 / 4) in 'HtmlTest'
Missing documentation for:
Module header
specsWith (src/HtmlTest.hs:34)
cleanDB (src/HtmlTest.hs:26)
htmlMigrate (src/HtmlTest.hs:17)
0% ( 0 / 2) in 'GeneratedColumnTestSQL'
Missing documentation for:
Module header
specsWith (src/GeneratedColumnTestSQL.hs:34)
0% ( 0 / 44) in 'ForeignKey'
Missing documentation for:
Module header
Chain3Id (src/ForeignKey.hs:18)
Chain3 (src/ForeignKey.hs:18)
Chain2Id (src/ForeignKey.hs:18)
Chain2 (src/ForeignKey.hs:18)
ChainId (src/ForeignKey.hs:18)
Chain (src/ForeignKey.hs:18)
BExplicitId (src/ForeignKey.hs:18)
BExplicit (src/ForeignKey.hs:18)
BCompositeId (src/ForeignKey.hs:18)
BComposite (src/ForeignKey.hs:18)
ACompositeId (src/ForeignKey.hs:18)
AComposite (src/ForeignKey.hs:18)
BId (src/ForeignKey.hs:18)
B (src/ForeignKey.hs:18)
AId (src/ForeignKey.hs:18)
A (src/ForeignKey.hs:18)
SelfReferencedId (src/ForeignKey.hs:18)
SelfReferenced (src/ForeignKey.hs:18)
ChildCompositeId (src/ForeignKey.hs:18)
ChildComposite (src/ForeignKey.hs:18)
ParentCompositeId (src/ForeignKey.hs:18)
ParentComposite (src/ForeignKey.hs:18)
ChildImplicitId (src/ForeignKey.hs:18)
ChildImplicit (src/ForeignKey.hs:18)
ParentImplicitId (src/ForeignKey.hs:18)
ParentImplicit (src/ForeignKey.hs:18)
ChildId (src/ForeignKey.hs:18)
Child (src/ForeignKey.hs:18)
ParentId (src/ForeignKey.hs:18)
Parent (src/ForeignKey.hs:18)
SimpleCascadeId (src/ForeignKey.hs:18)
SimpleCascade (src/ForeignKey.hs:18)
SimpleCascadeChildId (src/ForeignKey.hs:18)
SimpleCascadeChild (src/ForeignKey.hs:18)
childFkparent (src/ForeignKey.hs:18)
childImplicitFkparent (src/ForeignKey.hs:18)
childCompositeFkparent (src/ForeignKey.hs:18)
selfReferencedFkparent (src/ForeignKey.hs:18)
entityDefListForcompositeMigrate (src/ForeignKey.hs:18)
compositeMigrate (src/ForeignKey.hs:18)
specsWith (src/ForeignKey.hs:111)
cleanDB (src/ForeignKey.hs:237)
del (src/ForeignKey.hs:262)
0% ( 0 / 2) in 'EquivalentTypeTest'
Missing documentation for:
Module header
specsWith (src/EquivalentTypeTest.hs:30)
0% ( 0 / 5) in 'EntityEmbedTest'
Missing documentation for:
Module header
ARecordId (src/EntityEmbedTest.hs:10)
ARecordGeneric (src/EntityEmbedTest.hs:10)
ARecord (src/EntityEmbedTest.hs:10)
AnEntity (src/EntityEmbedTest.hs:18)
0% ( 0 / 4) in 'EmptyEntityTest'
Missing documentation for:
Module header
specsWith (src/EmptyEntityTest.hs:32)
migration (src/EmptyEntityTest.hs:13)
cleanDB (src/EmptyEntityTest.hs:25)
0% ( 0 / 4) in 'EmbedTest'
Missing documentation for:
Module header
specsWith (src/EmbedTest.hs:164)
cleanDB (src/EmbedTest.hs:144)
embedMigrate (src/EmbedTest.hs:32)
0% ( 0 / 4) in 'EmbedOrderTest'
Missing documentation for:
Module header
specsWith (src/EmbedOrderTest.hs:34)
embedOrderMigrate (src/EmbedOrderTest.hs:15)
cleanDB (src/EmbedOrderTest.hs:29)
0% ( 0 / 5) in 'DataTypeTest'
Missing documentation for:
Module header
specsWith (src/DataTypeTest.hs:118)
dataTypeMigrate (src/DataTypeTest.hs:39)
roundTime (src/DataTypeTest.hs:66)
roundUTCTime (src/DataTypeTest.hs:69)
0% ( 0 / 9) in 'CustomPrimaryKeyReferenceTest'
Missing documentation for:
Module header
TweetUrlId (src/CustomPrimaryKeyReferenceTest.hs:12)
TweetUrl (src/CustomPrimaryKeyReferenceTest.hs:12)
TweetId (src/CustomPrimaryKeyReferenceTest.hs:12)
Tweet (src/CustomPrimaryKeyReferenceTest.hs:12)
entityDefListFormigration (src/CustomPrimaryKeyReferenceTest.hs:12)
migration (src/CustomPrimaryKeyReferenceTest.hs:12)
cleanDB (src/CustomPrimaryKeyReferenceTest.hs:32)
specsWith (src/CustomPrimaryKeyReferenceTest.hs:37)
0% ( 0 / 2) in 'CustomPersistField'
Missing documentation for:
Module header
Markdown (src/CustomPersistField.hs:14)
0% ( 0 / 3) in 'CustomPersistFieldTest'
Missing documentation for:
Module header
specsWith (src/CustomPersistFieldTest.hs:19)
customFieldMigrate (src/CustomPersistFieldTest.hs:10)
0% ( 0 / 22) in 'CompositeTest'
Missing documentation for:
Module header
PrimaryCompositeWithOtherNullableFieldsId (src/CompositeTest.hs:16)
PrimaryCompositeWithOtherNullableFields (src/CompositeTest.hs:16)
CitizenAddressId (src/CompositeTest.hs:16)
CitizenAddress (src/CompositeTest.hs:16)
AddressId (src/CompositeTest.hs:16)
Address (src/CompositeTest.hs:16)
CitizenId (src/CompositeTest.hs:16)
Citizen (src/CompositeTest.hs:16)
TestChildId (src/CompositeTest.hs:16)
TestChild (src/CompositeTest.hs:16)
TestParentId (src/CompositeTest.hs:16)
TestParent (src/CompositeTest.hs:16)
testChildFkparent (src/CompositeTest.hs:16)
entityDefListForcompositeMigrate (src/CompositeTest.hs:16)
compositeMigrate (src/CompositeTest.hs:16)
cleanDB (src/CompositeTest.hs:59)
specsWith (src/CompositeTest.hs:67)
matchK (src/CompositeTest.hs:273)
matchK2 (src/CompositeTest.hs:280)
matchParentK (src/CompositeTest.hs:283)
matchCitizenAddressK (src/CompositeTest.hs:289)
0% ( 0 / 8) in 'LargeNumberTest'
Missing documentation for:
Module header
NumberId (src/LargeNumberTest.hs:10)
NumberGeneric (src/LargeNumberTest.hs:10)
Number (src/LargeNumberTest.hs:10)
entityDefListFornumberMigrate (src/LargeNumberTest.hs:10)
numberMigrate (src/LargeNumberTest.hs:10)
cleanDB (src/LargeNumberTest.hs:24)
specsWith (src/LargeNumberTest.hs:28)
0% ( 0 / 8) in 'LongIdentifierTest'
Missing documentation for:
Module header
TableAnExtremelyFantasticallySuperLongNameChildId (src/LongIdentifierTest.hs:23)
TableAnExtremelyFantasticallySuperLongNameChild (src/LongIdentifierTest.hs:23)
TableAnExtremelyFantasticallySuperLongNameParentId (src/LongIdentifierTest.hs:23)
TableAnExtremelyFantasticallySuperLongNameParent (src/LongIdentifierTest.hs:23)
entityDefListFormigration (src/LongIdentifierTest.hs:23)
migration (src/LongIdentifierTest.hs:23)
specsWith (src/LongIdentifierTest.hs:33)
0% ( 0 / 3) in 'MaxLenTest'
Missing documentation for:
Module header
specsWith (src/MaxLenTest.hs:31)
maxlenMigrate (src/MaxLenTest.hs:11)
0% ( 0 / 3) in 'MaybeFieldDefsTest'
Missing documentation for:
Module header
specsWith (src/MaybeFieldDefsTest.hs:22)
maybeFieldDefMigrate (src/MaybeFieldDefsTest.hs:12)
0% ( 0 / 6) in 'MigrationColumnLengthTest'
Missing documentation for:
Module header
VaryingLengthsId (src/MigrationColumnLengthTest.hs:11)
VaryingLengths (src/MigrationColumnLengthTest.hs:11)
entityDefListFormigration (src/MigrationColumnLengthTest.hs:11)
migration (src/MigrationColumnLengthTest.hs:11)
specsWith (src/MigrationColumnLengthTest.hs:20)
0% ( 0 / 6) in 'MigrationIdempotencyTest'
Missing documentation for:
Module header
IdempotencyId (src/MigrationIdempotencyTest.hs:13)
Idempotency (src/MigrationIdempotencyTest.hs:13)
entityDefListFormigration (src/MigrationIdempotencyTest.hs:13)
migration (src/MigrationIdempotencyTest.hs:13)
specsWith (src/MigrationIdempotencyTest.hs:29)
0% ( 0 / 4) in 'MigrationOnlyTest'
Missing documentation for:
Module header
specsWith (src/MigrationOnlyTest.hs:47)
migrateAll1 (src/MigrationOnlyTest.hs:14)
migrateAll2 (src/MigrationOnlyTest.hs:24)
0% ( 0 / 16) in 'MigrationTest'
Missing documentation for:
Module header
CustomSqlIdId (src/MigrationTest.hs:12)
CustomSqlId (src/MigrationTest.hs:12)
SourceId (src/MigrationTest.hs:12)
Source (src/MigrationTest.hs:12)
TargetId (src/MigrationTest.hs:12)
Target (src/MigrationTest.hs:12)
entityDefListFormigrationMigrate (src/MigrationTest.hs:12)
migrationMigrate (src/MigrationTest.hs:12)
Source1Id (src/MigrationTest.hs:30)
Source1 (src/MigrationTest.hs:30)
Target1Id (src/MigrationTest.hs:30)
Target1 (src/MigrationTest.hs:30)
entityDefListFormigrationAddCol (src/MigrationTest.hs:30)
migrationAddCol (src/MigrationTest.hs:30)
specsWith (src/MigrationTest.hs:46)
0% ( 0 / 2) in 'PersistTestPetCollarType'
Missing documentation for:
Module header
PetCollar (src/PersistTestPetCollarType.hs:11)
0% ( 0 / 2) in 'PersistTestPetType'
Missing documentation for:
Module header
PetType (src/PersistTestPetType.hs:5)
0% ( 0 / 12) in 'PersistUniqueTest'
Missing documentation for:
Module header
OnlyPrimaryKeyId (src/PersistUniqueTest.hs:10)
OnlyPrimaryKey (src/PersistUniqueTest.hs:10)
BaId (src/PersistUniqueTest.hs:10)
Ba (src/PersistUniqueTest.hs:10)
FoId (src/PersistUniqueTest.hs:10)
Fo (src/PersistUniqueTest.hs:10)
entityDefListFormigration (src/PersistUniqueTest.hs:10)
migration (src/PersistUniqueTest.hs:10)
shouldCompile (src/PersistUniqueTest.hs:43)
cleanDB (src/PersistUniqueTest.hs:48)
specsWith (src/PersistUniqueTest.hs:52)
33% ( 1 / 3) in 'PersistentTestModelsImports'
Missing documentation for:
UserId (src/PersistentTestModelsImports.hs:9)
User (src/PersistentTestModelsImports.hs:9)
1% ( 1 / 83) in 'PersistentTestModels'
Missing documentation for:
Module header
MutBId (src/PersistentTestModels.hs:26)
MutBGeneric (src/PersistentTestModels.hs:26)
MutB (src/PersistentTestModels.hs:26)
MutAId (src/PersistentTestModels.hs:26)
MutAGeneric (src/PersistentTestModels.hs:26)
MutA (src/PersistentTestModels.hs:26)
RelationshipId (src/PersistentTestModels.hs:26)
RelationshipGeneric (src/PersistentTestModels.hs:26)
Relationship (src/PersistentTestModels.hs:26)
DudeWeirdColumnsId (src/PersistentTestModels.hs:26)
DudeWeirdColumnsGeneric (src/PersistentTestModels.hs:26)
DudeWeirdColumns (src/PersistentTestModels.hs:26)
StrictId (src/PersistentTestModels.hs:26)
StrictGeneric (src/PersistentTestModels.hs:26)
Strict (src/PersistentTestModels.hs:26)
UpsertById (src/PersistentTestModels.hs:26)
UpsertByGeneric (src/PersistentTestModels.hs:26)
UpsertBy (src/PersistentTestModels.hs:26)
UpsertId (src/PersistentTestModels.hs:26)
UpsertGeneric (src/PersistentTestModels.hs:26)
Upsert (src/PersistentTestModels.hs:26)
EmailPTId (src/PersistentTestModels.hs:26)
EmailPTGeneric (src/PersistentTestModels.hs:26)
EmailPT (src/PersistentTestModels.hs:26)
UserPTId (src/PersistentTestModels.hs:26)
UserPTGeneric (src/PersistentTestModels.hs:26)
UserPT (src/PersistentTestModels.hs:26)
OutdoorPetId (src/PersistentTestModels.hs:26)
OutdoorPetGeneric (src/PersistentTestModels.hs:26)
OutdoorPet (src/PersistentTestModels.hs:26)
NeedsPetId (src/PersistentTestModels.hs:26)
NeedsPetGeneric (src/PersistentTestModels.hs:26)
NeedsPet (src/PersistentTestModels.hs:26)
MaybeOwnedPetId (src/PersistentTestModels.hs:26)
MaybeOwnedPetGeneric (src/PersistentTestModels.hs:26)
MaybeOwnedPet (src/PersistentTestModels.hs:26)
PetId (src/PersistentTestModels.hs:26)
PetGeneric (src/PersistentTestModels.hs:26)
Pet (src/PersistentTestModels.hs:26)
PersonMayId (src/PersistentTestModels.hs:26)
PersonMayGeneric (src/PersistentTestModels.hs:26)
PersonMay (src/PersistentTestModels.hs:26)
PersonMaybeAgeId (src/PersistentTestModels.hs:26)
PersonMaybeAgeGeneric (src/PersistentTestModels.hs:26)
PersonMaybeAge (src/PersistentTestModels.hs:26)
Person1Id (src/PersistentTestModels.hs:26)
Person1Generic (src/PersistentTestModels.hs:26)
Person1 (src/PersistentTestModels.hs:26)
PersonId (src/PersistentTestModels.hs:26)
PersonGeneric (src/PersistentTestModels.hs:26)
Person (src/PersistentTestModels.hs:26)
entityDefListFortestMigrate (src/PersistentTestModels.hs:26)
testMigrate (src/PersistentTestModels.hs:26)
NoPrefixSumId (src/PersistentTestModels.hs:137)
NoPrefixSumGeneric (src/PersistentTestModels.hs:137)
NoPrefixSum (src/PersistentTestModels.hs:137)
NoPrefix2Id (src/PersistentTestModels.hs:137)
NoPrefix2Generic (src/PersistentTestModels.hs:137)
NoPrefix2 (src/PersistentTestModels.hs:137)
NoPrefix1Id (src/PersistentTestModels.hs:137)
NoPrefix1Generic (src/PersistentTestModels.hs:137)
NoPrefix1 (src/PersistentTestModels.hs:137)
entityDefListFornoPrefixMigrate (src/PersistentTestModels.hs:137)
noPrefixMigrate (src/PersistentTestModels.hs:137)
CustomPrefixSumId (src/PersistentTestModels.hs:166)
CustomPrefixSumGeneric (src/PersistentTestModels.hs:166)
CustomPrefixSum (src/PersistentTestModels.hs:166)
CustomPrefix2Id (src/PersistentTestModels.hs:166)
CustomPrefix2Generic (src/PersistentTestModels.hs:166)
CustomPrefix2 (src/PersistentTestModels.hs:166)
CustomPrefix1Id (src/PersistentTestModels.hs:166)
CustomPrefix1Generic (src/PersistentTestModels.hs:166)
CustomPrefix1 (src/PersistentTestModels.hs:166)
entityDefListForcustomPrefixMigrate (src/PersistentTestModels.hs:166)
customPrefixMigrate (src/PersistentTestModels.hs:166)
TreeId (src/PersistentTestModels.hs:202)
Tree (src/PersistentTestModels.hs:202)
fkparent (src/PersistentTestModels.hs:202)
entityDefListFortreeMigrate (src/PersistentTestModels.hs:202)
treeMigrate (src/PersistentTestModels.hs:202)
cleanDB (src/PersistentTestModels.hs:253)
Warning: PersistentTest: Could not find documentation for exported module: PersistentTest
0% ( 0 / 15) in 'PersistentTest'
Missing documentation for:
Module header
specsWith (src/PersistentTest.hs:107)
catchPersistException (src/PersistentTest.hs:37)
set (src/PersistentTest.hs:80)
filterOrSpecs (src/PersistentTest.hs:48)
_polymorphic (src/PersistentTest.hs:70)
ASetter (src/PersistentTest.hs:77)
Getting (src/PersistentTest.hs:82)
view (src/PersistentTest.hs:85)
safeToRemoveSpec (src/PersistentTest.hs:89)
cleanDB (src/PersistentTestModels.hs:253)
testMigrate (src/PersistentTestModels.hs:26)
noPrefixMigrate (src/PersistentTestModels.hs:137)
customPrefixMigrate (src/PersistentTestModels.hs:166)
treeMigrate (src/PersistentTestModels.hs:202)
0% ( 0 / 2) in 'MpsNoPrefixTest'
Missing documentation for:
Module header
specsWith (src/MpsNoPrefixTest.hs:7)
0% ( 0 / 2) in 'MpsCustomPrefixTest'
Missing documentation for:
Module header
specsWith (src/MpsCustomPrefixTest.hs:7)
0% ( 0 / 14) in 'PrimaryTest'
Missing documentation for:
Module header
CompositePrimaryId (src/PrimaryTest.hs:11)
CompositePrimary (src/PrimaryTest.hs:11)
TreesId (src/PrimaryTest.hs:11)
Trees (src/PrimaryTest.hs:11)
BarId (src/PrimaryTest.hs:11)
Bar (src/PrimaryTest.hs:11)
FooId (src/PrimaryTest.hs:11)
Foo (src/PrimaryTest.hs:11)
treesFkparent (src/PrimaryTest.hs:11)
entityDefListFormigration (src/PrimaryTest.hs:11)
migration (src/PrimaryTest.hs:11)
cleanDB (src/PrimaryTest.hs:36)
specsWith (src/PrimaryTest.hs:41)
0% ( 0 / 4) in 'RawSqlTest'
Missing documentation for:
Module header
specsWith (src/RawSqlTest.hs:19)
getEscape (src/RawSqlTest.hs:250)
caseCommitRollback (src/RawSqlTest.hs:253)
0% ( 0 / 2) in 'ReadWriteTest'
Missing documentation for:
Module header
specsWith (src/ReadWriteTest.hs:9)
0% ( 0 / 4) in 'Recursive'
Missing documentation for:
Module header
specsWith (src/Recursive.hs:37)
recursiveMigrate (src/Recursive.hs:9)
cleanup (src/Recursive.hs:26)
0% ( 0 / 21) in 'RenameTest'
Missing documentation for:
Module header
TextId (src/RenameTest.hs:15)
ForeignIdTableId (src/RenameTest.hs:18)
ForeignIdTableGeneric (src/RenameTest.hs:18)
ForeignIdTable (src/RenameTest.hs:18)
RefTableId (src/RenameTest.hs:18)
RefTableGeneric (src/RenameTest.hs:18)
RefTable (src/RenameTest.hs:18)
LowerCaseTableId (src/RenameTest.hs:18)
LowerCaseTableGeneric (src/RenameTest.hs:18)
LowerCaseTable (src/RenameTest.hs:18)
IdTableId (src/RenameTest.hs:18)
IdTableGeneric (src/RenameTest.hs:18)
IdTable (src/RenameTest.hs:18)
KeyTableId (src/RenameTest.hs:18)
KeyTableGeneric (src/RenameTest.hs:18)
KeyTable (src/RenameTest.hs:18)
entityDefListFormigration (src/RenameTest.hs:18)
migration (src/RenameTest.hs:18)
cleanDB (src/RenameTest.hs:65)
specsWith (src/RenameTest.hs:80)
0% ( 0 / 3) in 'SumTypeTest'
Missing documentation for:
Module header
specsWith (src/SumTypeTest.hs:42)
sumTypeMigrate (src/SumTypeTest.hs:13)
0% ( 0 / 6) in 'TransactionLevelTest'
Missing documentation for:
Module header
WombatId (src/TransactionLevelTest.hs:9)
Wombat (src/TransactionLevelTest.hs:9)
entityDefListFormigration (src/TransactionLevelTest.hs:9)
migration (src/TransactionLevelTest.hs:9)
specsWith (src/TransactionLevelTest.hs:21)
0% ( 0 / 8) in 'TreeTest'
Missing documentation for:
Module header
TreeId (src/TreeTest.hs:12)
Tree (src/TreeTest.hs:12)
treeFkparent (src/TreeTest.hs:12)
entityDefListFortreeMigrate (src/TreeTest.hs:12)
treeMigrate (src/TreeTest.hs:12)
cleanDB (src/TreeTest.hs:27)
specsWith (src/TreeTest.hs:31)
0% ( 0 / 3) in 'TypeLitFieldDefsTest'
Missing documentation for:
Module header
specsWith (src/TypeLitFieldDefsTest.hs:62)
typeLitFieldDefsMigrate (src/TypeLitFieldDefsTest.hs:33)
0% ( 0 / 11) in 'UniqueTest'
Missing documentation for:
Module header
TestCheckmarkId (src/UniqueTest.hs:9)
TestCheckmark (src/UniqueTest.hs:9)
TestNullId (src/UniqueTest.hs:9)
TestNull (src/UniqueTest.hs:9)
TestNonNullId (src/UniqueTest.hs:9)
TestNonNull (src/UniqueTest.hs:9)
entityDefListForuniqueMigrate (src/UniqueTest.hs:9)
uniqueMigrate (src/UniqueTest.hs:9)
cleanDB (src/UniqueTest.hs:33)
specsWith (src/UniqueTest.hs:38)
50% ( 2 / 4) in 'UpsertTest'
Missing documentation for:
Module header
specsWith (src/UpsertTest.hs:29)
Warning: Init: could not find link destinations for:
- Data.Vector.Vector
- GHC.Generics.Rep1_Proxy
- GHC.Generics.Rep_Proxy
- Text.ParserCombinators.ReadP.P
- Data.Vector.Strict.Vector
- Data.Vector.Primitive.Vector
- Data.Vector.Unboxed.Base.Unbox
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0
- Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0
- Data.Vector.Generic.Base.Vector
- Data.Vector.Unboxed.Base.MV_Int32
- Data.Vector.Unboxed.Base.MV_Int64
- Data.Vector.Generic.Base.Mutable
- Data.Vector.Generic.Base.basicLength
- Data.Vector.Generic.Base.basicUnsafeCopy
- Data.Vector.Generic.Base.basicUnsafeFreeze
- Data.Vector.Generic.Base.basicUnsafeIndexM
- Data.Vector.Generic.Base.basicUnsafeSlice
- Data.Vector.Generic.Base.basicUnsafeThaw
- Data.Vector.Generic.Base.elemseq
- Data.Vector.Generic.Mutable.Base.MVector
- Data.Vector.Generic.Mutable.Base.basicUnsafeWrite
- Data.Vector.Primitive.Mutable.MVector
- Data.Vector.Unboxed.Base.V_Int32
- Data.Vector.Unboxed.Base.V_Int64
- Data.Vector.Unboxed.Base.D:R:MVectorsInt320
- Data.Vector.Unboxed.Base.D:R:MVectorsInt640
- Data.Vector.Unboxed.Base.D:R:VectorInt320
- Data.Vector.Unboxed.Base.D:R:VectorInt640
- Data.ByteString.Internal.Type.D:R:ItemByteString
- Data.Attoparsec.Internal.Types.D:R:ChunkElemByteString
- Data.Attoparsec.Internal.Types.D:R:ChunkElemText
- Data.Attoparsec.ByteString.Buffer.Buffer
- Data.Attoparsec.Text.Buffer.Buffer
- Data.Sequences.D:R:IndexByteString0
- Data.Sequences.D:R:IndexText0
- Text.Megaparsec.Stream.D:R:TokenByteString0
- Text.Megaparsec.Stream.D:R:TokenNoShareInput0
- Text.Megaparsec.Stream.D:R:TokenNoShareInput2
- Text.Megaparsec.Stream.D:R:TokenShareInput0
- Text.Megaparsec.Stream.D:R:TokenShareInput2
- Text.Megaparsec.Stream.D:R:TokenText0
- Text.Megaparsec.Stream.D:R:TokensByteString0
- Text.Megaparsec.Stream.D:R:TokensNoShareInput0
- Text.Megaparsec.Stream.D:R:TokensNoShareInput2
- Text.Megaparsec.Stream.D:R:TokensShareInput0
- Text.Megaparsec.Stream.D:R:TokensShareInput2
- Text.Megaparsec.Stream.D:R:TokensText0
- Database.Persist.Quasi.Internal.ModelParser.Parser
- Data.Vector.Generic.Mutable.Base.basicClear
- Data.Vector.Generic.Mutable.Base.basicInitialize
- Data.Vector.Generic.Mutable.Base.basicLength
- Data.Vector.Generic.Mutable.Base.basicOverlaps
- Data.Vector.Generic.Mutable.Base.basicSet
- Data.Vector.Generic.Mutable.Base.basicUnsafeCopy
- Data.Vector.Generic.Mutable.Base.basicUnsafeGrow
- Data.Vector.Generic.Mutable.Base.basicUnsafeMove
- Data.Vector.Generic.Mutable.Base.basicUnsafeNew
- Data.Vector.Generic.Mutable.Base.basicUnsafeRead
- Data.Vector.Generic.Mutable.Base.basicUnsafeReplicate
- Data.Vector.Generic.Mutable.Base.basicUnsafeSlice
Warning: ForeignKey: could not find link destinations for:
- ForeignKey.Chain3Key
- ForeignKey.unChain3Key
- ForeignKey.Chain3Id
- ForeignKey.Chain3Name
- ForeignKey.Chain3Previous
- ForeignKey.Chain2Key
- ForeignKey.unChain2Key
- ForeignKey.Chain2Id
- ForeignKey.Chain2Name
- ForeignKey.Chain2Previous
- ForeignKey.ChainKey
- ForeignKey.unChainKey
- ForeignKey.ChainId
- ForeignKey.ChainName
- ForeignKey.ChainPrevious
- ForeignKey.BExplicitKey
- ForeignKey.unBExplicitKey
- ForeignKey.BExplicitId
- ForeignKey.BExplicitBa
- ForeignKey.BCompositeKey
- ForeignKey.unBCompositeKey
- ForeignKey.BCompositeId
- ForeignKey.BCompositeBa
- ForeignKey.BCompositeBb
- ForeignKey.U2
- ForeignKey.ACompositeKey
- ForeignKey.unACompositeKey
- ForeignKey.ACompositeId
- ForeignKey.ACompositeAa
- ForeignKey.ACompositeAb
- ForeignKey.BKey
- ForeignKey.unBKey
- ForeignKey.BId
- ForeignKey.BBa
- ForeignKey.BBb
- ForeignKey.U1
- ForeignKey.AKey
- ForeignKey.unAKey
- ForeignKey.AId
- ForeignKey.AAa
- ForeignKey.AAb
- ForeignKey.SelfReferencedPrimaryKey
- ForeignKey.SelfReferencedKey
- ForeignKey.unSelfReferencedKey
- ForeignKey.SelfReferencedId
- ForeignKey.SelfReferencedName
- ForeignKey.SelfReferencedPname
- ForeignKey.ChildCompositeKey
- ForeignKey.unChildCompositeKey
- ForeignKey.ChildCompositeId
- ForeignKey.ChildCompositePname
- ForeignKey.ChildCompositePlastName
- ForeignKey.ParentCompositePrimaryKey
- ForeignKey.ParentCompositeKey
- ForeignKey.parentCompositeKeylastName
- ForeignKey.parentCompositeKeyname
- ForeignKey.ParentCompositeId
- ForeignKey.ParentCompositeName
- ForeignKey.ParentCompositeLastName
- ForeignKey.ChildImplicitKey
- ForeignKey.unChildImplicitKey
- ForeignKey.ChildImplicitId
- ForeignKey.ChildImplicitPname
- ForeignKey.ChildImplicitParentId
- ForeignKey.ParentImplicitKey
- ForeignKey.unParentImplicitKey
- ForeignKey.ParentImplicitId
- ForeignKey.ParentImplicitName
- ForeignKey.ChildKey
- ForeignKey.unChildKey
- ForeignKey.ChildId
- ForeignKey.ChildPname
- ForeignKey.ParentPrimaryKey
- ForeignKey.ParentKey
- ForeignKey.unParentKey
- ForeignKey.ParentId
- ForeignKey.ParentName
- ForeignKey.SimpleCascadeKey
- ForeignKey.unSimpleCascadeKey
- ForeignKey.SimpleCascadeId
- ForeignKey.SimpleCascadeName
- ForeignKey.SimpleCascadeChildKey
- ForeignKey.unSimpleCascadeChildKey
- ForeignKey.SimpleCascadeChildId
- ForeignKey.SimpleCascadeChildRef
- ForeignKey.D:R:UniqueSimpleCascade0
- ForeignKey.D:R:KeySimpleCascade0
- ForeignKey.D:R:EntityFieldSimpleCascadetyp0
- ForeignKey.D:R:PersistEntityBackendSimpleCascade
- ForeignKey.D:R:UniqueSimpleCascadeChild0
- ForeignKey.D:R:KeySimpleCascadeChild0
- ForeignKey.D:R:EntityFieldSimpleCascadeChildtyp0
- ForeignKey.D:R:PersistEntityBackendSimpleCascadeChild
- ForeignKey.D:R:UniqueParent0
- ForeignKey.D:R:KeyParent0
- ForeignKey.D:R:EntityFieldParenttyp0
- ForeignKey.D:R:PersistEntityBackendParent
- ForeignKey.D:R:UniqueChild0
- ForeignKey.D:R:KeyChild0
- ForeignKey.D:R:EntityFieldChildtyp0
- ForeignKey.D:R:PersistEntityBackendChild
- ForeignKey.D:R:UniqueParentImplicit0
- ForeignKey.D:R:KeyParentImplicit0
- ForeignKey.D:R:EntityFieldParentImplicittyp0
- ForeignKey.D:R:PersistEntityBackendParentImplicit
- ForeignKey.D:R:UniqueChildImplicit0
- ForeignKey.D:R:KeyChildImplicit0
- ForeignKey.D:R:EntityFieldChildImplicittyp0
- ForeignKey.D:R:PersistEntityBackendChildImplicit
- ForeignKey.D:R:UniqueParentComposite0
- ForeignKey.D:R:KeyParentComposite0
- ForeignKey.D:R:EntityFieldParentCompositetyp0
- ForeignKey.D:R:PersistEntityBackendParentComposite
- ForeignKey.D:R:UniqueChildComposite0
- ForeignKey.D:R:KeyChildComposite0
- ForeignKey.D:R:EntityFieldChildCompositetyp0
- ForeignKey.D:R:PersistEntityBackendChildComposite
- ForeignKey.D:R:UniqueSelfReferenced0
- ForeignKey.D:R:KeySelfReferenced0
- ForeignKey.D:R:EntityFieldSelfReferencedtyp0
- ForeignKey.D:R:PersistEntityBackendSelfReferenced
- ForeignKey.D:R:UniqueA0
- ForeignKey.D:R:KeyA0
- ForeignKey.D:R:EntityFieldAtyp0
- ForeignKey.D:R:PersistEntityBackendA
- ForeignKey.D:R:UniqueB0
- ForeignKey.D:R:KeyB0
- ForeignKey.D:R:EntityFieldBtyp0
- ForeignKey.D:R:PersistEntityBackendB
- ForeignKey.D:R:UniqueAComposite0
- ForeignKey.D:R:KeyAComposite0
- ForeignKey.D:R:EntityFieldACompositetyp0
- ForeignKey.D:R:PersistEntityBackendAComposite
- ForeignKey.D:R:UniqueBComposite0
- ForeignKey.D:R:KeyBComposite0
- ForeignKey.D:R:EntityFieldBCompositetyp0
- ForeignKey.D:R:PersistEntityBackendBComposite
- ForeignKey.D:R:UniqueBExplicit0
- ForeignKey.D:R:KeyBExplicit0
- ForeignKey.D:R:EntityFieldBExplicittyp0
- ForeignKey.D:R:PersistEntityBackendBExplicit
- ForeignKey.D:R:UniqueChain0
- ForeignKey.D:R:KeyChain0
- ForeignKey.D:R:EntityFieldChaintyp0
- ForeignKey.D:R:PersistEntityBackendChain
- ForeignKey.D:R:UniqueChain20
- ForeignKey.D:R:KeyChain20
- ForeignKey.D:R:EntityFieldChain2typ0
- ForeignKey.D:R:PersistEntityBackendChain2
- ForeignKey.D:R:UniqueChain30
- ForeignKey.D:R:KeyChain30
- ForeignKey.D:R:EntityFieldChain3typ0
- ForeignKey.D:R:PersistEntityBackendChain3
- ForeignKey.Rep_R:KeyParentComposite
Warning: EntityEmbedTest: could not find link destinations for:
- EntityEmbedTest.ARecordKey
- EntityEmbedTest.unARecordKey
- EntityEmbedTest.ARecordId
- EntityEmbedTest.ARecordName
- EntityEmbedTest.D:R:UniqueARecordGeneric0
- EntityEmbedTest.D:R:KeyARecordGeneric0
- EntityEmbedTest.D:R:EntityFieldARecordGenerictyp0
- EntityEmbedTest.D:R:PersistEntityBackendARecordGeneric
Warning: EmbedTest: could not find link destinations for:
- EmbedTest.HasMap
Warning: CustomPrimaryKeyReferenceTest: could not find link destinations for:
- CustomPrimaryKeyReferenceTest.UniqueTweetIdTweetUrl
- CustomPrimaryKeyReferenceTest.TweetUrlKey
- CustomPrimaryKeyReferenceTest.unTweetUrlKey
- CustomPrimaryKeyReferenceTest.TweetUrlId
- CustomPrimaryKeyReferenceTest.TweetUrlTweetId
- CustomPrimaryKeyReferenceTest.TweetUrlTweetUrl
- CustomPrimaryKeyReferenceTest.TweetUrlFinalUrl
- CustomPrimaryKeyReferenceTest.TweetPrimaryKey
- CustomPrimaryKeyReferenceTest.UniqueTweetId
- CustomPrimaryKeyReferenceTest.TweetKey
- CustomPrimaryKeyReferenceTest.unTweetKey
- CustomPrimaryKeyReferenceTest.TweetId
- CustomPrimaryKeyReferenceTest.TweetTweetId
- CustomPrimaryKeyReferenceTest.TweetStatusText
- CustomPrimaryKeyReferenceTest.D:R:UniqueTweet0
- CustomPrimaryKeyReferenceTest.D:R:KeyTweet0
- CustomPrimaryKeyReferenceTest.D:R:EntityFieldTweettyp0
- CustomPrimaryKeyReferenceTest.D:R:PersistEntityBackendTweet
- CustomPrimaryKeyReferenceTest.D:R:UniqueTweetUrl0
- CustomPrimaryKeyReferenceTest.D:R:KeyTweetUrl0
- CustomPrimaryKeyReferenceTest.D:R:EntityFieldTweetUrltyp0
- CustomPrimaryKeyReferenceTest.D:R:PersistEntityBackendTweetUrl
Warning: CompositeTest: could not find link destinations for:
- CompositeTest.PrimaryCompositeWithOtherNullableFieldsPrimaryKey
- CompositeTest.PrimaryCompositeWithOtherNullableFieldsKey
- CompositeTest.primaryCompositeWithOtherNullableFieldsKeybar
- CompositeTest.primaryCompositeWithOtherNullableFieldsKeyfoo
- CompositeTest.PrimaryCompositeWithOtherNullableFieldsId
- CompositeTest.PrimaryCompositeWithOtherNullableFieldsFoo
- CompositeTest.PrimaryCompositeWithOtherNullableFieldsBar
- CompositeTest.PrimaryCompositeWithOtherNullableFieldsBaz
- CompositeTest.CitizenAddressPrimaryKey
- CompositeTest.CitizenAddressKey
- CompositeTest.citizenAddressKeyaddress
- CompositeTest.citizenAddressKeycitizen
- CompositeTest.CitizenAddressId
- CompositeTest.CitizenAddressCitizen
- CompositeTest.CitizenAddressAddress
- CompositeTest.AddressKey
- CompositeTest.unAddressKey
- CompositeTest.AddressId
- CompositeTest.AddressAddress
- CompositeTest.AddressCountry
- CompositeTest.CitizenKey
- CompositeTest.unCitizenKey
- CompositeTest.CitizenId
- CompositeTest.CitizenName
- CompositeTest.CitizenAge
- CompositeTest.TestChildKey
- CompositeTest.unTestChildKey
- CompositeTest.TestChildId
- CompositeTest.TestChildName
- CompositeTest.TestChildName2
- CompositeTest.TestChildAge
- CompositeTest.TestChildExtra4
- CompositeTest.TestParentPrimaryKey
- CompositeTest.TestParentKey
- CompositeTest.testParentKeyage
- CompositeTest.testParentKeyname2
- CompositeTest.testParentKeyname
- CompositeTest.TestParentId
- CompositeTest.TestParentName
- CompositeTest.TestParentName2
- CompositeTest.TestParentAge
- CompositeTest.TestParentExtra44
- CompositeTest.D:R:UniqueTestParent0
- CompositeTest.D:R:KeyTestParent0
- CompositeTest.D:R:EntityFieldTestParenttyp0
- CompositeTest.D:R:PersistEntityBackendTestParent
- CompositeTest.D:R:UniqueTestChild0
- CompositeTest.D:R:KeyTestChild0
- CompositeTest.D:R:EntityFieldTestChildtyp0
- CompositeTest.D:R:PersistEntityBackendTestChild
- CompositeTest.D:R:UniqueCitizen0
- CompositeTest.D:R:KeyCitizen0
- CompositeTest.D:R:EntityFieldCitizentyp0
- CompositeTest.D:R:PersistEntityBackendCitizen
- CompositeTest.D:R:UniqueAddress0
- CompositeTest.D:R:KeyAddress0
- CompositeTest.D:R:EntityFieldAddresstyp0
- CompositeTest.D:R:PersistEntityBackendAddress
- CompositeTest.D:R:UniqueCitizenAddress0
- CompositeTest.D:R:KeyCitizenAddress0
- CompositeTest.D:R:EntityFieldCitizenAddresstyp0
- CompositeTest.D:R:PersistEntityBackendCitizenAddress
- CompositeTest.D:R:UniquePrimaryCompositeWithOtherNullableFields0
- CompositeTest.D:R:KeyPrimaryCompositeWithOtherNullableFields0
- CompositeTest.D:R:EntityFieldPrimaryCompositeWithOtherNullableFieldstyp0
- CompositeTest.D:R:PersistEntityBackendPrimaryCompositeWithOtherNullableFields
- CompositeTest.Rep_R:KeyPrimaryCompositeWithOtherNullableFields
- CompositeTest.Rep_R:KeyCitizenAddress
- CompositeTest.Rep_R:KeyTestParent
Warning: LargeNumberTest: could not find link destinations for:
- LargeNumberTest.NumberKey
- LargeNumberTest.unNumberKey
- LargeNumberTest.NumberId
- LargeNumberTest.NumberIntx
- LargeNumberTest.NumberInt32
- LargeNumberTest.NumberWord32
- LargeNumberTest.NumberInt64
- LargeNumberTest.NumberWord64
- LargeNumberTest.D:R:UniqueNumberGeneric0
- LargeNumberTest.D:R:KeyNumberGeneric0
- LargeNumberTest.D:R:EntityFieldNumberGenerictyp0
- LargeNumberTest.D:R:PersistEntityBackendNumberGeneric
Warning: LongIdentifierTest: could not find link destinations for:
- LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameChildKey
- LongIdentifierTest.unTableAnExtremelyFantasticallySuperLongNameChildKey
- LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameChildId
- LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameChildColumnAnExtremelyFantasticallySuperLongNameParentId
- LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameParentKey
- LongIdentifierTest.unTableAnExtremelyFantasticallySuperLongNameParentKey
- LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameParentId
- LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameParentField1
- LongIdentifierTest.D:R:UniqueTableAnExtremelyFantasticallySuperLongNameParent0
- LongIdentifierTest.D:R:KeyTableAnExtremelyFantasticallySuperLongNameParent0
- LongIdentifierTest.D:R:EntityFieldTableAnExtremelyFantasticallySuperLongNameParenttyp0
- LongIdentifierTest.D:R:PersistEntityBackendTableAnExtremelyFantasticallySuperLongNameParent
- LongIdentifierTest.D:R:UniqueTableAnExtremelyFantasticallySuperLongNameChild0
- LongIdentifierTest.D:R:KeyTableAnExtremelyFantasticallySuperLongNameChild0
- LongIdentifierTest.D:R:EntityFieldTableAnExtremelyFantasticallySuperLongNameChildtyp0
- LongIdentifierTest.D:R:PersistEntityBackendTableAnExtremelyFantasticallySuperLongNameChild
Warning: MigrationColumnLengthTest: could not find link destinations for:
- MigrationColumnLengthTest.VaryingLengthsKey
- MigrationColumnLengthTest.unVaryingLengthsKey
- MigrationColumnLengthTest.VaryingLengthsId
- MigrationColumnLengthTest.VaryingLengthsField1
- MigrationColumnLengthTest.VaryingLengthsField2
- MigrationColumnLengthTest.D:R:UniqueVaryingLengths0
- MigrationColumnLengthTest.D:R:KeyVaryingLengths0
- MigrationColumnLengthTest.D:R:EntityFieldVaryingLengthstyp0
- MigrationColumnLengthTest.D:R:PersistEntityBackendVaryingLengths
Warning: MigrationIdempotencyTest: could not find link destinations for:
- MigrationIdempotencyTest.IdempotencyKey
- MigrationIdempotencyTest.unIdempotencyKey
- MigrationIdempotencyTest.IdempotencyId
- MigrationIdempotencyTest.IdempotencyField1
- MigrationIdempotencyTest.IdempotencyField2
- MigrationIdempotencyTest.IdempotencyField3
- MigrationIdempotencyTest.IdempotencyField4
- MigrationIdempotencyTest.IdempotencyField5
- MigrationIdempotencyTest.IdempotencyField6
- MigrationIdempotencyTest.IdempotencyField7
- MigrationIdempotencyTest.IdempotencyField8
- MigrationIdempotencyTest.IdempotencyField9
- MigrationIdempotencyTest.D:R:UniqueIdempotency0
- MigrationIdempotencyTest.D:R:KeyIdempotency0
- MigrationIdempotencyTest.D:R:EntityFieldIdempotencytyp0
- MigrationIdempotencyTest.D:R:PersistEntityBackendIdempotency
Warning: MigrationTest: could not find link destinations for:
- MigrationTest.CustomSqlIdPrimaryKey
- MigrationTest.CustomSqlIdKey
- MigrationTest.unCustomSqlIdKey
- MigrationTest.CustomSqlIdId
- MigrationTest.CustomSqlIdPk
- MigrationTest.SourceKey
- MigrationTest.unSourceKey
- MigrationTest.SourceId
- MigrationTest.SourceField3
- MigrationTest.SourceField4
- MigrationTest.UniqueTarget
- MigrationTest.TargetKey
- MigrationTest.unTargetKey
- MigrationTest.TargetId
- MigrationTest.TargetField1
- MigrationTest.TargetField2
- MigrationTest.D:R:UniqueTarget0
- MigrationTest.D:R:KeyTarget0
- MigrationTest.D:R:EntityFieldTargettyp0
- MigrationTest.D:R:PersistEntityBackendTarget
- MigrationTest.D:R:UniqueSource0
- MigrationTest.D:R:KeySource0
- MigrationTest.D:R:EntityFieldSourcetyp0
- MigrationTest.D:R:PersistEntityBackendSource
- MigrationTest.D:R:UniqueCustomSqlId0
- MigrationTest.D:R:KeyCustomSqlId0
- MigrationTest.D:R:EntityFieldCustomSqlIdtyp0
- MigrationTest.D:R:PersistEntityBackendCustomSqlId
- MigrationTest.Source1Key
- MigrationTest.unSource1Key
- MigrationTest.Source1Id
- MigrationTest.Source1Field3
- MigrationTest.Source1Extra
- MigrationTest.Source1Field4
- MigrationTest.UniqueTarget1
- MigrationTest.Target1Key
- MigrationTest.unTarget1Key
- MigrationTest.Target1Id
- MigrationTest.Target1Field1
- MigrationTest.Target1Field2
- MigrationTest.D:R:UniqueTarget10
- MigrationTest.D:R:KeyTarget10
- MigrationTest.D:R:EntityFieldTarget1typ0
- MigrationTest.D:R:PersistEntityBackendTarget1
- MigrationTest.D:R:UniqueSource10
- MigrationTest.D:R:KeySource10
- MigrationTest.D:R:EntityFieldSource1typ0
- MigrationTest.D:R:PersistEntityBackendSource1
Warning: PersistTestPetCollarType: could not find link destinations for:
- PersistTestPetCollarType.Rep_PetCollar
Warning: PersistUniqueTest: could not find link destinations for:
- PersistUniqueTest.OnlyPrimaryKeyPrimaryKey
- PersistUniqueTest.OnlyPrimaryKeyKey
- PersistUniqueTest.unOnlyPrimaryKeyKey
- PersistUniqueTest.OnlyPrimaryKeyId
- PersistUniqueTest.OnlyPrimaryKeyFoo
- PersistUniqueTest.OnlyPrimaryKeyName
- PersistUniqueTest.UniqueBaz
- PersistUniqueTest.BaKey
- PersistUniqueTest.unBaKey
- PersistUniqueTest.BaId
- PersistUniqueTest.BaFoo
- PersistUniqueTest.BaBaz
- PersistUniqueTest.FoPrimaryKey
- PersistUniqueTest.UniqueBar
- PersistUniqueTest.FoKey
- PersistUniqueTest.unFoKey
- PersistUniqueTest.FoId
- PersistUniqueTest.FoFoo
- PersistUniqueTest.FoBar
- PersistUniqueTest.D:R:UniqueFo0
- PersistUniqueTest.D:R:KeyFo0
- PersistUniqueTest.D:R:EntityFieldFotyp0
- PersistUniqueTest.D:R:PersistEntityBackendFo
- PersistUniqueTest.D:R:UniqueBa0
- PersistUniqueTest.D:R:KeyBa0
- PersistUniqueTest.D:R:EntityFieldBatyp0
- PersistUniqueTest.D:R:PersistEntityBackendBa
- PersistUniqueTest.D:R:UniqueOnlyPrimaryKey0
- PersistUniqueTest.D:R:KeyOnlyPrimaryKey0
- PersistUniqueTest.D:R:EntityFieldOnlyPrimaryKeytyp0
- PersistUniqueTest.D:R:PersistEntityBackendOnlyPrimaryKey
Warning: PersistentTestModelsImports: could not find link destinations for:
- PersistentTestModelsImports.UserKey
- PersistentTestModelsImports.unUserKey
- PersistentTestModelsImports.UserId
- PersistentTestModelsImports.UserName
- PersistentTestModelsImports.UserAge
- PersistentTestModelsImports.D:R:UniqueUser0
- PersistentTestModelsImports.D:R:KeyUser0
- PersistentTestModelsImports.D:R:EntityFieldUsertyp0
- PersistentTestModelsImports.D:R:PersistEntityBackendUser
Warning: PersistentTestModels: could not find link destinations for:
- PersistentTestModels.MutBKey
- PersistentTestModels.unMutBKey
- PersistentTestModels.MutBId
- PersistentTestModels.MutBMutA
- PersistentTestModels.MutAKey
- PersistentTestModels.unMutAKey
- PersistentTestModels.MutAId
- PersistentTestModels.MutAMutB
- PersistentTestModels.RelationshipKey
- PersistentTestModels.unRelationshipKey
- PersistentTestModels.RelationshipId
- PersistentTestModels.RelationshipName
- PersistentTestModels.RelationshipParent
- PersistentTestModels.UniqueName
- PersistentTestModels.DudeWeirdColumnsKey
- PersistentTestModels.unDudeWeirdColumnsKey
- PersistentTestModels.DudeWeirdColumnsId
- PersistentTestModels.DudeWeirdColumnsName
- PersistentTestModels.StrictKey
- PersistentTestModels.unStrictKey
- PersistentTestModels.StrictId
- PersistentTestModels.StrictYes
- PersistentTestModels.StrictNo
- PersistentTestModels.StrictDef
- PersistentTestModels.UniqueUpsertBy
- PersistentTestModels.UniqueUpsertByCity
- PersistentTestModels.UpsertByKey
- PersistentTestModels.unUpsertByKey
- PersistentTestModels.UpsertById
- PersistentTestModels.UpsertByEmail
- PersistentTestModels.UpsertByCity
- PersistentTestModels.UpsertByAttr
- PersistentTestModels.UniqueUpsert
- PersistentTestModels.UpsertKey
- PersistentTestModels.unUpsertKey
- PersistentTestModels.UpsertId
- PersistentTestModels.UpsertEmail
- PersistentTestModels.UpsertAttr
- PersistentTestModels.UpsertExtra
- PersistentTestModels.UpsertAge
- PersistentTestModels.UniqueEmailPT
- PersistentTestModels.EmailPTKey
- PersistentTestModels.unEmailPTKey
- PersistentTestModels.EmailPTId
- PersistentTestModels.EmailPTEmail
- PersistentTestModels.EmailPTUser
- PersistentTestModels.EmailPTVerkey
- PersistentTestModels.UniqueUserPT
- PersistentTestModels.UserPTKey
- PersistentTestModels.unUserPTKey
- PersistentTestModels.UserPTId
- PersistentTestModels.UserPTIdent
- PersistentTestModels.UserPTPassword
- PersistentTestModels.OutdoorPetKey
- PersistentTestModels.unOutdoorPetKey
- PersistentTestModels.OutdoorPetId
- PersistentTestModels.OutdoorPetOwnerId
- PersistentTestModels.OutdoorPetCollar
- PersistentTestModels.OutdoorPetType
- PersistentTestModels.NeedsPetKey
- PersistentTestModels.unNeedsPetKey
- PersistentTestModels.NeedsPetId
- PersistentTestModels.NeedsPetPetKey
- PersistentTestModels.MaybeOwnedPetKey
- PersistentTestModels.unMaybeOwnedPetKey
- PersistentTestModels.MaybeOwnedPetId
- PersistentTestModels.MaybeOwnedPetOwnerId
- PersistentTestModels.MaybeOwnedPetName
- PersistentTestModels.MaybeOwnedPetType
- PersistentTestModels.PetKey
- PersistentTestModels.unPetKey
- PersistentTestModels.PetId
- PersistentTestModels.PetOwnerId
- PersistentTestModels.PetName
- PersistentTestModels.PetType
- PersistentTestModels.PersonMayKey
- PersistentTestModels.unPersonMayKey
- PersistentTestModels.PersonMayId
- PersistentTestModels.PersonMayName
- PersistentTestModels.PersonMayColor
- PersistentTestModels.PersonMaybeAgeKey
- PersistentTestModels.unPersonMaybeAgeKey
- PersistentTestModels.PersonMaybeAgeId
- PersistentTestModels.PersonMaybeAgeName
- PersistentTestModels.PersonMaybeAgeAge
- PersistentTestModels.Person1Key
- PersistentTestModels.unPerson1Key
- PersistentTestModels.Person1Id
- PersistentTestModels.Person1Name
- PersistentTestModels.Person1Age
- PersistentTestModels.PersonNameKey
- PersistentTestModels.PersonKey
- PersistentTestModels.unPersonKey
- PersistentTestModels.PersonId
- PersistentTestModels.PersonName
- PersistentTestModels.PersonAge
- PersistentTestModels.PersonColor
- PersistentTestModels.D:R:UniquePersonGeneric0
- PersistentTestModels.D:R:KeyPersonGeneric0
- PersistentTestModels.D:R:EntityFieldPersonGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendPersonGeneric
- PersistentTestModels.D:R:UniquePerson1Generic0
- PersistentTestModels.D:R:KeyPerson1Generic0
- PersistentTestModels.D:R:EntityFieldPerson1Generictyp0
- PersistentTestModels.D:R:PersistEntityBackendPerson1Generic
- PersistentTestModels.D:R:UniquePersonMaybeAgeGeneric0
- PersistentTestModels.D:R:KeyPersonMaybeAgeGeneric0
- PersistentTestModels.D:R:EntityFieldPersonMaybeAgeGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendPersonMaybeAgeGeneric
- PersistentTestModels.D:R:UniquePersonMayGeneric0
- PersistentTestModels.D:R:KeyPersonMayGeneric0
- PersistentTestModels.D:R:EntityFieldPersonMayGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendPersonMayGeneric
- PersistentTestModels.D:R:UniquePetGeneric0
- PersistentTestModels.D:R:KeyPetGeneric0
- PersistentTestModels.D:R:EntityFieldPetGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendPetGeneric
- PersistentTestModels.D:R:UniqueMaybeOwnedPetGeneric0
- PersistentTestModels.D:R:KeyMaybeOwnedPetGeneric0
- PersistentTestModels.D:R:EntityFieldMaybeOwnedPetGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendMaybeOwnedPetGeneric
- PersistentTestModels.D:R:UniqueNeedsPetGeneric0
- PersistentTestModels.D:R:KeyNeedsPetGeneric0
- PersistentTestModels.D:R:EntityFieldNeedsPetGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendNeedsPetGeneric
- PersistentTestModels.D:R:UniqueOutdoorPetGeneric0
- PersistentTestModels.D:R:KeyOutdoorPetGeneric0
- PersistentTestModels.D:R:EntityFieldOutdoorPetGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendOutdoorPetGeneric
- PersistentTestModels.D:R:UniqueUserPTGeneric0
- PersistentTestModels.D:R:KeyUserPTGeneric0
- PersistentTestModels.D:R:EntityFieldUserPTGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendUserPTGeneric
- PersistentTestModels.D:R:UniqueEmailPTGeneric0
- PersistentTestModels.D:R:KeyEmailPTGeneric0
- PersistentTestModels.D:R:EntityFieldEmailPTGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendEmailPTGeneric
- PersistentTestModels.D:R:UniqueUpsertGeneric0
- PersistentTestModels.D:R:KeyUpsertGeneric0
- PersistentTestModels.D:R:EntityFieldUpsertGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendUpsertGeneric
- PersistentTestModels.D:R:UniqueUpsertByGeneric0
- PersistentTestModels.D:R:KeyUpsertByGeneric0
- PersistentTestModels.D:R:EntityFieldUpsertByGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendUpsertByGeneric
- PersistentTestModels.D:R:UniqueStrictGeneric0
- PersistentTestModels.D:R:KeyStrictGeneric0
- PersistentTestModels.D:R:EntityFieldStrictGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendStrictGeneric
- PersistentTestModels.D:R:UniqueDudeWeirdColumnsGeneric0
- PersistentTestModels.D:R:KeyDudeWeirdColumnsGeneric0
- PersistentTestModels.D:R:EntityFieldDudeWeirdColumnsGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendDudeWeirdColumnsGeneric
- PersistentTestModels.D:R:UniqueRelationshipGeneric0
- PersistentTestModels.D:R:KeyRelationshipGeneric0
- PersistentTestModels.D:R:EntityFieldRelationshipGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendRelationshipGeneric
- PersistentTestModels.D:R:UniqueMutBGeneric0
- PersistentTestModels.D:R:KeyMutBGeneric0
- PersistentTestModels.D:R:EntityFieldMutBGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendMutBGeneric
- PersistentTestModels.D:R:UniqueMutAGeneric0
- PersistentTestModels.D:R:KeyMutAGeneric0
- PersistentTestModels.D:R:EntityFieldMutAGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendMutAGeneric
- PersistentTestModels.NoPrefixSumKey
- PersistentTestModels.unNoPrefixSumKey
- PersistentTestModels.NoPrefixSumId
- PersistentTestModels.UnprefixedLeft
- PersistentTestModels.UnprefixedRight
- PersistentTestModels.NoPrefix2Key
- PersistentTestModels.unNoPrefix2Key
- PersistentTestModels.NoPrefix2Id
- PersistentTestModels.SomeOtherFieldName
- PersistentTestModels.UnprefixedRef
- PersistentTestModels.NoPrefix1Key
- PersistentTestModels.unNoPrefix1Key
- PersistentTestModels.NoPrefix1Id
- PersistentTestModels.SomeFieldName
- PersistentTestModels.D:R:UniqueNoPrefix1Generic0
- PersistentTestModels.D:R:KeyNoPrefix1Generic0
- PersistentTestModels.D:R:EntityFieldNoPrefix1Generictyp0
- PersistentTestModels.D:R:PersistEntityBackendNoPrefix1Generic
- PersistentTestModels.D:R:UniqueNoPrefix2Generic0
- PersistentTestModels.D:R:KeyNoPrefix2Generic0
- PersistentTestModels.D:R:EntityFieldNoPrefix2Generictyp0
- PersistentTestModels.D:R:PersistEntityBackendNoPrefix2Generic
- PersistentTestModels.D:R:UniqueNoPrefixSumGeneric0
- PersistentTestModels.D:R:KeyNoPrefixSumGeneric0
- PersistentTestModels.D:R:EntityFieldNoPrefixSumGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendNoPrefixSumGeneric
- PersistentTestModels.CustomPrefixSumKey
- PersistentTestModels.unCustomPrefixSumKey
- PersistentTestModels.CustomPrefixSumId
- PersistentTestModels.CPCustomPrefixedLeft
- PersistentTestModels.CPCustomPrefixedRight
- PersistentTestModels.CustomPrefix2Key
- PersistentTestModels.unCustomPrefix2Key
- PersistentTestModels.CustomPrefix2Id
- PersistentTestModels.CP2OtherCustomFieldName
- PersistentTestModels.CP2CustomPrefixedRef
- PersistentTestModels.CustomPrefix1Key
- PersistentTestModels.unCustomPrefix1Key
- PersistentTestModels.CustomPrefix1Id
- PersistentTestModels.CP1CustomFieldName
- PersistentTestModels.D:R:UniqueCustomPrefix1Generic0
- PersistentTestModels.D:R:KeyCustomPrefix1Generic0
- PersistentTestModels.D:R:EntityFieldCustomPrefix1Generictyp0
- PersistentTestModels.D:R:PersistEntityBackendCustomPrefix1Generic
- PersistentTestModels.D:R:UniqueCustomPrefix2Generic0
- PersistentTestModels.D:R:KeyCustomPrefix2Generic0
- PersistentTestModels.D:R:EntityFieldCustomPrefix2Generictyp0
- PersistentTestModels.D:R:PersistEntityBackendCustomPrefix2Generic
- PersistentTestModels.D:R:UniqueCustomPrefixSumGeneric0
- PersistentTestModels.D:R:KeyCustomPrefixSumGeneric0
- PersistentTestModels.D:R:EntityFieldCustomPrefixSumGenerictyp0
- PersistentTestModels.D:R:PersistEntityBackendCustomPrefixSumGeneric
- PersistentTestModels.RFOKey
- PersistentTestModels.unRFOKey
- PersistentTestModels.EFRFO
- PersistentTestModels.unEFRFO
- PersistentTestModels.URFO
- PersistentTestModels.unURFO
- PersistentTestModels.TreePrimaryKey
- PersistentTestModels.TreeKey
- PersistentTestModels.unTreeKey
- PersistentTestModels.TreeId
- PersistentTestModels.Name
- PersistentTestModels.Parent
- PersistentTestModels.D:R:UniqueTree0
- PersistentTestModels.D:R:KeyTree0
- PersistentTestModels.D:R:EntityFieldTreetyp0
- PersistentTestModels.D:R:PersistEntityBackendTree
- PersistentTestModels.D:R:KeyReverseFieldOrder0
- PersistentTestModels.D:R:EntityFieldReverseFieldOrderb0
- PersistentTestModels.D:R:UniqueReverseFieldOrder0
- PersistentTestModels.D:R:PersistEntityBackendReverseFieldOrder
Warning: PrimaryTest: could not find link destinations for:
- PrimaryTest.CompositePrimaryPrimaryKey
- PrimaryTest.CompositePrimaryKey
- PrimaryTest.compositePrimaryKeyage
- PrimaryTest.compositePrimaryKeyname
- PrimaryTest.CompositePrimaryId
- PrimaryTest.CompositePrimaryName
- PrimaryTest.CompositePrimaryAge
- PrimaryTest.TreesPrimaryKey
- PrimaryTest.TreesKey
- PrimaryTest.unTreesKey
- PrimaryTest.TreesId
- PrimaryTest.TreesName
- PrimaryTest.TreesParent
- PrimaryTest.BarKey
- PrimaryTest.unBarKey
- PrimaryTest.BarId
- PrimaryTest.BarQuux
- PrimaryTest.FooPrimaryKey
- PrimaryTest.FooKey
- PrimaryTest.unFooKey
- PrimaryTest.FooId
- PrimaryTest.FooName
- PrimaryTest.D:R:UniqueFoo0
- PrimaryTest.D:R:KeyFoo0
- PrimaryTest.D:R:EntityFieldFootyp0
- PrimaryTest.D:R:PersistEntityBackendFoo
- PrimaryTest.D:R:UniqueBar0
- PrimaryTest.D:R:KeyBar0
- PrimaryTest.D:R:EntityFieldBartyp0
- PrimaryTest.D:R:PersistEntityBackendBar
- PrimaryTest.D:R:UniqueTrees0
- PrimaryTest.D:R:KeyTrees0
- PrimaryTest.D:R:EntityFieldTreestyp0
- PrimaryTest.D:R:PersistEntityBackendTrees
- PrimaryTest.D:R:UniqueCompositePrimary0
- PrimaryTest.D:R:KeyCompositePrimary0
- PrimaryTest.D:R:EntityFieldCompositePrimarytyp0
- PrimaryTest.D:R:PersistEntityBackendCompositePrimary
- PrimaryTest.Rep_R:KeyCompositePrimary
Warning: RenameTest: could not find link destinations for:
- RenameTest.ForeignIdTableKey
- RenameTest.unForeignIdTableKey
- RenameTest.ForeignIdTableId
- RenameTest.ForeignIdTableIdId
- RenameTest.UniqueRefTable
- RenameTest.RefTableKey
- RenameTest.unRefTableKey
- RenameTest.RefTableId
- RenameTest.RefTableSomeVal
- RenameTest.RefTableLct
- RenameTest.RefTableText
- RenameTest.LowerCaseTableKey
- RenameTest.unLowerCaseTableKey
- RenameTest.LowerCaseTableId
- RenameTest.LowerCaseTableFullName
- RenameTest.IdTableKey
- RenameTest.unIdTableKey
- RenameTest.IdTableId
- RenameTest.IdTableName
- RenameTest.IdTableKeyTableEmbed
- RenameTest.KeyTableKey'
- RenameTest.unKeyTableKey
- RenameTest.KeyTableId
- RenameTest.KeyTableKey
- RenameTest.D:R:UniqueKeyTableGeneric0
- RenameTest.D:R:KeyKeyTableGeneric0
- RenameTest.D:R:EntityFieldKeyTableGenerictyp0
- RenameTest.D:R:PersistEntityBackendKeyTableGeneric
- RenameTest.D:R:UniqueIdTableGeneric0
- RenameTest.D:R:KeyIdTableGeneric0
- RenameTest.D:R:EntityFieldIdTableGenerictyp0
- RenameTest.D:R:PersistEntityBackendIdTableGeneric
- RenameTest.D:R:UniqueLowerCaseTableGeneric0
- RenameTest.D:R:KeyLowerCaseTableGeneric0
- RenameTest.D:R:EntityFieldLowerCaseTableGenerictyp0
- RenameTest.D:R:PersistEntityBackendLowerCaseTableGeneric
- RenameTest.D:R:UniqueRefTableGeneric0
- RenameTest.D:R:KeyRefTableGeneric0
- RenameTest.D:R:EntityFieldRefTableGenerictyp0
- RenameTest.D:R:PersistEntityBackendRefTableGeneric
- RenameTest.D:R:UniqueForeignIdTableGeneric0
- RenameTest.D:R:KeyForeignIdTableGeneric0
- RenameTest.D:R:EntityFieldForeignIdTableGenerictyp0
- RenameTest.D:R:PersistEntityBackendForeignIdTableGeneric
Warning: TransactionLevelTest: could not find link destinations for:
- TransactionLevelTest.WombatPrimaryKey
- TransactionLevelTest.WombatKey
- TransactionLevelTest.unWombatKey
- TransactionLevelTest.WombatId
- TransactionLevelTest.WombatName
- TransactionLevelTest.D:R:UniqueWombat0
- TransactionLevelTest.D:R:KeyWombat0
- TransactionLevelTest.D:R:EntityFieldWombattyp0
- TransactionLevelTest.D:R:PersistEntityBackendWombat
Warning: TreeTest: could not find link destinations for:
- TreeTest.TreePrimaryKey
- TreeTest.TreeKey
- TreeTest.unTreeKey
- TreeTest.TreeId
- TreeTest.TreeName
- TreeTest.TreeParent
- TreeTest.D:R:UniqueTree0
- TreeTest.D:R:KeyTree0
- TreeTest.D:R:EntityFieldTreetyp0
- TreeTest.D:R:PersistEntityBackendTree
Warning: UniqueTest: could not find link destinations for:
- UniqueTest.UniqueTestCheckmark
- UniqueTest.TestCheckmarkKey
- UniqueTest.unTestCheckmarkKey
- UniqueTest.TestCheckmarkId
- UniqueTest.TestCheckmarkName
- UniqueTest.TestCheckmarkValue
- UniqueTest.TestCheckmarkActive
- UniqueTest.UniqueTestNull
- UniqueTest.TestNullKey
- UniqueTest.unTestNullKey
- UniqueTest.TestNullId
- UniqueTest.TestNullFieldA
- UniqueTest.TestNullFieldB
- UniqueTest.UniqueTestNonNull
- UniqueTest.TestNonNullKey
- UniqueTest.unTestNonNullKey
- UniqueTest.TestNonNullId
- UniqueTest.TestNonNullFieldA
- UniqueTest.D:R:UniqueTestNonNull0
- UniqueTest.D:R:KeyTestNonNull0
- UniqueTest.D:R:EntityFieldTestNonNulltyp0
- UniqueTest.D:R:PersistEntityBackendTestNonNull
- UniqueTest.D:R:UniqueTestNull0
- UniqueTest.D:R:KeyTestNull0
- UniqueTest.D:R:EntityFieldTestNulltyp0
- UniqueTest.D:R:PersistEntityBackendTestNull
- UniqueTest.D:R:UniqueTestCheckmark0
- UniqueTest.D:R:KeyTestCheckmark0
- UniqueTest.D:R:EntityFieldTestCheckmarktyp0
- UniqueTest.D:R:PersistEntityBackendTestCheckmark
Documentation created: dist/doc/html/persistent-test/,
dist/doc/html/persistent-test/persistent-test.txt
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/persistent-test-2.13.2.1-5iQOwp298qI3vrSUqhGmda
Completed persistent-test-2.13.2.1
Test log
[view raw]
Resolving dependencies...
Error:
Internal libraries only supported with per-component builds.
Per-component builds were disabled because program coverage is enabled
In the package 'vector-0.13.2.0'