Build #1 for persistent-test-2.13.2.0
| Package | persistent-test-2.13.2.0 |
|---|
| Install | InstallOk |
|---|---|
| Docs | Ok |
| Tests | NotTried |
| Time submitted | 2025-07-09 19:05:31.460987933 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.12, 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.17.1.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 |
| 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.3...
Preprocessing library for blaze-builder-0.4.3..
Building library for blaze-builder-0.4.3..
[ 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.3..
Running Haddock on library for blaze-builder-0.4.3..
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.3-KEJ3ZuRlAfZ6qEhHKSHdbt
Completed blaze-builder-0.4.3
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.12...
Preprocessing library for hspec-discover-2.11.12..
Building library for hspec-discover-2.11.12..
[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.12..
Building executable 'hspec-discover' for hspec-discover-2.11.12..
[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.12..
Running Haddock on library for hspec-discover-2.11.12..
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.12..
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-discover-2.11.12-DjbJlyBKXpFn8zEALz0GU
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.12
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.7.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 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.7.0..
Building library for network-3.2.7.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.7.0..
Running Haddock on library for network-3.2.7.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:480:21
* at Network/Socket/Options.hsc:480:1
You 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:480: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:508:3
* at Network/Socket/Options.hsc: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 Network/Socket/Options.hsc:507: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.7.0-LRYd70IdAsXC1OZdaI7ZCi
Completed network-3.2.7.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.7...
Preprocessing library for os-string-2.0.7..
Building library for os-string-2.0.7..
[ 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.7..
Running Haddock on library for os-string-2.0.7..
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.
94% ( 93 / 98) in 'System.OsString.Posix'
Missing documentation for:
Module header
PosixChar (System/OsString/Internal/Types.hs:123)
singleton (System/OsString/Common.hs:495)
empty (System/OsString/Common.hs:498)
concat (System/OsString/Common.hs:706)
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:281:1
You 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:281:1
Warning: 'tail' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:265:1
You 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:265:1
Warning: 'init' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:290:1
You 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:290:1
Warning: 'last' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:256:1
You 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:256:1
Warning: 'map' is ambiguous. It is defined
* in GHC.Base
* at System/OsString/Internal.hs:316:1
You 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:316:1
Warning: 'reverse' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:322:1
You 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:322:1
Warning: 'foldl' is ambiguous. It is defined
* in Data.Foldable
* 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: 'foldl1' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:352:1
You 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:352:1
Warning: 'foldr' 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: 'foldr1' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.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 System/OsString/Internal.hs:382:1
Warning: 'all' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:396:1
You 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:396:1
Warning: 'any' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:403:1
You 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:403:1
Warning: 'replicate' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:418:1
You 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:418:1
Warning: 'take' is ambiguous. It is defined
* in GHC.List
* at System/OsString/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 System/OsString/Internal.hs:460:1
Warning: 'length' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:309:1
You 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:309:1
Warning: 'drop' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:497:1
You 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:497:1
Warning: 'takeWhile' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:491:1
You 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:491:1
Warning: 'dropWhile' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:519:1
You 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:519:1
Warning: 'break' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:548:1
You 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:548:1
Warning: 'span' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.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 System/OsString/Internal.hs:558:1
Warning: 'splitAt' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.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 System/OsString/Internal.hs:583:1
Warning: 'elem' is ambiguous. It is defined
* in Data.Foldable
* at System/OsString/Internal.hs:686:1
You 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:686:1
Warning: 'filter' is ambiguous. It is defined
* in GHC.List
* at System/OsString/Internal.hs:704:1
You 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:704:1
94% ( 74 / 78) in 'System.OsString.Internal'
Missing documentation for:
Module header
empty (System/OsString/Internal.hs:221)
singleton (System/OsString/Internal.hs:224)
concat (System/OsString/Internal.hs:409)
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:221)
singleton (System/OsString/Internal.hs:224)
concat (System/OsString/Internal.hs:409)
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% ( 93 / 98) in 'System.OsString.Windows'
Missing documentation for:
Module header
WindowsChar (System/OsString/Internal/Types.hs:117)
singleton (System/OsString/Common.hs:495)
empty (System/OsString/Common.hs:498)
concat (System/OsString/Common.hs:706)
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.7-5BBZgm2IGGO8ifbVrttmLE
Completed os-string-2.0.7
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...
Preprocessing library for unix-compat-0.7.4..
Building library for unix-compat-0.7.4..
[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..
Running Haddock on library for unix-compat-0.7.4..
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-4MOWY7FKXal7MFviv3g6wJ
Completed unix-compat-0.7.4
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.0...
Preprocessing library for zlib-0.7.1.0..
Building library for zlib-0.7.1.0..
[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.0..
Running Haddock on library for zlib-0.7.1.0..
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.0-FAtvayBxYL3BzSmCVeAO7B
Completed zlib-0.7.1.0
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-5FtAuZbHNjn43bYYN2wCfr
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...
Preprocessing library for ansi-terminal-types-1.1..
Building library for ansi-terminal-types-1.1..
[1 of 1] 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 )
Preprocessing library for ansi-terminal-types-1.1..
Running Haddock on library for ansi-terminal-types-1.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 1] Compiling System.Console.ANSI.Types ( src/System/Console/ANSI/Types.hs, nothing )
Haddock coverage:
100% ( 13 / 13) in 'System.Console.ANSI.Types'
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-HAQdkxzoxfTLgP68NcEWOX
Completed ansi-terminal-types-1.1
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-CJcCLhsCpdHlEFddjHE51
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-AqUOFkvkA6NEF4nCSZj57U
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.2...
Preprocessing library for ansi-terminal-1.1.2..
Building library for ansi-terminal-1.1.2..
[1 of 3] 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 )
[2 of 3] 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 )
[3 of 3] 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.2..
Running Haddock on library for ansi-terminal-1.1.2..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[1 of 3] Compiling System.Console.ANSI.Codes ( src/System/Console/ANSI/Codes.hs, nothing )
[2 of 3] Compiling System.Console.ANSI.Internal ( unix/System/Console/ANSI/Internal.hs, nothing )
[3 of 3] Compiling System.Console.ANSI ( src/System/Console/ANSI.hs, nothing )
Haddock coverage:
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)
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 (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)
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 (src/System/Console/ANSI/Codes.hs:245)
cursorDownLineCode (src/System/Console/ANSI/Codes.hs:244)
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 (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)
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 (src/System/Console/ANSI/Codes.hs:320)
disableLineWrapCode (src/System/Console/ANSI/Codes.hs:321)
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 (src/System/Console/ANSI/Codes.hs:326)
scrollPageDownCode (src/System/Console/ANSI/Codes.hs:327)
hUseAlternateScreenBuffer (src/System/Console/ANSI.hs:508)
hUseNormalScreenBuffer (src/System/Console/ANSI.hs:511)
useAlternateScreenBufferCode (src/System/Console/ANSI/Codes.hs:330)
useNormalScreenBufferCode (src/System/Console/ANSI/Codes.hs:331)
hReportLayerColor (src/System/Console/ANSI.hs:815)
hSetSGR (src/System/Console/ANSI.hs:1016)
setSGRCode (src/System/Console/ANSI/Codes.hs:339)
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 (src/System/Console/ANSI/Codes.hs:344)
showCursorCode (src/System/Console/ANSI/Codes.hs:345)
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.2-KWBmkVsQRP67S2vyas6OZS
Completed ansi-terminal-1.1.2
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...
Preprocessing library for unordered-containers-0.2.20..
Building library for unordered-containers-0.2.20..
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..
Running Haddock on library for unordered-containers-0.2.20..
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:225:7
* at Data/HashMap/Internal.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 Data/HashMap/Internal.hs:185: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:185)
intersectionWithKey# (Data/HashMap/Internal.hs:1855)
updateOrConcatWithKey (Data/HashMap/Internal.hs:2368)
equalKeys (Data/HashMap/Internal.hs:511)
equalKeys1 (Data/HashMap/Internal.hs:495)
lookupRecordCollision (Data/HashMap/Internal.hs:678)
LookupRes (Data/HashMap/Internal.hs:657)
lookupResToMaybe (Data/HashMap/Internal.hs:660)
insert' (Data/HashMap/Internal.hs:806)
delete' (Data/HashMap/Internal.hs:1124)
insertNewKey (Data/HashMap/Internal.hs:848)
insertKeyExists (Data/HashMap/Internal.hs:883)
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-8jMFzoCo8HRC7heG5b9rqS
Completed unordered-containers-0.2.20
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-1q90wa6SM9u4QyaCD7zAFz
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-7GnonDuteui1oqOT8PvD14
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-EQmoCzzdNolIMvjiH7sPBk
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-6gfaoVSY0VH6CohjiqA04h
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-FUFyxkagWyaLVOj0ksZc21
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-HHinNMPenzM6UDFaHgwd9G
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-4LqKfH8hcLEIvo1LLb4JrW
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-2ZfTtvd9oUYLY6nMddkMC
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-9OMhxAQ4U17Dv8jSjl6p2
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-3IKBFxwvUG73SAVQBEr9gK
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-85v2T4zLoOm46YX39HgOFi
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-DxJ2BbaCnHQDtB6zTlA8BP
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-EMUAgn1y19KKtwT80EJP9
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-KZLMZtWBXqD5hZzNdySlvH
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-9Y9igtyRCAk1pzVMzZbmi
Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/attoparsec-0.14.4-9Y9igtyRCAk1pzVMzZbmi
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-KLHpwKB9CS0LBQ7WNshZIj
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-500WyayDpvT2aOHoXfLnt9
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-9B4AqBVF6a8LgstPkGkcDO
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-5hrIR1y3aZKBC2lb82uIxx
Completed typed-process-0.2.13.0
Configuring streaming-commons-0.2.3.0...
Preprocessing library for streaming-commons-0.2.3.0..
Building library for streaming-commons-0.2.3.0..
[ 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.0..
Running Haddock on library for streaming-commons-0.2.3.0..
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:451)
HasPort (Data/Streaming/Network.hs:453)
HasAfterBind (Data/Streaming/Network.hs:503)
HasReadWrite (Data/Streaming/Network.hs:617)
HasPath (Data/Streaming/Network.hs:484)
setPort (Data/Streaming/Network.hs:464)
setHost (Data/Streaming/Network.hs:467)
setAfterBind (Data/Streaming/Network.hs:514)
setNeedLocalAddr (Data/Streaming/Network.hs:498)
setPath (Data/Streaming/Network.hs:495)
getPort (Data/Streaming/Network.hs:461)
getHost (Data/Streaming/Network.hs:470)
getAfterBind (Data/Streaming/Network.hs:511)
getNeedLocalAddr (Data/Streaming/Network.hs:501)
getPath (Data/Streaming/Network.hs:492)
appRead (Data/Streaming/Network.hs:628)
appWrite (Data/Streaming/Network.hs:631)
appSockAddr (Data/Streaming/Network.hs:602)
appLocalAddr (Data/Streaming/Network.hs:599)
unassignedPorts (Data/Streaming/Network.hs:211)
safeRecv (Data/Streaming/Network.hs:317)
ConnectionHandle (Data/Streaming/Network.hs:544)
runTCPServerWithHandle (Data/Streaming/Network.hs:547)
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.0-3IMs1K78gXfDYUqNK93ruq
Completed streaming-commons-0.2.3.0
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-4ju4VZ9QyPqJx9sLs2Z6DG
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-9MDeUVTmjXgJjfEQMjXcT2
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-J2BRfXKGQodED17s8NadLF
Completed http-api-data-0.6.2
Configuring hspec-core-2.11.12...
Preprocessing library for hspec-core-2.11.12..
Building library for hspec-core-2.11.12..
[ 1 of 52] Compiling Control.Concurrent.Async ( vendor/Control/Concurrent/Async.hs, dist/build/Control/Concurrent/Async.o, dist/build/Control/Concurrent/Async.dyn_o )
[ 2 of 52] Compiling Data.Algorithm.Diff ( vendor/Data/Algorithm/Diff.hs, dist/build/Data/Algorithm/Diff.o, dist/build/Data/Algorithm/Diff.dyn_o )
[ 3 of 52] 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 52] 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 52] 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 52] 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 52] Compiling NonEmpty ( src/NonEmpty.hs, dist/build/NonEmpty.o, dist/build/NonEmpty.dyn_o )
[ 8 of 52] Compiling GetOpt.Declarative.Types ( src/GetOpt/Declarative/Types.hs, dist/build/GetOpt/Declarative/Types.o, dist/build/GetOpt/Declarative/Types.dyn_o )
[ 9 of 52] Compiling GetOpt.Declarative.Environment ( src/GetOpt/Declarative/Environment.hs, dist/build/GetOpt/Declarative/Environment.o, dist/build/GetOpt/Declarative/Environment.dyn_o )
[10 of 52] 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 52] 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 52] Compiling Test.Hspec.Core.Formatters.Pretty.Parser.Parser ( src/Test/Hspec/Core/Formatters/Pretty/Parser/Parser.hs, dist/build/Test/Hspec/Core/Formatters/Pretty/Parser/Parser.o, dist/build/Test/Hspec/Core/Formatters/Pretty/Parser/Parser.dyn_o )
[13 of 52] 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 )
[14 of 52] 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 )
[15 of 52] 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 )
[16 of 52] 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 )
[17 of 52] 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 )
[18 of 52] 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 )
[19 of 52] 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 )
[20 of 52] 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 )
[21 of 52] 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 )
[22 of 52] 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 )
[23 of 52] 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 )
[24 of 52] 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 )
[25 of 52] 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 )
[26 of 52] 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 )
[27 of 52] 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 )
[28 of 52] 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 )
[29 of 52] 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 )
[30 of 52] 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 )
[31 of 52] 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 )
[32 of 52] 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 )
[33 of 52] Compiling GetOpt.Declarative.Util ( src/GetOpt/Declarative/Util.hs, dist/build/GetOpt/Declarative/Util.o, dist/build/GetOpt/Declarative/Util.dyn_o )
[34 of 52] Compiling GetOpt.Declarative.Interpret ( src/GetOpt/Declarative/Interpret.hs, dist/build/GetOpt/Declarative/Interpret.o, dist/build/GetOpt/Declarative/Interpret.dyn_o )
[35 of 52] Compiling GetOpt.Declarative ( src/GetOpt/Declarative.hs, dist/build/GetOpt/Declarative.o, dist/build/GetOpt/Declarative.dyn_o )
[36 of 52] 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 )
[37 of 52] 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 )
[38 of 52] 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 )
[39 of 52] 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 )
[40 of 52] 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 )
[41 of 52] 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 )
[42 of 52] 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 )
[43 of 52] 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 )
[44 of 52] 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 )
[45 of 52] 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 )
[46 of 52] 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 )
[47 of 52] 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 )
[48 of 52] 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 )
[49 of 52] 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 )
[50 of 52] 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 )
[51 of 52] 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 )
[52 of 52] 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.12..
Running Haddock on library for hspec-core-2.11.12..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 52] Compiling Control.Concurrent.Async ( vendor/Control/Concurrent/Async.hs, nothing )
[ 2 of 52] Compiling Data.Algorithm.Diff ( vendor/Data/Algorithm/Diff.hs, nothing )
[ 3 of 52] Compiling Paths_hspec_core ( dist/build/autogen/Paths_hspec_core.hs, nothing )
[ 4 of 52] Compiling Test.Hspec.Core.Compat ( src/Test/Hspec/Core/Compat.hs, nothing )
[ 5 of 52] Compiling Test.Hspec.Core.Clock ( src/Test/Hspec/Core/Clock.hs, nothing )
[ 6 of 52] Compiling Test.Hspec.Core.Annotations ( src/Test/Hspec/Core/Annotations.hs, nothing )
[ 7 of 52] Compiling NonEmpty ( src/NonEmpty.hs, nothing )
[ 8 of 52] Compiling GetOpt.Declarative.Types ( src/GetOpt/Declarative/Types.hs, nothing )
[ 9 of 52] Compiling GetOpt.Declarative.Environment ( src/GetOpt/Declarative/Environment.hs, nothing )
[10 of 52] Compiling Test.Hspec.Core.Example.Location ( src/Test/Hspec/Core/Example/Location.hs, nothing )
[11 of 52] Compiling Test.Hspec.Core.Formatters.Diff ( src/Test/Hspec/Core/Formatters/Diff.hs, nothing )
[12 of 52] Compiling Test.Hspec.Core.Formatters.Pretty.Parser.Parser ( src/Test/Hspec/Core/Formatters/Pretty/Parser/Parser.hs, nothing )
[13 of 52] Compiling Test.Hspec.Core.Formatters.Pretty.Parser ( src/Test/Hspec/Core/Formatters/Pretty/Parser.hs, nothing )
[14 of 52] Compiling Test.Hspec.Core.Formatters.Pretty.Unicode ( src/Test/Hspec/Core/Formatters/Pretty/Unicode.hs, nothing )
[15 of 52] Compiling Test.Hspec.Core.Formatters.Pretty ( src/Test/Hspec/Core/Formatters/Pretty.hs, nothing )
[16 of 52] Compiling Test.Hspec.Core.Formatters.V1.Free ( src/Test/Hspec/Core/Formatters/V1/Free.hs, nothing )
[17 of 52] Compiling Test.Hspec.Core.Runner.JobQueue ( src/Test/Hspec/Core/Runner/JobQueue.hs, nothing )
[18 of 52] Compiling Test.Hspec.Core.Timer ( src/Test/Hspec/Core/Timer.hs, nothing )
[19 of 52] Compiling Test.Hspec.Core.Util ( src/Test/Hspec/Core/Util.hs, nothing )
[20 of 52] Compiling Test.Hspec.Core.QuickCheck.Util ( src/Test/Hspec/Core/QuickCheck/Util.hs, nothing )
[21 of 52] Compiling Test.Hspec.Core.Example ( src/Test/Hspec/Core/Example.hs, nothing )
[22 of 52] Compiling Test.Hspec.Core.Tree ( src/Test/Hspec/Core/Tree.hs, nothing )
[23 of 52] Compiling Test.Hspec.Core.Shuffle ( src/Test/Hspec/Core/Shuffle.hs, nothing )
[24 of 52] Compiling Test.Hspec.Core.Format ( src/Test/Hspec/Core/Format.hs, nothing )
[25 of 52] Compiling Test.Hspec.Core.Runner.Result ( src/Test/Hspec/Core/Runner/Result.hs, nothing )
[26 of 52] Compiling Test.Hspec.Core.Formatters.V1.Monad ( src/Test/Hspec/Core/Formatters/V1/Monad.hs, nothing )
[27 of 52] Compiling Test.Hspec.Core.Formatters.Internal ( src/Test/Hspec/Core/Formatters/Internal.hs, nothing )
[28 of 52] Compiling Test.Hspec.Core.Formatters.V2 ( src/Test/Hspec/Core/Formatters/V2.hs, nothing )
[29 of 52] Compiling Test.Hspec.Core.Runner.PrintSlowSpecItems ( src/Test/Hspec/Core/Runner/PrintSlowSpecItems.hs, nothing )
[30 of 52] Compiling Test.Hspec.Core.Formatters.V1.Internal ( src/Test/Hspec/Core/Formatters/V1/Internal.hs, nothing )
[31 of 52] Compiling Test.Hspec.Core.Formatters.V1 ( src/Test/Hspec/Core/Formatters/V1.hs, nothing )
[32 of 52] Compiling Test.Hspec.Core.Formatters ( src/Test/Hspec/Core/Formatters.hs, nothing )
[33 of 52] Compiling GetOpt.Declarative.Util ( src/GetOpt/Declarative/Util.hs, nothing )
[34 of 52] Compiling GetOpt.Declarative.Interpret ( src/GetOpt/Declarative/Interpret.hs, nothing )
[35 of 52] Compiling GetOpt.Declarative ( src/GetOpt/Declarative.hs, nothing )
[36 of 52] Compiling Test.Hspec.Core.Config.Definition ( src/Test/Hspec/Core/Config/Definition.hs, nothing )
[37 of 52] Compiling Test.Hspec.Core.Spec.Monad ( src/Test/Hspec/Core/Spec/Monad.hs, nothing )
[38 of 52] Compiling Test.Hspec.Core.QuickCheck ( src/Test/Hspec/Core/QuickCheck.hs, nothing )
[39 of 52] Compiling Test.Hspec.Core.Hooks ( src/Test/Hspec/Core/Hooks.hs, nothing )
[40 of 52] Compiling Test.Hspec.Core.Spec ( src/Test/Hspec/Core/Spec.hs, nothing )
[41 of 52] Compiling Test.Hspec.Core.Runner.Eval ( src/Test/Hspec/Core/Runner/Eval.hs, nothing )
[42 of 52] Compiling Test.Hspec.Core.Extension.Tree ( src/Test/Hspec/Core/Extension/Tree.hs, nothing )
[43 of 52] Compiling Test.Hspec.Core.Extension.Spec ( src/Test/Hspec/Core/Extension/Spec.hs, nothing )
[44 of 52] Compiling Test.Hspec.Core.Extension.Item ( src/Test/Hspec/Core/Extension/Item.hs, nothing )
[45 of 52] Compiling Test.Hspec.Core.FailureReport ( src/Test/Hspec/Core/FailureReport.hs, nothing )
[46 of 52] Compiling Test.Hspec.Core.Extension.Config.Type ( src/Test/Hspec/Core/Extension/Config/Type.hs, nothing )
[47 of 52] Compiling Test.Hspec.Core.Extension.Option ( src/Test/Hspec/Core/Extension/Option.hs, nothing )
[48 of 52] Compiling Test.Hspec.Core.Extension.Config ( src/Test/Hspec/Core/Extension/Config.hs, nothing )
[49 of 52] Compiling Test.Hspec.Core.Extension ( src/Test/Hspec/Core/Extension.hs, nothing )
[50 of 52] Compiling Test.Hspec.Core.Config.Options ( src/Test/Hspec/Core/Config/Options.hs, nothing )
[51 of 52] Compiling Test.Hspec.Core.Config ( src/Test/Hspec/Core/Config.hs, nothing )
[52 of 52] 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'
30% ( 4 / 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)
Progress (src/Test/Hspec/Core/Example.hs:60)
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:78)
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
71% ( 41 / 57) in 'Test.Hspec.Core.Formatters.V2'
Missing documentation for:
silent (src/Test/Hspec/Core/Formatters/V2.hs:162)
checks (src/Test/Hspec/Core/Formatters/V2.hs:173)
specdoc (src/Test/Hspec/Core/Formatters/V2.hs:215)
progress (src/Test/Hspec/Core/Formatters/V2.hs:261)
failed_examples (src/Test/Hspec/Core/Formatters/V2.hs:271)
Formatter (src/Test/Hspec/Core/Formatters/Internal.hs:73)
Progress (src/Test/Hspec/Core/Example.hs:60)
Item (src/Test/Hspec/Core/Format.hs:40)
Result (src/Test/Hspec/Core/Format.hs:47)
FailureReason (src/Test/Hspec/Core/Example.hs:78)
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:468)
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:45:21
* at src/Test/Hspec/Core/Spec/Monad.hs:45:1
You 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:45: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:45:21
* at src/Test/Hspec/Core/Spec/Monad.hs:45:1
You 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:45:1
91% ( 22 / 24) in 'Test.Hspec.Core.Hooks'
Missing documentation for:
Spec (src/Test/Hspec/Core/Spec/Monad.hs:35)
SpecWith (src/Test/Hspec/Core/Spec/Monad.hs:37)
62% ( 40 / 64) in 'Test.Hspec.Core.Spec'
Missing documentation for:
Spec (src/Test/Hspec/Core/Spec/Monad.hs:35)
SpecWith (src/Test/Hspec/Core/Spec/Monad.hs:37)
mapSpecForest (src/Test/Hspec/Core/Spec/Monad.hs:72)
mapSpecItem_ (src/Test/Hspec/Core/Spec/Monad.hs:80)
modifyParams (src/Test/Hspec/Core/Spec/Monad.hs:83)
Params (src/Test/Hspec/Core/Example.hs:49)
defaultParams (src/Test/Hspec/Core/Example.hs:55)
Progress (src/Test/Hspec/Core/Example.hs:60)
ProgressCallback (src/Test/Hspec/Core/Example.hs:61)
ResultStatus (src/Test/Hspec/Core/Example.hs:72)
FailureReason (src/Test/Hspec/Core/Example.hs:78)
safeEvaluate (src/Test/Hspec/Core/Example.hs:109)
safeEvaluateExample (src/Test/Hspec/Core/Example.hs:106)
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)
focusForest (src/Test/Hspec/Core/Spec.hs:153)
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)
35% ( 6 / 17) in 'Test.Hspec.Core.Extension.Item'
Missing documentation for:
Module header
Params (src/Test/Hspec/Core/Example.hs:49)
Progress (src/Test/Hspec/Core/Example.hs:60)
ProgressCallback (src/Test/Hspec/Core/Example.hs:61)
ResultStatus (src/Test/Hspec/Core/Example.hs:72)
FailureReason (src/Test/Hspec/Core/Example.hs:78)
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
78% ( 18 / 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)
SpecWith (src/Test/Hspec/Core/Spec/Monad.hs:37)
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
79% ( 34 / 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)
Spec (src/Test/Hspec/Core/Spec/Monad.hs:35)
SpecWith (src/Test/Hspec/Core/Spec/Monad.hs:37)
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.12-9JvyA713DIR8an6LOh2r0t
Completed hspec-core-2.11.12
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-309RwKy4J1y154zzFfa7WM
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-DkgHWnYxfXrKfEnsdU5LxF
Completed tasty-1.5.3
Configuring hspec-2.11.12...
Preprocessing library for hspec-2.11.12..
Building library for hspec-2.11.12..
[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.12..
Running Haddock on library for hspec-2.11.12..
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:
37% ( 3 / 8) in 'Test.Hspec.Discover'
Missing documentation for:
Module header
Spec
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
94% ( 51 / 54) in 'Test.Hspec'
Missing documentation for:
Spec
SpecWith
Arg
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.12-3D42Z7K41enAaQiU9mb6bB
Completed hspec-2.11.12
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-GF7x8PfGp9kz0jeZbmk7a
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-GF7x8PfGp9kz0jeZbmk7a
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-1Sz67x3PZ21HcL8F1uo4eu
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-35XQxFP6VpQHLI70qsCqpo
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-9Ke5V4r7CriBYFo8yVvXdT
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-8lTtiPPzZcE9EQFGwkEW9j
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-Au2m21bXvupJSHMvRsp09B
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-4XSUZQ3eJPnARZ50zolscH
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-7ob2mKlaOu19tcRAaTIGhV
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-8cktsoqfgc6AGSPEL7BtSU
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-BuBFgooHjRSBWZz8oYwJ1a
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-1mUP7z4WC5L75fN3rt0vAs
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-IFsLGfdbiiKKuyEZjbZe9l
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-Hnv3VJeFzb6itqP0l5OkT
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-F9Ta0z0ip6KD1cUERx0484
Completed monad-logger-0.3.42
Configuring persistent-2.17.1.0...
Preprocessing library for persistent-2.17.1.0..
Building library for persistent-2.17.1.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:32: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()
|
32 | 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:43: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()
|
43 | import Data.Functor.Constant
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Class/PersistEntity.hs:69: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()
|
69 | 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:87:1: warning: [GHC-40910] [-Wunused-top-binds]
Defined but not used: modifyRunOnException
|
87 | modifyRunOnException hooks f = hooks { runOnException = f $ runOnException hooks }
| ^^^^^^^^^^^^^^^^^^^^
Database/Persist/SqlBackend/SqlPoolHooks.hs:90:1: warning: [GHC-40910] [-Wunused-top-binds]
Defined but not used: setRunOnException
|
90 | 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:148: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."
|
148 | ReleaseException -> do
| ^^^^^^^^^^^^^^^^
Database/Persist/Sql/Run.hs:252:14: warning: [GHC-68441] [-Wdeprecations]
In the use of createPool (imported from Data.Pool):
Deprecated: "Use newPool instead"
|
252 | liftIO $ 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:47:42: 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."
|
47 | return $ head x
| ^^^^
Database/Persist/Sql/Orphan/PersistUnique.hs:71: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."
|
71 | let 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:325: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."
|
325 | let zs = tail (inits (toList $ compositeFields pdef))
| ^^^^
Database/Persist/Sql/Orphan/PersistQuery.hs:329:59: 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."
|
329 | in (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.17.1.0..
Running Haddock on library for persistent-2.17.1.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/ghc1113397_0/ghc_22.o, /tmp/ghc1113397_0/ghc_22.dyn_o )
[ 2 of 52] Compiling Database.Persist.Names ( Database/Persist/Names.hs, /tmp/ghc1113397_0/ghc_48.o, /tmp/ghc1113397_0/ghc_48.dyn_o )
[ 3 of 52] Compiling Database.Persist.PersistValue ( Database/Persist/PersistValue.hs, /tmp/ghc1113397_0/ghc_50.o, /tmp/ghc1113397_0/ghc_50.dyn_o )
[ 4 of 52] Compiling Database.Persist.Quasi.Internal.TypeParser ( Database/Persist/Quasi/Internal/TypeParser.hs, /tmp/ghc1113397_0/ghc_58.o, /tmp/ghc1113397_0/ghc_58.dyn_o )
[ 5 of 52] Compiling Database.Persist.SqlBackend.Internal.IsolationLevel ( Database/Persist/SqlBackend/Internal/IsolationLevel.hs, /tmp/ghc1113397_0/ghc_92.o, /tmp/ghc1113397_0/ghc_92.dyn_o )
[ 6 of 52] Compiling Database.Persist.SqlBackend.Internal.SqlPoolHooks ( Database/Persist/SqlBackend/Internal/SqlPoolHooks.hs, /tmp/ghc1113397_0/ghc_96.o, /tmp/ghc1113397_0/ghc_96.dyn_o )
[ 7 of 52] Compiling Database.Persist.Types.SourceSpan ( Database/Persist/Types/SourceSpan.hs, /tmp/ghc1113397_0/ghc_108.o, /tmp/ghc1113397_0/ghc_108.dyn_o )
[ 8 of 52] Compiling Database.Persist.Types.Base ( Database/Persist/Types/Base.hs, /tmp/ghc1113397_0/ghc_106.o, /tmp/ghc1113397_0/ghc_106.dyn_o )
[ 9 of 52] Compiling Database.Persist.SqlBackend.Internal.Statement ( Database/Persist/SqlBackend/Internal/Statement.hs, /tmp/ghc1113397_0/ghc_98.o, /tmp/ghc1113397_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/ghc1113397_0/ghc_100.o, /tmp/ghc1113397_0/ghc_100.dyn_o )
[11 of 52] Compiling Database.Persist.SqlBackend.StatementCache ( Database/Persist/SqlBackend/StatementCache.hs, /tmp/ghc1113397_0/ghc_102.o, /tmp/ghc1113397_0/ghc_102.dyn_o )
[12 of 52] Compiling Database.Persist.SqlBackend.Internal.InsertSqlResult ( Database/Persist/SqlBackend/Internal/InsertSqlResult.hs, /tmp/ghc1113397_0/ghc_90.o, /tmp/ghc1113397_0/ghc_90.dyn_o )
[13 of 52] Compiling Database.Persist.SqlBackend.Internal.MkSqlBackend ( Database/Persist/SqlBackend/Internal/MkSqlBackend.hs, /tmp/ghc1113397_0/ghc_94.o, /tmp/ghc1113397_0/ghc_94.dyn_o )
[14 of 52] Compiling Database.Persist.FieldDef.Internal ( Database/Persist/FieldDef/Internal.hs, /tmp/ghc1113397_0/ghc_42.o, /tmp/ghc1113397_0/ghc_42.dyn_o )
[15 of 52] Compiling Database.Persist.FieldDef ( Database/Persist/FieldDef.hs, /tmp/ghc1113397_0/ghc_40.o, /tmp/ghc1113397_0/ghc_40.dyn_o )
[16 of 52] Compiling Database.Persist.EntityDef.Internal ( Database/Persist/EntityDef/Internal.hs, /tmp/ghc1113397_0/ghc_38.o, /tmp/ghc1113397_0/ghc_38.dyn_o )
[17 of 52] Compiling Database.Persist.EntityDef ( Database/Persist/EntityDef.hs, /tmp/ghc1113397_0/ghc_36.o, /tmp/ghc1113397_0/ghc_36.dyn_o )
[18 of 52] Compiling Database.Persist.Class.PersistField ( Database/Persist/Class/PersistField.hs, /tmp/ghc1113397_0/ghc_26.o, /tmp/ghc1113397_0/ghc_26.dyn_o )
Database/Persist/Class/PersistField.hs:32: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()
|
32 | import Numeric.Natural (Natural)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[19 of 52] Compiling Database.Persist.Class.PersistEntity ( Database/Persist/Class/PersistEntity.hs, /tmp/ghc1113397_0/ghc_24.o, /tmp/ghc1113397_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:43: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()
|
43 | import Data.Functor.Constant
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Database/Persist/Class/PersistEntity.hs:69: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()
|
69 | import GHC.Records
| ^^^^^^^^^^^^^^^^^^
[20 of 52] Compiling Database.Persist.Types ( Database/Persist/Types.hs, /tmp/ghc1113397_0/ghc_104.o, /tmp/ghc1113397_0/ghc_104.dyn_o )
[21 of 52] Compiling Database.Persist.Quasi.PersistSettings.Internal ( Database/Persist/Quasi/PersistSettings/Internal.hs, /tmp/ghc1113397_0/ghc_62.o, /tmp/ghc1113397_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/ghc1113397_0/ghc_60.o, /tmp/ghc1113397_0/ghc_60.dyn_o )
[23 of 52] Compiling Database.Persist.Class.PersistStore ( Database/Persist/Class/PersistStore.hs, /tmp/ghc1113397_0/ghc_30.o, /tmp/ghc1113397_0/ghc_30.dyn_o )
[24 of 52] Compiling Database.Persist.SqlBackend.Internal ( Database/Persist/SqlBackend/Internal.hs, /tmp/ghc1113397_0/ghc_88.o, /tmp/ghc1113397_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/ghc1113397_0/ghc_32.o, /tmp/ghc1113397_0/ghc_32.dyn_o )
[27 of 52] Compiling Database.Persist.Class.PersistQuery ( Database/Persist/Class/PersistQuery.hs, /tmp/ghc1113397_0/ghc_28.o, /tmp/ghc1113397_0/ghc_28.dyn_o )
[28 of 52] Compiling Database.Persist.Class ( Database/Persist/Class.hs, /tmp/ghc1113397_0/ghc_20.o, /tmp/ghc1113397_0/ghc_20.dyn_o )
[29 of 52] Compiling Database.Persist.Sql.Types.Internal ( Database/Persist/Sql/Types/Internal.hs, /tmp/ghc1113397_0/ghc_84.o, /tmp/ghc1113397_0/ghc_84.dyn_o )
[30 of 52] Compiling Database.Persist.Sql.Types ( Database/Persist/Sql/Types.hs, /tmp/ghc1113397_0/ghc_82.o, /tmp/ghc1113397_0/ghc_82.dyn_o )
[31 of 52] Compiling Database.Persist.Sql.Internal ( Database/Persist/Sql/Internal.hs, /tmp/ghc1113397_0/ghc_68.o, /tmp/ghc1113397_0/ghc_68.dyn_o )
[32 of 52] Compiling Database.Persist ( Database/Persist.hs, /tmp/ghc1113397_0/ghc_18.o, /tmp/ghc1113397_0/ghc_18.dyn_o )
[33 of 52] Compiling Database.Persist.Sql.Util ( Database/Persist/Sql/Util.hs, /tmp/ghc1113397_0/ghc_86.o, /tmp/ghc1113397_0/ghc_86.dyn_o )
[34 of 52] Compiling Database.Persist.Sql.Class ( Database/Persist/Sql/Class.hs, /tmp/ghc1113397_0/ghc_66.o, /tmp/ghc1113397_0/ghc_66.dyn_o )
[35 of 52] Compiling Database.Persist.Sql.Raw ( Database/Persist/Sql/Raw.hs, /tmp/ghc1113397_0/ghc_78.o, /tmp/ghc1113397_0/ghc_78.dyn_o )
[36 of 52] Compiling Database.Persist.SqlBackend.SqlPoolHooks ( Database/Persist/SqlBackend/SqlPoolHooks.hs, nothing )
Database/Persist/SqlBackend/SqlPoolHooks.hs:87:1: warning: [GHC-40910] [-Wunused-top-binds]
Defined but not used: modifyRunOnException
|
87 | modifyRunOnException hooks f = hooks { runOnException = f $ runOnException hooks }
| ^^^^^^^^^^^^^^^^^^^^
Database/Persist/SqlBackend/SqlPoolHooks.hs:90:1: warning: [GHC-40910] [-Wunused-top-binds]
Defined but not used: setRunOnException
|
90 | setRunOnException hooks f = hooks { runOnException = f }
| ^^^^^^^^^^^^^^^^^
[37 of 52] Compiling Database.Persist.Sql.Run ( Database/Persist/Sql/Run.hs, /tmp/ghc1113397_0/ghc_80.o, /tmp/ghc1113397_0/ghc_80.dyn_o )
Database/Persist/Sql/Run.hs:148: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."
|
148 | ReleaseException -> do
| ^^^^^^^^^^^^^^^^
Database/Persist/Sql/Run.hs:252:14: warning: [GHC-68441] [-Wdeprecations]
In the use of createPool (imported from Data.Pool):
Deprecated: "Use newPool instead"
|
252 | liftIO $ createPool
| ^^^^^^^^^^
[38 of 52] Compiling Database.Persist.Sql.Orphan.PersistStore ( Database/Persist/Sql/Orphan/PersistStore.hs, /tmp/ghc1113397_0/ghc_74.o, /tmp/ghc1113397_0/ghc_74.dyn_o )
[39 of 52] Compiling Database.Persist.Sql.Orphan.PersistUnique ( Database/Persist/Sql/Orphan/PersistUnique.hs, /tmp/ghc1113397_0/ghc_76.o, /tmp/ghc1113397_0/ghc_76.dyn_o )
Database/Persist/Sql/Orphan/PersistUnique.hs:47:42: 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."
|
47 | return $ head x
| ^^^^
Database/Persist/Sql/Orphan/PersistUnique.hs:71: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."
|
71 | let uKeys = persistUniqueKeys . head $ rsD
| ^^^^
[40 of 52] Compiling Database.Persist.Sql.Orphan.PersistQuery ( Database/Persist/Sql/Orphan/PersistQuery.hs, /tmp/ghc1113397_0/ghc_72.o, /tmp/ghc1113397_0/ghc_72.dyn_o )
Database/Persist/Sql/Orphan/PersistQuery.hs:325: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."
|
325 | let zs = tail (inits (toList $ compositeFields pdef))
| ^^^^
Database/Persist/Sql/Orphan/PersistQuery.hs:329:59: 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."
|
329 | in (wrapSql sqlcl, concat (tail (inits xs)))
| ^^^^
[41 of 52] Compiling Database.Persist.Sql.Migration ( Database/Persist/Sql/Migration.hs, /tmp/ghc1113397_0/ghc_70.o, /tmp/ghc1113397_0/ghc_70.dyn_o )
[42 of 52] Compiling Database.Persist.ImplicitIdDef.Internal ( Database/Persist/ImplicitIdDef/Internal.hs, /tmp/ghc1113397_0/ghc_46.o, /tmp/ghc1113397_0/ghc_46.dyn_o )
[43 of 52] Compiling Database.Persist.ImplicitIdDef ( Database/Persist/ImplicitIdDef.hs, /tmp/ghc1113397_0/ghc_44.o, /tmp/ghc1113397_0/ghc_44.dyn_o )
[44 of 52] Compiling Database.Persist.Compatible.Types ( Database/Persist/Compatible/Types.hs, /tmp/ghc1113397_0/ghc_34.o, /tmp/ghc1113397_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/ghc1113397_0/ghc_64.o, /tmp/ghc1113397_0/ghc_64.dyn_o )
[48 of 52] Compiling Database.Persist.Quasi.Internal.ModelParser ( Database/Persist/Quasi/Internal/ModelParser.hs, /tmp/ghc1113397_0/ghc_56.o, /tmp/ghc1113397_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/ghc1113397_0/ghc_54.o, /tmp/ghc1113397_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/ghc1113397_0/ghc_52.o, /tmp/ghc1113397_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:71:28
* at Database/Persist/Names.hs:71:1
You 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:71:1
Warning: 'ConstraintNameDB' is ambiguous. It is defined
* at Database/Persist/Names.hs:60:28
* at Database/Persist/Names.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 Database/Persist/Names.hs:60:1
Warning: 'EntityNameDB' is ambiguous. It is defined
* at Database/Persist/Names.hs:50:24
* at Database/Persist/Names.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 Database/Persist/Names.hs:50:1
Warning: 'EntityNameHS' is ambiguous. It is defined
* at Database/Persist/Names.hs:43:24
* at Database/Persist/Names.hs:43:1
You 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:43:1
Warning: 'FieldNameHS' is ambiguous. It is defined
* at Database/Persist/Names.hs:36:23
* at Database/Persist/Names.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/Names.hs:36:1
Warning: 'FieldNameDB' is ambiguous. It is defined
* at Database/Persist/Names.hs:25:23
* at Database/Persist/Names.hs:25:1
You 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:25: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:190)
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:14)
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:684:17
* at Database/Persist/Types/Base.hs:684:1
You 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:684: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:36:23
* at Database/Persist/Names.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/Names.hs:36: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:131:18
* at Database/Persist/Types/Base.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 Database/Persist/Types/Base.hs:131: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:590:21
* at Database/Persist/Types/Base.hs:590:1
You 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:590: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:131:18
* at Database/Persist/Types/Base.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 Database/Persist/Types/Base.hs:131: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:455)
Warning: 'FieldDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:684:17
* at Database/Persist/Types/Base.hs:684:1
You 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:684:1
Warning: 'FieldCascade' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:590:21
* at Database/Persist/Types/Base.hs:590:1
You 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:590:1
94% ( 17 / 18) in 'Database.Persist.FieldDef'
Missing documentation for:
isFieldNotGenerated (Database/Persist/Types/Base.hs:455)
Warning: 'EntityDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:131:18
* at Database/Persist/Types/Base.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 Database/Persist/Types/Base.hs:131:1
75% ( 6 / 8) in 'Database.Persist.EntityDef.Internal'
Missing documentation for:
entityPrimary (Database/Persist/Types/Base.hs:199)
toEmbedEntityDef (Database/Persist/Types/Base.hs:501)
Warning: 'EntityDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:131:18
* at Database/Persist/Types/Base.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 Database/Persist/Types/Base.hs:131:1
Warning: 'UniqueDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:544:18
* at Database/Persist/Types/Base.hs:544:1
You 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:544: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:102)
getEntityExtra (Database/Persist/EntityDef.hs:93)
entityPrimary (Database/Persist/Types/Base.hs:199)
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:339:5
* at Database/Persist/Class/PersistEntity.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 Database/Persist/Class/PersistEntity.hs:338: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:131:18
* at Database/Persist/Types/Base.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 Database/Persist/Types/Base.hs:131: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:247)
BackendSpecificFilter (Database/Persist/Class/PersistEntity.hs:276)
SafeToInsertErrorMessage (Database/Persist/Class/PersistEntity.hs:580)
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:684:17
* at Database/Persist/Types/Base.hs:684:1
You 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:684:1
77% ( 42 / 54) in 'Database.Persist.Types'
Missing documentation for:
BackendSpecificUpdate (Database/Persist/Class/PersistEntity.hs:247)
BackendSpecificFilter (Database/Persist/Class/PersistEntity.hs:276)
PersistFilter (Database/Persist/Types/Base.hs:658)
PersistUpdate (Database/Persist/Types/Base.hs:676)
ForeignDef (Database/Persist/Types/Base.hs:562)
IsNullable (Database/Persist/Types/Base.hs:108)
fieldAttrsContainsNullable (Database/Persist/Types/Base.hs:114)
CompositeDef (Database/Persist/Types/Base.hs:552)
Attr (Database/Persist/Types/Base.hs:251)
ExtraLine (Database/Persist/Types/Base.hs:249)
PersistException (Database/Persist/Types/Base.hs:631)
UpdateException (Database/Persist/Types/Base.hs:662)
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:339:5
* at Database/Persist/Class/PersistEntity.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 Database/Persist/Class/PersistEntity.hs:338: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:132)
PersistCore (Database/Persist/Class/PersistStore.hs:152)
PersistStoreRead (Database/Persist/Class/PersistStore.hs:155)
PersistStoreWrite (Database/Persist/Class/PersistStore.hs:214)
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:131:18
* at Database/Persist/Types/Base.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 Database/Persist/Types/Base.hs:131: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:144)
emptySqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:149)
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:25:23
* at Database/Persist/Names.hs:25:1
You 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:25: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:144)
emptySqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:149)
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:544:18
* at Database/Persist/Types/Base.hs:544:1
You 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:544: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:339:5
* at Database/Persist/Class/PersistEntity.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 Database/Persist/Class/PersistEntity.hs:338: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:155)
PersistStoreWrite (Database/Persist/Class/PersistStore.hs:214)
liftPersist (Database/Persist/Class/PersistStore.hs:132)
PersistCore (Database/Persist/Class/PersistStore.hs:152)
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:14)
SqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:144)
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:68:29
* at Database/Persist/Sql/Types.hs:68:1
You 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:68: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:60:28
* at Database/Persist/Names.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 Database/Persist/Names.hs:60: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:290:22
* at Database/Persist/Class/PersistEntity.hs:290:1
You 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:290:1
Warning: 'Update' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:259:22
* at Database/Persist/Class/PersistEntity.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/Class/PersistEntity.hs:259: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:684:17
* at Database/Persist/Types/Base.hs:684:1
You 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:684:1
Warning: 'Update' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:259:22
* at Database/Persist/Class/PersistEntity.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/Class/PersistEntity.hs:259: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:168)
keyAndEntityColumnNames (Database/Persist/Sql/Util.hs:58)
entityColumnCount (Database/Persist/Sql/Util.hs:62)
isIdField (Database/Persist/Sql/Util.hs:201)
dbIdColumns (Database/Persist/Sql/Util.hs:155)
dbIdColumnsEsc (Database/Persist/Sql/Util.hs:158)
dbColumns (Database/Persist/Sql/Util.hs:161)
updatePersistValue (Database/Persist/Sql/Util.hs:209)
mkUpdateText (Database/Persist/Sql/Util.hs:217)
mkUpdateText' (Database/Persist/Sql/Util.hs:221)
commaSeparated (Database/Persist/Sql/Util.hs:214)
parenWrapped (Database/Persist/Sql/Util.hs:234)
parseExistsResult (Database/Persist/Sql/Util.hs:278)
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:143:7
* at Database/Persist/Sql/Class.hs:142:1
You 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:142:1
Warning: 'Entity' is ambiguous. It is defined
* at Database/Persist/Class/PersistEntity.hs:339:5
* at Database/Persist/Class/PersistEntity.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 Database/Persist/Class/PersistEntity.hs:338: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:339:5
* at Database/Persist/Class/PersistEntity.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 Database/Persist/Class/PersistEntity.hs:338:1
Warning: 'Single' is ambiguous. It is defined
* at Database/Persist/Sql/Types.hs:138:20
* at Database/Persist/Sql/Types.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 Database/Persist/Sql/Types.hs:138:1
15% ( 2 / 13) in 'Database.Persist.SqlBackend.SqlPoolHooks'
Missing documentation for:
Module header
getAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:54)
modifyAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:57)
setAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:60)
getRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:64)
modifyRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:67)
setRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:70)
getRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:74)
modifyRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:77)
setRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:80)
getRunOnException (Database/Persist/SqlBackend/SqlPoolHooks.hs:84)
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:290:22
* at Database/Persist/Class/PersistEntity.hs:290:1
You 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:290: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:289:5
* at Database/Persist/Sql/Migration.hs:288:1
You 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:288: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:77)
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:93:22
* at Database/Persist/ImplicitIdDef/Internal.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 Database/Persist/ImplicitIdDef/Internal.hs:93: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:43:24
* at Database/Persist/Names.hs:43:1
You 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:43: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:93:22
* at Database/Persist/ImplicitIdDef/Internal.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 Database/Persist/ImplicitIdDef/Internal.hs:93: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:56:26
* at Database/Persist/Compatible/Types.hs:56:1
You 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:56: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:322)
runSqlConn (Database/Persist/Sql/Run.hs:180)
runSqlPersistM (Database/Persist/Sql/Run.hs:192)
runSqlPersistMPool (Database/Persist/Sql/Run.hs:197)
liftSqlPersistMPool (Database/Persist/Sql/Run.hs:202)
withSqlPool (Database/Persist/Sql/Run.hs:210)
createSqlPool (Database/Persist/Sql/Run.hs:232)
BackendKey
BackendKey (Database/Persist/Class/PersistStore.hs:153)
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:26)
rawQueryRes (Database/Persist/Sql/Raw.hs:37)
getStmtConn (Database/Persist/Sql/Raw.hs:77)
defaultAttribute (Database/Persist/Sql/Internal.hs:73)
Column (Database/Persist/Sql/Types.hs:22)
LogFunc (Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:79)
InsertSqlResult (Database/Persist/SqlBackend/Internal/InsertSqlResult.hs:6)
ConnectionPool (Database/Persist/Sql/Types.hs:63)
SqlPersistT (Database/Persist/Sql/Types.hs:59)
PersistentSqlException (Database/Persist/Sql/Types.hs:54)
SqlPersistM (Database/Persist/Sql/Types.hs:61)
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:36:23
* at Database/Persist/Names.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/Names.hs:36:1
Warning: 'ForeignDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:562:19
* at Database/Persist/Types/Base.hs:562:1
You 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:562: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:590:21
* at Database/Persist/Types/Base.hs:590:1
You 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:590: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:131:18
* at Database/Persist/Types/Base.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 Database/Persist/Types/Base.hs:131: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:552:21
* at Database/Persist/Types/Base.hs:552:1
You 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:552:1
Warning: 'FieldDef' is ambiguous. It is defined
* at Database/Persist/Types/Base.hs:684:17
* at Database/Persist/Types/Base.hs:684:1
You 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:684: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:43:24
* at Database/Persist/Names.hs:43:1
You 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:43: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:449)
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:131:18
* at Database/Persist/Types/Base.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 Database/Persist/Types/Base.hs:131: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:474:23
* at Database/Persist/Types/Base.hs:474:1
You 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:474: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:93:22
* at Database/Persist/ImplicitIdDef/Internal.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 Database/Persist/ImplicitIdDef/Internal.hs:93: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:684:17
* at Database/Persist/Types/Base.hs:684:1
You 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:684: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.17.1.0-8rROELTcUKwBWPkA9EP6rF
Completed persistent-2.17.1.0
Downloading persistent-test-2.13.2.0
Downloaded persistent-test-2.13.2.0
Configuring persistent-test-2.13.2.0...
Preprocessing library for persistent-test-2.13.2.0..
Building library for persistent-test-2.13.2.0..
[ 1 of 41] Compiling Init ( src/Init.hs, dist/build/Init.o, dist/build/Init.dyn_o )
src/Init.hs:160:33: 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"
|
160 | persistSettings = sqlSettings { mpsGeneric = True }
| ^^^^^^^^^^
[ 2 of 41] Compiling HtmlTest ( src/HtmlTest.hs, dist/build/HtmlTest.o, dist/build/HtmlTest.dyn_o )
src/HtmlTest.hs:15:36: 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 | share [mkPersist persistSettings { mpsGeneric = True }, mkMigrate "htmlMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[ 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:15:36: 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 | share [mkPersist persistSettings { mpsGeneric = False }, mkMigrate "compositeMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[ 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:9: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"
|
9 | mkPersist persistSettings { mpsGeneric = True } [persistUpperCase|
| ^^^^^^^^^^
[ 7 of 41] Compiling EmptyEntityTest ( src/EmptyEntityTest.hs, dist/build/EmptyEntityTest.o, dist/build/EmptyEntityTest.dyn_o )
src/EmptyEntityTest.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 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "migration"] [persistLowerCase|
| ^^^^^^^^^^
[ 8 of 41] Compiling EmbedTest ( src/EmbedTest.hs, dist/build/EmbedTest.o, dist/build/EmbedTest.dyn_o )
src/EmbedTest.hs:32: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"
|
32 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "embedMigrate"] [persistUpperCase|
| ^^^^^^^^^^
[ 9 of 41] Compiling EmbedOrderTest ( src/EmbedOrderTest.hs, dist/build/EmbedOrderTest.o, dist/build/EmbedOrderTest.dyn_o )
src/EmbedOrderTest.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 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "embedOrderMigrate"] [persistUpperCase|
| ^^^^^^^^^^
[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:11:36: 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 | share [mkPersist persistSettings { mpsGeneric = False }, mkMigrate "migration"] [persistLowerCase|
| ^^^^^^^^^^
[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:9: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"
|
9 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "customFieldMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[14 of 41] Compiling CompositeTest ( src/CompositeTest.hs, dist/build/CompositeTest.o, dist/build/CompositeTest.dyn_o )
src/CompositeTest.hs:15:36: 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 | share [mkPersist persistSettings { mpsGeneric = False }, mkMigrate "compositeMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[15 of 41] Compiling LargeNumberTest ( src/LargeNumberTest.hs, dist/build/LargeNumberTest.o, dist/build/LargeNumberTest.dyn_o )
src/LargeNumberTest.hs:9: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"
|
9 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "numberMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[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: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 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "maxlenMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[18 of 41] Compiling MaybeFieldDefsTest ( src/MaybeFieldDefsTest.hs, dist/build/MaybeFieldDefsTest.o, dist/build/MaybeFieldDefsTest.dyn_o )
src/MaybeFieldDefsTest.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 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "maybeFieldDefMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[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: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 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "migrateAll1"] [persistLowerCase|
| ^^^^^^^^^^
src/MigrationOnlyTest.hs:21: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"
|
21 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "migrateAll2"] [persistLowerCase|
| ^^^^^^^^^^
[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:9:36: 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"
|
9 | share [mkPersist persistSettings { mpsGeneric = False }, mkMigrate "migration"] [persistLowerCase|
| ^^^^^^^^^^
[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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a5jjr
= ((Entity <$> fromField_a5jjr PersonId)
<*>
(((pure Person <*> fromField_a5jjr PersonName)
<*> fromField_a5jjr PersonAge)
<*> fromField_a5jjr PersonColor))
tabulateEntityApply fromField_a5jjq
= ((Entity <$> fromField_a5jjq PersonId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Person <$> fromField_a5jjq PersonName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jjq PersonAge)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jjq PersonColor))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person x_a5jj0 x_a5jj1 x_a5jj2)
= [toPersistValue x_a5jj0, toPersistValue x_a5jj1,
toPersistValue x_a5jj2]
fromPersistValues [x1_a5jj4, x2_a5jj5, x3_a5jj6]
= 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_a5jj4
<*>
(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_a5jj5
<*>
(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_a5jj6
fromPersistValues x_a5jj3
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jj3))
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_a5jj7)
= [toPersistValue x_a5jj7]
persistUniqueKeys (Person _name_a5jj8 _age_a5jj9 _color_a5jja)
= [PersonNameKey _name_a5jj8]
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_a5jjc) key_a5jjd
-> Entity key_a5jjd value_a5jjc)
fieldLens PersonName
= Database.Persist.TH.Internal.lensPTH
((\ Person {personName = x} -> x) . entityVal)
(\ (Entity key_a5jje value_a5jjf) x_a5jjg
-> Entity
key_a5jje
(case value_a5jjf of
Person {personAge = personAge_a5jji,
personColor = personColor_a5jjj}
-> Person
{personName = x_a5jjg, personAge = personAge,
personColor = personColor}))
fieldLens PersonAge
= Database.Persist.TH.Internal.lensPTH
((\ Person {personAge = x} -> x) . entityVal)
(\ (Entity key_a5jje value_a5jjf) x_a5jjg
-> Entity
key_a5jje
(case value_a5jjf of
Person {personName = personName_a5jjk,
personColor = personColor_a5jjm}
-> Person
{personName = personName, personAge = x_a5jjg,
personColor = personColor}))
fieldLens PersonColor
= Database.Persist.TH.Internal.lensPTH
((\ Person {personColor = x} -> x) . entityVal)
(\ (Entity key_a5jje value_a5jjf) x_a5jjg
-> Entity
key_a5jje
(case value_a5jjf of
Person {personName = personName_a5jjn, personAge = personAge_a5jjo}
-> Person
{personName = personName, personAge = personAge,
personColor = x_a5jjg}))
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_a5jjK
= ((Entity <$> fromField_a5jjK Person1Id)
<*>
((pure Person1 <*> fromField_a5jjK Person1Name)
<*> fromField_a5jjK Person1Age))
tabulateEntityApply fromField_a5jjJ
= ((Entity <$> fromField_a5jjJ Person1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Person1 <$> fromField_a5jjJ Person1Name)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jjJ Person1Age))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person1 x_a5jjs x_a5jjt)
= [toPersistValue x_a5jjs, toPersistValue x_a5jjt]
fromPersistValues [x1_a5jjv, x2_a5jjw]
= 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_a5jjv
<*>
(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_a5jjw
fromPersistValues x_a5jju
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a5jju))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Person1 _name_a5jjx _age_a5jjy) = []
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_a5jjA) key_a5jjB
-> Entity key_a5jjB value_a5jjA)
fieldLens Person1Name
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Name = x} -> x) . entityVal)
(\ (Entity key_a5jjC value_a5jjD) x_a5jjE
-> Entity
key_a5jjC
(case value_a5jjD of
Person1 {person1Age = person1Age_a5jjG}
-> Person1 {person1Name = x_a5jjE, person1Age = person1Age}))
fieldLens Person1Age
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Age = x} -> x) . entityVal)
(\ (Entity key_a5jjC value_a5jjD) x_a5jjE
-> Entity
key_a5jjC
(case value_a5jjD of
Person1 {person1Name = person1Name_a5jjH}
-> Person1 {person1Name = person1Name, person1Age = x_a5jjE}))
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_a5jk3
= ((Entity <$> fromField_a5jk3 PersonMaybeAgeId)
<*>
((pure PersonMaybeAge <*> fromField_a5jk3 PersonMaybeAgeName)
<*> fromField_a5jk3 PersonMaybeAgeAge))
tabulateEntityApply fromField_a5jk2
= ((Entity <$> fromField_a5jk2 PersonMaybeAgeId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((PersonMaybeAge <$> fromField_a5jk2 PersonMaybeAgeName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jk2 PersonMaybeAgeAge))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMaybeAge x_a5jjL x_a5jjM)
= [toPersistValue x_a5jjL, toPersistValue x_a5jjM]
fromPersistValues [x1_a5jjO, x2_a5jjP]
= 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_a5jjO
<*>
(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_a5jjP
fromPersistValues x_a5jjN
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMaybeAge: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 45#))
(Data.Text.Internal.pack $ show x_a5jjN))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMaybeAge _name_a5jjQ _age_a5jjR) = []
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_a5jjT) key_a5jjU
-> Entity key_a5jjU value_a5jjT)
fieldLens PersonMaybeAgeName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeName = x} -> x) . entityVal)
(\ (Entity key_a5jjV value_a5jjW) x_a5jjX
-> Entity
key_a5jjV
(case value_a5jjW of
PersonMaybeAge {personMaybeAgeAge = personMaybeAgeAge_a5jjZ}
-> PersonMaybeAge
{personMaybeAgeName = x_a5jjX,
personMaybeAgeAge = personMaybeAgeAge}))
fieldLens PersonMaybeAgeAge
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeAge = x} -> x) . entityVal)
(\ (Entity key_a5jjV value_a5jjW) x_a5jjX
-> Entity
key_a5jjV
(case value_a5jjW of
PersonMaybeAge {personMaybeAgeName = personMaybeAgeName_a5jk0}
-> PersonMaybeAge
{personMaybeAgeName = personMaybeAgeName,
personMaybeAgeAge = x_a5jjX}))
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_a5jkm
= ((Entity <$> fromField_a5jkm PersonMayId)
<*>
((pure PersonMay <*> fromField_a5jkm PersonMayName)
<*> fromField_a5jkm PersonMayColor))
tabulateEntityApply fromField_a5jkl
= ((Entity <$> fromField_a5jkl PersonMayId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((PersonMay <$> fromField_a5jkl PersonMayName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jkl PersonMayColor))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMay x_a5jk4 x_a5jk5)
= [toPersistValue x_a5jk4, toPersistValue x_a5jk5]
fromPersistValues [x1_a5jk7, x2_a5jk8]
= 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_a5jk7
<*>
(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_a5jk8
fromPersistValues x_a5jk6
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMay: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a5jk6))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMay _name_a5jk9 _color_a5jka) = []
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_a5jkc) key_a5jkd
-> Entity key_a5jkd value_a5jkc)
fieldLens PersonMayName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayName = x} -> x) . entityVal)
(\ (Entity key_a5jke value_a5jkf) x_a5jkg
-> Entity
key_a5jke
(case value_a5jkf of
PersonMay {personMayColor = personMayColor_a5jki}
-> PersonMay
{personMayName = x_a5jkg, personMayColor = personMayColor}))
fieldLens PersonMayColor
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayColor = x} -> x) . entityVal)
(\ (Entity key_a5jke value_a5jkf) x_a5jkg
-> Entity
key_a5jke
(case value_a5jkf of
PersonMay {personMayName = personMayName_a5jkj}
-> PersonMay
{personMayName = personMayName, personMayColor = x_a5jkg}))
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_a5jkN
= ((Entity <$> fromField_a5jkN PetId)
<*>
(((pure Pet <*> fromField_a5jkN PetOwnerId)
<*> fromField_a5jkN PetName)
<*> fromField_a5jkN PetType))
tabulateEntityApply fromField_a5jkM
= ((Entity <$> fromField_a5jkM PetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Pet <$> fromField_a5jkM PetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jkM PetName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jkM PetType))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Pet x_a5jkn x_a5jko x_a5jkp)
= [toPersistValue x_a5jkn, toPersistValue x_a5jko,
toPersistValue x_a5jkp]
fromPersistValues [x1_a5jkr, x2_a5jks, x3_a5jkt]
= 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_a5jkr
<*>
(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_a5jks
<*>
(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_a5jkt
fromPersistValues x_a5jkq
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Pet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 34#))
(Data.Text.Internal.pack $ show x_a5jkq))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Pet _ownerId_a5jku _name_a5jkv _type_a5jkw) = []
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_a5jky) key_a5jkz
-> Entity key_a5jkz value_a5jky)
fieldLens PetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petOwnerId = x} -> x) . entityVal)
(\ (Entity key_a5jkA value_a5jkB) x_a5jkC
-> Entity
key_a5jkA
(case value_a5jkB of
Pet {petName = petName_a5jkE, petType = petType_a5jkF}
-> Pet
{petOwnerId = x_a5jkC, petName = petName, petType = petType}))
fieldLens PetName
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petName = x} -> x) . entityVal)
(\ (Entity key_a5jkA value_a5jkB) x_a5jkC
-> Entity
key_a5jkA
(case value_a5jkB of
Pet {petOwnerId = petOwnerId_a5jkG, petType = petType_a5jkI}
-> Pet
{petOwnerId = petOwnerId, petName = x_a5jkC, petType = petType}))
fieldLens PetType
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petType = x} -> x) . entityVal)
(\ (Entity key_a5jkA value_a5jkB) x_a5jkC
-> Entity
key_a5jkA
(case value_a5jkB of
Pet {petOwnerId = petOwnerId_a5jkJ, petName = petName_a5jkK}
-> Pet
{petOwnerId = petOwnerId, petName = petName, petType = x_a5jkC}))
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_a5jle
= ((Entity <$> fromField_a5jle MaybeOwnedPetId)
<*>
(((pure MaybeOwnedPet <*> fromField_a5jle MaybeOwnedPetOwnerId)
<*> fromField_a5jle MaybeOwnedPetName)
<*> fromField_a5jle MaybeOwnedPetType))
tabulateEntityApply fromField_a5jld
= ((Entity <$> fromField_a5jld MaybeOwnedPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((MaybeOwnedPet <$> fromField_a5jld MaybeOwnedPetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jld MaybeOwnedPetName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jld MaybeOwnedPetType))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MaybeOwnedPet x_a5jkO x_a5jkP x_a5jkQ)
= [toPersistValue x_a5jkO, toPersistValue x_a5jkP,
toPersistValue x_a5jkQ]
fromPersistValues [x1_a5jkS, x2_a5jkT, x3_a5jkU]
= 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_a5jkS
<*>
(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_a5jkT
<*>
(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_a5jkU
fromPersistValues x_a5jkR
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MaybeOwnedPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a5jkR))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(MaybeOwnedPet _ownerId_a5jkV _name_a5jkW _type_a5jkX)
= []
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_a5jkZ) key_a5jl0
-> Entity key_a5jl0 value_a5jkZ)
fieldLens MaybeOwnedPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a5jl1 value_a5jl2) x_a5jl3
-> Entity
key_a5jl1
(case value_a5jl2 of
MaybeOwnedPet {maybeOwnedPetName = maybeOwnedPetName_a5jl5,
maybeOwnedPetType = maybeOwnedPetType_a5jl6}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = x_a5jl3,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetName
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetName = x} -> x) . entityVal)
(\ (Entity key_a5jl1 value_a5jl2) x_a5jl3
-> Entity
key_a5jl1
(case value_a5jl2 of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a5jl7,
maybeOwnedPetType = maybeOwnedPetType_a5jl9}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = x_a5jl3,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetType
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetType = x} -> x) . entityVal)
(\ (Entity key_a5jl1 value_a5jl2) x_a5jl3
-> Entity
key_a5jl1
(case value_a5jl2 of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a5jla,
maybeOwnedPetName = maybeOwnedPetName_a5jlb}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = x_a5jl3}))
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_a5jlr
= ((Entity <$> fromField_a5jlr NeedsPetId)
<*> (pure NeedsPet <*> fromField_a5jlr NeedsPetPetKey))
tabulateEntityApply fromField_a5jlq
= ((Entity <$> fromField_a5jlq NeedsPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(NeedsPet <$> fromField_a5jlq NeedsPetPetKey))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NeedsPet x_a5jlf) = [toPersistValue x_a5jlf]
fromPersistValues [x1_a5jlh]
= 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_a5jlh
fromPersistValues x_a5jlg
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NeedsPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a5jlg))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NeedsPet _petKey_a5jli) = []
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_a5jlk) key_a5jll
-> Entity key_a5jll value_a5jlk)
fieldLens NeedsPetPetKey
= Database.Persist.TH.Internal.lensPTH
((\ NeedsPet {needsPetPetKey = x} -> x) . entityVal)
(\ (Entity key_a5jlm value_a5jln) x_a5jlo
-> Entity
key_a5jlm
(case value_a5jln of
NeedsPet {} -> NeedsPet {needsPetPetKey = x_a5jlo}))
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_a5jlS
= ((Entity <$> fromField_a5jlS OutdoorPetId)
<*>
(((pure OutdoorPet <*> fromField_a5jlS OutdoorPetOwnerId)
<*> fromField_a5jlS OutdoorPetCollar)
<*> fromField_a5jlS OutdoorPetType))
tabulateEntityApply fromField_a5jlR
= ((Entity <$> fromField_a5jlR OutdoorPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((OutdoorPet <$> fromField_a5jlR OutdoorPetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jlR OutdoorPetCollar)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jlR OutdoorPetType))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (OutdoorPet x_a5jls x_a5jlt x_a5jlu)
= [toPersistValue x_a5jls, toPersistValue x_a5jlt,
toPersistValue x_a5jlu]
fromPersistValues [x1_a5jlw, x2_a5jlx, x3_a5jly]
= 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_a5jlw
<*>
(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_a5jlx
<*>
(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_a5jly
fromPersistValues x_a5jlv
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"OutdoorPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 41#))
(Data.Text.Internal.pack $ show x_a5jlv))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(OutdoorPet _ownerId_a5jlz _collar_a5jlA _type_a5jlB)
= []
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_a5jlD) key_a5jlE
-> Entity key_a5jlE value_a5jlD)
fieldLens OutdoorPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a5jlF value_a5jlG) x_a5jlH
-> Entity
key_a5jlF
(case value_a5jlG of
OutdoorPet {outdoorPetCollar = outdoorPetCollar_a5jlJ,
outdoorPetType = outdoorPetType_a5jlK}
-> OutdoorPet
{outdoorPetOwnerId = x_a5jlH, outdoorPetCollar = outdoorPetCollar,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetCollar
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetCollar = x} -> x) . entityVal)
(\ (Entity key_a5jlF value_a5jlG) x_a5jlH
-> Entity
key_a5jlF
(case value_a5jlG of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a5jlL,
outdoorPetType = outdoorPetType_a5jlN}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = x_a5jlH,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetType
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetType = x} -> x) . entityVal)
(\ (Entity key_a5jlF value_a5jlG) x_a5jlH
-> Entity
key_a5jlF
(case value_a5jlG of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a5jlO,
outdoorPetCollar = outdoorPetCollar_a5jlP}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId,
outdoorPetCollar = outdoorPetCollar, outdoorPetType = x_a5jlH}))
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_a5jmc
= ((Entity <$> fromField_a5jmc UserPTId)
<*>
((pure UserPT <*> fromField_a5jmc UserPTIdent)
<*> fromField_a5jmc UserPTPassword))
tabulateEntityApply fromField_a5jmb
= ((Entity <$> fromField_a5jmb UserPTId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((UserPT <$> fromField_a5jmb UserPTIdent)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jmb UserPTPassword))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UserPT x_a5jlT x_a5jlU)
= [toPersistValue x_a5jlT, toPersistValue x_a5jlU]
fromPersistValues [x1_a5jlW, x2_a5jlX]
= 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_a5jlW
<*>
(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_a5jlX
fromPersistValues x_a5jlV
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UserPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jlV))
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_a5jlY)
= [toPersistValue x_a5jlY]
persistUniqueKeys (UserPT _ident_a5jlZ _password_a5jm0)
= [UniqueUserPT _ident_a5jlZ]
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_a5jm2) key_a5jm3
-> Entity key_a5jm3 value_a5jm2)
fieldLens UserPTIdent
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTIdent = x} -> x) . entityVal)
(\ (Entity key_a5jm4 value_a5jm5) x_a5jm6
-> Entity
key_a5jm4
(case value_a5jm5 of
UserPT {userPTPassword = userPTPassword_a5jm8}
-> UserPT
{userPTIdent = x_a5jm6, userPTPassword = userPTPassword}))
fieldLens UserPTPassword
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTPassword = x} -> x) . entityVal)
(\ (Entity key_a5jm4 value_a5jm5) x_a5jm6
-> Entity
key_a5jm4
(case value_a5jm5 of
UserPT {userPTIdent = userPTIdent_a5jm9}
-> UserPT {userPTIdent = userPTIdent, userPTPassword = x_a5jm6}))
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_a5jmE
= ((Entity <$> fromField_a5jmE EmailPTId)
<*>
(((pure EmailPT <*> fromField_a5jmE EmailPTEmail)
<*> fromField_a5jmE EmailPTUser)
<*> fromField_a5jmE EmailPTVerkey))
tabulateEntityApply fromField_a5jmD
= ((Entity <$> fromField_a5jmD EmailPTId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((EmailPT <$> fromField_a5jmD EmailPTEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jmD EmailPTUser)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jmD EmailPTVerkey))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (EmailPT x_a5jmd x_a5jme x_a5jmf)
= [toPersistValue x_a5jmd, toPersistValue x_a5jme,
toPersistValue x_a5jmf]
fromPersistValues [x1_a5jmh, x2_a5jmi, x3_a5jmj]
= 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_a5jmh
<*>
(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_a5jmi
<*>
(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_a5jmj
fromPersistValues x_a5jmg
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"EmailPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a5jmg))
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_a5jmk)
= [toPersistValue x_a5jmk]
persistUniqueKeys (EmailPT _email_a5jml _user_a5jmm _verkey_a5jmn)
= [UniqueEmailPT _email_a5jml]
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_a5jmp) key_a5jmq
-> Entity key_a5jmq value_a5jmp)
fieldLens EmailPTEmail
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTEmail = x} -> x) . entityVal)
(\ (Entity key_a5jmr value_a5jms) x_a5jmt
-> Entity
key_a5jmr
(case value_a5jms of
EmailPT {emailPTUser = emailPTUser_a5jmv,
emailPTVerkey = emailPTVerkey_a5jmw}
-> EmailPT
{emailPTEmail = x_a5jmt, emailPTUser = emailPTUser,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTUser
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTUser = x} -> x) . entityVal)
(\ (Entity key_a5jmr value_a5jms) x_a5jmt
-> Entity
key_a5jmr
(case value_a5jms of
EmailPT {emailPTEmail = emailPTEmail_a5jmx,
emailPTVerkey = emailPTVerkey_a5jmz}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = x_a5jmt,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTVerkey
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTVerkey = x} -> x) . entityVal)
(\ (Entity key_a5jmr value_a5jms) x_a5jmt
-> Entity
key_a5jmr
(case value_a5jms of
EmailPT {emailPTEmail = emailPTEmail_a5jmA,
emailPTUser = emailPTUser_a5jmB}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = emailPTUser,
emailPTVerkey = x_a5jmt}))
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_a5jng
= ((Entity <$> fromField_a5jng UpsertId)
<*>
((((pure Upsert <*> fromField_a5jng UpsertEmail)
<*> fromField_a5jng UpsertAttr)
<*> fromField_a5jng UpsertExtra)
<*> fromField_a5jng UpsertAge))
tabulateEntityApply fromField_a5jnf
= ((Entity <$> fromField_a5jnf UpsertId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((((Upsert <$> fromField_a5jnf UpsertEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jnf UpsertAttr)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jnf UpsertExtra)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jnf UpsertAge))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Upsert x_a5jmF x_a5jmG x_a5jmH x_a5jmI)
= [toPersistValue x_a5jmF, toPersistValue x_a5jmG,
toPersistValue x_a5jmH, toPersistValue x_a5jmI]
fromPersistValues [x1_a5jmK, x2_a5jmL, x3_a5jmM, x4_a5jmN]
= 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_a5jmK
<*>
(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_a5jmL
<*>
(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_a5jmM
<*>
(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_a5jmN
fromPersistValues x_a5jmJ
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Upsert: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jmJ))
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_a5jmO)
= [toPersistValue x_a5jmO]
persistUniqueKeys
(Upsert _email_a5jmP _attr_a5jmQ _extra_a5jmR _age_a5jmS)
= [UniqueUpsert _email_a5jmP]
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_a5jmU) key_a5jmV
-> Entity key_a5jmV value_a5jmU)
fieldLens UpsertEmail
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertEmail = x} -> x) . entityVal)
(\ (Entity key_a5jmW value_a5jmX) x_a5jmY
-> Entity
key_a5jmW
(case value_a5jmX of
Upsert {upsertAttr = upsertAttr_a5jn0,
upsertExtra = upsertExtra_a5jn1, upsertAge = upsertAge_a5jn2}
-> Upsert
{upsertEmail = x_a5jmY, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertAttr
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAttr = x} -> x) . entityVal)
(\ (Entity key_a5jmW value_a5jmX) x_a5jmY
-> Entity
key_a5jmW
(case value_a5jmX of
Upsert {upsertEmail = upsertEmail_a5jn3,
upsertExtra = upsertExtra_a5jn5, upsertAge = upsertAge_a5jn6}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = x_a5jmY,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertExtra
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertExtra = x} -> x) . entityVal)
(\ (Entity key_a5jmW value_a5jmX) x_a5jmY
-> Entity
key_a5jmW
(case value_a5jmX of
Upsert {upsertEmail = upsertEmail_a5jn7,
upsertAttr = upsertAttr_a5jn8, upsertAge = upsertAge_a5jna}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = x_a5jmY, upsertAge = upsertAge}))
fieldLens UpsertAge
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAge = x} -> x) . entityVal)
(\ (Entity key_a5jmW value_a5jmX) x_a5jmY
-> Entity
key_a5jmW
(case value_a5jmX of
Upsert {upsertEmail = upsertEmail_a5jnb,
upsertAttr = upsertAttr_a5jnc, upsertExtra = upsertExtra_a5jnd}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = x_a5jmY}))
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_a5jnJ
= ((Entity <$> fromField_a5jnJ UpsertById)
<*>
(((pure UpsertBy <*> fromField_a5jnJ UpsertByEmail)
<*> fromField_a5jnJ UpsertByCity)
<*> fromField_a5jnJ UpsertByAttr))
tabulateEntityApply fromField_a5jnI
= ((Entity <$> fromField_a5jnI UpsertById)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((UpsertBy <$> fromField_a5jnI UpsertByEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jnI UpsertByCity)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jnI UpsertByAttr))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UpsertBy x_a5jnh x_a5jni x_a5jnj)
= [toPersistValue x_a5jnh, toPersistValue x_a5jni,
toPersistValue x_a5jnj]
fromPersistValues [x1_a5jnl, x2_a5jnm, x3_a5jnn]
= 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_a5jnl
<*>
(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_a5jnm
<*>
(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_a5jnn
fromPersistValues x_a5jnk
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UpsertBy: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a5jnk))
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_a5jno)
= [toPersistValue x_a5jno]
persistUniqueToValues (UniqueUpsertByCity x_a5jnp)
= [toPersistValue x_a5jnp]
persistUniqueKeys (UpsertBy _email_a5jnq _city_a5jnr _attr_a5jns)
= [UniqueUpsertBy _email_a5jnq, UniqueUpsertByCity _city_a5jnr]
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_a5jnu) key_a5jnv
-> Entity key_a5jnv value_a5jnu)
fieldLens UpsertByEmail
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByEmail = x} -> x) . entityVal)
(\ (Entity key_a5jnw value_a5jnx) x_a5jny
-> Entity
key_a5jnw
(case value_a5jnx of
UpsertBy {upsertByCity = upsertByCity_a5jnA,
upsertByAttr = upsertByAttr_a5jnB}
-> UpsertBy
{upsertByEmail = x_a5jny, upsertByCity = upsertByCity,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByCity
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByCity = x} -> x) . entityVal)
(\ (Entity key_a5jnw value_a5jnx) x_a5jny
-> Entity
key_a5jnw
(case value_a5jnx of
UpsertBy {upsertByEmail = upsertByEmail_a5jnC,
upsertByAttr = upsertByAttr_a5jnE}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = x_a5jny,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByAttr
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByAttr = x} -> x) . entityVal)
(\ (Entity key_a5jnw value_a5jnx) x_a5jny
-> Entity
key_a5jnw
(case value_a5jnx of
UpsertBy {upsertByEmail = upsertByEmail_a5jnF,
upsertByCity = upsertByCity_a5jnG}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = upsertByCity,
upsertByAttr = x_a5jny}))
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_a5joa
= ((Entity <$> fromField_a5joa StrictId)
<*>
(((pure Strict <*> fromField_a5joa StrictYes)
<*> fromField_a5joa StrictNo)
<*> fromField_a5joa StrictDef))
tabulateEntityApply fromField_a5jo9
= ((Entity <$> fromField_a5jo9 StrictId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Strict <$> fromField_a5jo9 StrictYes)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jo9 StrictNo)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jo9 StrictDef))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Strict x_a5jnK x_a5jnL x_a5jnM)
= [toPersistValue x_a5jnK, toPersistValue x_a5jnL,
toPersistValue x_a5jnM]
fromPersistValues [x1_a5jnO, x2_a5jnP, x3_a5jnQ]
= 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_a5jnO
<*>
(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_a5jnP
<*>
(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_a5jnQ
fromPersistValues x_a5jnN
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Strict: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jnN))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Strict _yes_a5jnR _no_a5jnS _def_a5jnT) = []
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_a5jnV) key_a5jnW
-> Entity key_a5jnW value_a5jnV)
fieldLens StrictYes
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictYes = x} -> x) . entityVal)
(\ (Entity key_a5jnX value_a5jnY) x_a5jnZ
-> Entity
key_a5jnX
(case value_a5jnY of
Strict {strictNo = strictNo_a5jo1, strictDef = strictDef_a5jo2}
-> Strict
{strictYes = x_a5jnZ, strictNo = strictNo, strictDef = strictDef}))
fieldLens StrictNo
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictNo = x} -> x) . entityVal)
(\ (Entity key_a5jnX value_a5jnY) x_a5jnZ
-> Entity
key_a5jnX
(case value_a5jnY of
Strict {strictYes = strictYes_a5jo3, strictDef = strictDef_a5jo5}
-> Strict
{strictYes = strictYes, strictNo = x_a5jnZ,
strictDef = strictDef}))
fieldLens StrictDef
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictDef = x} -> x) . entityVal)
(\ (Entity key_a5jnX value_a5jnY) x_a5jnZ
-> Entity
key_a5jnX
(case value_a5jnY of
Strict {strictYes = strictYes_a5jo6, strictNo = strictNo_a5jo7}
-> Strict
{strictYes = strictYes, strictNo = strictNo, strictDef = x_a5jnZ}))
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_a5joo
= ((Entity <$> fromField_a5joo DudeWeirdColumnsId)
<*>
(pure DudeWeirdColumns <*> fromField_a5joo DudeWeirdColumnsName))
tabulateEntityApply fromField_a5jon
= ((Entity <$> fromField_a5jon DudeWeirdColumnsId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(DudeWeirdColumns <$> fromField_a5jon DudeWeirdColumnsName))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (DudeWeirdColumns x_a5job)
= [toPersistValue x_a5job]
fromPersistValues [x1_a5jod]
= 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_a5jod
fromPersistValues x_a5joc
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"DudeWeirdColumns: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 47#))
(Data.Text.Internal.pack $ show x_a5joc))
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_a5joe)
= [toPersistValue x_a5joe]
persistUniqueKeys (DudeWeirdColumns _name_a5jof)
= [UniqueName _name_a5jof]
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_a5joh) key_a5joi
-> Entity key_a5joi value_a5joh)
fieldLens DudeWeirdColumnsName
= Database.Persist.TH.Internal.lensPTH
((\ DudeWeirdColumns {dudeWeirdColumnsName = x} -> x) . entityVal)
(\ (Entity key_a5joj value_a5jok) x_a5jol
-> Entity
key_a5joj
(case value_a5jok of
DudeWeirdColumns {}
-> DudeWeirdColumns {dudeWeirdColumnsName = x_a5jol}))
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_a5joH
= ((Entity <$> fromField_a5joH RelationshipId)
<*>
((pure Relationship <*> fromField_a5joH RelationshipName)
<*> fromField_a5joH RelationshipParent))
tabulateEntityApply fromField_a5joG
= ((Entity <$> fromField_a5joG RelationshipId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Relationship <$> fromField_a5joG RelationshipName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5joG RelationshipParent))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Relationship x_a5jop x_a5joq)
= [toPersistValue x_a5jop, toPersistValue x_a5joq]
fromPersistValues [x1_a5jos, x2_a5jot]
= 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_a5jos
<*>
(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_a5jot
fromPersistValues x_a5jor
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Relationship: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 43#))
(Data.Text.Internal.pack $ show x_a5jor))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Relationship _name_a5jou _parent_a5jov) = []
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_a5jox) key_a5joy
-> Entity key_a5joy value_a5jox)
fieldLens RelationshipName
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipName = x} -> x) . entityVal)
(\ (Entity key_a5joz value_a5joA) x_a5joB
-> Entity
key_a5joz
(case value_a5joA of
Relationship {relationshipParent = relationshipParent_a5joD}
-> Relationship
{relationshipName = x_a5joB,
relationshipParent = relationshipParent}))
fieldLens RelationshipParent
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipParent = x} -> x) . entityVal)
(\ (Entity key_a5joz value_a5joA) x_a5joB
-> Entity
key_a5joz
(case value_a5joA of
Relationship {relationshipName = relationshipName_a5joE}
-> Relationship
{relationshipName = relationshipName,
relationshipParent = x_a5joB}))
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_a5joU
= ((Entity <$> fromField_a5joU MutAId)
<*> (pure MutA <*> fromField_a5joU MutAMutB))
tabulateEntityApply fromField_a5joT
= ((Entity <$> fromField_a5joT MutAId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(MutA <$> fromField_a5joT MutAMutB))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutA x_a5joI) = [toPersistValue x_a5joI]
fromPersistValues [x1_a5joK]
= 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_a5joK
fromPersistValues x_a5joJ
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutA: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a5joJ))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutA _mutB_a5joL) = []
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_a5joN) key_a5joO
-> Entity key_a5joO value_a5joN)
fieldLens MutAMutB
= Database.Persist.TH.Internal.lensPTH
((\ MutA {mutAMutB = x} -> x) . entityVal)
(\ (Entity key_a5joP value_a5joQ) x_a5joR
-> Entity
key_a5joP
(case value_a5joQ of MutA {} -> MutA {mutAMutB = x_a5joR}))
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_a5jp7
= ((Entity <$> fromField_a5jp7 MutBId)
<*> (pure MutB <*> fromField_a5jp7 MutBMutA))
tabulateEntityApply fromField_a5jp6
= ((Entity <$> fromField_a5jp6 MutBId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(MutB <$> fromField_a5jp6 MutBMutA))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutB x_a5joV) = [toPersistValue x_a5joV]
fromPersistValues [x1_a5joX]
= 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_a5joX
fromPersistValues x_a5joW
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutB: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a5joW))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutB _mutA_a5joY) = []
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_a5jp0) key_a5jp1
-> Entity key_a5jp1 value_a5jp0)
fieldLens MutBMutA
= Database.Persist.TH.Internal.lensPTH
((\ MutB {mutBMutA = x} -> x) . entityVal)
(\ (Entity key_a5jp2 value_a5jp3) x_a5jp4
-> Entity
key_a5jp2
(case value_a5jp3 of MutB {} -> MutB {mutBMutA = x_a5jp4}))
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_a5jp9 age_a5jpa color_a5jpb)
= object
[(Data.Aeson.Key.fromString "name" .= name_a5jp9),
(Data.Aeson.Key.fromString "age" .= age_a5jpa),
(Data.Aeson.Key.fromString "color" .= color_a5jpb)]
instance PersistStore backend =>
FromJSON (PersonGeneric backend) where
parseJSON
= withObject
"Person"
(\ obj_a5jp8
-> (((pure Person
<*> (obj_a5jp8 .: Data.Aeson.Key.fromString "name"))
<*> (obj_a5jp8 .: Data.Aeson.Key.fromString "age"))
<*> (obj_a5jp8 .:? 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_a5jpd color_a5jpe)
= object
[(Data.Aeson.Key.fromString "name" .= name_a5jpd),
(Data.Aeson.Key.fromString "color" .= color_a5jpe)]
instance PersistStore backend =>
FromJSON (PersonMayGeneric backend) where
parseJSON
= withObject
"PersonMay"
(\ obj_a5jpc
-> ((pure PersonMay
<*> (obj_a5jpc .:? Data.Aeson.Key.fromString "name"))
<*> (obj_a5jpc .:? 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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a5wSc
= ((Entity <$> fromField_a5wSc NoPrefix1Id)
<*> (pure NoPrefix1 <*> fromField_a5wSc SomeFieldName))
tabulateEntityApply fromField_a5wSb
= ((Entity <$> fromField_a5wSb NoPrefix1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(NoPrefix1 <$> fromField_a5wSb SomeFieldName))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix1 x_a5wS0) = [toPersistValue x_a5wS0]
fromPersistValues [x1_a5wS2]
= 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_a5wS2
fromPersistValues x_a5wS1
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a5wS1))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NoPrefix1 _someFieldName_a5wS3) = []
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_a5wS5) key_a5wS6
-> Entity key_a5wS6 value_a5wS5)
fieldLens SomeFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix1 {someFieldName = x} -> x) . entityVal)
(\ (Entity key_a5wS7 value_a5wS8) x_a5wS9
-> Entity
key_a5wS7
(case value_a5wS8 of
NoPrefix1 {} -> NoPrefix1 {someFieldName = x_a5wS9}))
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_a5wSv
= ((Entity <$> fromField_a5wSv NoPrefix2Id)
<*>
((pure NoPrefix2 <*> fromField_a5wSv SomeOtherFieldName)
<*> fromField_a5wSv UnprefixedRef))
tabulateEntityApply fromField_a5wSu
= ((Entity <$> fromField_a5wSu NoPrefix2Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((NoPrefix2 <$> fromField_a5wSu SomeOtherFieldName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5wSu UnprefixedRef))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix2 x_a5wSd x_a5wSe)
= [toPersistValue x_a5wSd, toPersistValue x_a5wSe]
fromPersistValues [x1_a5wSg, x2_a5wSh]
= 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_a5wSg
<*>
(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_a5wSh
fromPersistValues x_a5wSf
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a5wSf))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(NoPrefix2 _someOtherFieldName_a5wSi _unprefixedRef_a5wSj)
= []
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_a5wSl) key_a5wSm
-> Entity key_a5wSm value_a5wSl)
fieldLens SomeOtherFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {someOtherFieldName = x} -> x) . entityVal)
(\ (Entity key_a5wSn value_a5wSo) x_a5wSp
-> Entity
key_a5wSn
(case value_a5wSo of
NoPrefix2 {unprefixedRef = unprefixedRef_a5wSr}
-> NoPrefix2
{someOtherFieldName = x_a5wSp, unprefixedRef = unprefixedRef}))
fieldLens UnprefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {unprefixedRef = x} -> x) . entityVal)
(\ (Entity key_a5wSn value_a5wSo) x_a5wSp
-> Entity
key_a5wSn
(case value_a5wSo of
NoPrefix2 {someOtherFieldName = someOtherFieldName_a5wSs}
-> NoPrefix2
{someOtherFieldName = someOtherFieldName,
unprefixedRef = x_a5wSp}))
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_a5wSH
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a5wSG
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UnprefixedLeftSum x_a5wSw)
= [toPersistValue x_a5wSw, PersistNull]
toPersistFields (UnprefixedRightSum x_a5wSx)
= [PersistNull, toPersistValue x_a5wSx]
fromPersistValues [x_a5wSy, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a5wSy
= (UnprefixedLeftSum `fmap` fromPersistValue x_a5wSy)
fromPersistValues [PersistNull, x_a5wSz]
| Database.Persist.TH.Internal.isNotNull x_a5wSz
= (UnprefixedRightSum `fmap` fromPersistValue x_a5wSz)
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_a5wSB) key_a5wSC
-> Entity key_a5wSC value_a5wSB)
fieldLens UnprefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5wSE)
-> case value_a5wSE of
UnprefixedLeftSum x_a5wSF -> x_a5wSF
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5wSD _) x_a5wSF
-> Entity key_a5wSD (UnprefixedLeftSum x_a5wSF))
fieldLens UnprefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5wSE)
-> case value_a5wSE of
UnprefixedRightSum x_a5wSF -> x_a5wSF
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5wSD _) x_a5wSF
-> Entity key_a5wSD (UnprefixedRightSum x_a5wSF))
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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a5z2f field_a5z2g
-> case entity_a5z2f of
"CustomPrefix1" -> append "_cp1" field_a5z2g
"CustomPrefix2" -> append "_cp2" field_a5z2g
_ -> error "should not be called",
mpsConstraintLabelModifier = \ entity_a5z2h field_a5z2i
-> case entity_a5z2h of
"CustomPrefix1" -> append "CP1" field_a5z2i
"CustomPrefix2" -> append "CP2" field_a5z2i
"CustomPrefixSum" -> append "CP" field_a5z2i
_ -> 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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a5zlL
= ((Entity <$> fromField_a5zlL CustomPrefix1Id)
<*> (pure CustomPrefix1 <*> fromField_a5zlL CP1CustomFieldName))
tabulateEntityApply fromField_a5zlK
= ((Entity <$> fromField_a5zlK CustomPrefix1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(CustomPrefix1 <$> fromField_a5zlK CP1CustomFieldName))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix1 x_a5zlz) = [toPersistValue x_a5zlz]
fromPersistValues [x1_a5zlB]
= 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_a5zlB
fromPersistValues x_a5zlA
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a5zlA))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (CustomPrefix1 _customFieldName_a5zlC) = []
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_a5zlE) key_a5zlF
-> Entity key_a5zlF value_a5zlE)
fieldLens CP1CustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix1 {_cp1CustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a5zlG value_a5zlH) x_a5zlI
-> Entity
key_a5zlG
(case value_a5zlH of
CustomPrefix1 {} -> CustomPrefix1 {_cp1CustomFieldName = x_a5zlI}))
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_a5zm4
= ((Entity <$> fromField_a5zm4 CustomPrefix2Id)
<*>
((pure CustomPrefix2 <*> fromField_a5zm4 CP2OtherCustomFieldName)
<*> fromField_a5zm4 CP2CustomPrefixedRef))
tabulateEntityApply fromField_a5zm3
= ((Entity <$> fromField_a5zm3 CustomPrefix2Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((CustomPrefix2 <$> fromField_a5zm3 CP2OtherCustomFieldName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5zm3 CP2CustomPrefixedRef))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix2 x_a5zlM x_a5zlN)
= [toPersistValue x_a5zlM, toPersistValue x_a5zlN]
fromPersistValues [x1_a5zlP, x2_a5zlQ]
= 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_a5zlP
<*>
(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_a5zlQ
fromPersistValues x_a5zlO
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a5zlO))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(CustomPrefix2 _otherCustomFieldName_a5zlR
_customPrefixedRef_a5zlS)
= []
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_a5zlU) key_a5zlV
-> Entity key_a5zlV value_a5zlU)
fieldLens CP2OtherCustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2OtherCustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a5zlW value_a5zlX) x_a5zlY
-> Entity
key_a5zlW
(case value_a5zlX of
CustomPrefix2 {_cp2CustomPrefixedRef = _cp2CustomPrefixedRef_a5zm0}
-> CustomPrefix2
{_cp2OtherCustomFieldName = x_a5zlY,
_cp2CustomPrefixedRef = _cp2CustomPrefixedRef}))
fieldLens CP2CustomPrefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2CustomPrefixedRef = x} -> x) . entityVal)
(\ (Entity key_a5zlW value_a5zlX) x_a5zlY
-> Entity
key_a5zlW
(case value_a5zlX of
CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName_a5zm1}
-> CustomPrefix2
{_cp2OtherCustomFieldName = _cp2OtherCustomFieldName,
_cp2CustomPrefixedRef = x_a5zlY}))
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_a5zmg
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a5zmf
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CPCustomPrefixedLeftSum x_a5zm5)
= [toPersistValue x_a5zm5, PersistNull]
toPersistFields (CPCustomPrefixedRightSum x_a5zm6)
= [PersistNull, toPersistValue x_a5zm6]
fromPersistValues [x_a5zm7, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a5zm7
= (CPCustomPrefixedLeftSum `fmap` fromPersistValue x_a5zm7)
fromPersistValues [PersistNull, x_a5zm8]
| Database.Persist.TH.Internal.isNotNull x_a5zm8
= (CPCustomPrefixedRightSum `fmap` fromPersistValue x_a5zm8)
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_a5zma) key_a5zmb
-> Entity key_a5zmb value_a5zma)
fieldLens CPCustomPrefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5zmd)
-> case value_a5zmd of
CPCustomPrefixedLeftSum x_a5zme -> x_a5zme
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5zmc _) x_a5zme
-> Entity key_a5zmc (CPCustomPrefixedLeftSum x_a5zme))
fieldLens CPCustomPrefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5zmd)
-> case value_a5zmd of
CPCustomPrefixedRightSum x_a5zme -> x_a5zme
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5zmc _) x_a5zme
-> Entity key_a5zmc (CPCustomPrefixedRightSum x_a5zme))
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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a5BFM
= fmap
TreeKey
(ghc-prim:GHC.Prim.coerce
(parent record_mkForeignKeysComposite_a5BFM))
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_a5BFN
= [toPersistValue ((\ TreeKey {unTreeKey = x} -> x) record_a5BFN)]
keyFromValues [x1_a5BFP]
= 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_a5BFP
keyFromValues x_a5BFO
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: keyFromValues failed on: "# (ghc-prim:GHC.Types.I# 31#))
(Data.Text.Internal.pack $ show x_a5BFO))
keyFromRecordM
= Just (\ Tree {name = name_a5BFZ} -> TreeKey name_a5BFZ)
tabulateEntityA fromField_a5BG1
= ((Entity <$> fromField_a5BG1 TreeId)
<*>
((pure Tree <*> fromField_a5BG1 Name) <*> fromField_a5BG1 Parent))
tabulateEntityApply fromField_a5BG0
= ((Entity <$> fromField_a5BG0 TreeId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Tree <$> fromField_a5BG0 Name)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5BG0 Parent))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a5BFE x_a5BFF)
= [toPersistValue x_a5BFE, toPersistValue x_a5BFF]
fromPersistValues [x1_a5BFH, x2_a5BFI]
= 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_a5BFH
<*>
(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_a5BFI
fromPersistValues x_a5BFG
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a5BFG))
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_a5BFJ)
= [toPersistValue x_a5BFJ]
persistUniqueKeys (Tree _name_a5BFK _parent_a5BFL)
= [TreePrimaryKey _name_a5BFK]
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_a5BFQ) key_a5BFR
-> Entity key_a5BFR value_a5BFQ)
fieldLens Name
= Database.Persist.TH.Internal.lensPTH
((\ Tree {name = x} -> x) . entityVal)
(\ (Entity key_a5BFS value_a5BFT) x_a5BFU
-> Entity
key_a5BFS
(case value_a5BFT of
Tree {parent = parent_a5BFW}
-> Tree {name = x_a5BFU, parent = parent}))
fieldLens Parent
= Database.Persist.TH.Internal.lensPTH
((\ Tree {parent = x} -> x) . entityVal)
(\ (Entity key_a5BFS value_a5BFT) x_a5BFU
-> Entity
key_a5BFS
(case value_a5BFT of
Tree {name = name_a5BFX} -> Tree {name = name, parent = x_a5BFU}))
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:11:36: 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 | share [mkPersist persistSettings { mpsGeneric = False }, mkMigrate "migration"] [persistLowerCase|
| ^^^^^^^^^^
[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: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"
|
10 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "recursiveMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[35 of 41] Compiling RenameTest ( src/RenameTest.hs, dist/build/RenameTest.o, dist/build/RenameTest.dyn_o )
src/RenameTest.hs:16: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"
|
16 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "migration"] [persistLowerCase|
| ^^^^^^^^^^
[36 of 41] Compiling SumTypeTest ( src/SumTypeTest.hs, dist/build/SumTypeTest.o, dist/build/SumTypeTest.dyn_o )
src/SumTypeTest.hs:12: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
|
12 | share [mkPersist persistSettings { mpsGeneric = True }, mkMigrate "sumTypeMigrate"] [persistLowerCase|
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
src/SumTypeTest.hs:12:36: 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 | share [mkPersist persistSettings { mpsGeneric = True }, mkMigrate "sumTypeMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[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:12:35: 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 }
| ^^^^^^^^^^
[39 of 41] Compiling TypeLitFieldDefsTest ( src/TypeLitFieldDefsTest.hs, dist/build/TypeLitFieldDefsTest.o, dist/build/TypeLitFieldDefsTest.dyn_o )
src/TypeLitFieldDefsTest.hs:33: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"
|
33 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "typeLitFieldDefsMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[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.0..
Running Haddock on library for persistent-test-2.13.2.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 41] Compiling Init ( src/Init.hs, /tmp/ghc1183116_0/ghc_10.o, /tmp/ghc1183116_0/ghc_10.dyn_o )
src/Init.hs:160:33: 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"
|
160 | persistSettings = sqlSettings { mpsGeneric = True }
| ^^^^^^^^^^
[ 2 of 41] Compiling HtmlTest ( src/HtmlTest.hs, nothing )
src/HtmlTest.hs:15:36: 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 | share [mkPersist persistSettings { mpsGeneric = True }, mkMigrate "htmlMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[ 3 of 41] Compiling GeneratedColumnTestSQL ( src/GeneratedColumnTestSQL.hs, nothing )
[ 4 of 41] Compiling ForeignKey ( src/ForeignKey.hs, nothing )
src/ForeignKey.hs:15:36: 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 | share [mkPersist persistSettings { mpsGeneric = False }, mkMigrate "compositeMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[ 5 of 41] Compiling EquivalentTypeTest ( src/EquivalentTypeTest.hs, nothing )
[ 6 of 41] Compiling EntityEmbedTest ( src/EntityEmbedTest.hs, /tmp/ghc1183116_0/ghc_8.o, /tmp/ghc1183116_0/ghc_8.dyn_o )
src/EntityEmbedTest.hs:9: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"
|
9 | mkPersist persistSettings { mpsGeneric = True } [persistUpperCase|
| ^^^^^^^^^^
[ 7 of 41] Compiling EmptyEntityTest ( src/EmptyEntityTest.hs, nothing )
src/EmptyEntityTest.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 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "migration"] [persistLowerCase|
| ^^^^^^^^^^
[ 8 of 41] Compiling EmbedTest ( src/EmbedTest.hs, nothing )
src/EmbedTest.hs:32: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"
|
32 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "embedMigrate"] [persistUpperCase|
| ^^^^^^^^^^
[ 9 of 41] Compiling EmbedOrderTest ( src/EmbedOrderTest.hs, nothing )
src/EmbedOrderTest.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 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "embedOrderMigrate"] [persistUpperCase|
| ^^^^^^^^^^
[10 of 41] Compiling DataTypeTest ( src/DataTypeTest.hs, nothing )
[11 of 41] Compiling CustomPrimaryKeyReferenceTest ( src/CustomPrimaryKeyReferenceTest.hs, nothing )
src/CustomPrimaryKeyReferenceTest.hs:11:36: 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 | share [mkPersist persistSettings { mpsGeneric = False }, mkMigrate "migration"] [persistLowerCase|
| ^^^^^^^^^^
[12 of 41] Compiling CustomPersistField ( src/CustomPersistField.hs, /tmp/ghc1183116_0/ghc_6.o, /tmp/ghc1183116_0/ghc_6.dyn_o )
[13 of 41] Compiling CustomPersistFieldTest ( src/CustomPersistFieldTest.hs, nothing )
src/CustomPersistFieldTest.hs:9: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"
|
9 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "customFieldMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[14 of 41] Compiling CompositeTest ( src/CompositeTest.hs, nothing )
src/CompositeTest.hs:15:36: 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 | share [mkPersist persistSettings { mpsGeneric = False }, mkMigrate "compositeMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[15 of 41] Compiling LargeNumberTest ( src/LargeNumberTest.hs, nothing )
src/LargeNumberTest.hs:9: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"
|
9 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "numberMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[16 of 41] Compiling LongIdentifierTest ( src/LongIdentifierTest.hs, nothing )
[17 of 41] Compiling MaxLenTest ( src/MaxLenTest.hs, nothing )
src/MaxLenTest.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 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "maxlenMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[18 of 41] Compiling MaybeFieldDefsTest ( src/MaybeFieldDefsTest.hs, nothing )
src/MaybeFieldDefsTest.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 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "maybeFieldDefMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[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: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 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "migrateAll1"] [persistLowerCase|
| ^^^^^^^^^^
src/MigrationOnlyTest.hs:21: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"
|
21 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "migrateAll2"] [persistLowerCase|
| ^^^^^^^^^^
[22 of 41] Compiling MigrationTest ( src/MigrationTest.hs, nothing )
[23 of 41] Compiling PersistTestPetCollarType ( src/PersistTestPetCollarType.hs, /tmp/ghc1183116_0/ghc_12.o, /tmp/ghc1183116_0/ghc_12.dyn_o )
[24 of 41] Compiling PersistTestPetType ( src/PersistTestPetType.hs, /tmp/ghc1183116_0/ghc_14.o, /tmp/ghc1183116_0/ghc_14.dyn_o )
[25 of 41] Compiling PersistUniqueTest ( src/PersistUniqueTest.hs, nothing )
src/PersistUniqueTest.hs:9:36: 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"
|
9 | share [mkPersist persistSettings { mpsGeneric = False }, mkMigrate "migration"] [persistLowerCase|
| ^^^^^^^^^^
[26 of 41] Compiling PersistentTestModelsImports ( src/PersistentTestModelsImports.hs, /tmp/ghc1183116_0/ghc_18.o, /tmp/ghc1183116_0/ghc_18.dyn_o )
[27 of 41] Compiling PersistentTestModels ( src/PersistentTestModels.hs, /tmp/ghc1183116_0/ghc_16.o, /tmp/ghc1183116_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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a1GEr
= ((Entity <$> fromField_a1GEr PersonId)
<*>
(((pure Person <*> fromField_a1GEr PersonName)
<*> fromField_a1GEr PersonAge)
<*> fromField_a1GEr PersonColor))
tabulateEntityApply fromField_a1GEq
= ((Entity <$> fromField_a1GEq PersonId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Person <$> fromField_a1GEq PersonName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GEq PersonAge)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GEq PersonColor))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person x_a1GE0 x_a1GE1 x_a1GE2)
= [toPersistValue x_a1GE0, toPersistValue x_a1GE1,
toPersistValue x_a1GE2]
fromPersistValues [x1_a1GE4, x2_a1GE5, x3_a1GE6]
= 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_a1GE4
<*>
(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_a1GE5
<*>
(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_a1GE6
fromPersistValues x_a1GE3
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GE3))
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_a1GE7)
= [toPersistValue x_a1GE7]
persistUniqueKeys (Person _name_a1GE8 _age_a1GE9 _color_a1GEa)
= [PersonNameKey _name_a1GE8]
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_a1GEc) key_a1GEd
-> Entity key_a1GEd value_a1GEc)
fieldLens PersonName
= Database.Persist.TH.Internal.lensPTH
((\ Person {personName = x} -> x) . entityVal)
(\ (Entity key_a1GEe value_a1GEf) x_a1GEg
-> Entity
key_a1GEe
(case value_a1GEf of
Person {personAge = personAge_a1GEi,
personColor = personColor_a1GEj}
-> Person
{personName = x_a1GEg, personAge = personAge,
personColor = personColor}))
fieldLens PersonAge
= Database.Persist.TH.Internal.lensPTH
((\ Person {personAge = x} -> x) . entityVal)
(\ (Entity key_a1GEe value_a1GEf) x_a1GEg
-> Entity
key_a1GEe
(case value_a1GEf of
Person {personName = personName_a1GEk,
personColor = personColor_a1GEm}
-> Person
{personName = personName, personAge = x_a1GEg,
personColor = personColor}))
fieldLens PersonColor
= Database.Persist.TH.Internal.lensPTH
((\ Person {personColor = x} -> x) . entityVal)
(\ (Entity key_a1GEe value_a1GEf) x_a1GEg
-> Entity
key_a1GEe
(case value_a1GEf of
Person {personName = personName_a1GEn, personAge = personAge_a1GEo}
-> Person
{personName = personName, personAge = personAge,
personColor = x_a1GEg}))
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_a1GEK
= ((Entity <$> fromField_a1GEK Person1Id)
<*>
((pure Person1 <*> fromField_a1GEK Person1Name)
<*> fromField_a1GEK Person1Age))
tabulateEntityApply fromField_a1GEJ
= ((Entity <$> fromField_a1GEJ Person1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Person1 <$> fromField_a1GEJ Person1Name)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GEJ Person1Age))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person1 x_a1GEs x_a1GEt)
= [toPersistValue x_a1GEs, toPersistValue x_a1GEt]
fromPersistValues [x1_a1GEv, x2_a1GEw]
= 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_a1GEv
<*>
(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_a1GEw
fromPersistValues x_a1GEu
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a1GEu))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Person1 _name_a1GEx _age_a1GEy) = []
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_a1GEA) key_a1GEB
-> Entity key_a1GEB value_a1GEA)
fieldLens Person1Name
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Name = x} -> x) . entityVal)
(\ (Entity key_a1GEC value_a1GED) x_a1GEE
-> Entity
key_a1GEC
(case value_a1GED of
Person1 {person1Age = person1Age_a1GEG}
-> Person1 {person1Name = x_a1GEE, person1Age = person1Age}))
fieldLens Person1Age
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Age = x} -> x) . entityVal)
(\ (Entity key_a1GEC value_a1GED) x_a1GEE
-> Entity
key_a1GEC
(case value_a1GED of
Person1 {person1Name = person1Name_a1GEH}
-> Person1 {person1Name = person1Name, person1Age = x_a1GEE}))
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_a1GF3
= ((Entity <$> fromField_a1GF3 PersonMaybeAgeId)
<*>
((pure PersonMaybeAge <*> fromField_a1GF3 PersonMaybeAgeName)
<*> fromField_a1GF3 PersonMaybeAgeAge))
tabulateEntityApply fromField_a1GF2
= ((Entity <$> fromField_a1GF2 PersonMaybeAgeId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((PersonMaybeAge <$> fromField_a1GF2 PersonMaybeAgeName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GF2 PersonMaybeAgeAge))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMaybeAge x_a1GEL x_a1GEM)
= [toPersistValue x_a1GEL, toPersistValue x_a1GEM]
fromPersistValues [x1_a1GEO, x2_a1GEP]
= 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_a1GEO
<*>
(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_a1GEP
fromPersistValues x_a1GEN
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMaybeAge: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 45#))
(Data.Text.Internal.pack $ show x_a1GEN))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMaybeAge _name_a1GEQ _age_a1GER) = []
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_a1GET) key_a1GEU
-> Entity key_a1GEU value_a1GET)
fieldLens PersonMaybeAgeName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeName = x} -> x) . entityVal)
(\ (Entity key_a1GEV value_a1GEW) x_a1GEX
-> Entity
key_a1GEV
(case value_a1GEW of
PersonMaybeAge {personMaybeAgeAge = personMaybeAgeAge_a1GEZ}
-> PersonMaybeAge
{personMaybeAgeName = x_a1GEX,
personMaybeAgeAge = personMaybeAgeAge}))
fieldLens PersonMaybeAgeAge
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeAge = x} -> x) . entityVal)
(\ (Entity key_a1GEV value_a1GEW) x_a1GEX
-> Entity
key_a1GEV
(case value_a1GEW of
PersonMaybeAge {personMaybeAgeName = personMaybeAgeName_a1GF0}
-> PersonMaybeAge
{personMaybeAgeName = personMaybeAgeName,
personMaybeAgeAge = x_a1GEX}))
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_a1GFm
= ((Entity <$> fromField_a1GFm PersonMayId)
<*>
((pure PersonMay <*> fromField_a1GFm PersonMayName)
<*> fromField_a1GFm PersonMayColor))
tabulateEntityApply fromField_a1GFl
= ((Entity <$> fromField_a1GFl PersonMayId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((PersonMay <$> fromField_a1GFl PersonMayName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GFl PersonMayColor))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMay x_a1GF4 x_a1GF5)
= [toPersistValue x_a1GF4, toPersistValue x_a1GF5]
fromPersistValues [x1_a1GF7, x2_a1GF8]
= 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_a1GF7
<*>
(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_a1GF8
fromPersistValues x_a1GF6
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMay: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a1GF6))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMay _name_a1GF9 _color_a1GFa) = []
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_a1GFc) key_a1GFd
-> Entity key_a1GFd value_a1GFc)
fieldLens PersonMayName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayName = x} -> x) . entityVal)
(\ (Entity key_a1GFe value_a1GFf) x_a1GFg
-> Entity
key_a1GFe
(case value_a1GFf of
PersonMay {personMayColor = personMayColor_a1GFi}
-> PersonMay
{personMayName = x_a1GFg, personMayColor = personMayColor}))
fieldLens PersonMayColor
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayColor = x} -> x) . entityVal)
(\ (Entity key_a1GFe value_a1GFf) x_a1GFg
-> Entity
key_a1GFe
(case value_a1GFf of
PersonMay {personMayName = personMayName_a1GFj}
-> PersonMay
{personMayName = personMayName, personMayColor = x_a1GFg}))
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_a1GFN
= ((Entity <$> fromField_a1GFN PetId)
<*>
(((pure Pet <*> fromField_a1GFN PetOwnerId)
<*> fromField_a1GFN PetName)
<*> fromField_a1GFN PetType))
tabulateEntityApply fromField_a1GFM
= ((Entity <$> fromField_a1GFM PetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Pet <$> fromField_a1GFM PetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GFM PetName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GFM PetType))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Pet x_a1GFn x_a1GFo x_a1GFp)
= [toPersistValue x_a1GFn, toPersistValue x_a1GFo,
toPersistValue x_a1GFp]
fromPersistValues [x1_a1GFr, x2_a1GFs, x3_a1GFt]
= 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_a1GFr
<*>
(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_a1GFs
<*>
(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_a1GFt
fromPersistValues x_a1GFq
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Pet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 34#))
(Data.Text.Internal.pack $ show x_a1GFq))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Pet _ownerId_a1GFu _name_a1GFv _type_a1GFw) = []
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_a1GFy) key_a1GFz
-> Entity key_a1GFz value_a1GFy)
fieldLens PetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petOwnerId = x} -> x) . entityVal)
(\ (Entity key_a1GFA value_a1GFB) x_a1GFC
-> Entity
key_a1GFA
(case value_a1GFB of
Pet {petName = petName_a1GFE, petType = petType_a1GFF}
-> Pet
{petOwnerId = x_a1GFC, petName = petName, petType = petType}))
fieldLens PetName
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petName = x} -> x) . entityVal)
(\ (Entity key_a1GFA value_a1GFB) x_a1GFC
-> Entity
key_a1GFA
(case value_a1GFB of
Pet {petOwnerId = petOwnerId_a1GFG, petType = petType_a1GFI}
-> Pet
{petOwnerId = petOwnerId, petName = x_a1GFC, petType = petType}))
fieldLens PetType
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petType = x} -> x) . entityVal)
(\ (Entity key_a1GFA value_a1GFB) x_a1GFC
-> Entity
key_a1GFA
(case value_a1GFB of
Pet {petOwnerId = petOwnerId_a1GFJ, petName = petName_a1GFK}
-> Pet
{petOwnerId = petOwnerId, petName = petName, petType = x_a1GFC}))
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_a1GGe
= ((Entity <$> fromField_a1GGe MaybeOwnedPetId)
<*>
(((pure MaybeOwnedPet <*> fromField_a1GGe MaybeOwnedPetOwnerId)
<*> fromField_a1GGe MaybeOwnedPetName)
<*> fromField_a1GGe MaybeOwnedPetType))
tabulateEntityApply fromField_a1GGd
= ((Entity <$> fromField_a1GGd MaybeOwnedPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((MaybeOwnedPet <$> fromField_a1GGd MaybeOwnedPetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GGd MaybeOwnedPetName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GGd MaybeOwnedPetType))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MaybeOwnedPet x_a1GFO x_a1GFP x_a1GFQ)
= [toPersistValue x_a1GFO, toPersistValue x_a1GFP,
toPersistValue x_a1GFQ]
fromPersistValues [x1_a1GFS, x2_a1GFT, x3_a1GFU]
= 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_a1GFS
<*>
(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_a1GFT
<*>
(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_a1GFU
fromPersistValues x_a1GFR
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MaybeOwnedPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a1GFR))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(MaybeOwnedPet _ownerId_a1GFV _name_a1GFW _type_a1GFX)
= []
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_a1GFZ) key_a1GG0
-> Entity key_a1GG0 value_a1GFZ)
fieldLens MaybeOwnedPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a1GG1 value_a1GG2) x_a1GG3
-> Entity
key_a1GG1
(case value_a1GG2 of
MaybeOwnedPet {maybeOwnedPetName = maybeOwnedPetName_a1GG5,
maybeOwnedPetType = maybeOwnedPetType_a1GG6}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = x_a1GG3,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetName
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetName = x} -> x) . entityVal)
(\ (Entity key_a1GG1 value_a1GG2) x_a1GG3
-> Entity
key_a1GG1
(case value_a1GG2 of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a1GG7,
maybeOwnedPetType = maybeOwnedPetType_a1GG9}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = x_a1GG3,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetType
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetType = x} -> x) . entityVal)
(\ (Entity key_a1GG1 value_a1GG2) x_a1GG3
-> Entity
key_a1GG1
(case value_a1GG2 of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a1GGa,
maybeOwnedPetName = maybeOwnedPetName_a1GGb}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = x_a1GG3}))
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_a1GGr
= ((Entity <$> fromField_a1GGr NeedsPetId)
<*> (pure NeedsPet <*> fromField_a1GGr NeedsPetPetKey))
tabulateEntityApply fromField_a1GGq
= ((Entity <$> fromField_a1GGq NeedsPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(NeedsPet <$> fromField_a1GGq NeedsPetPetKey))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NeedsPet x_a1GGf) = [toPersistValue x_a1GGf]
fromPersistValues [x1_a1GGh]
= 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_a1GGh
fromPersistValues x_a1GGg
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NeedsPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a1GGg))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NeedsPet _petKey_a1GGi) = []
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_a1GGk) key_a1GGl
-> Entity key_a1GGl value_a1GGk)
fieldLens NeedsPetPetKey
= Database.Persist.TH.Internal.lensPTH
((\ NeedsPet {needsPetPetKey = x} -> x) . entityVal)
(\ (Entity key_a1GGm value_a1GGn) x_a1GGo
-> Entity
key_a1GGm
(case value_a1GGn of
NeedsPet {} -> NeedsPet {needsPetPetKey = x_a1GGo}))
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_a1GGS
= ((Entity <$> fromField_a1GGS OutdoorPetId)
<*>
(((pure OutdoorPet <*> fromField_a1GGS OutdoorPetOwnerId)
<*> fromField_a1GGS OutdoorPetCollar)
<*> fromField_a1GGS OutdoorPetType))
tabulateEntityApply fromField_a1GGR
= ((Entity <$> fromField_a1GGR OutdoorPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((OutdoorPet <$> fromField_a1GGR OutdoorPetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GGR OutdoorPetCollar)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GGR OutdoorPetType))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (OutdoorPet x_a1GGs x_a1GGt x_a1GGu)
= [toPersistValue x_a1GGs, toPersistValue x_a1GGt,
toPersistValue x_a1GGu]
fromPersistValues [x1_a1GGw, x2_a1GGx, x3_a1GGy]
= 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_a1GGw
<*>
(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_a1GGx
<*>
(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_a1GGy
fromPersistValues x_a1GGv
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"OutdoorPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 41#))
(Data.Text.Internal.pack $ show x_a1GGv))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(OutdoorPet _ownerId_a1GGz _collar_a1GGA _type_a1GGB)
= []
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_a1GGD) key_a1GGE
-> Entity key_a1GGE value_a1GGD)
fieldLens OutdoorPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a1GGF value_a1GGG) x_a1GGH
-> Entity
key_a1GGF
(case value_a1GGG of
OutdoorPet {outdoorPetCollar = outdoorPetCollar_a1GGJ,
outdoorPetType = outdoorPetType_a1GGK}
-> OutdoorPet
{outdoorPetOwnerId = x_a1GGH, outdoorPetCollar = outdoorPetCollar,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetCollar
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetCollar = x} -> x) . entityVal)
(\ (Entity key_a1GGF value_a1GGG) x_a1GGH
-> Entity
key_a1GGF
(case value_a1GGG of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a1GGL,
outdoorPetType = outdoorPetType_a1GGN}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = x_a1GGH,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetType
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetType = x} -> x) . entityVal)
(\ (Entity key_a1GGF value_a1GGG) x_a1GGH
-> Entity
key_a1GGF
(case value_a1GGG of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a1GGO,
outdoorPetCollar = outdoorPetCollar_a1GGP}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId,
outdoorPetCollar = outdoorPetCollar, outdoorPetType = x_a1GGH}))
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_a1GHc
= ((Entity <$> fromField_a1GHc UserPTId)
<*>
((pure UserPT <*> fromField_a1GHc UserPTIdent)
<*> fromField_a1GHc UserPTPassword))
tabulateEntityApply fromField_a1GHb
= ((Entity <$> fromField_a1GHb UserPTId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((UserPT <$> fromField_a1GHb UserPTIdent)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GHb UserPTPassword))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UserPT x_a1GGT x_a1GGU)
= [toPersistValue x_a1GGT, toPersistValue x_a1GGU]
fromPersistValues [x1_a1GGW, x2_a1GGX]
= 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_a1GGW
<*>
(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_a1GGX
fromPersistValues x_a1GGV
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UserPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GGV))
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_a1GGY)
= [toPersistValue x_a1GGY]
persistUniqueKeys (UserPT _ident_a1GGZ _password_a1GH0)
= [UniqueUserPT _ident_a1GGZ]
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_a1GH2) key_a1GH3
-> Entity key_a1GH3 value_a1GH2)
fieldLens UserPTIdent
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTIdent = x} -> x) . entityVal)
(\ (Entity key_a1GH4 value_a1GH5) x_a1GH6
-> Entity
key_a1GH4
(case value_a1GH5 of
UserPT {userPTPassword = userPTPassword_a1GH8}
-> UserPT
{userPTIdent = x_a1GH6, userPTPassword = userPTPassword}))
fieldLens UserPTPassword
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTPassword = x} -> x) . entityVal)
(\ (Entity key_a1GH4 value_a1GH5) x_a1GH6
-> Entity
key_a1GH4
(case value_a1GH5 of
UserPT {userPTIdent = userPTIdent_a1GH9}
-> UserPT {userPTIdent = userPTIdent, userPTPassword = x_a1GH6}))
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_a1GHE
= ((Entity <$> fromField_a1GHE EmailPTId)
<*>
(((pure EmailPT <*> fromField_a1GHE EmailPTEmail)
<*> fromField_a1GHE EmailPTUser)
<*> fromField_a1GHE EmailPTVerkey))
tabulateEntityApply fromField_a1GHD
= ((Entity <$> fromField_a1GHD EmailPTId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((EmailPT <$> fromField_a1GHD EmailPTEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GHD EmailPTUser)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GHD EmailPTVerkey))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (EmailPT x_a1GHd x_a1GHe x_a1GHf)
= [toPersistValue x_a1GHd, toPersistValue x_a1GHe,
toPersistValue x_a1GHf]
fromPersistValues [x1_a1GHh, x2_a1GHi, x3_a1GHj]
= 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_a1GHh
<*>
(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_a1GHi
<*>
(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_a1GHj
fromPersistValues x_a1GHg
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"EmailPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a1GHg))
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_a1GHk)
= [toPersistValue x_a1GHk]
persistUniqueKeys (EmailPT _email_a1GHl _user_a1GHm _verkey_a1GHn)
= [UniqueEmailPT _email_a1GHl]
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_a1GHp) key_a1GHq
-> Entity key_a1GHq value_a1GHp)
fieldLens EmailPTEmail
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTEmail = x} -> x) . entityVal)
(\ (Entity key_a1GHr value_a1GHs) x_a1GHt
-> Entity
key_a1GHr
(case value_a1GHs of
EmailPT {emailPTUser = emailPTUser_a1GHv,
emailPTVerkey = emailPTVerkey_a1GHw}
-> EmailPT
{emailPTEmail = x_a1GHt, emailPTUser = emailPTUser,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTUser
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTUser = x} -> x) . entityVal)
(\ (Entity key_a1GHr value_a1GHs) x_a1GHt
-> Entity
key_a1GHr
(case value_a1GHs of
EmailPT {emailPTEmail = emailPTEmail_a1GHx,
emailPTVerkey = emailPTVerkey_a1GHz}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = x_a1GHt,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTVerkey
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTVerkey = x} -> x) . entityVal)
(\ (Entity key_a1GHr value_a1GHs) x_a1GHt
-> Entity
key_a1GHr
(case value_a1GHs of
EmailPT {emailPTEmail = emailPTEmail_a1GHA,
emailPTUser = emailPTUser_a1GHB}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = emailPTUser,
emailPTVerkey = x_a1GHt}))
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_a1GIg
= ((Entity <$> fromField_a1GIg UpsertId)
<*>
((((pure Upsert <*> fromField_a1GIg UpsertEmail)
<*> fromField_a1GIg UpsertAttr)
<*> fromField_a1GIg UpsertExtra)
<*> fromField_a1GIg UpsertAge))
tabulateEntityApply fromField_a1GIf
= ((Entity <$> fromField_a1GIf UpsertId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((((Upsert <$> fromField_a1GIf UpsertEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GIf UpsertAttr)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GIf UpsertExtra)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GIf UpsertAge))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Upsert x_a1GHF x_a1GHG x_a1GHH x_a1GHI)
= [toPersistValue x_a1GHF, toPersistValue x_a1GHG,
toPersistValue x_a1GHH, toPersistValue x_a1GHI]
fromPersistValues [x1_a1GHK, x2_a1GHL, x3_a1GHM, x4_a1GHN]
= 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_a1GHK
<*>
(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_a1GHL
<*>
(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_a1GHM
<*>
(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_a1GHN
fromPersistValues x_a1GHJ
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Upsert: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GHJ))
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_a1GHO)
= [toPersistValue x_a1GHO]
persistUniqueKeys
(Upsert _email_a1GHP _attr_a1GHQ _extra_a1GHR _age_a1GHS)
= [UniqueUpsert _email_a1GHP]
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_a1GHU) key_a1GHV
-> Entity key_a1GHV value_a1GHU)
fieldLens UpsertEmail
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertEmail = x} -> x) . entityVal)
(\ (Entity key_a1GHW value_a1GHX) x_a1GHY
-> Entity
key_a1GHW
(case value_a1GHX of
Upsert {upsertAttr = upsertAttr_a1GI0,
upsertExtra = upsertExtra_a1GI1, upsertAge = upsertAge_a1GI2}
-> Upsert
{upsertEmail = x_a1GHY, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertAttr
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAttr = x} -> x) . entityVal)
(\ (Entity key_a1GHW value_a1GHX) x_a1GHY
-> Entity
key_a1GHW
(case value_a1GHX of
Upsert {upsertEmail = upsertEmail_a1GI3,
upsertExtra = upsertExtra_a1GI5, upsertAge = upsertAge_a1GI6}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = x_a1GHY,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertExtra
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertExtra = x} -> x) . entityVal)
(\ (Entity key_a1GHW value_a1GHX) x_a1GHY
-> Entity
key_a1GHW
(case value_a1GHX of
Upsert {upsertEmail = upsertEmail_a1GI7,
upsertAttr = upsertAttr_a1GI8, upsertAge = upsertAge_a1GIa}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = x_a1GHY, upsertAge = upsertAge}))
fieldLens UpsertAge
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAge = x} -> x) . entityVal)
(\ (Entity key_a1GHW value_a1GHX) x_a1GHY
-> Entity
key_a1GHW
(case value_a1GHX of
Upsert {upsertEmail = upsertEmail_a1GIb,
upsertAttr = upsertAttr_a1GIc, upsertExtra = upsertExtra_a1GId}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = x_a1GHY}))
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_a1GIJ
= ((Entity <$> fromField_a1GIJ UpsertById)
<*>
(((pure UpsertBy <*> fromField_a1GIJ UpsertByEmail)
<*> fromField_a1GIJ UpsertByCity)
<*> fromField_a1GIJ UpsertByAttr))
tabulateEntityApply fromField_a1GII
= ((Entity <$> fromField_a1GII UpsertById)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((UpsertBy <$> fromField_a1GII UpsertByEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GII UpsertByCity)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GII UpsertByAttr))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UpsertBy x_a1GIh x_a1GIi x_a1GIj)
= [toPersistValue x_a1GIh, toPersistValue x_a1GIi,
toPersistValue x_a1GIj]
fromPersistValues [x1_a1GIl, x2_a1GIm, x3_a1GIn]
= 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_a1GIl
<*>
(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_a1GIm
<*>
(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_a1GIn
fromPersistValues x_a1GIk
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UpsertBy: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a1GIk))
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_a1GIo)
= [toPersistValue x_a1GIo]
persistUniqueToValues (UniqueUpsertByCity x_a1GIp)
= [toPersistValue x_a1GIp]
persistUniqueKeys (UpsertBy _email_a1GIq _city_a1GIr _attr_a1GIs)
= [UniqueUpsertBy _email_a1GIq, UniqueUpsertByCity _city_a1GIr]
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_a1GIu) key_a1GIv
-> Entity key_a1GIv value_a1GIu)
fieldLens UpsertByEmail
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByEmail = x} -> x) . entityVal)
(\ (Entity key_a1GIw value_a1GIx) x_a1GIy
-> Entity
key_a1GIw
(case value_a1GIx of
UpsertBy {upsertByCity = upsertByCity_a1GIA,
upsertByAttr = upsertByAttr_a1GIB}
-> UpsertBy
{upsertByEmail = x_a1GIy, upsertByCity = upsertByCity,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByCity
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByCity = x} -> x) . entityVal)
(\ (Entity key_a1GIw value_a1GIx) x_a1GIy
-> Entity
key_a1GIw
(case value_a1GIx of
UpsertBy {upsertByEmail = upsertByEmail_a1GIC,
upsertByAttr = upsertByAttr_a1GIE}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = x_a1GIy,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByAttr
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByAttr = x} -> x) . entityVal)
(\ (Entity key_a1GIw value_a1GIx) x_a1GIy
-> Entity
key_a1GIw
(case value_a1GIx of
UpsertBy {upsertByEmail = upsertByEmail_a1GIF,
upsertByCity = upsertByCity_a1GIG}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = upsertByCity,
upsertByAttr = x_a1GIy}))
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_a1GJa
= ((Entity <$> fromField_a1GJa StrictId)
<*>
(((pure Strict <*> fromField_a1GJa StrictYes)
<*> fromField_a1GJa StrictNo)
<*> fromField_a1GJa StrictDef))
tabulateEntityApply fromField_a1GJ9
= ((Entity <$> fromField_a1GJ9 StrictId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Strict <$> fromField_a1GJ9 StrictYes)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GJ9 StrictNo)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GJ9 StrictDef))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Strict x_a1GIK x_a1GIL x_a1GIM)
= [toPersistValue x_a1GIK, toPersistValue x_a1GIL,
toPersistValue x_a1GIM]
fromPersistValues [x1_a1GIO, x2_a1GIP, x3_a1GIQ]
= 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_a1GIO
<*>
(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_a1GIP
<*>
(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_a1GIQ
fromPersistValues x_a1GIN
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Strict: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GIN))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Strict _yes_a1GIR _no_a1GIS _def_a1GIT) = []
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_a1GIV) key_a1GIW
-> Entity key_a1GIW value_a1GIV)
fieldLens StrictYes
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictYes = x} -> x) . entityVal)
(\ (Entity key_a1GIX value_a1GIY) x_a1GIZ
-> Entity
key_a1GIX
(case value_a1GIY of
Strict {strictNo = strictNo_a1GJ1, strictDef = strictDef_a1GJ2}
-> Strict
{strictYes = x_a1GIZ, strictNo = strictNo, strictDef = strictDef}))
fieldLens StrictNo
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictNo = x} -> x) . entityVal)
(\ (Entity key_a1GIX value_a1GIY) x_a1GIZ
-> Entity
key_a1GIX
(case value_a1GIY of
Strict {strictYes = strictYes_a1GJ3, strictDef = strictDef_a1GJ5}
-> Strict
{strictYes = strictYes, strictNo = x_a1GIZ,
strictDef = strictDef}))
fieldLens StrictDef
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictDef = x} -> x) . entityVal)
(\ (Entity key_a1GIX value_a1GIY) x_a1GIZ
-> Entity
key_a1GIX
(case value_a1GIY of
Strict {strictYes = strictYes_a1GJ6, strictNo = strictNo_a1GJ7}
-> Strict
{strictYes = strictYes, strictNo = strictNo, strictDef = x_a1GIZ}))
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_a1GJo
= ((Entity <$> fromField_a1GJo DudeWeirdColumnsId)
<*>
(pure DudeWeirdColumns <*> fromField_a1GJo DudeWeirdColumnsName))
tabulateEntityApply fromField_a1GJn
= ((Entity <$> fromField_a1GJn DudeWeirdColumnsId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(DudeWeirdColumns <$> fromField_a1GJn DudeWeirdColumnsName))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (DudeWeirdColumns x_a1GJb)
= [toPersistValue x_a1GJb]
fromPersistValues [x1_a1GJd]
= 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_a1GJd
fromPersistValues x_a1GJc
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"DudeWeirdColumns: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 47#))
(Data.Text.Internal.pack $ show x_a1GJc))
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_a1GJe)
= [toPersistValue x_a1GJe]
persistUniqueKeys (DudeWeirdColumns _name_a1GJf)
= [UniqueName _name_a1GJf]
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_a1GJh) key_a1GJi
-> Entity key_a1GJi value_a1GJh)
fieldLens DudeWeirdColumnsName
= Database.Persist.TH.Internal.lensPTH
((\ DudeWeirdColumns {dudeWeirdColumnsName = x} -> x) . entityVal)
(\ (Entity key_a1GJj value_a1GJk) x_a1GJl
-> Entity
key_a1GJj
(case value_a1GJk of
DudeWeirdColumns {}
-> DudeWeirdColumns {dudeWeirdColumnsName = x_a1GJl}))
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_a1GJH
= ((Entity <$> fromField_a1GJH RelationshipId)
<*>
((pure Relationship <*> fromField_a1GJH RelationshipName)
<*> fromField_a1GJH RelationshipParent))
tabulateEntityApply fromField_a1GJG
= ((Entity <$> fromField_a1GJG RelationshipId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Relationship <$> fromField_a1GJG RelationshipName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GJG RelationshipParent))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Relationship x_a1GJp x_a1GJq)
= [toPersistValue x_a1GJp, toPersistValue x_a1GJq]
fromPersistValues [x1_a1GJs, x2_a1GJt]
= 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_a1GJs
<*>
(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_a1GJt
fromPersistValues x_a1GJr
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Relationship: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 43#))
(Data.Text.Internal.pack $ show x_a1GJr))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Relationship _name_a1GJu _parent_a1GJv) = []
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_a1GJx) key_a1GJy
-> Entity key_a1GJy value_a1GJx)
fieldLens RelationshipName
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipName = x} -> x) . entityVal)
(\ (Entity key_a1GJz value_a1GJA) x_a1GJB
-> Entity
key_a1GJz
(case value_a1GJA of
Relationship {relationshipParent = relationshipParent_a1GJD}
-> Relationship
{relationshipName = x_a1GJB,
relationshipParent = relationshipParent}))
fieldLens RelationshipParent
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipParent = x} -> x) . entityVal)
(\ (Entity key_a1GJz value_a1GJA) x_a1GJB
-> Entity
key_a1GJz
(case value_a1GJA of
Relationship {relationshipName = relationshipName_a1GJE}
-> Relationship
{relationshipName = relationshipName,
relationshipParent = x_a1GJB}))
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_a1GJU
= ((Entity <$> fromField_a1GJU MutAId)
<*> (pure MutA <*> fromField_a1GJU MutAMutB))
tabulateEntityApply fromField_a1GJT
= ((Entity <$> fromField_a1GJT MutAId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(MutA <$> fromField_a1GJT MutAMutB))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutA x_a1GJI) = [toPersistValue x_a1GJI]
fromPersistValues [x1_a1GJK]
= 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_a1GJK
fromPersistValues x_a1GJJ
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutA: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a1GJJ))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutA _mutB_a1GJL) = []
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_a1GJN) key_a1GJO
-> Entity key_a1GJO value_a1GJN)
fieldLens MutAMutB
= Database.Persist.TH.Internal.lensPTH
((\ MutA {mutAMutB = x} -> x) . entityVal)
(\ (Entity key_a1GJP value_a1GJQ) x_a1GJR
-> Entity
key_a1GJP
(case value_a1GJQ of MutA {} -> MutA {mutAMutB = x_a1GJR}))
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_a1GK7
= ((Entity <$> fromField_a1GK7 MutBId)
<*> (pure MutB <*> fromField_a1GK7 MutBMutA))
tabulateEntityApply fromField_a1GK6
= ((Entity <$> fromField_a1GK6 MutBId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(MutB <$> fromField_a1GK6 MutBMutA))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutB x_a1GJV) = [toPersistValue x_a1GJV]
fromPersistValues [x1_a1GJX]
= 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_a1GJX
fromPersistValues x_a1GJW
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutB: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a1GJW))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutB _mutA_a1GJY) = []
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_a1GK0) key_a1GK1
-> Entity key_a1GK1 value_a1GK0)
fieldLens MutBMutA
= Database.Persist.TH.Internal.lensPTH
((\ MutB {mutBMutA = x} -> x) . entityVal)
(\ (Entity key_a1GK2 value_a1GK3) x_a1GK4
-> Entity
key_a1GK2
(case value_a1GK3 of MutB {} -> MutB {mutBMutA = x_a1GK4}))
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_a1GK9 age_a1GKa color_a1GKb)
= object
[(Data.Aeson.Key.fromString "name" .= name_a1GK9),
(Data.Aeson.Key.fromString "age" .= age_a1GKa),
(Data.Aeson.Key.fromString "color" .= color_a1GKb)]
instance PersistStore backend =>
FromJSON (PersonGeneric backend) where
parseJSON
= withObject
"Person"
(\ obj_a1GK8
-> (((pure Person
<*> (obj_a1GK8 .: Data.Aeson.Key.fromString "name"))
<*> (obj_a1GK8 .: Data.Aeson.Key.fromString "age"))
<*> (obj_a1GK8 .:? 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_a1GKd color_a1GKe)
= object
[(Data.Aeson.Key.fromString "name" .= name_a1GKd),
(Data.Aeson.Key.fromString "color" .= color_a1GKe)]
instance PersistStore backend =>
FromJSON (PersonMayGeneric backend) where
parseJSON
= withObject
"PersonMay"
(\ obj_a1GKc
-> ((pure PersonMay
<*> (obj_a1GKc .:? Data.Aeson.Key.fromString "name"))
<*> (obj_a1GKc .:? 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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a1Udc
= ((Entity <$> fromField_a1Udc NoPrefix1Id)
<*> (pure NoPrefix1 <*> fromField_a1Udc SomeFieldName))
tabulateEntityApply fromField_a1Udb
= ((Entity <$> fromField_a1Udb NoPrefix1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(NoPrefix1 <$> fromField_a1Udb SomeFieldName))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix1 x_a1Ud0) = [toPersistValue x_a1Ud0]
fromPersistValues [x1_a1Ud2]
= 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_a1Ud2
fromPersistValues x_a1Ud1
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a1Ud1))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NoPrefix1 _someFieldName_a1Ud3) = []
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_a1Ud5) key_a1Ud6
-> Entity key_a1Ud6 value_a1Ud5)
fieldLens SomeFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix1 {someFieldName = x} -> x) . entityVal)
(\ (Entity key_a1Ud7 value_a1Ud8) x_a1Ud9
-> Entity
key_a1Ud7
(case value_a1Ud8 of
NoPrefix1 {} -> NoPrefix1 {someFieldName = x_a1Ud9}))
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_a1Udv
= ((Entity <$> fromField_a1Udv NoPrefix2Id)
<*>
((pure NoPrefix2 <*> fromField_a1Udv SomeOtherFieldName)
<*> fromField_a1Udv UnprefixedRef))
tabulateEntityApply fromField_a1Udu
= ((Entity <$> fromField_a1Udu NoPrefix2Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((NoPrefix2 <$> fromField_a1Udu SomeOtherFieldName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1Udu UnprefixedRef))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix2 x_a1Udd x_a1Ude)
= [toPersistValue x_a1Udd, toPersistValue x_a1Ude]
fromPersistValues [x1_a1Udg, x2_a1Udh]
= 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_a1Udg
<*>
(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_a1Udh
fromPersistValues x_a1Udf
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a1Udf))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(NoPrefix2 _someOtherFieldName_a1Udi _unprefixedRef_a1Udj)
= []
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_a1Udl) key_a1Udm
-> Entity key_a1Udm value_a1Udl)
fieldLens SomeOtherFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {someOtherFieldName = x} -> x) . entityVal)
(\ (Entity key_a1Udn value_a1Udo) x_a1Udp
-> Entity
key_a1Udn
(case value_a1Udo of
NoPrefix2 {unprefixedRef = unprefixedRef_a1Udr}
-> NoPrefix2
{someOtherFieldName = x_a1Udp, unprefixedRef = unprefixedRef}))
fieldLens UnprefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {unprefixedRef = x} -> x) . entityVal)
(\ (Entity key_a1Udn value_a1Udo) x_a1Udp
-> Entity
key_a1Udn
(case value_a1Udo of
NoPrefix2 {someOtherFieldName = someOtherFieldName_a1Uds}
-> NoPrefix2
{someOtherFieldName = someOtherFieldName,
unprefixedRef = x_a1Udp}))
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_a1UdH
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a1UdG
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UnprefixedLeftSum x_a1Udw)
= [toPersistValue x_a1Udw, PersistNull]
toPersistFields (UnprefixedRightSum x_a1Udx)
= [PersistNull, toPersistValue x_a1Udx]
fromPersistValues [x_a1Udy, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a1Udy
= (UnprefixedLeftSum `fmap` fromPersistValue x_a1Udy)
fromPersistValues [PersistNull, x_a1Udz]
| Database.Persist.TH.Internal.isNotNull x_a1Udz
= (UnprefixedRightSum `fmap` fromPersistValue x_a1Udz)
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_a1UdB) key_a1UdC
-> Entity key_a1UdC value_a1UdB)
fieldLens UnprefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1UdE)
-> case value_a1UdE of
UnprefixedLeftSum x_a1UdF -> x_a1UdF
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1UdD _) x_a1UdF
-> Entity key_a1UdD (UnprefixedLeftSum x_a1UdF))
fieldLens UnprefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1UdE)
-> case value_a1UdE of
UnprefixedRightSum x_a1UdF -> x_a1UdF
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1UdD _) x_a1UdF
-> Entity key_a1UdD (UnprefixedRightSum x_a1UdF))
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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a1Wnf field_a1Wng
-> case entity_a1Wnf of
"CustomPrefix1" -> append "_cp1" field_a1Wng
"CustomPrefix2" -> append "_cp2" field_a1Wng
_ -> error "should not be called",
mpsConstraintLabelModifier = \ entity_a1Wnh field_a1Wni
-> case entity_a1Wnh of
"CustomPrefix1" -> append "CP1" field_a1Wni
"CustomPrefix2" -> append "CP2" field_a1Wni
"CustomPrefixSum" -> append "CP" field_a1Wni
_ -> 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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a1WGL
= ((Entity <$> fromField_a1WGL CustomPrefix1Id)
<*> (pure CustomPrefix1 <*> fromField_a1WGL CP1CustomFieldName))
tabulateEntityApply fromField_a1WGK
= ((Entity <$> fromField_a1WGK CustomPrefix1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(CustomPrefix1 <$> fromField_a1WGK CP1CustomFieldName))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix1 x_a1WGz) = [toPersistValue x_a1WGz]
fromPersistValues [x1_a1WGB]
= 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_a1WGB
fromPersistValues x_a1WGA
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a1WGA))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (CustomPrefix1 _customFieldName_a1WGC) = []
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_a1WGE) key_a1WGF
-> Entity key_a1WGF value_a1WGE)
fieldLens CP1CustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix1 {_cp1CustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a1WGG value_a1WGH) x_a1WGI
-> Entity
key_a1WGG
(case value_a1WGH of
CustomPrefix1 {} -> CustomPrefix1 {_cp1CustomFieldName = x_a1WGI}))
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_a1WH4
= ((Entity <$> fromField_a1WH4 CustomPrefix2Id)
<*>
((pure CustomPrefix2 <*> fromField_a1WH4 CP2OtherCustomFieldName)
<*> fromField_a1WH4 CP2CustomPrefixedRef))
tabulateEntityApply fromField_a1WH3
= ((Entity <$> fromField_a1WH3 CustomPrefix2Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((CustomPrefix2 <$> fromField_a1WH3 CP2OtherCustomFieldName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1WH3 CP2CustomPrefixedRef))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix2 x_a1WGM x_a1WGN)
= [toPersistValue x_a1WGM, toPersistValue x_a1WGN]
fromPersistValues [x1_a1WGP, x2_a1WGQ]
= 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_a1WGP
<*>
(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_a1WGQ
fromPersistValues x_a1WGO
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a1WGO))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(CustomPrefix2 _otherCustomFieldName_a1WGR
_customPrefixedRef_a1WGS)
= []
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_a1WGU) key_a1WGV
-> Entity key_a1WGV value_a1WGU)
fieldLens CP2OtherCustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2OtherCustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a1WGW value_a1WGX) x_a1WGY
-> Entity
key_a1WGW
(case value_a1WGX of
CustomPrefix2 {_cp2CustomPrefixedRef = _cp2CustomPrefixedRef_a1WH0}
-> CustomPrefix2
{_cp2OtherCustomFieldName = x_a1WGY,
_cp2CustomPrefixedRef = _cp2CustomPrefixedRef}))
fieldLens CP2CustomPrefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2CustomPrefixedRef = x} -> x) . entityVal)
(\ (Entity key_a1WGW value_a1WGX) x_a1WGY
-> Entity
key_a1WGW
(case value_a1WGX of
CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName_a1WH1}
-> CustomPrefix2
{_cp2OtherCustomFieldName = _cp2OtherCustomFieldName,
_cp2CustomPrefixedRef = x_a1WGY}))
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_a1WHg
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a1WHf
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CPCustomPrefixedLeftSum x_a1WH5)
= [toPersistValue x_a1WH5, PersistNull]
toPersistFields (CPCustomPrefixedRightSum x_a1WH6)
= [PersistNull, toPersistValue x_a1WH6]
fromPersistValues [x_a1WH7, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a1WH7
= (CPCustomPrefixedLeftSum `fmap` fromPersistValue x_a1WH7)
fromPersistValues [PersistNull, x_a1WH8]
| Database.Persist.TH.Internal.isNotNull x_a1WH8
= (CPCustomPrefixedRightSum `fmap` fromPersistValue x_a1WH8)
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_a1WHa) key_a1WHb
-> Entity key_a1WHb value_a1WHa)
fieldLens CPCustomPrefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1WHd)
-> case value_a1WHd of
CPCustomPrefixedLeftSum x_a1WHe -> x_a1WHe
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1WHc _) x_a1WHe
-> Entity key_a1WHc (CPCustomPrefixedLeftSum x_a1WHe))
fieldLens CPCustomPrefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1WHd)
-> case value_a1WHd of
CPCustomPrefixedRightSum x_a1WHe -> x_a1WHe
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1WHc _) x_a1WHe
-> Entity key_a1WHc (CPCustomPrefixedRightSum x_a1WHe))
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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a1Z0M
= fmap
TreeKey
(ghc-prim:GHC.Prim.coerce
(parent record_mkForeignKeysComposite_a1Z0M))
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_a1Z0N
= [toPersistValue ((\ TreeKey {unTreeKey = x} -> x) record_a1Z0N)]
keyFromValues [x1_a1Z0P]
= 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_a1Z0P
keyFromValues x_a1Z0O
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: keyFromValues failed on: "# (ghc-prim:GHC.Types.I# 31#))
(Data.Text.Internal.pack $ show x_a1Z0O))
keyFromRecordM
= Just (\ Tree {name = name_a1Z0Z} -> TreeKey name_a1Z0Z)
tabulateEntityA fromField_a1Z11
= ((Entity <$> fromField_a1Z11 TreeId)
<*>
((pure Tree <*> fromField_a1Z11 Name) <*> fromField_a1Z11 Parent))
tabulateEntityApply fromField_a1Z10
= ((Entity <$> fromField_a1Z10 TreeId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Tree <$> fromField_a1Z10 Name)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1Z10 Parent))
entityDef _
= persistent-2.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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.17.1.0-8rROELTcUKwBWPkA9EP6rF: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_a1Z0E x_a1Z0F)
= [toPersistValue x_a1Z0E, toPersistValue x_a1Z0F]
fromPersistValues [x1_a1Z0H, x2_a1Z0I]
= 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_a1Z0H
<*>
(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_a1Z0I
fromPersistValues x_a1Z0G
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a1Z0G))
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_a1Z0J)
= [toPersistValue x_a1Z0J]
persistUniqueKeys (Tree _name_a1Z0K _parent_a1Z0L)
= [TreePrimaryKey _name_a1Z0K]
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_a1Z0Q) key_a1Z0R
-> Entity key_a1Z0R value_a1Z0Q)
fieldLens Name
= Database.Persist.TH.Internal.lensPTH
((\ Tree {name = x} -> x) . entityVal)
(\ (Entity key_a1Z0S value_a1Z0T) x_a1Z0U
-> Entity
key_a1Z0S
(case value_a1Z0T of
Tree {parent = parent_a1Z0W}
-> Tree {name = x_a1Z0U, parent = parent}))
fieldLens Parent
= Database.Persist.TH.Internal.lensPTH
((\ Tree {parent = x} -> x) . entityVal)
(\ (Entity key_a1Z0S value_a1Z0T) x_a1Z0U
-> Entity
key_a1Z0S
(case value_a1Z0T of
Tree {name = name_a1Z0X} -> Tree {name = name, parent = x_a1Z0U}))
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:11:36: 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 | share [mkPersist persistSettings { mpsGeneric = False }, mkMigrate "migration"] [persistLowerCase|
| ^^^^^^^^^^
[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: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"
|
10 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "recursiveMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[35 of 41] Compiling RenameTest ( src/RenameTest.hs, nothing )
src/RenameTest.hs:16: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"
|
16 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "migration"] [persistLowerCase|
| ^^^^^^^^^^
[36 of 41] Compiling SumTypeTest ( src/SumTypeTest.hs, nothing )
src/SumTypeTest.hs:12: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
|
12 | share [mkPersist persistSettings { mpsGeneric = True }, mkMigrate "sumTypeMigrate"] [persistLowerCase|
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
src/SumTypeTest.hs:12:36: 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 | share [mkPersist persistSettings { mpsGeneric = True }, mkMigrate "sumTypeMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[37 of 41] Compiling TransactionLevelTest ( src/TransactionLevelTest.hs, nothing )
[38 of 41] Compiling TreeTest ( src/TreeTest.hs, nothing )
src/TreeTest.hs:12:35: 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 }
| ^^^^^^^^^^
[39 of 41] Compiling TypeLitFieldDefsTest ( src/TypeLitFieldDefsTest.hs, nothing )
src/TypeLitFieldDefsTest.hs:33: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"
|
33 | share [mkPersist sqlSettings { mpsGeneric = True }, mkMigrate "typeLitFieldDefsMigrate"] [persistLowerCase|
| ^^^^^^^^^^
[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:125)
@== (src/Init.hs:128)
==@ (src/Init.hs:129)
asIO (src/Init.hs:121)
assertNotEqual (src/Init.hs:137)
assertNotEmpty (src/Init.hs:146)
assertEmpty (src/Init.hs:143)
isTravis (src/Init.hs:149)
persistSettings (src/Init.hs:160)
BackendKey
GenerateKey (src/Init.hs:172)
RunDb (src/Init.hs:240)
Runner (src/Init.hs:228)
truncateTimeOfDay (src/Init.hs:201)
truncateToMicro (src/Init.hs:206)
truncateUTCTime (src/Init.hs:211)
arbText (src/Init.hs:219)
changeBackend (src/Init.hs:247)
UUID (src/Init.hs:273)
sqlSettingsUuid (src/Init.hs:293)
0% ( 0 / 4) in 'HtmlTest'
Missing documentation for:
Module header
specsWith (src/HtmlTest.hs:30)
cleanDB (src/HtmlTest.hs:22)
htmlMigrate (src/HtmlTest.hs:15)
0% ( 0 / 2) in 'GeneratedColumnTestSQL'
Missing documentation for:
Module header
specsWith (src/GeneratedColumnTestSQL.hs:29)
0% ( 0 / 44) in 'ForeignKey'
Missing documentation for:
Module header
Chain3Id (src/ForeignKey.hs:15)
Chain3 (src/ForeignKey.hs:15)
Chain2Id (src/ForeignKey.hs:15)
Chain2 (src/ForeignKey.hs:15)
ChainId (src/ForeignKey.hs:15)
Chain (src/ForeignKey.hs:15)
BExplicitId (src/ForeignKey.hs:15)
BExplicit (src/ForeignKey.hs:15)
BCompositeId (src/ForeignKey.hs:15)
BComposite (src/ForeignKey.hs:15)
ACompositeId (src/ForeignKey.hs:15)
AComposite (src/ForeignKey.hs:15)
BId (src/ForeignKey.hs:15)
B (src/ForeignKey.hs:15)
AId (src/ForeignKey.hs:15)
A (src/ForeignKey.hs:15)
SelfReferencedId (src/ForeignKey.hs:15)
SelfReferenced (src/ForeignKey.hs:15)
ChildCompositeId (src/ForeignKey.hs:15)
ChildComposite (src/ForeignKey.hs:15)
ParentCompositeId (src/ForeignKey.hs:15)
ParentComposite (src/ForeignKey.hs:15)
ChildImplicitId (src/ForeignKey.hs:15)
ChildImplicit (src/ForeignKey.hs:15)
ParentImplicitId (src/ForeignKey.hs:15)
ParentImplicit (src/ForeignKey.hs:15)
ChildId (src/ForeignKey.hs:15)
Child (src/ForeignKey.hs:15)
ParentId (src/ForeignKey.hs:15)
Parent (src/ForeignKey.hs:15)
SimpleCascadeId (src/ForeignKey.hs:15)
SimpleCascade (src/ForeignKey.hs:15)
SimpleCascadeChildId (src/ForeignKey.hs:15)
SimpleCascadeChild (src/ForeignKey.hs:15)
childFkparent (src/ForeignKey.hs:15)
childImplicitFkparent (src/ForeignKey.hs:15)
childCompositeFkparent (src/ForeignKey.hs:15)
selfReferencedFkparent (src/ForeignKey.hs:15)
entityDefListForcompositeMigrate (src/ForeignKey.hs:15)
compositeMigrate (src/ForeignKey.hs:15)
specsWith (src/ForeignKey.hs:106)
cleanDB (src/ForeignKey.hs:221)
del (src/ForeignKey.hs:246)
0% ( 0 / 2) in 'EquivalentTypeTest'
Missing documentation for:
Module header
specsWith (src/EquivalentTypeTest.hs:26)
0% ( 0 / 5) in 'EntityEmbedTest'
Missing documentation for:
Module header
ARecordId (src/EntityEmbedTest.hs:9)
ARecordGeneric (src/EntityEmbedTest.hs:9)
ARecord (src/EntityEmbedTest.hs:9)
AnEntity (src/EntityEmbedTest.hs:15)
0% ( 0 / 4) in 'EmptyEntityTest'
Missing documentation for:
Module header
specsWith (src/EmptyEntityTest.hs:30)
migration (src/EmptyEntityTest.hs:12)
cleanDB (src/EmptyEntityTest.hs:23)
0% ( 0 / 4) in 'EmbedTest'
Missing documentation for:
Module header
specsWith (src/EmbedTest.hs:160)
cleanDB (src/EmbedTest.hs:140)
embedMigrate (src/EmbedTest.hs:32)
0% ( 0 / 4) in 'EmbedOrderTest'
Missing documentation for:
Module header
specsWith (src/EmbedOrderTest.hs:31)
embedOrderMigrate (src/EmbedOrderTest.hs:14)
cleanDB (src/EmbedOrderTest.hs:26)
0% ( 0 / 5) in 'DataTypeTest'
Missing documentation for:
Module header
specsWith (src/DataTypeTest.hs:108)
dataTypeMigrate (src/DataTypeTest.hs:32)
roundTime (src/DataTypeTest.hs:57)
roundUTCTime (src/DataTypeTest.hs:60)
0% ( 0 / 9) in 'CustomPrimaryKeyReferenceTest'
Missing documentation for:
Module header
TweetUrlId (src/CustomPrimaryKeyReferenceTest.hs:11)
TweetUrl (src/CustomPrimaryKeyReferenceTest.hs:11)
TweetId (src/CustomPrimaryKeyReferenceTest.hs:11)
Tweet (src/CustomPrimaryKeyReferenceTest.hs:11)
entityDefListFormigration (src/CustomPrimaryKeyReferenceTest.hs:11)
migration (src/CustomPrimaryKeyReferenceTest.hs:11)
cleanDB (src/CustomPrimaryKeyReferenceTest.hs:27)
specsWith (src/CustomPrimaryKeyReferenceTest.hs:32)
0% ( 0 / 2) in 'CustomPersistField'
Missing documentation for:
Module header
Markdown (src/CustomPersistField.hs:13)
0% ( 0 / 3) in 'CustomPersistFieldTest'
Missing documentation for:
Module header
specsWith (src/CustomPersistFieldTest.hs:16)
customFieldMigrate (src/CustomPersistFieldTest.hs:9)
0% ( 0 / 22) in 'CompositeTest'
Missing documentation for:
Module header
PrimaryCompositeWithOtherNullableFieldsId (src/CompositeTest.hs:15)
PrimaryCompositeWithOtherNullableFields (src/CompositeTest.hs:15)
CitizenAddressId (src/CompositeTest.hs:15)
CitizenAddress (src/CompositeTest.hs:15)
AddressId (src/CompositeTest.hs:15)
Address (src/CompositeTest.hs:15)
CitizenId (src/CompositeTest.hs:15)
Citizen (src/CompositeTest.hs:15)
TestChildId (src/CompositeTest.hs:15)
TestChild (src/CompositeTest.hs:15)
TestParentId (src/CompositeTest.hs:15)
TestParent (src/CompositeTest.hs:15)
testChildFkparent (src/CompositeTest.hs:15)
entityDefListForcompositeMigrate (src/CompositeTest.hs:15)
compositeMigrate (src/CompositeTest.hs:15)
cleanDB (src/CompositeTest.hs:54)
specsWith (src/CompositeTest.hs:62)
matchK (src/CompositeTest.hs:248)
matchK2 (src/CompositeTest.hs:253)
matchParentK (src/CompositeTest.hs:256)
matchCitizenAddressK (src/CompositeTest.hs:260)
0% ( 0 / 8) in 'LargeNumberTest'
Missing documentation for:
Module header
NumberId (src/LargeNumberTest.hs:9)
NumberGeneric (src/LargeNumberTest.hs:9)
Number (src/LargeNumberTest.hs:9)
entityDefListFornumberMigrate (src/LargeNumberTest.hs:9)
numberMigrate (src/LargeNumberTest.hs:9)
cleanDB (src/LargeNumberTest.hs:21)
specsWith (src/LargeNumberTest.hs:25)
0% ( 0 / 8) in 'LongIdentifierTest'
Missing documentation for:
Module header
TableAnExtremelyFantasticallySuperLongNameChildId (src/LongIdentifierTest.hs:22)
TableAnExtremelyFantasticallySuperLongNameChild (src/LongIdentifierTest.hs:22)
TableAnExtremelyFantasticallySuperLongNameParentId (src/LongIdentifierTest.hs:22)
TableAnExtremelyFantasticallySuperLongNameParent (src/LongIdentifierTest.hs:22)
entityDefListFormigration (src/LongIdentifierTest.hs:22)
migration (src/LongIdentifierTest.hs:22)
specsWith (src/LongIdentifierTest.hs:30)
0% ( 0 / 3) in 'MaxLenTest'
Missing documentation for:
Module header
specsWith (src/MaxLenTest.hs:29)
maxlenMigrate (src/MaxLenTest.hs:11)
0% ( 0 / 3) in 'MaybeFieldDefsTest'
Missing documentation for:
Module header
specsWith (src/MaybeFieldDefsTest.hs:20)
maybeFieldDefMigrate (src/MaybeFieldDefsTest.hs:12)
0% ( 0 / 6) in 'MigrationColumnLengthTest'
Missing documentation for:
Module header
VaryingLengthsId (src/MigrationColumnLengthTest.hs:10)
VaryingLengths (src/MigrationColumnLengthTest.hs:10)
entityDefListFormigration (src/MigrationColumnLengthTest.hs:10)
migration (src/MigrationColumnLengthTest.hs:10)
specsWith (src/MigrationColumnLengthTest.hs:17)
0% ( 0 / 6) in 'MigrationIdempotencyTest'
Missing documentation for:
Module header
IdempotencyId (src/MigrationIdempotencyTest.hs:12)
Idempotency (src/MigrationIdempotencyTest.hs:12)
entityDefListFormigration (src/MigrationIdempotencyTest.hs:12)
migration (src/MigrationIdempotencyTest.hs:12)
specsWith (src/MigrationIdempotencyTest.hs:26)
0% ( 0 / 4) in 'MigrationOnlyTest'
Missing documentation for:
Module header
specsWith (src/MigrationOnlyTest.hs:38)
migrateAll1 (src/MigrationOnlyTest.hs:13)
migrateAll2 (src/MigrationOnlyTest.hs:21)
0% ( 0 / 16) in 'MigrationTest'
Missing documentation for:
Module header
CustomSqlIdId (src/MigrationTest.hs:11)
CustomSqlId (src/MigrationTest.hs:11)
SourceId (src/MigrationTest.hs:11)
Source (src/MigrationTest.hs:11)
TargetId (src/MigrationTest.hs:11)
Target (src/MigrationTest.hs:11)
entityDefListFormigrationMigrate (src/MigrationTest.hs:11)
migrationMigrate (src/MigrationTest.hs:11)
Source1Id (src/MigrationTest.hs:27)
Source1 (src/MigrationTest.hs:27)
Target1Id (src/MigrationTest.hs:27)
Target1 (src/MigrationTest.hs:27)
entityDefListFormigrationAddCol (src/MigrationTest.hs:27)
migrationAddCol (src/MigrationTest.hs:27)
specsWith (src/MigrationTest.hs:41)
0% ( 0 / 2) in 'PersistTestPetCollarType'
Missing documentation for:
Module header
PetCollar (src/PersistTestPetCollarType.hs:10)
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:9)
OnlyPrimaryKey (src/PersistUniqueTest.hs:9)
BaId (src/PersistUniqueTest.hs:9)
Ba (src/PersistUniqueTest.hs:9)
FoId (src/PersistUniqueTest.hs:9)
Fo (src/PersistUniqueTest.hs:9)
entityDefListFormigration (src/PersistUniqueTest.hs:9)
migration (src/PersistUniqueTest.hs:9)
shouldCompile (src/PersistUniqueTest.hs:39)
cleanDB (src/PersistUniqueTest.hs:42)
specsWith (src/PersistUniqueTest.hs:46)
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:94)
catchPersistException (src/PersistentTest.hs:36)
set (src/PersistentTest.hs:70)
filterOrSpecs (src/PersistentTest.hs:46)
_polymorphic (src/PersistentTest.hs:60)
ASetter (src/PersistentTest.hs:67)
Getting (src/PersistentTest.hs:72)
view (src/PersistentTest.hs:75)
safeToRemoveSpec (src/PersistentTest.hs:78)
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:33)
specsWith (src/PrimaryTest.hs:38)
0% ( 0 / 4) in 'RawSqlTest'
Missing documentation for:
Module header
specsWith (src/RawSqlTest.hs:18)
getEscape (src/RawSqlTest.hs:147)
caseCommitRollback (src/RawSqlTest.hs:150)
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:10)
cleanup (src/Recursive.hs:25)
0% ( 0 / 21) in 'RenameTest'
Missing documentation for:
Module header
TextId (src/RenameTest.hs:13)
ForeignIdTableId (src/RenameTest.hs:16)
ForeignIdTableGeneric (src/RenameTest.hs:16)
ForeignIdTable (src/RenameTest.hs:16)
RefTableId (src/RenameTest.hs:16)
RefTableGeneric (src/RenameTest.hs:16)
RefTable (src/RenameTest.hs:16)
LowerCaseTableId (src/RenameTest.hs:16)
LowerCaseTableGeneric (src/RenameTest.hs:16)
LowerCaseTable (src/RenameTest.hs:16)
IdTableId (src/RenameTest.hs:16)
IdTableGeneric (src/RenameTest.hs:16)
IdTable (src/RenameTest.hs:16)
KeyTableId (src/RenameTest.hs:16)
KeyTableGeneric (src/RenameTest.hs:16)
KeyTable (src/RenameTest.hs:16)
entityDefListFormigration (src/RenameTest.hs:16)
migration (src/RenameTest.hs:16)
cleanDB (src/RenameTest.hs:61)
specsWith (src/RenameTest.hs:75)
0% ( 0 / 3) in 'SumTypeTest'
Missing documentation for:
Module header
specsWith (src/SumTypeTest.hs:39)
sumTypeMigrate (src/SumTypeTest.hs:12)
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:19)
0% ( 0 / 8) in 'TreeTest'
Missing documentation for:
Module header
TreeId (src/TreeTest.hs:11)
Tree (src/TreeTest.hs:11)
treeFkparent (src/TreeTest.hs:11)
entityDefListFortreeMigrate (src/TreeTest.hs:11)
treeMigrate (src/TreeTest.hs:11)
cleanDB (src/TreeTest.hs:26)
specsWith (src/TreeTest.hs:30)
0% ( 0 / 3) in 'TypeLitFieldDefsTest'
Missing documentation for:
Module header
specsWith (src/TypeLitFieldDefsTest.hs:58)
typeLitFieldDefsMigrate (src/TypeLitFieldDefsTest.hs:33)
0% ( 0 / 11) in 'UniqueTest'
Missing documentation for:
Module header
TestCheckmarkId (src/UniqueTest.hs:8)
TestCheckmark (src/UniqueTest.hs:8)
TestNullId (src/UniqueTest.hs:8)
TestNull (src/UniqueTest.hs:8)
TestNonNullId (src/UniqueTest.hs:8)
TestNonNull (src/UniqueTest.hs:8)
entityDefListForuniqueMigrate (src/UniqueTest.hs:8)
uniqueMigrate (src/UniqueTest.hs:8)
cleanDB (src/UniqueTest.hs:28)
specsWith (src/UniqueTest.hs:33)
50% ( 2 / 4) in 'UpsertTest'
Missing documentation for:
Module header
specsWith (src/UpsertTest.hs:28)
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.0-Fl9jfTSgpxi5d1loc4PFVS
Completed persistent-test-2.13.2.0
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'