Build #1 for persistent-test-2.13.1.4
| Package | persistent-test-2.13.1.4 |
|---|
| Install | InstallOk |
|---|---|
| Docs | Ok |
| Tests | NotTried |
| Time submitted | 2025-05-23 22:58:28.706865876 UTC |
|---|---|
| Compiler | ghc-9.8.4 |
| OS | linux |
| Arch | x86_64 |
| Dependencies | HUnit-1.6.2.0, QuickCheck-2.15.0.1, 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.0.0, quickcheck-instances-0.3.32, 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.1...
Preprocessing library for splitmix-0.1.1..
Building library for splitmix-0.1.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.1..
Running Haddock on library for splitmix-0.1.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.1-2dkWbDg3EPmIridMVkE3HU
Completed splitmix-0.1.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-3nGGvXhY3csIF4EfWKRQXs
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.16...
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.16..
Building library for unix-time-0.4.16..
[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.16..
Running Haddock on library for unix-time-0.4.16..
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.16-FKZHo7p3CwqK5i3vGffnse
Completed unix-time-0.4.16
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.4.0.0...
Preprocessing library for resource-pool-0.4.0.0..
Building library for resource-pool-0.4.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.4.0.0..
Running Haddock on library for resource-pool-0.4.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:18:15
* at src/Data/Pool/Internal.hs: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/Pool/Internal.hs:18:1
Warning: 'PoolConfig' is ambiguous. It is defined
* at src/Data/Pool/Internal.hs:52:21
* at src/Data/Pool/Internal.hs:52:1
You may 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:52:1
Warning: 'LocalPool' is ambiguous. It is defined
* at src/Data/Pool/Internal.hs:25:20
* at src/Data/Pool/Internal.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 src/Data/Pool/Internal.hs:25:1
Warning: 'takeResource' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
89% ( 17 / 19) in 'Data.Pool.Internal'
Missing documentation for:
signal (src/Data/Pool/Internal.hs:281)
reverseQueue (src/Data/Pool/Internal.hs:316)
Warning: 'LocalPool' is ambiguous. It is defined
* at src/Data/Pool/Internal.hs:25:20
* at src/Data/Pool/Internal.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 src/Data/Pool/Internal.hs:25:1
100% ( 19 / 19) in 'Data.Pool'
100% ( 19 / 19) 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.4.0.0-1PpidL97Vsg9ZeDEKBzy1P
Completed resource-pool-0.4.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-43DOB4OG5zMDLEhHIUHvKX
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-48HDvrXffJTGjuknHDMw0T
Completed tf-random-0.5
Configuring QuickCheck-2.15.0.1...
Preprocessing library for QuickCheck-2.15.0.1..
Building library for QuickCheck-2.15.0.1..
[ 1 of 16] Compiling Test.QuickCheck.Exception ( src/Test/QuickCheck/Exception.hs, dist/build/Test/QuickCheck/Exception.o, dist/build/Test/QuickCheck/Exception.dyn_o )
[ 2 of 16] 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 16] 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 16] 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 16] Compiling Test.QuickCheck.Arbitrary ( src/Test/QuickCheck/Arbitrary.hs, dist/build/Test/QuickCheck/Arbitrary.o, dist/build/Test/QuickCheck/Arbitrary.dyn_o )
[ 6 of 16] Compiling Test.QuickCheck.Poly ( src/Test/QuickCheck/Poly.hs, dist/build/Test/QuickCheck/Poly.o, dist/build/Test/QuickCheck/Poly.dyn_o )
[ 7 of 16] Compiling Test.QuickCheck.Modifiers ( src/Test/QuickCheck/Modifiers.hs, dist/build/Test/QuickCheck/Modifiers.o, dist/build/Test/QuickCheck/Modifiers.dyn_o )
[ 8 of 16] Compiling Test.QuickCheck.Function ( src/Test/QuickCheck/Function.hs, dist/build/Test/QuickCheck/Function.o, dist/build/Test/QuickCheck/Function.dyn_o )
[ 9 of 16] Compiling Test.QuickCheck.Text ( src/Test/QuickCheck/Text.hs, dist/build/Test/QuickCheck/Text.o, dist/build/Test/QuickCheck/Text.dyn_o )
[10 of 16] Compiling Test.QuickCheck.State ( src/Test/QuickCheck/State.hs, dist/build/Test/QuickCheck/State.o, dist/build/Test/QuickCheck/State.dyn_o )
[11 of 16] Compiling Test.QuickCheck.Property ( src/Test/QuickCheck/Property.hs, dist/build/Test/QuickCheck/Property.o, dist/build/Test/QuickCheck/Property.dyn_o )
[12 of 16] 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 16] Compiling Test.QuickCheck.Monadic ( src/Test/QuickCheck/Monadic.hs, dist/build/Test/QuickCheck/Monadic.o, dist/build/Test/QuickCheck/Monadic.dyn_o )
[14 of 16] Compiling Test.QuickCheck.All ( src/Test/QuickCheck/All.hs, dist/build/Test/QuickCheck/All.o, dist/build/Test/QuickCheck/All.dyn_o )
[15 of 16] Compiling Test.QuickCheck.Features ( src/Test/QuickCheck/Features.hs, dist/build/Test/QuickCheck/Features.o, dist/build/Test/QuickCheck/Features.dyn_o )
[16 of 16] Compiling Test.QuickCheck ( src/Test/QuickCheck.hs, dist/build/Test/QuickCheck.o, dist/build/Test/QuickCheck.dyn_o )
Preprocessing library for QuickCheck-2.15.0.1..
Running Haddock on library for QuickCheck-2.15.0.1..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 16] Compiling Test.QuickCheck.Exception ( src/Test/QuickCheck/Exception.hs, nothing )
[ 2 of 16] 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 16] 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 16] Compiling Test.QuickCheck.Gen.Unsafe ( src/Test/QuickCheck/Gen/Unsafe.hs, nothing )
[ 5 of 16] Compiling Test.QuickCheck.Arbitrary ( src/Test/QuickCheck/Arbitrary.hs, nothing )
[ 6 of 16] Compiling Test.QuickCheck.Poly ( src/Test/QuickCheck/Poly.hs, nothing )
[ 7 of 16] Compiling Test.QuickCheck.Modifiers ( src/Test/QuickCheck/Modifiers.hs, nothing )
[ 8 of 16] Compiling Test.QuickCheck.Function ( src/Test/QuickCheck/Function.hs, nothing )
[ 9 of 16] Compiling Test.QuickCheck.Text ( src/Test/QuickCheck/Text.hs, nothing )
[10 of 16] Compiling Test.QuickCheck.State ( src/Test/QuickCheck/State.hs, nothing )
[11 of 16] Compiling Test.QuickCheck.Property ( src/Test/QuickCheck/Property.hs, nothing )
[12 of 16] 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 16] Compiling Test.QuickCheck.Monadic ( src/Test/QuickCheck/Monadic.hs, nothing )
[14 of 16] Compiling Test.QuickCheck.All ( src/Test/QuickCheck/All.hs, nothing )
[15 of 16] Compiling Test.QuickCheck.Features ( src/Test/QuickCheck/Features.hs, nothing )
[16 of 16] Compiling Test.QuickCheck ( src/Test/QuickCheck.hs, nothing )
Haddock coverage:
Warning: 'a' 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.
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: 'label' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'classify' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
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:297)
shrink1 (src/Test/QuickCheck/Arbitrary.hs:300)
arbitrary2 (src/Test/QuickCheck/Arbitrary.hs:309)
shrink2 (src/Test/QuickCheck/Arbitrary.hs:312)
RecursivelyShrink (src/Test/QuickCheck/Arbitrary.hs:324)
GSubterms (src/Test/QuickCheck/Arbitrary.hs:355)
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:93:19
* at src/Test/QuickCheck/Modifiers.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 src/Test/QuickCheck/Modifiers.hs:93:1
Warning: 'A' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'NonNegative' is ambiguous. It is defined
* at src/Test/QuickCheck/Modifiers.hs:311:25
* at src/Test/QuickCheck/Modifiers.hs:311:1
You may 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:311:1
Warning: 'forAll' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'OrdA' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Large' is ambiguous. It is defined
* at src/Test/QuickCheck/Modifiers.hs:350:19
* at src/Test/QuickCheck/Modifiers.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/Test/QuickCheck/Modifiers.hs:350:1
95% ( 21 / 22) in 'Test.QuickCheck.Modifiers'
Missing documentation for:
ShrinkState (src/Test/QuickCheck/Modifiers.hs:468)
Warning: 'Fun' is ambiguous. It is defined
* at src/Test/QuickCheck/Function.hs:545:16
* at src/Test/QuickCheck/Function.hs:545:1
You may 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:545:1
100% ( 21 / 21) in 'Test.QuickCheck.Function'
Warning: 'checkCoverage' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'cover' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Discard' is ambiguous. It is defined
* at src/Test/QuickCheck/Property.hs:111:16
* at src/Test/QuickCheck/Property.hs:111:1
You may 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:111:1
Warning: 'witnesses' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'quickCheckResult' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
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
Warning: 'table' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'tabular' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'p1' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'p2' 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.
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: '()' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Fun' is ambiguous. It is defined
* at src/Test/QuickCheck/Function.hs:545:16
* at src/Test/QuickCheck/Function.hs:545:1
You may 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:545:1
Warning: 'Blind' is ambiguous. It is defined
* at src/Test/QuickCheck/Modifiers.hs:93:19
* at src/Test/QuickCheck/Modifiers.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 src/Test/QuickCheck/Modifiers.hs:93:1
Warning: 'A' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'NonNegative' is ambiguous. It is defined
* at src/Test/QuickCheck/Modifiers.hs:311:25
* at src/Test/QuickCheck/Modifiers.hs:311:1
You may 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:311:1
Warning: 'OrdA' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
96% (199 /207) in 'Test.QuickCheck'
Missing documentation for:
arbitrary1 (src/Test/QuickCheck/Arbitrary.hs:297)
shrink1 (src/Test/QuickCheck/Arbitrary.hs:300)
arbitrary2 (src/Test/QuickCheck/Arbitrary.hs:309)
shrink2 (src/Test/QuickCheck/Arbitrary.hs:312)
ShrinkState (src/Test/QuickCheck/Modifiers.hs:468)
Witness (src/Test/QuickCheck/Property.hs:259)
coerceWitness (src/Test/QuickCheck/Property.hs:265)
castWitness (src/Test/QuickCheck/Property.hs:270)
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.15.0.1-8e8MYj1XhftIsOSIJohsmz
Completed QuickCheck-2.15.0.1
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.5...
Preprocessing library for fast-logger-3.2.5..
Building library for fast-logger-3.2.5..
[ 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 )
System/Log/FastLogger/File.hs:86:12: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from System.Log.FastLogger.Imports, 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."
|
86 | srcs = tail dsts
| ^^^^
[ 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.5..
Running Haddock on library for fast-logger-3.2.5..
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 )
System/Log/FastLogger/File.hs:86:12: warning: [GHC-63394] [-Wx-partial]
In the use of tail
(imported from System.Log.FastLogger.Imports, 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."
|
86 | srcs = tail dsts
| ^^^^
[ 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:23:21
* at System/Log/FastLogger/SingleLogger.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 System/Log/FastLogger/SingleLogger.hs:23: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.5-2DrkP9ayaGLDvOdoYBn5X5
Completed fast-logger-3.2.5
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-4LGN1SaVRly6yOWSSrTp73
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-1GCC6ZmdC1r5c8fY18O8h
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.18.1.0...
Preprocessing library for optparse-applicative-0.18.1.0..
Building library for optparse-applicative-0.18.1.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:58:31: warning: [GHC-61689] [-Wdodgy-imports]
Module Data.Semigroup does not export Option.
|
58 | 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.18.1.0..
Running Haddock on library for optparse-applicative-0.18.1.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:58:31: warning: [GHC-61689] [-Wdodgy-imports]
Module Data.Semigroup does not export Option.
|
58 | 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: 'a' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
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: 'execParserPure' 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: 'OptReader' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:239:5
* at src/Options/Applicative/Types.hs:238:1
You may 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:238:1
Warning: 'name' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'Completer' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:310:21
* at src/Options/Applicative/Types.hs:310:1
You may 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:310:1
38% ( 17 / 44) in 'Options.Applicative.Types'
Missing documentation for:
Module header
ParseError (src/Options/Applicative/Types.hs:68)
OptName (src/Options/Applicative/Types.hs:132)
isShortName (src/Options/Applicative/Types.hs:137)
isLongName (src/Options/Applicative/Types.hs:141)
Backtracking (src/Options/Applicative/Types.hs:104)
CReader (src/Options/Applicative/Types.hs:230)
ParserM (src/Options/Applicative/Types.hs:273)
CompletionResult (src/Options/Applicative/Types.hs:325)
ParserFailure (src/Options/Applicative/Types.hs:332)
overFailure (src/Options/Applicative/Types.hs:359)
Args (src/Options/Applicative/Types.hs:374)
ArgumentReachability (src/Options/Applicative/Types.hs:401)
OptTree (src/Options/Applicative/Types.hs:411)
ParserHelp (src/Options/Applicative/Help/Types.hs:12)
SomeParser (src/Options/Applicative/Types.hs:176)
IsCmdStart (src/Options/Applicative/Types.hs:77)
fromM (src/Options/Applicative/Types.hs:288)
oneM (src/Options/Applicative/Types.hs:291)
manyM (src/Options/Applicative/Types.hs:294)
someM (src/Options/Applicative/Types.hs:301)
filterOptional (src/Options/Applicative/Types.hs:419)
optVisibility (src/Options/Applicative/Types.hs:432)
optMetaVar (src/Options/Applicative/Types.hs:438)
optHelp (src/Options/Applicative/Types.hs:435)
optShowDefault (src/Options/Applicative/Types.hs:441)
optDescMod (src/Options/Applicative/Types.hs:444)
50% ( 1 / 2) in 'Options.Applicative.NonEmpty'
Missing documentation for:
Module header
0% ( 0 / 21) in 'Options.Applicative.Internal'
Missing documentation for:
Module header
P (src/Options/Applicative/Internal.hs:50)
MonadP (src/Options/Applicative/Internal.hs:41)
ParseError (src/Options/Applicative/Types.hs:68)
uncons (src/Options/Applicative/Internal.hs:95)
hoistMaybe (src/Options/Applicative/Internal.hs:86)
hoistEither (src/Options/Applicative/Internal.hs:89)
runReadM (src/Options/Applicative/Internal.hs:99)
withReadM (src/Options/Applicative/Internal.hs:102)
runP (src/Options/Applicative/Internal.hs:92)
Completion (src/Options/Applicative/Internal.hs:126)
runCompletion (src/Options/Applicative/Internal.hs:158)
contextNames (src/Options/Applicative/Internal.hs:72)
ListT (src/Options/Applicative/Internal.hs:165)
takeListT (src/Options/Applicative/Internal.hs:177)
runListT (src/Options/Applicative/Internal.hs:181)
hoistList (src/Options/Applicative/Internal.hs:266)
NondetT (src/Options/Applicative/Internal.hs:221)
cut (src/Options/Applicative/Internal.hs:253)
<!> (src/Options/Applicative/Internal.hs:247)
disamb (src/Options/Applicative/Internal.hs:256)
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:238)
runParserFully (src/Options/Applicative/Common.hs:241)
runParserStep (src/Options/Applicative/Common.hs:228)
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:214)
headerHelp (src/Options/Applicative/Help/Core.hs:217)
suggestionsHelp (src/Options/Applicative/Help/Core.hs:220)
usageHelp (src/Options/Applicative/Help/Core.hs:226)
descriptionHelp (src/Options/Applicative/Help/Core.hs:229)
bodyHelp (src/Options/Applicative/Help/Core.hs:232)
footerHelp (src/Options/Applicative/Help/Core.hs:235)
globalsHelp (src/Options/Applicative/Help/Core.hs:223)
parserGlobals (src/Options/Applicative/Help/Core.hs:257)
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
Warning: 'strOption' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'flag' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'hidden' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
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:130)
fieldMod (src/Options/Applicative/Builder/Internal.hs:133)
mkCommand (src/Options/Applicative/Builder/Internal.hs:156)
mkParser (src/Options/Applicative/Builder/Internal.hs:165)
mkOption (src/Options/Applicative/Builder/Internal.hs:175)
mkProps (src/Options/Applicative/Builder/Internal.hs:180)
Warning: 'Completer' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:310:21
* at src/Options/Applicative/Types.hs:310:1
You may 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:310: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:89:21
* at src/Options/Applicative/Types.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 src/Options/Applicative/Types.hs:89:1
Warning: 'Option' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:171:17
* at src/Options/Applicative/Types.hs:171:1
You may 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:171:1
Warning: 'ParserPrefs' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:111:20
* at src/Options/Applicative/Types.hs:111:1
You may 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:111:1
86% ( 72 / 83) in 'Options.Applicative.Builder'
Missing documentation for:
Module header
ParseError (src/Options/Applicative/Types.hs:68)
PrefsMod (src/Options/Applicative/Builder.hs:470)
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:89:21
* at src/Options/Applicative/Types.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 src/Options/Applicative/Types.hs:89:1
Warning: 'ParserFailure' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:332:27
* at src/Options/Applicative/Types.hs:332:1
You may be able to disambiguate the identifier by qualifying it or
by specifying the type/value namespace explicitly.
Defaulting to the one defined at src/Options/Applicative/Types.hs:332:1
Warning: 'Context' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:180:16
* at src/Options/Applicative/Types.hs:180:1
You may 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:180: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:332)
overFailure (src/Options/Applicative/Types.hs:359)
CompletionResult (src/Options/Applicative/Types.hs:325)
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: 'Parsec' is out of scope.
If you qualify the identifier, haddock can try to link it anyway.
Warning: 'ParserInfo' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:89:21
* at src/Options/Applicative/Types.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 src/Options/Applicative/Types.hs:89:1
Warning: 'ParserPrefs' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:111:20
* at src/Options/Applicative/Types.hs:111:1
You may 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:111:1
Warning: 'Completer' is ambiguous. It is defined
* at src/Options/Applicative/Types.hs:310:21
* at src/Options/Applicative/Types.hs:310:1
You may 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:310:1
86% (105 /121) 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:359)
PrefsMod (src/Options/Applicative/Builder.hs:470)
ParseError (src/Options/Applicative/Types.hs:68)
ParserHelp (src/Options/Applicative/Help/Types.hs:12)
ParserFailure (src/Options/Applicative/Types.hs:332)
CompletionResult (src/Options/Applicative/Types.hs:325)
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.18.1.0-4WRf5bX1TuC4wIXAa7SFmd
Completed optparse-applicative-0.18.1.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-92QmorY2pDA2Lr5h5Tz6Ld
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-88ZT9OJUomlCrqDZFkMKc7
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-CPJIcYGrBgy4e7heJRxm0o
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-DIUQ58JzSCGAA9OUbod02e
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-8ZDPhGIKW4A1mJgtaDSvlk
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-8ZDPhGIKW4A1mJgtaDSvlk
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-4Dk26s8NtLi7GzweMTZnVT
Completed th-lift-instances-0.1.20
Configuring quickcheck-instances-0.3.32...
Preprocessing library for quickcheck-instances-0.3.32..
Building library for quickcheck-instances-0.3.32..
[ 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.32..
Running Haddock on library for quickcheck-instances-0.3.32..
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
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.32-1RDp9UjM5nsGJgwNZPjoAw
Completed quickcheck-instances-0.3.32
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-1dsqgc9BmoDEVLBGnXfmjr
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-3K6yyoG5ZjhC7ZAjXJmCE1
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-FVhL4VHaNMv7S3V4oHNb5Q
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-1BuaA6EKUQ7HUztj2CpA9h
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-24cfrNSnyNr4wX7POTkdY3
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-K92LSJ20OkAIHCbU7a47AA
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-3KQy6YmvKFE7aJCM97RGUV
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-8s2bsLbFnhOHRRIykNSOP
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-CU4Qv44Zr88FEewhRJt6pc
Completed conduit-1.3.6.1
Configuring conduit-extra-1.3.7...
Preprocessing library for conduit-extra-1.3.7..
Building library for conduit-extra-1.3.7..
[ 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:47: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
|
47 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:47: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
|
47 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:48: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
|
48 | isStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> sinkHandle h, Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:49: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
|
49 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:49: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
|
49 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:49: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
|
49 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:50: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
|
50 | isStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> (sinkHandle h, liftIO $ hClose h), Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:65: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
|
65 | instance (MonadIO m, r ~ ()) => InputSource (BuilderInput o m r) where
| ^
Data/Conduit/Process.hs:66: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
|
66 | isStdStream = (\(Just h) -> return $ BuilderInput $ sinkHandleBuilder h, Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:67: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
|
67 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where
| ^
Data/Conduit/Process.hs:67: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
|
67 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where
| ^
Data/Conduit/Process.hs:68: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
|
68 | isStdStream = (\(Just h) -> return (BuilderInput $ sinkHandleBuilder h, liftIO $ hClose h), Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:69: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
|
69 | instance (MonadIO m, r ~ ()) => InputSource (FlushInput o m r) where
| ^
Data/Conduit/Process.hs:70: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
|
70 | isStdStream = (\(Just h) -> return $ FlushInput $ sinkHandleFlush h, Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:71: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
|
71 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where
| ^
Data/Conduit/Process.hs:71: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
|
71 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where
| ^
Data/Conduit/Process.hs:72: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
|
72 | isStdStream = (\(Just h) -> return (FlushInput $ sinkHandleFlush h, liftIO $ hClose h), Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:74: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
|
74 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:74: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
|
74 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:75: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
|
75 | osStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> sourceHandle h, Just CreatePipe)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Data/Conduit/Process.hs:76: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
|
76 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:76: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
|
76 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:76: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
|
76 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:77: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
|
77 | 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.7..
Running Haddock on library for conduit-extra-1.3.7..
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:47: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
|
47 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:47: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
|
47 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:49: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
|
49 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:49: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
|
49 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:49: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
|
49 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:65: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
|
65 | instance (MonadIO m, r ~ ()) => InputSource (BuilderInput o m r) where
| ^
Data/Conduit/Process.hs:67: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
|
67 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where
| ^
Data/Conduit/Process.hs:67: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
|
67 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where
| ^
Data/Conduit/Process.hs:69: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
|
69 | instance (MonadIO m, r ~ ()) => InputSource (FlushInput o m r) where
| ^
Data/Conduit/Process.hs:71: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
|
71 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where
| ^
Data/Conduit/Process.hs:71: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
|
71 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where
| ^
Data/Conduit/Process.hs:74: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
|
74 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:74: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
|
74 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where
| ^
Data/Conduit/Process.hs:76: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
|
76 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:76: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
|
76 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where
| ^
Data/Conduit/Process.hs:76: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
|
76 | 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.7-2PPrDWkxwpqIRco1iPmwEY
Completed conduit-extra-1.3.7
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-EP7lpsDAknOKP0Z8LjWo81
Completed monad-logger-0.3.42
Configuring persistent-2.17.0.0...
Preprocessing library for persistent-2.17.0.0..
Building library for persistent-2.17.0.0..
[ 1 of 51] 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 51] Compiling Database.Persist.Names ( Database/Persist/Names.hs, dist/build/Database/Persist/Names.o, dist/build/Database/Persist/Names.dyn_o )
[ 3 of 51] Compiling Database.Persist.PersistValue ( Database/Persist/PersistValue.hs, dist/build/Database/Persist/PersistValue.o, dist/build/Database/Persist/PersistValue.dyn_o )
[ 4 of 51] 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 )
[ 5 of 51] 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 )
[ 6 of 51] 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 )
[ 7 of 51] 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 )
[ 8 of 51] 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
| ^^^^^^^^^^^^^^^^^^^
[ 9 of 51] 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 )
[10 of 51] 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 )
[11 of 51] 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 )
[12 of 51] 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 )
[13 of 51] 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 )
[14 of 51] Compiling Database.Persist.FieldDef ( Database/Persist/FieldDef.hs, dist/build/Database/Persist/FieldDef.o, dist/build/Database/Persist/FieldDef.dyn_o )
[15 of 51] 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 )
[16 of 51] Compiling Database.Persist.EntityDef ( Database/Persist/EntityDef.hs, dist/build/Database/Persist/EntityDef.o, dist/build/Database/Persist/EntityDef.dyn_o )
[17 of 51] 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)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[18 of 51] 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
| ^^^^^^^^^^^^^^^^^^
[19 of 51] Compiling Database.Persist.Types ( Database/Persist/Types.hs, dist/build/Database/Persist/Types.o, dist/build/Database/Persist/Types.dyn_o )
[20 of 51] 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
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[21 of 51] 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 )
[22 of 51] 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 )
[23 of 51] 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 )
[24 of 51] Compiling Database.Persist.SqlBackend ( Database/Persist/SqlBackend.hs, dist/build/Database/Persist/SqlBackend.o, dist/build/Database/Persist/SqlBackend.dyn_o )
[25 of 51] 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 )
[26 of 51] 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 )
[27 of 51] Compiling Database.Persist.Class ( Database/Persist/Class.hs, dist/build/Database/Persist/Class.o, dist/build/Database/Persist/Class.dyn_o )
[28 of 51] 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 )
[29 of 51] 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 )
[30 of 51] 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 )
[31 of 51] Compiling Database.Persist ( Database/Persist.hs, dist/build/Database/Persist.o, dist/build/Database/Persist.dyn_o )
[32 of 51] 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 )
[33 of 51] 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 )
[34 of 51] 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 )
[35 of 51] 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 }
| ^^^^^^^^^^^^^^^^^
[36 of 51] 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
| ^^^^^^^^^^
[37 of 51] 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 )
[38 of 51] 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
| ^^^^
[39 of 51] 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)))
| ^^^^
[40 of 51] 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 )
[41 of 51] 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 _ _ ->
| ^^^^^^^^^^...
[42 of 51] Compiling Database.Persist.ImplicitIdDef ( Database/Persist/ImplicitIdDef.hs, dist/build/Database/Persist/ImplicitIdDef.o, dist/build/Database/Persist/ImplicitIdDef.dyn_o )
[43 of 51] 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 )
[44 of 51] 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 )
[45 of 51] Compiling Database.Persist.Compatible ( Database/Persist/Compatible.hs, dist/build/Database/Persist/Compatible.o, dist/build/Database/Persist/Compatible.dyn_o )
[46 of 51] Compiling Database.Persist.Sql ( Database/Persist/Sql.hs, dist/build/Database/Persist/Sql.o, dist/build/Database/Persist/Sql.dyn_o )
[47 of 51] 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:37:34: warning: [GHC-38856] [-Wunused-imports]
The import of mzero from module Control.Monad is redundant
|
37 | import Control.Monad (MonadPlus, mzero, void)
| ^^^^^
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:45:19: warning: [GHC-38856] [-Wunused-imports]
The import of find from module Data.List is redundant
|
45 | import Data.List (find, intercalate)
| ^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:144: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)
|
144 | ((_is, either), warnings) = runWriter wm
| ^^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:226:20: warning: [GHC-40910] [-Wunused-matches]
Defined but not used: msg
|
226 | tryOrRegisterError msg p l r = do
| ^^^
Database/Persist/Quasi/Internal/ModelParser.hs:234:22: warning: [GHC-40910] [-Wunused-local-binds]
Defined but not used: pairs
|
234 | (pairs, _) = attachSourcePos errorOffset [err] posState
| ^^^^^
[48 of 51] 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)
| ^^^^^^^
[49 of 51] Compiling Database.Persist.Quasi ( Database/Persist/Quasi.hs, dist/build/Database/Persist/Quasi.o, dist/build/Database/Persist/Quasi.dyn_o )
[50 of 51] 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|]
| ^^^^
[51 of 51] 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.0.0..
Running Haddock on library for persistent-2.17.0.0..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 51] Compiling Database.Persist.Class.PersistConfig ( Database/Persist/Class/PersistConfig.hs, /tmp/ghc880799_0/ghc_22.o, /tmp/ghc880799_0/ghc_22.dyn_o )
[ 2 of 51] Compiling Database.Persist.Names ( Database/Persist/Names.hs, /tmp/ghc880799_0/ghc_48.o, /tmp/ghc880799_0/ghc_48.dyn_o )
[ 3 of 51] Compiling Database.Persist.PersistValue ( Database/Persist/PersistValue.hs, /tmp/ghc880799_0/ghc_50.o, /tmp/ghc880799_0/ghc_50.dyn_o )
[ 4 of 51] Compiling Database.Persist.SqlBackend.Internal.IsolationLevel ( Database/Persist/SqlBackend/Internal/IsolationLevel.hs, /tmp/ghc880799_0/ghc_90.o, /tmp/ghc880799_0/ghc_90.dyn_o )
[ 5 of 51] Compiling Database.Persist.SqlBackend.Internal.SqlPoolHooks ( Database/Persist/SqlBackend/Internal/SqlPoolHooks.hs, /tmp/ghc880799_0/ghc_94.o, /tmp/ghc880799_0/ghc_94.dyn_o )
[ 6 of 51] Compiling Database.Persist.Types.SourceSpan ( Database/Persist/Types/SourceSpan.hs, /tmp/ghc880799_0/ghc_106.o, /tmp/ghc880799_0/ghc_106.dyn_o )
[ 7 of 51] Compiling Database.Persist.Types.Base ( Database/Persist/Types/Base.hs, /tmp/ghc880799_0/ghc_104.o, /tmp/ghc880799_0/ghc_104.dyn_o )
[ 8 of 51] Compiling Database.Persist.SqlBackend.Internal.Statement ( Database/Persist/SqlBackend/Internal/Statement.hs, /tmp/ghc880799_0/ghc_96.o, /tmp/ghc880799_0/ghc_96.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
| ^^^^^^^^^^^^^^^^^^^
[ 9 of 51] Compiling Database.Persist.SqlBackend.Internal.StatementCache ( Database/Persist/SqlBackend/Internal/StatementCache.hs, /tmp/ghc880799_0/ghc_98.o, /tmp/ghc880799_0/ghc_98.dyn_o )
[10 of 51] Compiling Database.Persist.SqlBackend.StatementCache ( Database/Persist/SqlBackend/StatementCache.hs, /tmp/ghc880799_0/ghc_100.o, /tmp/ghc880799_0/ghc_100.dyn_o )
[11 of 51] Compiling Database.Persist.SqlBackend.Internal.InsertSqlResult ( Database/Persist/SqlBackend/Internal/InsertSqlResult.hs, /tmp/ghc880799_0/ghc_88.o, /tmp/ghc880799_0/ghc_88.dyn_o )
[12 of 51] Compiling Database.Persist.SqlBackend.Internal.MkSqlBackend ( Database/Persist/SqlBackend/Internal/MkSqlBackend.hs, /tmp/ghc880799_0/ghc_92.o, /tmp/ghc880799_0/ghc_92.dyn_o )
[13 of 51] Compiling Database.Persist.FieldDef.Internal ( Database/Persist/FieldDef/Internal.hs, /tmp/ghc880799_0/ghc_42.o, /tmp/ghc880799_0/ghc_42.dyn_o )
[14 of 51] Compiling Database.Persist.FieldDef ( Database/Persist/FieldDef.hs, /tmp/ghc880799_0/ghc_40.o, /tmp/ghc880799_0/ghc_40.dyn_o )
[15 of 51] Compiling Database.Persist.EntityDef.Internal ( Database/Persist/EntityDef/Internal.hs, /tmp/ghc880799_0/ghc_38.o, /tmp/ghc880799_0/ghc_38.dyn_o )
[16 of 51] Compiling Database.Persist.EntityDef ( Database/Persist/EntityDef.hs, /tmp/ghc880799_0/ghc_36.o, /tmp/ghc880799_0/ghc_36.dyn_o )
[17 of 51] Compiling Database.Persist.Class.PersistField ( Database/Persist/Class/PersistField.hs, /tmp/ghc880799_0/ghc_26.o, /tmp/ghc880799_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)
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[18 of 51] Compiling Database.Persist.Class.PersistEntity ( Database/Persist/Class/PersistEntity.hs, /tmp/ghc880799_0/ghc_24.o, /tmp/ghc880799_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
| ^^^^^^^^^^^^^^^^^^
[19 of 51] Compiling Database.Persist.Types ( Database/Persist/Types.hs, /tmp/ghc880799_0/ghc_102.o, /tmp/ghc880799_0/ghc_102.dyn_o )
[20 of 51] Compiling Database.Persist.Quasi.PersistSettings.Internal ( Database/Persist/Quasi/PersistSettings/Internal.hs, /tmp/ghc880799_0/ghc_60.o, /tmp/ghc880799_0/ghc_60.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
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
[21 of 51] Compiling Database.Persist.Quasi.PersistSettings ( Database/Persist/Quasi/PersistSettings.hs, /tmp/ghc880799_0/ghc_58.o, /tmp/ghc880799_0/ghc_58.dyn_o )
[22 of 51] Compiling Database.Persist.Class.PersistStore ( Database/Persist/Class/PersistStore.hs, /tmp/ghc880799_0/ghc_30.o, /tmp/ghc880799_0/ghc_30.dyn_o )
[23 of 51] Compiling Database.Persist.SqlBackend.Internal ( Database/Persist/SqlBackend/Internal.hs, /tmp/ghc880799_0/ghc_86.o, /tmp/ghc880799_0/ghc_86.dyn_o )
[24 of 51] Compiling Database.Persist.SqlBackend ( Database/Persist/SqlBackend.hs, nothing )
[25 of 51] Compiling Database.Persist.Class.PersistUnique ( Database/Persist/Class/PersistUnique.hs, /tmp/ghc880799_0/ghc_32.o, /tmp/ghc880799_0/ghc_32.dyn_o )
[26 of 51] Compiling Database.Persist.Class.PersistQuery ( Database/Persist/Class/PersistQuery.hs, /tmp/ghc880799_0/ghc_28.o, /tmp/ghc880799_0/ghc_28.dyn_o )
[27 of 51] Compiling Database.Persist.Class ( Database/Persist/Class.hs, /tmp/ghc880799_0/ghc_20.o, /tmp/ghc880799_0/ghc_20.dyn_o )
[28 of 51] Compiling Database.Persist.Sql.Types.Internal ( Database/Persist/Sql/Types/Internal.hs, /tmp/ghc880799_0/ghc_82.o, /tmp/ghc880799_0/ghc_82.dyn_o )
[29 of 51] Compiling Database.Persist.Sql.Types ( Database/Persist/Sql/Types.hs, /tmp/ghc880799_0/ghc_80.o, /tmp/ghc880799_0/ghc_80.dyn_o )
[30 of 51] Compiling Database.Persist.Sql.Internal ( Database/Persist/Sql/Internal.hs, /tmp/ghc880799_0/ghc_66.o, /tmp/ghc880799_0/ghc_66.dyn_o )
[31 of 51] Compiling Database.Persist ( Database/Persist.hs, /tmp/ghc880799_0/ghc_18.o, /tmp/ghc880799_0/ghc_18.dyn_o )
[32 of 51] Compiling Database.Persist.Sql.Util ( Database/Persist/Sql/Util.hs, /tmp/ghc880799_0/ghc_84.o, /tmp/ghc880799_0/ghc_84.dyn_o )
[33 of 51] Compiling Database.Persist.Sql.Class ( Database/Persist/Sql/Class.hs, /tmp/ghc880799_0/ghc_64.o, /tmp/ghc880799_0/ghc_64.dyn_o )
[34 of 51] Compiling Database.Persist.Sql.Raw ( Database/Persist/Sql/Raw.hs, /tmp/ghc880799_0/ghc_76.o, /tmp/ghc880799_0/ghc_76.dyn_o )
[35 of 51] 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 }
| ^^^^^^^^^^^^^^^^^
[36 of 51] Compiling Database.Persist.Sql.Run ( Database/Persist/Sql/Run.hs, /tmp/ghc880799_0/ghc_78.o, /tmp/ghc880799_0/ghc_78.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
| ^^^^^^^^^^
[37 of 51] Compiling Database.Persist.Sql.Orphan.PersistStore ( Database/Persist/Sql/Orphan/PersistStore.hs, /tmp/ghc880799_0/ghc_72.o, /tmp/ghc880799_0/ghc_72.dyn_o )
[38 of 51] Compiling Database.Persist.Sql.Orphan.PersistUnique ( Database/Persist/Sql/Orphan/PersistUnique.hs, /tmp/ghc880799_0/ghc_74.o, /tmp/ghc880799_0/ghc_74.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
| ^^^^
[39 of 51] Compiling Database.Persist.Sql.Orphan.PersistQuery ( Database/Persist/Sql/Orphan/PersistQuery.hs, /tmp/ghc880799_0/ghc_70.o, /tmp/ghc880799_0/ghc_70.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)))
| ^^^^
[40 of 51] Compiling Database.Persist.Sql.Migration ( Database/Persist/Sql/Migration.hs, /tmp/ghc880799_0/ghc_68.o, /tmp/ghc880799_0/ghc_68.dyn_o )
[41 of 51] Compiling Database.Persist.ImplicitIdDef.Internal ( Database/Persist/ImplicitIdDef/Internal.hs, /tmp/ghc880799_0/ghc_46.o, /tmp/ghc880799_0/ghc_46.dyn_o )
[42 of 51] Compiling Database.Persist.ImplicitIdDef ( Database/Persist/ImplicitIdDef.hs, /tmp/ghc880799_0/ghc_44.o, /tmp/ghc880799_0/ghc_44.dyn_o )
[43 of 51] Compiling Database.Persist.Compatible.Types ( Database/Persist/Compatible/Types.hs, /tmp/ghc880799_0/ghc_34.o, /tmp/ghc880799_0/ghc_34.dyn_o )
[44 of 51] Compiling Database.Persist.Compatible.TH ( Database/Persist/Compatible/TH.hs, nothing )
[45 of 51] Compiling Database.Persist.Compatible ( Database/Persist/Compatible.hs, nothing )
[46 of 51] Compiling Database.Persist.Sql ( Database/Persist/Sql.hs, /tmp/ghc880799_0/ghc_62.o, /tmp/ghc880799_0/ghc_62.dyn_o )
[47 of 51] Compiling Database.Persist.Quasi.Internal.ModelParser ( Database/Persist/Quasi/Internal/ModelParser.hs, /tmp/ghc880799_0/ghc_56.o, /tmp/ghc880799_0/ghc_56.dyn_o )
Database/Persist/Quasi/Internal/ModelParser.hs:37:34: warning: [GHC-38856] [-Wunused-imports]
The import of mzero from module Control.Monad is redundant
|
37 | import Control.Monad (MonadPlus, mzero, void)
| ^^^^^
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:45:19: warning: [GHC-38856] [-Wunused-imports]
The import of find from module Data.List is redundant
|
45 | import Data.List (find, intercalate)
| ^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:144: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)
|
144 | ((_is, either), warnings) = runWriter wm
| ^^^^^^
Database/Persist/Quasi/Internal/ModelParser.hs:226:20: warning: [GHC-40910] [-Wunused-matches]
Defined but not used: msg
|
226 | tryOrRegisterError msg p l r = do
| ^^^
Database/Persist/Quasi/Internal/ModelParser.hs:234:22: warning: [GHC-40910] [-Wunused-local-binds]
Defined but not used: pairs
|
234 | (pairs, _) = attachSourcePos errorOffset [err] posState
| ^^^^^
[48 of 51] Compiling Database.Persist.Quasi.Internal ( Database/Persist/Quasi/Internal.hs, /tmp/ghc880799_0/ghc_54.o, /tmp/ghc880799_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)
| ^^^^^^^
[49 of 51] Compiling Database.Persist.Quasi ( Database/Persist/Quasi.hs, /tmp/ghc880799_0/ghc_52.o, /tmp/ghc880799_0/ghc_52.dyn_o )
[50 of 51] 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|]
| ^^^^
[51 of 51] 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)
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
66% ( 14 / 21) 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:44)
upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:52)
lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:53)
warningPos (Database/Persist/Quasi/PersistSettings/Internal.hs:80)
toFKNameInfixed (Database/Persist/Quasi/PersistSettings/Internal.hs:102)
71% ( 15 / 21) 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:44)
upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:52)
lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:53)
warningPos (Database/Persist/Quasi/PersistSettings/Internal.hs:80)
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
41% ( 10 / 24) in 'Database.Persist.Quasi.Internal.ModelParser'
Missing documentation for:
Module header
Token (Database/Persist/Quasi/Internal/ModelParser.hs:262)
anyToken (Database/Persist/Quasi/Internal/ModelParser.hs:486)
ParsedEntityDef (Database/Persist/Quasi/Internal/ModelParser.hs:494)
parsedEntityDefComments
parsedEntityDefEntityName
parsedEntityDefIsSum
parsedEntityDefEntityAttributes
parsedEntityDefFieldAttributes
parsedEntityDefExtras
parsedEntityDefSpan
parseSource (Database/Persist/Quasi/Internal/ModelParser.hs:786)
toCumulativeParseResult (Database/Persist/Quasi/Internal/ModelParser.hs:123)
initialExtraState (Database/Persist/Quasi/Internal/ModelParser.hs:73)
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 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: 'UnboundEntityDef' is ambiguous. It is defined
* at Database/Persist/Quasi/Internal.hs:259:7
* at Database/Persist/Quasi/Internal.hs:258:1
You 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:258:1
Warning: 'UnboundFieldDef' is ambiguous. It is defined
* at Database/Persist/Quasi/Internal.hs:335:7
* at Database/Persist/Quasi/Internal.hs:334:1
You 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:334: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:235:21
* at Database/Persist/Quasi/Internal.hs:235:1
You 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:235: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.
66% ( 22 / 33) in 'Database.Persist.Quasi.Internal'
Missing documentation for:
PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19)
upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:52)
lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:53)
Token (Database/Persist/Quasi/Internal/ModelParser.hs:262)
sourceLocFromTHLoc (Database/Persist/Quasi/Internal.hs:179)
parseFieldType (Database/Persist/Quasi/Internal.hs:79)
takeColsEx (Database/Persist/Quasi/Internal.hs:686)
getSqlNameOr (Database/Persist/Quasi/Internal.hs:745)
isUnboundFieldNullable (Database/Persist/Quasi/Internal.hs:435)
mkAutoIdField' (Database/Persist/Quasi/Internal.hs:663)
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.
83% ( 15 / 18) in 'Database.Persist.Quasi'
Missing documentation for:
PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19)
upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:52)
lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:53)
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:259:7
* at Database/Persist/Quasi/Internal.hs:258:1
You 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:258: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:335:7
* at Database/Persist/Quasi/Internal.hs:334:1
You 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:334: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.BlockAttr
- 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.0.0-3pLNk26I1rHDe4r6t9luV4
Completed persistent-2.17.0.0
Downloading persistent-test-2.13.1.4
Downloaded persistent-test-2.13.1.4
Configuring persistent-test-2.13.1.4...
Preprocessing library for persistent-test-2.13.1.4..
Building library for persistent-test-2.13.1.4..
[ 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:(26,101)-(126,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
32 104 37 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#))
32 104 37 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
38 104 44 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#))
38 104 44 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
45 104 47 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#))
45 104 47 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
48 104 51 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#))
48 104 51 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
52 104 59 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#))
52 104 59 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
60 104 63 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#))
60 104 63 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
67 104 68 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#))
67 104 68 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
69 104 72 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#))
69 104 72 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
75 104 78 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#))
75 104 78 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
79 104 83 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#))
79 104 83 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
85 104 91 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#))
85 104 91 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
93 104 99 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#))
93 104 99 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
101 104 104 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#))
101 104 104 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
106 104 111 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#))
106 104 111 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
116 104 119 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#))
116 104 119 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
121 104 122 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#))
121 104 122 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
124 104 125 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#))
124 104 125 5))]
src/PersistentTestModels.hs:(26,1)-(126,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
32 104 37 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#))
32 104 37 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
38 104 44 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#))
38 104 44 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
45 104 47 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#))
45 104 47 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
48 104 51 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#))
48 104 51 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
52 104 59 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#))
52 104 59 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
60 104 63 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#))
60 104 63 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
67 104 68 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#))
67 104 68 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
69 104 72 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#))
69 104 72 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
75 104 78 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#))
75 104 78 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
79 104 83 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#))
79 104 83 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
85 104 91 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#))
85 104 91 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
93 104 99 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#))
93 104 99 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
101 104 104 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#))
101 104 104 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
106 104 111 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#))
106 104 111 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
116 104 119 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#))
116 104 119 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
121 104 122 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#))
121 104 122 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
124 104 125 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#))
124 104 125 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_a5jja
= ((Entity <$> fromField_a5jja PersonId)
<*>
(((pure Person <*> fromField_a5jja PersonName)
<*> fromField_a5jja PersonAge)
<*> fromField_a5jja PersonColor))
tabulateEntityApply fromField_a5jj9
= ((Entity <$> fromField_a5jj9 PersonId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Person <$> fromField_a5jj9 PersonName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jj9 PersonAge)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jj9 PersonColor))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
32 104 37 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person x_a5jiJ x_a5jiK x_a5jiL)
= [toPersistValue x_a5jiJ, toPersistValue x_a5jiK,
toPersistValue x_a5jiL]
fromPersistValues [x1_a5jiN, x2_a5jiO, x3_a5jiP]
= 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_a5jiN
<*>
(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_a5jiO
<*>
(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_a5jiP
fromPersistValues x_a5jiM
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jiM))
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_a5jiQ)
= [toPersistValue x_a5jiQ]
persistUniqueKeys (Person _name_a5jiR _age_a5jiS _color_a5jiT)
= [PersonNameKey _name_a5jiR]
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_a5jiV) key_a5jiW
-> Entity key_a5jiW value_a5jiV)
fieldLens PersonName
= Database.Persist.TH.Internal.lensPTH
((\ Person {personName = x} -> x) . entityVal)
(\ (Entity key_a5jiX value_a5jiY) x_a5jiZ
-> Entity
key_a5jiX
(case value_a5jiY of
Person {personAge = personAge_a5jj1,
personColor = personColor_a5jj2}
-> Person
{personName = x_a5jiZ, personAge = personAge,
personColor = personColor}))
fieldLens PersonAge
= Database.Persist.TH.Internal.lensPTH
((\ Person {personAge = x} -> x) . entityVal)
(\ (Entity key_a5jiX value_a5jiY) x_a5jiZ
-> Entity
key_a5jiX
(case value_a5jiY of
Person {personName = personName_a5jj3,
personColor = personColor_a5jj5}
-> Person
{personName = personName, personAge = x_a5jiZ,
personColor = personColor}))
fieldLens PersonColor
= Database.Persist.TH.Internal.lensPTH
((\ Person {personColor = x} -> x) . entityVal)
(\ (Entity key_a5jiX value_a5jiY) x_a5jiZ
-> Entity
key_a5jiX
(case value_a5jiY of
Person {personName = personName_a5jj6, personAge = personAge_a5jj7}
-> Person
{personName = personName, personAge = personAge,
personColor = x_a5jiZ}))
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_a5jjt
= ((Entity <$> fromField_a5jjt Person1Id)
<*>
((pure Person1 <*> fromField_a5jjt Person1Name)
<*> fromField_a5jjt Person1Age))
tabulateEntityApply fromField_a5jjs
= ((Entity <$> fromField_a5jjs Person1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Person1 <$> fromField_a5jjs Person1Name)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jjs Person1Age))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
38 104 44 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person1 x_a5jjb x_a5jjc)
= [toPersistValue x_a5jjb, toPersistValue x_a5jjc]
fromPersistValues [x1_a5jje, x2_a5jjf]
= 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_a5jje
<*>
(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_a5jjf
fromPersistValues x_a5jjd
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a5jjd))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Person1 _name_a5jjg _age_a5jjh) = []
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_a5jjj) key_a5jjk
-> Entity key_a5jjk value_a5jjj)
fieldLens Person1Name
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Name = x} -> x) . entityVal)
(\ (Entity key_a5jjl value_a5jjm) x_a5jjn
-> Entity
key_a5jjl
(case value_a5jjm of
Person1 {person1Age = person1Age_a5jjp}
-> Person1 {person1Name = x_a5jjn, person1Age = person1Age}))
fieldLens Person1Age
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Age = x} -> x) . entityVal)
(\ (Entity key_a5jjl value_a5jjm) x_a5jjn
-> Entity
key_a5jjl
(case value_a5jjm of
Person1 {person1Name = person1Name_a5jjq}
-> Person1 {person1Name = person1Name, person1Age = x_a5jjn}))
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_a5jjM
= ((Entity <$> fromField_a5jjM PersonMaybeAgeId)
<*>
((pure PersonMaybeAge <*> fromField_a5jjM PersonMaybeAgeName)
<*> fromField_a5jjM PersonMaybeAgeAge))
tabulateEntityApply fromField_a5jjL
= ((Entity <$> fromField_a5jjL PersonMaybeAgeId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((PersonMaybeAge <$> fromField_a5jjL PersonMaybeAgeName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jjL PersonMaybeAgeAge))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
45 104 47 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMaybeAge x_a5jju x_a5jjv)
= [toPersistValue x_a5jju, toPersistValue x_a5jjv]
fromPersistValues [x1_a5jjx, x2_a5jjy]
= 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_a5jjx
<*>
(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_a5jjy
fromPersistValues x_a5jjw
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMaybeAge: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 45#))
(Data.Text.Internal.pack $ show x_a5jjw))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMaybeAge _name_a5jjz _age_a5jjA) = []
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_a5jjC) key_a5jjD
-> Entity key_a5jjD value_a5jjC)
fieldLens PersonMaybeAgeName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeName = x} -> x) . entityVal)
(\ (Entity key_a5jjE value_a5jjF) x_a5jjG
-> Entity
key_a5jjE
(case value_a5jjF of
PersonMaybeAge {personMaybeAgeAge = personMaybeAgeAge_a5jjI}
-> PersonMaybeAge
{personMaybeAgeName = x_a5jjG,
personMaybeAgeAge = personMaybeAgeAge}))
fieldLens PersonMaybeAgeAge
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeAge = x} -> x) . entityVal)
(\ (Entity key_a5jjE value_a5jjF) x_a5jjG
-> Entity
key_a5jjE
(case value_a5jjF of
PersonMaybeAge {personMaybeAgeName = personMaybeAgeName_a5jjJ}
-> PersonMaybeAge
{personMaybeAgeName = personMaybeAgeName,
personMaybeAgeAge = x_a5jjG}))
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_a5jk5
= ((Entity <$> fromField_a5jk5 PersonMayId)
<*>
((pure PersonMay <*> fromField_a5jk5 PersonMayName)
<*> fromField_a5jk5 PersonMayColor))
tabulateEntityApply fromField_a5jk4
= ((Entity <$> fromField_a5jk4 PersonMayId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((PersonMay <$> fromField_a5jk4 PersonMayName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jk4 PersonMayColor))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
48 104 51 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMay x_a5jjN x_a5jjO)
= [toPersistValue x_a5jjN, toPersistValue x_a5jjO]
fromPersistValues [x1_a5jjQ, x2_a5jjR]
= 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_a5jjQ
<*>
(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_a5jjR
fromPersistValues x_a5jjP
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMay: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a5jjP))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMay _name_a5jjS _color_a5jjT) = []
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_a5jjV) key_a5jjW
-> Entity key_a5jjW value_a5jjV)
fieldLens PersonMayName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayName = x} -> x) . entityVal)
(\ (Entity key_a5jjX value_a5jjY) x_a5jjZ
-> Entity
key_a5jjX
(case value_a5jjY of
PersonMay {personMayColor = personMayColor_a5jk1}
-> PersonMay
{personMayName = x_a5jjZ, personMayColor = personMayColor}))
fieldLens PersonMayColor
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayColor = x} -> x) . entityVal)
(\ (Entity key_a5jjX value_a5jjY) x_a5jjZ
-> Entity
key_a5jjX
(case value_a5jjY of
PersonMay {personMayName = personMayName_a5jk2}
-> PersonMay
{personMayName = personMayName, personMayColor = x_a5jjZ}))
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_a5jkw
= ((Entity <$> fromField_a5jkw PetId)
<*>
(((pure Pet <*> fromField_a5jkw PetOwnerId)
<*> fromField_a5jkw PetName)
<*> fromField_a5jkw PetType))
tabulateEntityApply fromField_a5jkv
= ((Entity <$> fromField_a5jkv PetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Pet <$> fromField_a5jkv PetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jkv PetName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jkv PetType))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
52 104 59 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Pet x_a5jk6 x_a5jk7 x_a5jk8)
= [toPersistValue x_a5jk6, toPersistValue x_a5jk7,
toPersistValue x_a5jk8]
fromPersistValues [x1_a5jka, x2_a5jkb, x3_a5jkc]
= 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_a5jka
<*>
(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_a5jkb
<*>
(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_a5jkc
fromPersistValues x_a5jk9
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Pet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 34#))
(Data.Text.Internal.pack $ show x_a5jk9))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Pet _ownerId_a5jkd _name_a5jke _type_a5jkf) = []
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_a5jkh) key_a5jki
-> Entity key_a5jki value_a5jkh)
fieldLens PetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petOwnerId = x} -> x) . entityVal)
(\ (Entity key_a5jkj value_a5jkk) x_a5jkl
-> Entity
key_a5jkj
(case value_a5jkk of
Pet {petName = petName_a5jkn, petType = petType_a5jko}
-> Pet
{petOwnerId = x_a5jkl, petName = petName, petType = petType}))
fieldLens PetName
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petName = x} -> x) . entityVal)
(\ (Entity key_a5jkj value_a5jkk) x_a5jkl
-> Entity
key_a5jkj
(case value_a5jkk of
Pet {petOwnerId = petOwnerId_a5jkp, petType = petType_a5jkr}
-> Pet
{petOwnerId = petOwnerId, petName = x_a5jkl, petType = petType}))
fieldLens PetType
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petType = x} -> x) . entityVal)
(\ (Entity key_a5jkj value_a5jkk) x_a5jkl
-> Entity
key_a5jkj
(case value_a5jkk of
Pet {petOwnerId = petOwnerId_a5jks, petName = petName_a5jkt}
-> Pet
{petOwnerId = petOwnerId, petName = petName, petType = x_a5jkl}))
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_a5jkX
= ((Entity <$> fromField_a5jkX MaybeOwnedPetId)
<*>
(((pure MaybeOwnedPet <*> fromField_a5jkX MaybeOwnedPetOwnerId)
<*> fromField_a5jkX MaybeOwnedPetName)
<*> fromField_a5jkX MaybeOwnedPetType))
tabulateEntityApply fromField_a5jkW
= ((Entity <$> fromField_a5jkW MaybeOwnedPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((MaybeOwnedPet <$> fromField_a5jkW MaybeOwnedPetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jkW MaybeOwnedPetName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jkW MaybeOwnedPetType))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
60 104 63 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MaybeOwnedPet x_a5jkx x_a5jky x_a5jkz)
= [toPersistValue x_a5jkx, toPersistValue x_a5jky,
toPersistValue x_a5jkz]
fromPersistValues [x1_a5jkB, x2_a5jkC, x3_a5jkD]
= 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_a5jkB
<*>
(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_a5jkC
<*>
(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_a5jkD
fromPersistValues x_a5jkA
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MaybeOwnedPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a5jkA))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(MaybeOwnedPet _ownerId_a5jkE _name_a5jkF _type_a5jkG)
= []
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_a5jkI) key_a5jkJ
-> Entity key_a5jkJ value_a5jkI)
fieldLens MaybeOwnedPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a5jkK value_a5jkL) x_a5jkM
-> Entity
key_a5jkK
(case value_a5jkL of
MaybeOwnedPet {maybeOwnedPetName = maybeOwnedPetName_a5jkO,
maybeOwnedPetType = maybeOwnedPetType_a5jkP}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = x_a5jkM,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetName
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetName = x} -> x) . entityVal)
(\ (Entity key_a5jkK value_a5jkL) x_a5jkM
-> Entity
key_a5jkK
(case value_a5jkL of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a5jkQ,
maybeOwnedPetType = maybeOwnedPetType_a5jkS}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = x_a5jkM,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetType
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetType = x} -> x) . entityVal)
(\ (Entity key_a5jkK value_a5jkL) x_a5jkM
-> Entity
key_a5jkK
(case value_a5jkL of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a5jkT,
maybeOwnedPetName = maybeOwnedPetName_a5jkU}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = x_a5jkM}))
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_a5jla
= ((Entity <$> fromField_a5jla NeedsPetId)
<*> (pure NeedsPet <*> fromField_a5jla NeedsPetPetKey))
tabulateEntityApply fromField_a5jl9
= ((Entity <$> fromField_a5jl9 NeedsPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(NeedsPet <$> fromField_a5jl9 NeedsPetPetKey))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
67 104 68 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NeedsPet x_a5jkY) = [toPersistValue x_a5jkY]
fromPersistValues [x1_a5jl0]
= 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_a5jl0
fromPersistValues x_a5jkZ
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NeedsPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a5jkZ))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NeedsPet _petKey_a5jl1) = []
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_a5jl3) key_a5jl4
-> Entity key_a5jl4 value_a5jl3)
fieldLens NeedsPetPetKey
= Database.Persist.TH.Internal.lensPTH
((\ NeedsPet {needsPetPetKey = x} -> x) . entityVal)
(\ (Entity key_a5jl5 value_a5jl6) x_a5jl7
-> Entity
key_a5jl5
(case value_a5jl6 of
NeedsPet {} -> NeedsPet {needsPetPetKey = x_a5jl7}))
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_a5jlB
= ((Entity <$> fromField_a5jlB OutdoorPetId)
<*>
(((pure OutdoorPet <*> fromField_a5jlB OutdoorPetOwnerId)
<*> fromField_a5jlB OutdoorPetCollar)
<*> fromField_a5jlB OutdoorPetType))
tabulateEntityApply fromField_a5jlA
= ((Entity <$> fromField_a5jlA OutdoorPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((OutdoorPet <$> fromField_a5jlA OutdoorPetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jlA OutdoorPetCollar)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jlA OutdoorPetType))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
69 104 72 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (OutdoorPet x_a5jlb x_a5jlc x_a5jld)
= [toPersistValue x_a5jlb, toPersistValue x_a5jlc,
toPersistValue x_a5jld]
fromPersistValues [x1_a5jlf, x2_a5jlg, x3_a5jlh]
= 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_a5jlf
<*>
(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_a5jlg
<*>
(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_a5jlh
fromPersistValues x_a5jle
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"OutdoorPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 41#))
(Data.Text.Internal.pack $ show x_a5jle))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(OutdoorPet _ownerId_a5jli _collar_a5jlj _type_a5jlk)
= []
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_a5jlm) key_a5jln
-> Entity key_a5jln value_a5jlm)
fieldLens OutdoorPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a5jlo value_a5jlp) x_a5jlq
-> Entity
key_a5jlo
(case value_a5jlp of
OutdoorPet {outdoorPetCollar = outdoorPetCollar_a5jls,
outdoorPetType = outdoorPetType_a5jlt}
-> OutdoorPet
{outdoorPetOwnerId = x_a5jlq, outdoorPetCollar = outdoorPetCollar,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetCollar
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetCollar = x} -> x) . entityVal)
(\ (Entity key_a5jlo value_a5jlp) x_a5jlq
-> Entity
key_a5jlo
(case value_a5jlp of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a5jlu,
outdoorPetType = outdoorPetType_a5jlw}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = x_a5jlq,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetType
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetType = x} -> x) . entityVal)
(\ (Entity key_a5jlo value_a5jlp) x_a5jlq
-> Entity
key_a5jlo
(case value_a5jlp of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a5jlx,
outdoorPetCollar = outdoorPetCollar_a5jly}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId,
outdoorPetCollar = outdoorPetCollar, outdoorPetType = x_a5jlq}))
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_a5jlV
= ((Entity <$> fromField_a5jlV UserPTId)
<*>
((pure UserPT <*> fromField_a5jlV UserPTIdent)
<*> fromField_a5jlV UserPTPassword))
tabulateEntityApply fromField_a5jlU
= ((Entity <$> fromField_a5jlU UserPTId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((UserPT <$> fromField_a5jlU UserPTIdent)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jlU UserPTPassword))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
75 104 78 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UserPT x_a5jlC x_a5jlD)
= [toPersistValue x_a5jlC, toPersistValue x_a5jlD]
fromPersistValues [x1_a5jlF, x2_a5jlG]
= 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_a5jlF
<*>
(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_a5jlG
fromPersistValues x_a5jlE
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UserPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jlE))
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_a5jlH)
= [toPersistValue x_a5jlH]
persistUniqueKeys (UserPT _ident_a5jlI _password_a5jlJ)
= [UniqueUserPT _ident_a5jlI]
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_a5jlL) key_a5jlM
-> Entity key_a5jlM value_a5jlL)
fieldLens UserPTIdent
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTIdent = x} -> x) . entityVal)
(\ (Entity key_a5jlN value_a5jlO) x_a5jlP
-> Entity
key_a5jlN
(case value_a5jlO of
UserPT {userPTPassword = userPTPassword_a5jlR}
-> UserPT
{userPTIdent = x_a5jlP, userPTPassword = userPTPassword}))
fieldLens UserPTPassword
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTPassword = x} -> x) . entityVal)
(\ (Entity key_a5jlN value_a5jlO) x_a5jlP
-> Entity
key_a5jlN
(case value_a5jlO of
UserPT {userPTIdent = userPTIdent_a5jlS}
-> UserPT {userPTIdent = userPTIdent, userPTPassword = x_a5jlP}))
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_a5jmn
= ((Entity <$> fromField_a5jmn EmailPTId)
<*>
(((pure EmailPT <*> fromField_a5jmn EmailPTEmail)
<*> fromField_a5jmn EmailPTUser)
<*> fromField_a5jmn EmailPTVerkey))
tabulateEntityApply fromField_a5jmm
= ((Entity <$> fromField_a5jmm EmailPTId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((EmailPT <$> fromField_a5jmm EmailPTEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jmm EmailPTUser)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jmm EmailPTVerkey))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
79 104 83 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (EmailPT x_a5jlW x_a5jlX x_a5jlY)
= [toPersistValue x_a5jlW, toPersistValue x_a5jlX,
toPersistValue x_a5jlY]
fromPersistValues [x1_a5jm0, x2_a5jm1, x3_a5jm2]
= 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_a5jm0
<*>
(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_a5jm1
<*>
(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_a5jm2
fromPersistValues x_a5jlZ
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"EmailPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a5jlZ))
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_a5jm3)
= [toPersistValue x_a5jm3]
persistUniqueKeys (EmailPT _email_a5jm4 _user_a5jm5 _verkey_a5jm6)
= [UniqueEmailPT _email_a5jm4]
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_a5jm8) key_a5jm9
-> Entity key_a5jm9 value_a5jm8)
fieldLens EmailPTEmail
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTEmail = x} -> x) . entityVal)
(\ (Entity key_a5jma value_a5jmb) x_a5jmc
-> Entity
key_a5jma
(case value_a5jmb of
EmailPT {emailPTUser = emailPTUser_a5jme,
emailPTVerkey = emailPTVerkey_a5jmf}
-> EmailPT
{emailPTEmail = x_a5jmc, emailPTUser = emailPTUser,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTUser
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTUser = x} -> x) . entityVal)
(\ (Entity key_a5jma value_a5jmb) x_a5jmc
-> Entity
key_a5jma
(case value_a5jmb of
EmailPT {emailPTEmail = emailPTEmail_a5jmg,
emailPTVerkey = emailPTVerkey_a5jmi}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = x_a5jmc,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTVerkey
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTVerkey = x} -> x) . entityVal)
(\ (Entity key_a5jma value_a5jmb) x_a5jmc
-> Entity
key_a5jma
(case value_a5jmb of
EmailPT {emailPTEmail = emailPTEmail_a5jmj,
emailPTUser = emailPTUser_a5jmk}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = emailPTUser,
emailPTVerkey = x_a5jmc}))
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_a5jmZ
= ((Entity <$> fromField_a5jmZ UpsertId)
<*>
((((pure Upsert <*> fromField_a5jmZ UpsertEmail)
<*> fromField_a5jmZ UpsertAttr)
<*> fromField_a5jmZ UpsertExtra)
<*> fromField_a5jmZ UpsertAge))
tabulateEntityApply fromField_a5jmY
= ((Entity <$> fromField_a5jmY UpsertId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((((Upsert <$> fromField_a5jmY UpsertEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jmY UpsertAttr)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jmY UpsertExtra)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jmY UpsertAge))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
85 104 91 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Upsert x_a5jmo x_a5jmp x_a5jmq x_a5jmr)
= [toPersistValue x_a5jmo, toPersistValue x_a5jmp,
toPersistValue x_a5jmq, toPersistValue x_a5jmr]
fromPersistValues [x1_a5jmt, x2_a5jmu, x3_a5jmv, x4_a5jmw]
= 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_a5jmt
<*>
(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_a5jmu
<*>
(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_a5jmv
<*>
(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_a5jmw
fromPersistValues x_a5jms
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Upsert: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jms))
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_a5jmx)
= [toPersistValue x_a5jmx]
persistUniqueKeys
(Upsert _email_a5jmy _attr_a5jmz _extra_a5jmA _age_a5jmB)
= [UniqueUpsert _email_a5jmy]
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_a5jmD) key_a5jmE
-> Entity key_a5jmE value_a5jmD)
fieldLens UpsertEmail
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertEmail = x} -> x) . entityVal)
(\ (Entity key_a5jmF value_a5jmG) x_a5jmH
-> Entity
key_a5jmF
(case value_a5jmG of
Upsert {upsertAttr = upsertAttr_a5jmJ,
upsertExtra = upsertExtra_a5jmK, upsertAge = upsertAge_a5jmL}
-> Upsert
{upsertEmail = x_a5jmH, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertAttr
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAttr = x} -> x) . entityVal)
(\ (Entity key_a5jmF value_a5jmG) x_a5jmH
-> Entity
key_a5jmF
(case value_a5jmG of
Upsert {upsertEmail = upsertEmail_a5jmM,
upsertExtra = upsertExtra_a5jmO, upsertAge = upsertAge_a5jmP}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = x_a5jmH,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertExtra
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertExtra = x} -> x) . entityVal)
(\ (Entity key_a5jmF value_a5jmG) x_a5jmH
-> Entity
key_a5jmF
(case value_a5jmG of
Upsert {upsertEmail = upsertEmail_a5jmQ,
upsertAttr = upsertAttr_a5jmR, upsertAge = upsertAge_a5jmT}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = x_a5jmH, upsertAge = upsertAge}))
fieldLens UpsertAge
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAge = x} -> x) . entityVal)
(\ (Entity key_a5jmF value_a5jmG) x_a5jmH
-> Entity
key_a5jmF
(case value_a5jmG of
Upsert {upsertEmail = upsertEmail_a5jmU,
upsertAttr = upsertAttr_a5jmV, upsertExtra = upsertExtra_a5jmW}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = x_a5jmH}))
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_a5jns
= ((Entity <$> fromField_a5jns UpsertById)
<*>
(((pure UpsertBy <*> fromField_a5jns UpsertByEmail)
<*> fromField_a5jns UpsertByCity)
<*> fromField_a5jns UpsertByAttr))
tabulateEntityApply fromField_a5jnr
= ((Entity <$> fromField_a5jnr UpsertById)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((UpsertBy <$> fromField_a5jnr UpsertByEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jnr UpsertByCity)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jnr UpsertByAttr))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
93 104 99 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UpsertBy x_a5jn0 x_a5jn1 x_a5jn2)
= [toPersistValue x_a5jn0, toPersistValue x_a5jn1,
toPersistValue x_a5jn2]
fromPersistValues [x1_a5jn4, x2_a5jn5, x3_a5jn6]
= 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_a5jn4
<*>
(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_a5jn5
<*>
(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_a5jn6
fromPersistValues x_a5jn3
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UpsertBy: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a5jn3))
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_a5jn7)
= [toPersistValue x_a5jn7]
persistUniqueToValues (UniqueUpsertByCity x_a5jn8)
= [toPersistValue x_a5jn8]
persistUniqueKeys (UpsertBy _email_a5jn9 _city_a5jna _attr_a5jnb)
= [UniqueUpsertBy _email_a5jn9, UniqueUpsertByCity _city_a5jna]
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_a5jnd) key_a5jne
-> Entity key_a5jne value_a5jnd)
fieldLens UpsertByEmail
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByEmail = x} -> x) . entityVal)
(\ (Entity key_a5jnf value_a5jng) x_a5jnh
-> Entity
key_a5jnf
(case value_a5jng of
UpsertBy {upsertByCity = upsertByCity_a5jnj,
upsertByAttr = upsertByAttr_a5jnk}
-> UpsertBy
{upsertByEmail = x_a5jnh, upsertByCity = upsertByCity,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByCity
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByCity = x} -> x) . entityVal)
(\ (Entity key_a5jnf value_a5jng) x_a5jnh
-> Entity
key_a5jnf
(case value_a5jng of
UpsertBy {upsertByEmail = upsertByEmail_a5jnl,
upsertByAttr = upsertByAttr_a5jnn}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = x_a5jnh,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByAttr
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByAttr = x} -> x) . entityVal)
(\ (Entity key_a5jnf value_a5jng) x_a5jnh
-> Entity
key_a5jnf
(case value_a5jng of
UpsertBy {upsertByEmail = upsertByEmail_a5jno,
upsertByCity = upsertByCity_a5jnp}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = upsertByCity,
upsertByAttr = x_a5jnh}))
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_a5jnT
= ((Entity <$> fromField_a5jnT StrictId)
<*>
(((pure Strict <*> fromField_a5jnT StrictYes)
<*> fromField_a5jnT StrictNo)
<*> fromField_a5jnT StrictDef))
tabulateEntityApply fromField_a5jnS
= ((Entity <$> fromField_a5jnS StrictId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Strict <$> fromField_a5jnS StrictYes)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jnS StrictNo)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jnS StrictDef))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
101 104 104 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Strict x_a5jnt x_a5jnu x_a5jnv)
= [toPersistValue x_a5jnt, toPersistValue x_a5jnu,
toPersistValue x_a5jnv]
fromPersistValues [x1_a5jnx, x2_a5jny, x3_a5jnz]
= 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_a5jnx
<*>
(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_a5jny
<*>
(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_a5jnz
fromPersistValues x_a5jnw
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Strict: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a5jnw))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Strict _yes_a5jnA _no_a5jnB _def_a5jnC) = []
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_a5jnE) key_a5jnF
-> Entity key_a5jnF value_a5jnE)
fieldLens StrictYes
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictYes = x} -> x) . entityVal)
(\ (Entity key_a5jnG value_a5jnH) x_a5jnI
-> Entity
key_a5jnG
(case value_a5jnH of
Strict {strictNo = strictNo_a5jnK, strictDef = strictDef_a5jnL}
-> Strict
{strictYes = x_a5jnI, strictNo = strictNo, strictDef = strictDef}))
fieldLens StrictNo
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictNo = x} -> x) . entityVal)
(\ (Entity key_a5jnG value_a5jnH) x_a5jnI
-> Entity
key_a5jnG
(case value_a5jnH of
Strict {strictYes = strictYes_a5jnM, strictDef = strictDef_a5jnO}
-> Strict
{strictYes = strictYes, strictNo = x_a5jnI,
strictDef = strictDef}))
fieldLens StrictDef
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictDef = x} -> x) . entityVal)
(\ (Entity key_a5jnG value_a5jnH) x_a5jnI
-> Entity
key_a5jnG
(case value_a5jnH of
Strict {strictYes = strictYes_a5jnP, strictNo = strictNo_a5jnQ}
-> Strict
{strictYes = strictYes, strictNo = strictNo, strictDef = x_a5jnI}))
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_a5jo7
= ((Entity <$> fromField_a5jo7 DudeWeirdColumnsId)
<*>
(pure DudeWeirdColumns <*> fromField_a5jo7 DudeWeirdColumnsName))
tabulateEntityApply fromField_a5jo6
= ((Entity <$> fromField_a5jo6 DudeWeirdColumnsId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(DudeWeirdColumns <$> fromField_a5jo6 DudeWeirdColumnsName))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
106 104 111 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (DudeWeirdColumns x_a5jnU)
= [toPersistValue x_a5jnU]
fromPersistValues [x1_a5jnW]
= 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_a5jnW
fromPersistValues x_a5jnV
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"DudeWeirdColumns: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 47#))
(Data.Text.Internal.pack $ show x_a5jnV))
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_a5jnX)
= [toPersistValue x_a5jnX]
persistUniqueKeys (DudeWeirdColumns _name_a5jnY)
= [UniqueName _name_a5jnY]
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_a5jo0) key_a5jo1
-> Entity key_a5jo1 value_a5jo0)
fieldLens DudeWeirdColumnsName
= Database.Persist.TH.Internal.lensPTH
((\ DudeWeirdColumns {dudeWeirdColumnsName = x} -> x) . entityVal)
(\ (Entity key_a5jo2 value_a5jo3) x_a5jo4
-> Entity
key_a5jo2
(case value_a5jo3 of
DudeWeirdColumns {}
-> DudeWeirdColumns {dudeWeirdColumnsName = x_a5jo4}))
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_a5joq
= ((Entity <$> fromField_a5joq RelationshipId)
<*>
((pure Relationship <*> fromField_a5joq RelationshipName)
<*> fromField_a5joq RelationshipParent))
tabulateEntityApply fromField_a5jop
= ((Entity <$> fromField_a5jop RelationshipId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Relationship <$> fromField_a5jop RelationshipName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5jop RelationshipParent))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
116 104 119 7))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Relationship x_a5jo8 x_a5jo9)
= [toPersistValue x_a5jo8, toPersistValue x_a5jo9]
fromPersistValues [x1_a5job, x2_a5joc]
= 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_a5job
<*>
(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_a5joc
fromPersistValues x_a5joa
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Relationship: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 43#))
(Data.Text.Internal.pack $ show x_a5joa))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Relationship _name_a5jod _parent_a5joe) = []
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_a5jog) key_a5joh
-> Entity key_a5joh value_a5jog)
fieldLens RelationshipName
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipName = x} -> x) . entityVal)
(\ (Entity key_a5joi value_a5joj) x_a5jok
-> Entity
key_a5joi
(case value_a5joj of
Relationship {relationshipParent = relationshipParent_a5jom}
-> Relationship
{relationshipName = x_a5jok,
relationshipParent = relationshipParent}))
fieldLens RelationshipParent
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipParent = x} -> x) . entityVal)
(\ (Entity key_a5joi value_a5joj) x_a5jok
-> Entity
key_a5joi
(case value_a5joj of
Relationship {relationshipName = relationshipName_a5jon}
-> Relationship
{relationshipName = relationshipName,
relationshipParent = x_a5jok}))
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_a5joD
= ((Entity <$> fromField_a5joD MutAId)
<*> (pure MutA <*> fromField_a5joD MutAMutB))
tabulateEntityApply fromField_a5joC
= ((Entity <$> fromField_a5joC MutAId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(MutA <$> fromField_a5joC MutAMutB))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
121 104 122 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutA x_a5jor) = [toPersistValue x_a5jor]
fromPersistValues [x1_a5jot]
= 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_a5jot
fromPersistValues x_a5jos
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutA: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a5jos))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutA _mutB_a5jou) = []
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_a5jow) key_a5jox
-> Entity key_a5jox value_a5jow)
fieldLens MutAMutB
= Database.Persist.TH.Internal.lensPTH
((\ MutA {mutAMutB = x} -> x) . entityVal)
(\ (Entity key_a5joy value_a5joz) x_a5joA
-> Entity
key_a5joy
(case value_a5joz of MutA {} -> MutA {mutAMutB = x_a5joA}))
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_a5joQ
= ((Entity <$> fromField_a5joQ MutBId)
<*> (pure MutB <*> fromField_a5joQ MutBMutA))
tabulateEntityApply fromField_a5joP
= ((Entity <$> fromField_a5joP MutBId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(MutB <$> fromField_a5joP MutBMutA))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
124 104 125 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutB x_a5joE) = [toPersistValue x_a5joE]
fromPersistValues [x1_a5joG]
= 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_a5joG
fromPersistValues x_a5joF
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutB: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a5joF))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutB _mutA_a5joH) = []
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_a5joJ) key_a5joK
-> Entity key_a5joK value_a5joJ)
fieldLens MutBMutA
= Database.Persist.TH.Internal.lensPTH
((\ MutB {mutBMutA = x} -> x) . entityVal)
(\ (Entity key_a5joL value_a5joM) x_a5joN
-> Entity
key_a5joL
(case value_a5joM of MutB {} -> MutB {mutBMutA = x_a5joN}))
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_a5joS age_a5joT color_a5joU)
= object
[(Data.Aeson.Key.fromString "name" .= name_a5joS),
(Data.Aeson.Key.fromString "age" .= age_a5joT),
(Data.Aeson.Key.fromString "color" .= color_a5joU)]
instance PersistStore backend =>
FromJSON (PersonGeneric backend) where
parseJSON
= withObject
"Person"
(\ obj_a5joR
-> (((pure Person
<*> (obj_a5joR .: Data.Aeson.Key.fromString "name"))
<*> (obj_a5joR .: Data.Aeson.Key.fromString "age"))
<*> (obj_a5joR .:? 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_a5joW color_a5joX)
= object
[(Data.Aeson.Key.fromString "name" .= name_a5joW),
(Data.Aeson.Key.fromString "color" .= color_a5joX)]
instance PersistStore backend =>
FromJSON (PersonMayGeneric backend) where
parseJSON
= withObject
"PersonMay"
(\ obj_a5joV
-> ((pure PersonMay
<*> (obj_a5joV .:? Data.Aeson.Key.fromString "name"))
<*> (obj_a5joV .:? 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:(141,27)-(152,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
143 28 144 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#))
143 28 144 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
145 28 147 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#))
145 28 147 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
148 28 151 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#))
148 28 151 5))]
src/PersistentTestModels.hs:(134,1)-(152,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
143 28 144 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#))
143 28 144 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
145 28 147 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#))
145 28 147 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
148 28 151 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#))
148 28 151 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_a5wRV
= ((Entity <$> fromField_a5wRV NoPrefix1Id)
<*> (pure NoPrefix1 <*> fromField_a5wRV SomeFieldName))
tabulateEntityApply fromField_a5wRU
= ((Entity <$> fromField_a5wRU NoPrefix1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(NoPrefix1 <$> fromField_a5wRU SomeFieldName))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
143 28 144 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix1 x_a5wRJ) = [toPersistValue x_a5wRJ]
fromPersistValues [x1_a5wRL]
= 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_a5wRL
fromPersistValues x_a5wRK
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a5wRK))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NoPrefix1 _someFieldName_a5wRM) = []
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_a5wRO) key_a5wRP
-> Entity key_a5wRP value_a5wRO)
fieldLens SomeFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix1 {someFieldName = x} -> x) . entityVal)
(\ (Entity key_a5wRQ value_a5wRR) x_a5wRS
-> Entity
key_a5wRQ
(case value_a5wRR of
NoPrefix1 {} -> NoPrefix1 {someFieldName = x_a5wRS}))
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_a5wSe
= ((Entity <$> fromField_a5wSe NoPrefix2Id)
<*>
((pure NoPrefix2 <*> fromField_a5wSe SomeOtherFieldName)
<*> fromField_a5wSe UnprefixedRef))
tabulateEntityApply fromField_a5wSd
= ((Entity <$> fromField_a5wSd NoPrefix2Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((NoPrefix2 <$> fromField_a5wSd SomeOtherFieldName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5wSd UnprefixedRef))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
145 28 147 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix2 x_a5wRW x_a5wRX)
= [toPersistValue x_a5wRW, toPersistValue x_a5wRX]
fromPersistValues [x1_a5wRZ, x2_a5wS0]
= 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_a5wRZ
<*>
(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_a5wS0
fromPersistValues x_a5wRY
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a5wRY))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(NoPrefix2 _someOtherFieldName_a5wS1 _unprefixedRef_a5wS2)
= []
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_a5wS4) key_a5wS5
-> Entity key_a5wS5 value_a5wS4)
fieldLens SomeOtherFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {someOtherFieldName = x} -> x) . entityVal)
(\ (Entity key_a5wS6 value_a5wS7) x_a5wS8
-> Entity
key_a5wS6
(case value_a5wS7 of
NoPrefix2 {unprefixedRef = unprefixedRef_a5wSa}
-> NoPrefix2
{someOtherFieldName = x_a5wS8, unprefixedRef = unprefixedRef}))
fieldLens UnprefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {unprefixedRef = x} -> x) . entityVal)
(\ (Entity key_a5wS6 value_a5wS7) x_a5wS8
-> Entity
key_a5wS6
(case value_a5wS7 of
NoPrefix2 {someOtherFieldName = someOtherFieldName_a5wSb}
-> NoPrefix2
{someOtherFieldName = someOtherFieldName,
unprefixedRef = x_a5wS8}))
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_a5wSq
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a5wSp
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
148 28 151 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UnprefixedLeftSum x_a5wSf)
= [toPersistValue x_a5wSf, PersistNull]
toPersistFields (UnprefixedRightSum x_a5wSg)
= [PersistNull, toPersistValue x_a5wSg]
fromPersistValues [x_a5wSh, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a5wSh
= (UnprefixedLeftSum `fmap` fromPersistValue x_a5wSh)
fromPersistValues [PersistNull, x_a5wSi]
| Database.Persist.TH.Internal.isNotNull x_a5wSi
= (UnprefixedRightSum `fmap` fromPersistValue x_a5wSi)
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_a5wSk) key_a5wSl
-> Entity key_a5wSl value_a5wSk)
fieldLens UnprefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5wSn)
-> case value_a5wSn of
UnprefixedLeftSum x_a5wSo -> x_a5wSo
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5wSm _) x_a5wSo
-> Entity key_a5wSm (UnprefixedLeftSum x_a5wSo))
fieldLens UnprefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5wSn)
-> case value_a5wSn of
UnprefixedRightSum x_a5wSo -> x_a5wSo
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5wSm _) x_a5wSo
-> Entity key_a5wSm (UnprefixedRightSum x_a5wSo))
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:(173,27)-(183,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
175 28 176 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#))
175 28 176 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
177 28 179 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#))
177 28 179 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
180 28 183 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#))
180 28 183 5))]
src/PersistentTestModels.hs:(160,1)-(183,2): Splicing declarations
share
[mkPersist
persistSettings
{mpsFieldLabelModifier = \ entity_a5z1Y field_a5z1Z
-> case entity_a5z1Y of
"CustomPrefix1" -> append "_cp1" field_a5z1Z
"CustomPrefix2" -> append "_cp2" field_a5z1Z
_ -> error "should not be called",
mpsConstraintLabelModifier = \ entity_a5z20 field_a5z21
-> case entity_a5z20 of
"CustomPrefix1" -> append "CP1" field_a5z21
"CustomPrefix2" -> append "CP2" field_a5z21
"CustomPrefixSum" -> append "CP" field_a5z21
_ -> 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
175 28 176 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#))
175 28 176 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
177 28 179 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#))
177 28 179 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
180 28 183 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#))
180 28 183 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_a5zlu
= ((Entity <$> fromField_a5zlu CustomPrefix1Id)
<*> (pure CustomPrefix1 <*> fromField_a5zlu CP1CustomFieldName))
tabulateEntityApply fromField_a5zlt
= ((Entity <$> fromField_a5zlt CustomPrefix1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(CustomPrefix1 <$> fromField_a5zlt CP1CustomFieldName))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
175 28 176 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix1 x_a5zli) = [toPersistValue x_a5zli]
fromPersistValues [x1_a5zlk]
= 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_a5zlk
fromPersistValues x_a5zlj
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a5zlj))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (CustomPrefix1 _customFieldName_a5zll) = []
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_a5zln) key_a5zlo
-> Entity key_a5zlo value_a5zln)
fieldLens CP1CustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix1 {_cp1CustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a5zlp value_a5zlq) x_a5zlr
-> Entity
key_a5zlp
(case value_a5zlq of
CustomPrefix1 {} -> CustomPrefix1 {_cp1CustomFieldName = x_a5zlr}))
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_a5zlN
= ((Entity <$> fromField_a5zlN CustomPrefix2Id)
<*>
((pure CustomPrefix2 <*> fromField_a5zlN CP2OtherCustomFieldName)
<*> fromField_a5zlN CP2CustomPrefixedRef))
tabulateEntityApply fromField_a5zlM
= ((Entity <$> fromField_a5zlM CustomPrefix2Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((CustomPrefix2 <$> fromField_a5zlM CP2OtherCustomFieldName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5zlM CP2CustomPrefixedRef))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
177 28 179 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix2 x_a5zlv x_a5zlw)
= [toPersistValue x_a5zlv, toPersistValue x_a5zlw]
fromPersistValues [x1_a5zly, x2_a5zlz]
= 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_a5zly
<*>
(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_a5zlz
fromPersistValues x_a5zlx
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a5zlx))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(CustomPrefix2 _otherCustomFieldName_a5zlA
_customPrefixedRef_a5zlB)
= []
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_a5zlD) key_a5zlE
-> Entity key_a5zlE value_a5zlD)
fieldLens CP2OtherCustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2OtherCustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a5zlF value_a5zlG) x_a5zlH
-> Entity
key_a5zlF
(case value_a5zlG of
CustomPrefix2 {_cp2CustomPrefixedRef = _cp2CustomPrefixedRef_a5zlJ}
-> CustomPrefix2
{_cp2OtherCustomFieldName = x_a5zlH,
_cp2CustomPrefixedRef = _cp2CustomPrefixedRef}))
fieldLens CP2CustomPrefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2CustomPrefixedRef = x} -> x) . entityVal)
(\ (Entity key_a5zlF value_a5zlG) x_a5zlH
-> Entity
key_a5zlF
(case value_a5zlG of
CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName_a5zlK}
-> CustomPrefix2
{_cp2OtherCustomFieldName = _cp2OtherCustomFieldName,
_cp2CustomPrefixedRef = x_a5zlH}))
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_a5zlZ
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a5zlY
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
180 28 183 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CPCustomPrefixedLeftSum x_a5zlO)
= [toPersistValue x_a5zlO, PersistNull]
toPersistFields (CPCustomPrefixedRightSum x_a5zlP)
= [PersistNull, toPersistValue x_a5zlP]
fromPersistValues [x_a5zlQ, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a5zlQ
= (CPCustomPrefixedLeftSum `fmap` fromPersistValue x_a5zlQ)
fromPersistValues [PersistNull, x_a5zlR]
| Database.Persist.TH.Internal.isNotNull x_a5zlR
= (CPCustomPrefixedRightSum `fmap` fromPersistValue x_a5zlR)
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_a5zlT) key_a5zlU
-> Entity key_a5zlU value_a5zlT)
fieldLens CPCustomPrefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5zlW)
-> case value_a5zlW of
CPCustomPrefixedLeftSum x_a5zlX -> x_a5zlX
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5zlV _) x_a5zlX
-> Entity key_a5zlV (CPCustomPrefixedLeftSum x_a5zlX))
fieldLens CPCustomPrefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a5zlW)
-> case value_a5zlW of
CPCustomPrefixedRightSum x_a5zlX -> x_a5zlX
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a5zlV _) x_a5zlX
-> Entity key_a5zlV (CPCustomPrefixedRightSum x_a5zlX))
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:(193,27)-(200,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
196 28 200 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#))
196 28 200 3))]
src/PersistentTestModels.hs:(191,1)-(200,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
196 28 200 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#))
196 28 200 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_a5BFv
= fmap
TreeKey
(ghc-prim:GHC.Prim.coerce
(parent record_mkForeignKeysComposite_a5BFv))
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_a5BFw
= [toPersistValue ((\ TreeKey {unTreeKey = x} -> x) record_a5BFw)]
keyFromValues [x1_a5BFy]
= 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_a5BFy
keyFromValues x_a5BFx
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: keyFromValues failed on: "# (ghc-prim:GHC.Types.I# 31#))
(Data.Text.Internal.pack $ show x_a5BFx))
keyFromRecordM
= Just (\ Tree {name = name_a5BFI} -> TreeKey name_a5BFI)
tabulateEntityA fromField_a5BFK
= ((Entity <$> fromField_a5BFK TreeId)
<*>
((pure Tree <*> fromField_a5BFK Name) <*> fromField_a5BFK Parent))
tabulateEntityApply fromField_a5BFJ
= ((Entity <$> fromField_a5BFJ TreeId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Tree <$> fromField_a5BFJ Name)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a5BFJ Parent))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
196 28 200 3))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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_a5BFn x_a5BFo)
= [toPersistValue x_a5BFn, toPersistValue x_a5BFo]
fromPersistValues [x1_a5BFq, x2_a5BFr]
= 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_a5BFq
<*>
(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_a5BFr
fromPersistValues x_a5BFp
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a5BFp))
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_a5BFs)
= [toPersistValue x_a5BFs]
persistUniqueKeys (Tree _name_a5BFt _parent_a5BFu)
= [TreePrimaryKey _name_a5BFt]
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_a5BFz) key_a5BFA
-> Entity key_a5BFA value_a5BFz)
fieldLens Name
= Database.Persist.TH.Internal.lensPTH
((\ Tree {name = x} -> x) . entityVal)
(\ (Entity key_a5BFB value_a5BFC) x_a5BFD
-> Entity
key_a5BFB
(case value_a5BFC of
Tree {parent = parent_a5BFF}
-> Tree {name = x_a5BFD, parent = parent}))
fieldLens Parent
= Database.Persist.TH.Internal.lensPTH
((\ Tree {parent = x} -> x) . entityVal)
(\ (Entity key_a5BFB value_a5BFC) x_a5BFD
-> Entity
key_a5BFB
(case value_a5BFC of
Tree {name = name_a5BFG} -> Tree {name = name, parent = x_a5BFD}))
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:26: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"
|
26 | share [mkPersist persistSettings { mpsGeneric = True }, mkMigrate "testMigrate"] [persistUpperCase|
| ^^^^^^^^^^
src/PersistentTestModels.hs:134: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
|
134 | share [mkPersist persistSettings {
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
src/PersistentTestModels.hs:138:11: 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"
|
138 | , mpsGeneric = True
| ^^^^^^^^^^
src/PersistentTestModels.hs:160: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
|
160 | share [mkPersist persistSettings {
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
src/PersistentTestModels.hs:170:11: 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"
|
170 | , mpsGeneric = True
| ^^^^^^^^^^
src/PersistentTestModels.hs:191:61: 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"
|
191 | share [mkPersist persistSettings { mpsPrefixFields = False, mpsGeneric = False }
| ^^^^^^^^^^
src/PersistentTestModels.hs:207:10: warning: [GHC-06201] [-Wmissing-methods]
" No explicit implementation for
tabulateEntityA and tabulateEntityApply
" In the instance declaration for
PersistEntity (ReverseFieldOrder a)
|
207 | instance (PersistEntity a) => PersistEntity (ReverseFieldOrder a) where
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/PersistentTestModels.hs:211: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."
|
211 | 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.1.4..
Running Haddock on library for persistent-test-2.13.1.4..
Warning: --source-* options are ignored when --hyperlinked-source is enabled.
[ 1 of 41] Compiling Init ( src/Init.hs, /tmp/ghc881565_0/ghc_10.o, /tmp/ghc881565_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/ghc881565_0/ghc_8.o, /tmp/ghc881565_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/ghc881565_0/ghc_6.o, /tmp/ghc881565_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/ghc881565_0/ghc_12.o, /tmp/ghc881565_0/ghc_12.dyn_o )
[24 of 41] Compiling PersistTestPetType ( src/PersistTestPetType.hs, /tmp/ghc881565_0/ghc_14.o, /tmp/ghc881565_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/ghc881565_0/ghc_18.o, /tmp/ghc881565_0/ghc_18.dyn_o )
[27 of 41] Compiling PersistentTestModels ( src/PersistentTestModels.hs, /tmp/ghc881565_0/ghc_16.o, /tmp/ghc881565_0/ghc_16.dyn_o )
src/PersistentTestModels.hs:(26,101)-(126,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
32 104 37 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#))
32 104 37 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
38 104 44 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#))
38 104 44 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
45 104 47 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#))
45 104 47 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
48 104 51 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#))
48 104 51 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
52 104 59 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#))
52 104 59 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
60 104 63 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#))
60 104 63 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
67 104 68 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#))
67 104 68 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
69 104 72 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#))
69 104 72 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
75 104 78 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#))
75 104 78 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
79 104 83 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#))
79 104 83 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
85 104 91 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#))
85 104 91 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
93 104 99 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#))
93 104 99 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
101 104 104 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#))
101 104 104 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
106 104 111 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#))
106 104 111 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
116 104 119 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#))
116 104 119 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
121 104 122 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#))
121 104 122 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
124 104 125 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#))
124 104 125 5))]
src/PersistentTestModels.hs:(26,1)-(126,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
32 104 37 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#))
32 104 37 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
38 104 44 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#))
38 104 44 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
45 104 47 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#))
45 104 47 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
48 104 51 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#))
48 104 51 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
52 104 59 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#))
52 104 59 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
60 104 63 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#))
60 104 63 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
67 104 68 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#))
67 104 68 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
69 104 72 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#))
69 104 72 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
75 104 78 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#))
75 104 78 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
79 104 83 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#))
79 104 83 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
85 104 91 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#))
85 104 91 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
93 104 99 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#))
93 104 99 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
101 104 104 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#))
101 104 104 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
106 104 111 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#))
106 104 111 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
116 104 119 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#))
116 104 119 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
121 104 122 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#))
121 104 122 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
124 104 125 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#))
124 104 125 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_a1GCW
= ((Entity <$> fromField_a1GCW PersonId)
<*>
(((pure Person <*> fromField_a1GCW PersonName)
<*> fromField_a1GCW PersonAge)
<*> fromField_a1GCW PersonColor))
tabulateEntityApply fromField_a1GCV
= ((Entity <$> fromField_a1GCV PersonId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Person <$> fromField_a1GCV PersonName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GCV PersonAge)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GCV PersonColor))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
32 104 37 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person x_a1GCv x_a1GCw x_a1GCx)
= [toPersistValue x_a1GCv, toPersistValue x_a1GCw,
toPersistValue x_a1GCx]
fromPersistValues [x1_a1GCz, x2_a1GCA, x3_a1GCB]
= 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_a1GCz
<*>
(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_a1GCA
<*>
(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_a1GCB
fromPersistValues x_a1GCy
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GCy))
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_a1GCC)
= [toPersistValue x_a1GCC]
persistUniqueKeys (Person _name_a1GCD _age_a1GCE _color_a1GCF)
= [PersonNameKey _name_a1GCD]
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_a1GCH) key_a1GCI
-> Entity key_a1GCI value_a1GCH)
fieldLens PersonName
= Database.Persist.TH.Internal.lensPTH
((\ Person {personName = x} -> x) . entityVal)
(\ (Entity key_a1GCJ value_a1GCK) x_a1GCL
-> Entity
key_a1GCJ
(case value_a1GCK of
Person {personAge = personAge_a1GCN,
personColor = personColor_a1GCO}
-> Person
{personName = x_a1GCL, personAge = personAge,
personColor = personColor}))
fieldLens PersonAge
= Database.Persist.TH.Internal.lensPTH
((\ Person {personAge = x} -> x) . entityVal)
(\ (Entity key_a1GCJ value_a1GCK) x_a1GCL
-> Entity
key_a1GCJ
(case value_a1GCK of
Person {personName = personName_a1GCP,
personColor = personColor_a1GCR}
-> Person
{personName = personName, personAge = x_a1GCL,
personColor = personColor}))
fieldLens PersonColor
= Database.Persist.TH.Internal.lensPTH
((\ Person {personColor = x} -> x) . entityVal)
(\ (Entity key_a1GCJ value_a1GCK) x_a1GCL
-> Entity
key_a1GCJ
(case value_a1GCK of
Person {personName = personName_a1GCS, personAge = personAge_a1GCT}
-> Person
{personName = personName, personAge = personAge,
personColor = x_a1GCL}))
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_a1GDf
= ((Entity <$> fromField_a1GDf Person1Id)
<*>
((pure Person1 <*> fromField_a1GDf Person1Name)
<*> fromField_a1GDf Person1Age))
tabulateEntityApply fromField_a1GDe
= ((Entity <$> fromField_a1GDe Person1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Person1 <$> fromField_a1GDe Person1Name)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GDe Person1Age))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
38 104 44 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Person1 x_a1GCX x_a1GCY)
= [toPersistValue x_a1GCX, toPersistValue x_a1GCY]
fromPersistValues [x1_a1GD0, x2_a1GD1]
= 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_a1GD0
<*>
(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_a1GD1
fromPersistValues x_a1GCZ
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Person1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a1GCZ))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Person1 _name_a1GD2 _age_a1GD3) = []
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_a1GD5) key_a1GD6
-> Entity key_a1GD6 value_a1GD5)
fieldLens Person1Name
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Name = x} -> x) . entityVal)
(\ (Entity key_a1GD7 value_a1GD8) x_a1GD9
-> Entity
key_a1GD7
(case value_a1GD8 of
Person1 {person1Age = person1Age_a1GDb}
-> Person1 {person1Name = x_a1GD9, person1Age = person1Age}))
fieldLens Person1Age
= Database.Persist.TH.Internal.lensPTH
((\ Person1 {person1Age = x} -> x) . entityVal)
(\ (Entity key_a1GD7 value_a1GD8) x_a1GD9
-> Entity
key_a1GD7
(case value_a1GD8 of
Person1 {person1Name = person1Name_a1GDc}
-> Person1 {person1Name = person1Name, person1Age = x_a1GD9}))
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_a1GDy
= ((Entity <$> fromField_a1GDy PersonMaybeAgeId)
<*>
((pure PersonMaybeAge <*> fromField_a1GDy PersonMaybeAgeName)
<*> fromField_a1GDy PersonMaybeAgeAge))
tabulateEntityApply fromField_a1GDx
= ((Entity <$> fromField_a1GDx PersonMaybeAgeId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((PersonMaybeAge <$> fromField_a1GDx PersonMaybeAgeName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GDx PersonMaybeAgeAge))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
45 104 47 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMaybeAge x_a1GDg x_a1GDh)
= [toPersistValue x_a1GDg, toPersistValue x_a1GDh]
fromPersistValues [x1_a1GDj, x2_a1GDk]
= 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_a1GDj
<*>
(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_a1GDk
fromPersistValues x_a1GDi
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMaybeAge: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 45#))
(Data.Text.Internal.pack $ show x_a1GDi))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMaybeAge _name_a1GDl _age_a1GDm) = []
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_a1GDo) key_a1GDp
-> Entity key_a1GDp value_a1GDo)
fieldLens PersonMaybeAgeName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeName = x} -> x) . entityVal)
(\ (Entity key_a1GDq value_a1GDr) x_a1GDs
-> Entity
key_a1GDq
(case value_a1GDr of
PersonMaybeAge {personMaybeAgeAge = personMaybeAgeAge_a1GDu}
-> PersonMaybeAge
{personMaybeAgeName = x_a1GDs,
personMaybeAgeAge = personMaybeAgeAge}))
fieldLens PersonMaybeAgeAge
= Database.Persist.TH.Internal.lensPTH
((\ PersonMaybeAge {personMaybeAgeAge = x} -> x) . entityVal)
(\ (Entity key_a1GDq value_a1GDr) x_a1GDs
-> Entity
key_a1GDq
(case value_a1GDr of
PersonMaybeAge {personMaybeAgeName = personMaybeAgeName_a1GDv}
-> PersonMaybeAge
{personMaybeAgeName = personMaybeAgeName,
personMaybeAgeAge = x_a1GDs}))
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_a1GDR
= ((Entity <$> fromField_a1GDR PersonMayId)
<*>
((pure PersonMay <*> fromField_a1GDR PersonMayName)
<*> fromField_a1GDR PersonMayColor))
tabulateEntityApply fromField_a1GDQ
= ((Entity <$> fromField_a1GDQ PersonMayId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((PersonMay <$> fromField_a1GDQ PersonMayName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GDQ PersonMayColor))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
48 104 51 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (PersonMay x_a1GDz x_a1GDA)
= [toPersistValue x_a1GDz, toPersistValue x_a1GDA]
fromPersistValues [x1_a1GDC, x2_a1GDD]
= 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_a1GDC
<*>
(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_a1GDD
fromPersistValues x_a1GDB
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"PersonMay: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a1GDB))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (PersonMay _name_a1GDE _color_a1GDF) = []
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_a1GDH) key_a1GDI
-> Entity key_a1GDI value_a1GDH)
fieldLens PersonMayName
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayName = x} -> x) . entityVal)
(\ (Entity key_a1GDJ value_a1GDK) x_a1GDL
-> Entity
key_a1GDJ
(case value_a1GDK of
PersonMay {personMayColor = personMayColor_a1GDN}
-> PersonMay
{personMayName = x_a1GDL, personMayColor = personMayColor}))
fieldLens PersonMayColor
= Database.Persist.TH.Internal.lensPTH
((\ PersonMay {personMayColor = x} -> x) . entityVal)
(\ (Entity key_a1GDJ value_a1GDK) x_a1GDL
-> Entity
key_a1GDJ
(case value_a1GDK of
PersonMay {personMayName = personMayName_a1GDO}
-> PersonMay
{personMayName = personMayName, personMayColor = x_a1GDL}))
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_a1GEi
= ((Entity <$> fromField_a1GEi PetId)
<*>
(((pure Pet <*> fromField_a1GEi PetOwnerId)
<*> fromField_a1GEi PetName)
<*> fromField_a1GEi PetType))
tabulateEntityApply fromField_a1GEh
= ((Entity <$> fromField_a1GEh PetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Pet <$> fromField_a1GEh PetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GEh PetName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GEh PetType))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
52 104 59 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Pet x_a1GDS x_a1GDT x_a1GDU)
= [toPersistValue x_a1GDS, toPersistValue x_a1GDT,
toPersistValue x_a1GDU]
fromPersistValues [x1_a1GDW, x2_a1GDX, x3_a1GDY]
= 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_a1GDW
<*>
(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_a1GDX
<*>
(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_a1GDY
fromPersistValues x_a1GDV
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Pet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 34#))
(Data.Text.Internal.pack $ show x_a1GDV))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Pet _ownerId_a1GDZ _name_a1GE0 _type_a1GE1) = []
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_a1GE3) key_a1GE4
-> Entity key_a1GE4 value_a1GE3)
fieldLens PetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petOwnerId = x} -> x) . entityVal)
(\ (Entity key_a1GE5 value_a1GE6) x_a1GE7
-> Entity
key_a1GE5
(case value_a1GE6 of
Pet {petName = petName_a1GE9, petType = petType_a1GEa}
-> Pet
{petOwnerId = x_a1GE7, petName = petName, petType = petType}))
fieldLens PetName
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petName = x} -> x) . entityVal)
(\ (Entity key_a1GE5 value_a1GE6) x_a1GE7
-> Entity
key_a1GE5
(case value_a1GE6 of
Pet {petOwnerId = petOwnerId_a1GEb, petType = petType_a1GEd}
-> Pet
{petOwnerId = petOwnerId, petName = x_a1GE7, petType = petType}))
fieldLens PetType
= Database.Persist.TH.Internal.lensPTH
((\ Pet {petType = x} -> x) . entityVal)
(\ (Entity key_a1GE5 value_a1GE6) x_a1GE7
-> Entity
key_a1GE5
(case value_a1GE6 of
Pet {petOwnerId = petOwnerId_a1GEe, petName = petName_a1GEf}
-> Pet
{petOwnerId = petOwnerId, petName = petName, petType = x_a1GE7}))
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_a1GEJ
= ((Entity <$> fromField_a1GEJ MaybeOwnedPetId)
<*>
(((pure MaybeOwnedPet <*> fromField_a1GEJ MaybeOwnedPetOwnerId)
<*> fromField_a1GEJ MaybeOwnedPetName)
<*> fromField_a1GEJ MaybeOwnedPetType))
tabulateEntityApply fromField_a1GEI
= ((Entity <$> fromField_a1GEI MaybeOwnedPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((MaybeOwnedPet <$> fromField_a1GEI MaybeOwnedPetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GEI MaybeOwnedPetName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GEI MaybeOwnedPetType))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
60 104 63 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MaybeOwnedPet x_a1GEj x_a1GEk x_a1GEl)
= [toPersistValue x_a1GEj, toPersistValue x_a1GEk,
toPersistValue x_a1GEl]
fromPersistValues [x1_a1GEn, x2_a1GEo, x3_a1GEp]
= 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_a1GEn
<*>
(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_a1GEo
<*>
(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_a1GEp
fromPersistValues x_a1GEm
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MaybeOwnedPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a1GEm))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(MaybeOwnedPet _ownerId_a1GEq _name_a1GEr _type_a1GEs)
= []
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_a1GEu) key_a1GEv
-> Entity key_a1GEv value_a1GEu)
fieldLens MaybeOwnedPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a1GEw value_a1GEx) x_a1GEy
-> Entity
key_a1GEw
(case value_a1GEx of
MaybeOwnedPet {maybeOwnedPetName = maybeOwnedPetName_a1GEA,
maybeOwnedPetType = maybeOwnedPetType_a1GEB}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = x_a1GEy,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetName
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetName = x} -> x) . entityVal)
(\ (Entity key_a1GEw value_a1GEx) x_a1GEy
-> Entity
key_a1GEw
(case value_a1GEx of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a1GEC,
maybeOwnedPetType = maybeOwnedPetType_a1GEE}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = x_a1GEy,
maybeOwnedPetType = maybeOwnedPetType}))
fieldLens MaybeOwnedPetType
= Database.Persist.TH.Internal.lensPTH
((\ MaybeOwnedPet {maybeOwnedPetType = x} -> x) . entityVal)
(\ (Entity key_a1GEw value_a1GEx) x_a1GEy
-> Entity
key_a1GEw
(case value_a1GEx of
MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a1GEF,
maybeOwnedPetName = maybeOwnedPetName_a1GEG}
-> MaybeOwnedPet
{maybeOwnedPetOwnerId = maybeOwnedPetOwnerId,
maybeOwnedPetName = maybeOwnedPetName,
maybeOwnedPetType = x_a1GEy}))
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_a1GEW
= ((Entity <$> fromField_a1GEW NeedsPetId)
<*> (pure NeedsPet <*> fromField_a1GEW NeedsPetPetKey))
tabulateEntityApply fromField_a1GEV
= ((Entity <$> fromField_a1GEV NeedsPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(NeedsPet <$> fromField_a1GEV NeedsPetPetKey))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
67 104 68 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NeedsPet x_a1GEK) = [toPersistValue x_a1GEK]
fromPersistValues [x1_a1GEM]
= 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_a1GEM
fromPersistValues x_a1GEL
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NeedsPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a1GEL))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NeedsPet _petKey_a1GEN) = []
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_a1GEP) key_a1GEQ
-> Entity key_a1GEQ value_a1GEP)
fieldLens NeedsPetPetKey
= Database.Persist.TH.Internal.lensPTH
((\ NeedsPet {needsPetPetKey = x} -> x) . entityVal)
(\ (Entity key_a1GER value_a1GES) x_a1GET
-> Entity
key_a1GER
(case value_a1GES of
NeedsPet {} -> NeedsPet {needsPetPetKey = x_a1GET}))
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_a1GFn
= ((Entity <$> fromField_a1GFn OutdoorPetId)
<*>
(((pure OutdoorPet <*> fromField_a1GFn OutdoorPetOwnerId)
<*> fromField_a1GFn OutdoorPetCollar)
<*> fromField_a1GFn OutdoorPetType))
tabulateEntityApply fromField_a1GFm
= ((Entity <$> fromField_a1GFm OutdoorPetId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((OutdoorPet <$> fromField_a1GFm OutdoorPetOwnerId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GFm OutdoorPetCollar)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GFm OutdoorPetType))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
69 104 72 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (OutdoorPet x_a1GEX x_a1GEY x_a1GEZ)
= [toPersistValue x_a1GEX, toPersistValue x_a1GEY,
toPersistValue x_a1GEZ]
fromPersistValues [x1_a1GF1, x2_a1GF2, x3_a1GF3]
= 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_a1GF1
<*>
(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_a1GF2
<*>
(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_a1GF3
fromPersistValues x_a1GF0
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"OutdoorPet: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 41#))
(Data.Text.Internal.pack $ show x_a1GF0))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(OutdoorPet _ownerId_a1GF4 _collar_a1GF5 _type_a1GF6)
= []
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_a1GF8) key_a1GF9
-> Entity key_a1GF9 value_a1GF8)
fieldLens OutdoorPetOwnerId
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetOwnerId = x} -> x) . entityVal)
(\ (Entity key_a1GFa value_a1GFb) x_a1GFc
-> Entity
key_a1GFa
(case value_a1GFb of
OutdoorPet {outdoorPetCollar = outdoorPetCollar_a1GFe,
outdoorPetType = outdoorPetType_a1GFf}
-> OutdoorPet
{outdoorPetOwnerId = x_a1GFc, outdoorPetCollar = outdoorPetCollar,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetCollar
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetCollar = x} -> x) . entityVal)
(\ (Entity key_a1GFa value_a1GFb) x_a1GFc
-> Entity
key_a1GFa
(case value_a1GFb of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a1GFg,
outdoorPetType = outdoorPetType_a1GFi}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = x_a1GFc,
outdoorPetType = outdoorPetType}))
fieldLens OutdoorPetType
= Database.Persist.TH.Internal.lensPTH
((\ OutdoorPet {outdoorPetType = x} -> x) . entityVal)
(\ (Entity key_a1GFa value_a1GFb) x_a1GFc
-> Entity
key_a1GFa
(case value_a1GFb of
OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a1GFj,
outdoorPetCollar = outdoorPetCollar_a1GFk}
-> OutdoorPet
{outdoorPetOwnerId = outdoorPetOwnerId,
outdoorPetCollar = outdoorPetCollar, outdoorPetType = x_a1GFc}))
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_a1GFH
= ((Entity <$> fromField_a1GFH UserPTId)
<*>
((pure UserPT <*> fromField_a1GFH UserPTIdent)
<*> fromField_a1GFH UserPTPassword))
tabulateEntityApply fromField_a1GFG
= ((Entity <$> fromField_a1GFG UserPTId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((UserPT <$> fromField_a1GFG UserPTIdent)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GFG UserPTPassword))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
75 104 78 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UserPT x_a1GFo x_a1GFp)
= [toPersistValue x_a1GFo, toPersistValue x_a1GFp]
fromPersistValues [x1_a1GFr, x2_a1GFs]
= 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_a1GFr
<*>
(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_a1GFs
fromPersistValues x_a1GFq
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UserPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GFq))
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_a1GFt)
= [toPersistValue x_a1GFt]
persistUniqueKeys (UserPT _ident_a1GFu _password_a1GFv)
= [UniqueUserPT _ident_a1GFu]
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_a1GFx) key_a1GFy
-> Entity key_a1GFy value_a1GFx)
fieldLens UserPTIdent
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTIdent = x} -> x) . entityVal)
(\ (Entity key_a1GFz value_a1GFA) x_a1GFB
-> Entity
key_a1GFz
(case value_a1GFA of
UserPT {userPTPassword = userPTPassword_a1GFD}
-> UserPT
{userPTIdent = x_a1GFB, userPTPassword = userPTPassword}))
fieldLens UserPTPassword
= Database.Persist.TH.Internal.lensPTH
((\ UserPT {userPTPassword = x} -> x) . entityVal)
(\ (Entity key_a1GFz value_a1GFA) x_a1GFB
-> Entity
key_a1GFz
(case value_a1GFA of
UserPT {userPTIdent = userPTIdent_a1GFE}
-> UserPT {userPTIdent = userPTIdent, userPTPassword = x_a1GFB}))
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_a1GG9
= ((Entity <$> fromField_a1GG9 EmailPTId)
<*>
(((pure EmailPT <*> fromField_a1GG9 EmailPTEmail)
<*> fromField_a1GG9 EmailPTUser)
<*> fromField_a1GG9 EmailPTVerkey))
tabulateEntityApply fromField_a1GG8
= ((Entity <$> fromField_a1GG8 EmailPTId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((EmailPT <$> fromField_a1GG8 EmailPTEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GG8 EmailPTUser)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GG8 EmailPTVerkey))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
79 104 83 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (EmailPT x_a1GFI x_a1GFJ x_a1GFK)
= [toPersistValue x_a1GFI, toPersistValue x_a1GFJ,
toPersistValue x_a1GFK]
fromPersistValues [x1_a1GFM, x2_a1GFN, x3_a1GFO]
= 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_a1GFM
<*>
(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_a1GFN
<*>
(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_a1GFO
fromPersistValues x_a1GFL
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"EmailPT: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 38#))
(Data.Text.Internal.pack $ show x_a1GFL))
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_a1GFP)
= [toPersistValue x_a1GFP]
persistUniqueKeys (EmailPT _email_a1GFQ _user_a1GFR _verkey_a1GFS)
= [UniqueEmailPT _email_a1GFQ]
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_a1GFU) key_a1GFV
-> Entity key_a1GFV value_a1GFU)
fieldLens EmailPTEmail
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTEmail = x} -> x) . entityVal)
(\ (Entity key_a1GFW value_a1GFX) x_a1GFY
-> Entity
key_a1GFW
(case value_a1GFX of
EmailPT {emailPTUser = emailPTUser_a1GG0,
emailPTVerkey = emailPTVerkey_a1GG1}
-> EmailPT
{emailPTEmail = x_a1GFY, emailPTUser = emailPTUser,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTUser
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTUser = x} -> x) . entityVal)
(\ (Entity key_a1GFW value_a1GFX) x_a1GFY
-> Entity
key_a1GFW
(case value_a1GFX of
EmailPT {emailPTEmail = emailPTEmail_a1GG2,
emailPTVerkey = emailPTVerkey_a1GG4}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = x_a1GFY,
emailPTVerkey = emailPTVerkey}))
fieldLens EmailPTVerkey
= Database.Persist.TH.Internal.lensPTH
((\ EmailPT {emailPTVerkey = x} -> x) . entityVal)
(\ (Entity key_a1GFW value_a1GFX) x_a1GFY
-> Entity
key_a1GFW
(case value_a1GFX of
EmailPT {emailPTEmail = emailPTEmail_a1GG5,
emailPTUser = emailPTUser_a1GG6}
-> EmailPT
{emailPTEmail = emailPTEmail, emailPTUser = emailPTUser,
emailPTVerkey = x_a1GFY}))
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_a1GGL
= ((Entity <$> fromField_a1GGL UpsertId)
<*>
((((pure Upsert <*> fromField_a1GGL UpsertEmail)
<*> fromField_a1GGL UpsertAttr)
<*> fromField_a1GGL UpsertExtra)
<*> fromField_a1GGL UpsertAge))
tabulateEntityApply fromField_a1GGK
= ((Entity <$> fromField_a1GGK UpsertId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((((Upsert <$> fromField_a1GGK UpsertEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GGK UpsertAttr)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GGK UpsertExtra)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GGK UpsertAge))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
85 104 91 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Upsert x_a1GGa x_a1GGb x_a1GGc x_a1GGd)
= [toPersistValue x_a1GGa, toPersistValue x_a1GGb,
toPersistValue x_a1GGc, toPersistValue x_a1GGd]
fromPersistValues [x1_a1GGf, x2_a1GGg, x3_a1GGh, x4_a1GGi]
= 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_a1GGf
<*>
(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_a1GGg
<*>
(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_a1GGh
<*>
(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_a1GGi
fromPersistValues x_a1GGe
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Upsert: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GGe))
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_a1GGj)
= [toPersistValue x_a1GGj]
persistUniqueKeys
(Upsert _email_a1GGk _attr_a1GGl _extra_a1GGm _age_a1GGn)
= [UniqueUpsert _email_a1GGk]
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_a1GGp) key_a1GGq
-> Entity key_a1GGq value_a1GGp)
fieldLens UpsertEmail
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertEmail = x} -> x) . entityVal)
(\ (Entity key_a1GGr value_a1GGs) x_a1GGt
-> Entity
key_a1GGr
(case value_a1GGs of
Upsert {upsertAttr = upsertAttr_a1GGv,
upsertExtra = upsertExtra_a1GGw, upsertAge = upsertAge_a1GGx}
-> Upsert
{upsertEmail = x_a1GGt, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertAttr
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAttr = x} -> x) . entityVal)
(\ (Entity key_a1GGr value_a1GGs) x_a1GGt
-> Entity
key_a1GGr
(case value_a1GGs of
Upsert {upsertEmail = upsertEmail_a1GGy,
upsertExtra = upsertExtra_a1GGA, upsertAge = upsertAge_a1GGB}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = x_a1GGt,
upsertExtra = upsertExtra, upsertAge = upsertAge}))
fieldLens UpsertExtra
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertExtra = x} -> x) . entityVal)
(\ (Entity key_a1GGr value_a1GGs) x_a1GGt
-> Entity
key_a1GGr
(case value_a1GGs of
Upsert {upsertEmail = upsertEmail_a1GGC,
upsertAttr = upsertAttr_a1GGD, upsertAge = upsertAge_a1GGF}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = x_a1GGt, upsertAge = upsertAge}))
fieldLens UpsertAge
= Database.Persist.TH.Internal.lensPTH
((\ Upsert {upsertAge = x} -> x) . entityVal)
(\ (Entity key_a1GGr value_a1GGs) x_a1GGt
-> Entity
key_a1GGr
(case value_a1GGs of
Upsert {upsertEmail = upsertEmail_a1GGG,
upsertAttr = upsertAttr_a1GGH, upsertExtra = upsertExtra_a1GGI}
-> Upsert
{upsertEmail = upsertEmail, upsertAttr = upsertAttr,
upsertExtra = upsertExtra, upsertAge = x_a1GGt}))
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_a1GHe
= ((Entity <$> fromField_a1GHe UpsertById)
<*>
(((pure UpsertBy <*> fromField_a1GHe UpsertByEmail)
<*> fromField_a1GHe UpsertByCity)
<*> fromField_a1GHe UpsertByAttr))
tabulateEntityApply fromField_a1GHd
= ((Entity <$> fromField_a1GHd UpsertById)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((UpsertBy <$> fromField_a1GHd UpsertByEmail)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GHd UpsertByCity)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GHd UpsertByAttr))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
93 104 99 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UpsertBy x_a1GGM x_a1GGN x_a1GGO)
= [toPersistValue x_a1GGM, toPersistValue x_a1GGN,
toPersistValue x_a1GGO]
fromPersistValues [x1_a1GGQ, x2_a1GGR, x3_a1GGS]
= 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_a1GGQ
<*>
(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_a1GGR
<*>
(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_a1GGS
fromPersistValues x_a1GGP
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"UpsertBy: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 39#))
(Data.Text.Internal.pack $ show x_a1GGP))
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_a1GGT)
= [toPersistValue x_a1GGT]
persistUniqueToValues (UniqueUpsertByCity x_a1GGU)
= [toPersistValue x_a1GGU]
persistUniqueKeys (UpsertBy _email_a1GGV _city_a1GGW _attr_a1GGX)
= [UniqueUpsertBy _email_a1GGV, UniqueUpsertByCity _city_a1GGW]
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_a1GGZ) key_a1GH0
-> Entity key_a1GH0 value_a1GGZ)
fieldLens UpsertByEmail
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByEmail = x} -> x) . entityVal)
(\ (Entity key_a1GH1 value_a1GH2) x_a1GH3
-> Entity
key_a1GH1
(case value_a1GH2 of
UpsertBy {upsertByCity = upsertByCity_a1GH5,
upsertByAttr = upsertByAttr_a1GH6}
-> UpsertBy
{upsertByEmail = x_a1GH3, upsertByCity = upsertByCity,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByCity
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByCity = x} -> x) . entityVal)
(\ (Entity key_a1GH1 value_a1GH2) x_a1GH3
-> Entity
key_a1GH1
(case value_a1GH2 of
UpsertBy {upsertByEmail = upsertByEmail_a1GH7,
upsertByAttr = upsertByAttr_a1GH9}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = x_a1GH3,
upsertByAttr = upsertByAttr}))
fieldLens UpsertByAttr
= Database.Persist.TH.Internal.lensPTH
((\ UpsertBy {upsertByAttr = x} -> x) . entityVal)
(\ (Entity key_a1GH1 value_a1GH2) x_a1GH3
-> Entity
key_a1GH1
(case value_a1GH2 of
UpsertBy {upsertByEmail = upsertByEmail_a1GHa,
upsertByCity = upsertByCity_a1GHb}
-> UpsertBy
{upsertByEmail = upsertByEmail, upsertByCity = upsertByCity,
upsertByAttr = x_a1GH3}))
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_a1GHF
= ((Entity <$> fromField_a1GHF StrictId)
<*>
(((pure Strict <*> fromField_a1GHF StrictYes)
<*> fromField_a1GHF StrictNo)
<*> fromField_a1GHF StrictDef))
tabulateEntityApply fromField_a1GHE
= ((Entity <$> fromField_a1GHE StrictId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(((Strict <$> fromField_a1GHE StrictYes)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GHE StrictNo)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GHE StrictDef))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
101 104 104 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Strict x_a1GHf x_a1GHg x_a1GHh)
= [toPersistValue x_a1GHf, toPersistValue x_a1GHg,
toPersistValue x_a1GHh]
fromPersistValues [x1_a1GHj, x2_a1GHk, x3_a1GHl]
= 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_a1GHj
<*>
(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_a1GHk
<*>
(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_a1GHl
fromPersistValues x_a1GHi
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Strict: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 37#))
(Data.Text.Internal.pack $ show x_a1GHi))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Strict _yes_a1GHm _no_a1GHn _def_a1GHo) = []
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_a1GHq) key_a1GHr
-> Entity key_a1GHr value_a1GHq)
fieldLens StrictYes
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictYes = x} -> x) . entityVal)
(\ (Entity key_a1GHs value_a1GHt) x_a1GHu
-> Entity
key_a1GHs
(case value_a1GHt of
Strict {strictNo = strictNo_a1GHw, strictDef = strictDef_a1GHx}
-> Strict
{strictYes = x_a1GHu, strictNo = strictNo, strictDef = strictDef}))
fieldLens StrictNo
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictNo = x} -> x) . entityVal)
(\ (Entity key_a1GHs value_a1GHt) x_a1GHu
-> Entity
key_a1GHs
(case value_a1GHt of
Strict {strictYes = strictYes_a1GHy, strictDef = strictDef_a1GHA}
-> Strict
{strictYes = strictYes, strictNo = x_a1GHu,
strictDef = strictDef}))
fieldLens StrictDef
= Database.Persist.TH.Internal.lensPTH
((\ Strict {strictDef = x} -> x) . entityVal)
(\ (Entity key_a1GHs value_a1GHt) x_a1GHu
-> Entity
key_a1GHs
(case value_a1GHt of
Strict {strictYes = strictYes_a1GHB, strictNo = strictNo_a1GHC}
-> Strict
{strictYes = strictYes, strictNo = strictNo, strictDef = x_a1GHu}))
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_a1GHT
= ((Entity <$> fromField_a1GHT DudeWeirdColumnsId)
<*>
(pure DudeWeirdColumns <*> fromField_a1GHT DudeWeirdColumnsName))
tabulateEntityApply fromField_a1GHS
= ((Entity <$> fromField_a1GHS DudeWeirdColumnsId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(DudeWeirdColumns <$> fromField_a1GHS DudeWeirdColumnsName))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
106 104 111 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (DudeWeirdColumns x_a1GHG)
= [toPersistValue x_a1GHG]
fromPersistValues [x1_a1GHI]
= 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_a1GHI
fromPersistValues x_a1GHH
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"DudeWeirdColumns: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 47#))
(Data.Text.Internal.pack $ show x_a1GHH))
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_a1GHJ)
= [toPersistValue x_a1GHJ]
persistUniqueKeys (DudeWeirdColumns _name_a1GHK)
= [UniqueName _name_a1GHK]
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_a1GHM) key_a1GHN
-> Entity key_a1GHN value_a1GHM)
fieldLens DudeWeirdColumnsName
= Database.Persist.TH.Internal.lensPTH
((\ DudeWeirdColumns {dudeWeirdColumnsName = x} -> x) . entityVal)
(\ (Entity key_a1GHO value_a1GHP) x_a1GHQ
-> Entity
key_a1GHO
(case value_a1GHP of
DudeWeirdColumns {}
-> DudeWeirdColumns {dudeWeirdColumnsName = x_a1GHQ}))
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_a1GIc
= ((Entity <$> fromField_a1GIc RelationshipId)
<*>
((pure Relationship <*> fromField_a1GIc RelationshipName)
<*> fromField_a1GIc RelationshipParent))
tabulateEntityApply fromField_a1GIb
= ((Entity <$> fromField_a1GIb RelationshipId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Relationship <$> fromField_a1GIb RelationshipName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1GIb RelationshipParent))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
116 104 119 7))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (Relationship x_a1GHU x_a1GHV)
= [toPersistValue x_a1GHU, toPersistValue x_a1GHV]
fromPersistValues [x1_a1GHX, x2_a1GHY]
= 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_a1GHX
<*>
(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_a1GHY
fromPersistValues x_a1GHW
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Relationship: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 43#))
(Data.Text.Internal.pack $ show x_a1GHW))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (Relationship _name_a1GHZ _parent_a1GI0) = []
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_a1GI2) key_a1GI3
-> Entity key_a1GI3 value_a1GI2)
fieldLens RelationshipName
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipName = x} -> x) . entityVal)
(\ (Entity key_a1GI4 value_a1GI5) x_a1GI6
-> Entity
key_a1GI4
(case value_a1GI5 of
Relationship {relationshipParent = relationshipParent_a1GI8}
-> Relationship
{relationshipName = x_a1GI6,
relationshipParent = relationshipParent}))
fieldLens RelationshipParent
= Database.Persist.TH.Internal.lensPTH
((\ Relationship {relationshipParent = x} -> x) . entityVal)
(\ (Entity key_a1GI4 value_a1GI5) x_a1GI6
-> Entity
key_a1GI4
(case value_a1GI5 of
Relationship {relationshipName = relationshipName_a1GI9}
-> Relationship
{relationshipName = relationshipName,
relationshipParent = x_a1GI6}))
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_a1GIp
= ((Entity <$> fromField_a1GIp MutAId)
<*> (pure MutA <*> fromField_a1GIp MutAMutB))
tabulateEntityApply fromField_a1GIo
= ((Entity <$> fromField_a1GIo MutAId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(MutA <$> fromField_a1GIo MutAMutB))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
121 104 122 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutA x_a1GId) = [toPersistValue x_a1GId]
fromPersistValues [x1_a1GIf]
= 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_a1GIf
fromPersistValues x_a1GIe
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutA: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a1GIe))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutA _mutB_a1GIg) = []
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_a1GIi) key_a1GIj
-> Entity key_a1GIj value_a1GIi)
fieldLens MutAMutB
= Database.Persist.TH.Internal.lensPTH
((\ MutA {mutAMutB = x} -> x) . entityVal)
(\ (Entity key_a1GIk value_a1GIl) x_a1GIm
-> Entity
key_a1GIk
(case value_a1GIl of MutA {} -> MutA {mutAMutB = x_a1GIm}))
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_a1GIC
= ((Entity <$> fromField_a1GIC MutBId)
<*> (pure MutB <*> fromField_a1GIC MutBMutA))
tabulateEntityApply fromField_a1GIB
= ((Entity <$> fromField_a1GIB MutBId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(MutB <$> fromField_a1GIB MutBMutA))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
124 104 125 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (MutB x_a1GIq) = [toPersistValue x_a1GIq]
fromPersistValues [x1_a1GIs]
= 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_a1GIs
fromPersistValues x_a1GIr
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"MutB: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a1GIr))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (MutB _mutA_a1GIt) = []
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_a1GIv) key_a1GIw
-> Entity key_a1GIw value_a1GIv)
fieldLens MutBMutA
= Database.Persist.TH.Internal.lensPTH
((\ MutB {mutBMutA = x} -> x) . entityVal)
(\ (Entity key_a1GIx value_a1GIy) x_a1GIz
-> Entity
key_a1GIx
(case value_a1GIy of MutB {} -> MutB {mutBMutA = x_a1GIz}))
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_a1GIE age_a1GIF color_a1GIG)
= object
[(Data.Aeson.Key.fromString "name" .= name_a1GIE),
(Data.Aeson.Key.fromString "age" .= age_a1GIF),
(Data.Aeson.Key.fromString "color" .= color_a1GIG)]
instance PersistStore backend =>
FromJSON (PersonGeneric backend) where
parseJSON
= withObject
"Person"
(\ obj_a1GID
-> (((pure Person
<*> (obj_a1GID .: Data.Aeson.Key.fromString "name"))
<*> (obj_a1GID .: Data.Aeson.Key.fromString "age"))
<*> (obj_a1GID .:? 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_a1GII color_a1GIJ)
= object
[(Data.Aeson.Key.fromString "name" .= name_a1GII),
(Data.Aeson.Key.fromString "color" .= color_a1GIJ)]
instance PersistStore backend =>
FromJSON (PersonMayGeneric backend) where
parseJSON
= withObject
"PersonMay"
(\ obj_a1GIH
-> ((pure PersonMay
<*> (obj_a1GIH .:? Data.Aeson.Key.fromString "name"))
<*> (obj_a1GIH .:? 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:(141,27)-(152,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
143 28 144 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#))
143 28 144 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
145 28 147 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#))
145 28 147 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
148 28 151 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#))
148 28 151 5))]
src/PersistentTestModels.hs:(134,1)-(152,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
143 28 144 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#))
143 28 144 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
145 28 147 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#))
145 28 147 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
148 28 151 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#))
148 28 151 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_a1UbH
= ((Entity <$> fromField_a1UbH NoPrefix1Id)
<*> (pure NoPrefix1 <*> fromField_a1UbH SomeFieldName))
tabulateEntityApply fromField_a1UbG
= ((Entity <$> fromField_a1UbG NoPrefix1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(NoPrefix1 <$> fromField_a1UbG SomeFieldName))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
143 28 144 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix1 x_a1Ubv) = [toPersistValue x_a1Ubv]
fromPersistValues [x1_a1Ubx]
= 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_a1Ubx
fromPersistValues x_a1Ubw
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a1Ubw))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (NoPrefix1 _someFieldName_a1Uby) = []
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_a1UbA) key_a1UbB
-> Entity key_a1UbB value_a1UbA)
fieldLens SomeFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix1 {someFieldName = x} -> x) . entityVal)
(\ (Entity key_a1UbC value_a1UbD) x_a1UbE
-> Entity
key_a1UbC
(case value_a1UbD of
NoPrefix1 {} -> NoPrefix1 {someFieldName = x_a1UbE}))
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_a1Uc0
= ((Entity <$> fromField_a1Uc0 NoPrefix2Id)
<*>
((pure NoPrefix2 <*> fromField_a1Uc0 SomeOtherFieldName)
<*> fromField_a1Uc0 UnprefixedRef))
tabulateEntityApply fromField_a1UbZ
= ((Entity <$> fromField_a1UbZ NoPrefix2Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((NoPrefix2 <$> fromField_a1UbZ SomeOtherFieldName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1UbZ UnprefixedRef))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
145 28 147 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (NoPrefix2 x_a1UbI x_a1UbJ)
= [toPersistValue x_a1UbI, toPersistValue x_a1UbJ]
fromPersistValues [x1_a1UbL, x2_a1UbM]
= 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_a1UbL
<*>
(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_a1UbM
fromPersistValues x_a1UbK
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"NoPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 40#))
(Data.Text.Internal.pack $ show x_a1UbK))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(NoPrefix2 _someOtherFieldName_a1UbN _unprefixedRef_a1UbO)
= []
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_a1UbQ) key_a1UbR
-> Entity key_a1UbR value_a1UbQ)
fieldLens SomeOtherFieldName
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {someOtherFieldName = x} -> x) . entityVal)
(\ (Entity key_a1UbS value_a1UbT) x_a1UbU
-> Entity
key_a1UbS
(case value_a1UbT of
NoPrefix2 {unprefixedRef = unprefixedRef_a1UbW}
-> NoPrefix2
{someOtherFieldName = x_a1UbU, unprefixedRef = unprefixedRef}))
fieldLens UnprefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ NoPrefix2 {unprefixedRef = x} -> x) . entityVal)
(\ (Entity key_a1UbS value_a1UbT) x_a1UbU
-> Entity
key_a1UbS
(case value_a1UbT of
NoPrefix2 {someOtherFieldName = someOtherFieldName_a1UbX}
-> NoPrefix2
{someOtherFieldName = someOtherFieldName,
unprefixedRef = x_a1UbU}))
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_a1Ucc
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a1Ucb
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
148 28 151 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (UnprefixedLeftSum x_a1Uc1)
= [toPersistValue x_a1Uc1, PersistNull]
toPersistFields (UnprefixedRightSum x_a1Uc2)
= [PersistNull, toPersistValue x_a1Uc2]
fromPersistValues [x_a1Uc3, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a1Uc3
= (UnprefixedLeftSum `fmap` fromPersistValue x_a1Uc3)
fromPersistValues [PersistNull, x_a1Uc4]
| Database.Persist.TH.Internal.isNotNull x_a1Uc4
= (UnprefixedRightSum `fmap` fromPersistValue x_a1Uc4)
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_a1Uc6) key_a1Uc7
-> Entity key_a1Uc7 value_a1Uc6)
fieldLens UnprefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1Uc9)
-> case value_a1Uc9 of
UnprefixedLeftSum x_a1Uca -> x_a1Uca
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1Uc8 _) x_a1Uca
-> Entity key_a1Uc8 (UnprefixedLeftSum x_a1Uca))
fieldLens UnprefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1Uc9)
-> case value_a1Uc9 of
UnprefixedRightSum x_a1Uca -> x_a1Uca
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1Uc8 _) x_a1Uca
-> Entity key_a1Uc8 (UnprefixedRightSum x_a1Uca))
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:(173,27)-(183,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
175 28 176 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#))
175 28 176 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
177 28 179 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#))
177 28 179 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
180 28 183 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#))
180 28 183 5))]
src/PersistentTestModels.hs:(160,1)-(183,2): Splicing declarations
share
[mkPersist
persistSettings
{mpsFieldLabelModifier = \ entity_a1WlK field_a1WlL
-> case entity_a1WlK of
"CustomPrefix1" -> append "_cp1" field_a1WlL
"CustomPrefix2" -> append "_cp2" field_a1WlL
_ -> error "should not be called",
mpsConstraintLabelModifier = \ entity_a1WlM field_a1WlN
-> case entity_a1WlM of
"CustomPrefix1" -> append "CP1" field_a1WlN
"CustomPrefix2" -> append "CP2" field_a1WlN
"CustomPrefixSum" -> append "CP" field_a1WlN
_ -> 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
175 28 176 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#))
175 28 176 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
177 28 179 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#))
177 28 179 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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
180 28 183 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#))
180 28 183 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_a1WFg
= ((Entity <$> fromField_a1WFg CustomPrefix1Id)
<*> (pure CustomPrefix1 <*> fromField_a1WFg CP1CustomFieldName))
tabulateEntityApply fromField_a1WFf
= ((Entity <$> fromField_a1WFf CustomPrefix1Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
(CustomPrefix1 <$> fromField_a1WFf CP1CustomFieldName))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
175 28 176 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix1 x_a1WF4) = [toPersistValue x_a1WF4]
fromPersistValues [x1_a1WF6]
= 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_a1WF6
fromPersistValues x_a1WF5
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix1: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a1WF5))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys (CustomPrefix1 _customFieldName_a1WF7) = []
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_a1WF9) key_a1WFa
-> Entity key_a1WFa value_a1WF9)
fieldLens CP1CustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix1 {_cp1CustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a1WFb value_a1WFc) x_a1WFd
-> Entity
key_a1WFb
(case value_a1WFc of
CustomPrefix1 {} -> CustomPrefix1 {_cp1CustomFieldName = x_a1WFd}))
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_a1WFz
= ((Entity <$> fromField_a1WFz CustomPrefix2Id)
<*>
((pure CustomPrefix2 <*> fromField_a1WFz CP2OtherCustomFieldName)
<*> fromField_a1WFz CP2CustomPrefixedRef))
tabulateEntityApply fromField_a1WFy
= ((Entity <$> fromField_a1WFy CustomPrefix2Id)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((CustomPrefix2 <$> fromField_a1WFy CP2OtherCustomFieldName)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1WFy CP2CustomPrefixedRef))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
177 28 179 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CustomPrefix2 x_a1WFh x_a1WFi)
= [toPersistValue x_a1WFh, toPersistValue x_a1WFi]
fromPersistValues [x1_a1WFk, x2_a1WFl]
= 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_a1WFk
<*>
(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_a1WFl
fromPersistValues x_a1WFj
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"CustomPrefix2: fromPersistValues failed on: "#
(ghc-prim:GHC.Types.I# 44#))
(Data.Text.Internal.pack $ show x_a1WFj))
persistUniqueToFieldNames _
= error "Degenerate case, should never happen"
persistUniqueToValues _
= error "Degenerate case, should never happen"
persistUniqueKeys
(CustomPrefix2 _otherCustomFieldName_a1WFm
_customPrefixedRef_a1WFn)
= []
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_a1WFp) key_a1WFq
-> Entity key_a1WFq value_a1WFp)
fieldLens CP2OtherCustomFieldName
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2OtherCustomFieldName = x} -> x) . entityVal)
(\ (Entity key_a1WFr value_a1WFs) x_a1WFt
-> Entity
key_a1WFr
(case value_a1WFs of
CustomPrefix2 {_cp2CustomPrefixedRef = _cp2CustomPrefixedRef_a1WFv}
-> CustomPrefix2
{_cp2OtherCustomFieldName = x_a1WFt,
_cp2CustomPrefixedRef = _cp2CustomPrefixedRef}))
fieldLens CP2CustomPrefixedRef
= Database.Persist.TH.Internal.lensPTH
((\ CustomPrefix2 {_cp2CustomPrefixedRef = x} -> x) . entityVal)
(\ (Entity key_a1WFr value_a1WFs) x_a1WFt
-> Entity
key_a1WFr
(case value_a1WFs of
CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName_a1WFw}
-> CustomPrefix2
{_cp2OtherCustomFieldName = _cp2OtherCustomFieldName,
_cp2CustomPrefixedRef = x_a1WFt}))
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_a1WFL
= error "tabulateEntityA does not make sense for sum type"
tabulateEntityApply fromField_a1WFK
= error "tabulateEntityApply does not make sense for sum type"
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
180 28 183 5))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4:Database.Persist.Types.Base.entityForeigns = []}
toPersistFields (CPCustomPrefixedLeftSum x_a1WFA)
= [toPersistValue x_a1WFA, PersistNull]
toPersistFields (CPCustomPrefixedRightSum x_a1WFB)
= [PersistNull, toPersistValue x_a1WFB]
fromPersistValues [x_a1WFC, PersistNull]
| Database.Persist.TH.Internal.isNotNull x_a1WFC
= (CPCustomPrefixedLeftSum `fmap` fromPersistValue x_a1WFC)
fromPersistValues [PersistNull, x_a1WFD]
| Database.Persist.TH.Internal.isNotNull x_a1WFD
= (CPCustomPrefixedRightSum `fmap` fromPersistValue x_a1WFD)
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_a1WFF) key_a1WFG
-> Entity key_a1WFG value_a1WFF)
fieldLens CPCustomPrefixedLeft
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1WFI)
-> case value_a1WFI of
CPCustomPrefixedLeftSum x_a1WFJ -> x_a1WFJ
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1WFH _) x_a1WFJ
-> Entity key_a1WFH (CPCustomPrefixedLeftSum x_a1WFJ))
fieldLens CPCustomPrefixedRight
= Database.Persist.TH.Internal.lensPTH
(\ (Entity _ value_a1WFI)
-> case value_a1WFI of
CPCustomPrefixedRightSum x_a1WFJ -> x_a1WFJ
_ -> error "Tried to use fieldLens on a Sum type")
(\ (Entity key_a1WFH _) x_a1WFJ
-> Entity key_a1WFH (CPCustomPrefixedRightSum x_a1WFJ))
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:(193,27)-(200,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
196 28 200 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#))
196 28 200 3))]
src/PersistentTestModels.hs:(191,1)-(200,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.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
196 28 200 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#))
196 28 200 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_a1YZh
= fmap
TreeKey
(ghc-prim:GHC.Prim.coerce
(parent record_mkForeignKeysComposite_a1YZh))
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_a1YZi
= [toPersistValue ((\ TreeKey {unTreeKey = x} -> x) record_a1YZi)]
keyFromValues [x1_a1YZk]
= 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_a1YZk
keyFromValues x_a1YZj
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: keyFromValues failed on: "# (ghc-prim:GHC.Types.I# 31#))
(Data.Text.Internal.pack $ show x_a1YZj))
keyFromRecordM
= Just (\ Tree {name = name_a1YZu} -> TreeKey name_a1YZu)
tabulateEntityA fromField_a1YZw
= ((Entity <$> fromField_a1YZw TreeId)
<*>
((pure Tree <*> fromField_a1YZw Name) <*> fromField_a1YZw Parent))
tabulateEntityApply fromField_a1YZv
= ((Entity <$> fromField_a1YZv TreeId)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
((Tree <$> fromField_a1YZv Name)
semigroupoids-6.0.1-309RwKy4J1y154zzFfa7WM:Data.Functor.Bind.Class.<.>
fromField_a1YZv Parent))
entityDef _
= persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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#))
196 28 200 3))
{persistent-2.17.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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.0.0-3pLNk26I1rHDe4r6t9luV4: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_a1YZ9 x_a1YZa)
= [toPersistValue x_a1YZ9, toPersistValue x_a1YZa]
fromPersistValues [x1_a1YZc, x2_a1YZd]
= 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_a1YZc
<*>
(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_a1YZd
fromPersistValues x_a1YZb
= (Left
$ mappend
(Data.Text.unpackCStringLen#
"Tree: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#))
(Data.Text.Internal.pack $ show x_a1YZb))
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_a1YZe)
= [toPersistValue x_a1YZe]
persistUniqueKeys (Tree _name_a1YZf _parent_a1YZg)
= [TreePrimaryKey _name_a1YZf]
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_a1YZl) key_a1YZm
-> Entity key_a1YZm value_a1YZl)
fieldLens Name
= Database.Persist.TH.Internal.lensPTH
((\ Tree {name = x} -> x) . entityVal)
(\ (Entity key_a1YZn value_a1YZo) x_a1YZp
-> Entity
key_a1YZn
(case value_a1YZo of
Tree {parent = parent_a1YZr}
-> Tree {name = x_a1YZp, parent = parent}))
fieldLens Parent
= Database.Persist.TH.Internal.lensPTH
((\ Tree {parent = x} -> x) . entityVal)
(\ (Entity key_a1YZn value_a1YZo) x_a1YZp
-> Entity
key_a1YZn
(case value_a1YZo of
Tree {name = name_a1YZs} -> Tree {name = name, parent = x_a1YZp}))
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:26: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"
|
26 | share [mkPersist persistSettings { mpsGeneric = True }, mkMigrate "testMigrate"] [persistUpperCase|
| ^^^^^^^^^^
src/PersistentTestModels.hs:134: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
|
134 | share [mkPersist persistSettings {
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
src/PersistentTestModels.hs:138:11: 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"
|
138 | , mpsGeneric = True
| ^^^^^^^^^^
src/PersistentTestModels.hs:160: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
|
160 | share [mkPersist persistSettings {
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
src/PersistentTestModels.hs:170:11: 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"
|
170 | , mpsGeneric = True
| ^^^^^^^^^^
src/PersistentTestModels.hs:191:61: 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"
|
191 | share [mkPersist persistSettings { mpsPrefixFields = False, mpsGeneric = False }
| ^^^^^^^^^^
src/PersistentTestModels.hs:207:10: warning: [GHC-06201] [-Wmissing-methods]
" No explicit implementation for
tabulateEntityA and tabulateEntityApply
" In the instance declaration for
PersistEntity (ReverseFieldOrder a)
|
207 | instance (PersistEntity a) => PersistEntity (ReverseFieldOrder a) where
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
src/PersistentTestModels.hs:211: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."
|
211 | 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:134)
NoPrefixSumGeneric (src/PersistentTestModels.hs:134)
NoPrefixSum (src/PersistentTestModels.hs:134)
NoPrefix2Id (src/PersistentTestModels.hs:134)
NoPrefix2Generic (src/PersistentTestModels.hs:134)
NoPrefix2 (src/PersistentTestModels.hs:134)
NoPrefix1Id (src/PersistentTestModels.hs:134)
NoPrefix1Generic (src/PersistentTestModels.hs:134)
NoPrefix1 (src/PersistentTestModels.hs:134)
entityDefListFornoPrefixMigrate (src/PersistentTestModels.hs:134)
noPrefixMigrate (src/PersistentTestModels.hs:134)
CustomPrefixSumId (src/PersistentTestModels.hs:160)
CustomPrefixSumGeneric (src/PersistentTestModels.hs:160)
CustomPrefixSum (src/PersistentTestModels.hs:160)
CustomPrefix2Id (src/PersistentTestModels.hs:160)
CustomPrefix2Generic (src/PersistentTestModels.hs:160)
CustomPrefix2 (src/PersistentTestModels.hs:160)
CustomPrefix1Id (src/PersistentTestModels.hs:160)
CustomPrefix1Generic (src/PersistentTestModels.hs:160)
CustomPrefix1 (src/PersistentTestModels.hs:160)
entityDefListForcustomPrefixMigrate (src/PersistentTestModels.hs:160)
customPrefixMigrate (src/PersistentTestModels.hs:160)
TreeId (src/PersistentTestModels.hs:191)
Tree (src/PersistentTestModels.hs:191)
fkparent (src/PersistentTestModels.hs:191)
entityDefListFortreeMigrate (src/PersistentTestModels.hs:191)
treeMigrate (src/PersistentTestModels.hs:191)
cleanDB (src/PersistentTestModels.hs:236)
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:236)
testMigrate (src/PersistentTestModels.hs:26)
noPrefixMigrate (src/PersistentTestModels.hs:134)
customPrefixMigrate (src/PersistentTestModels.hs:160)
treeMigrate (src/PersistentTestModels.hs:191)
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.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.Strict.Vector
- 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
- 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.1.4-EU7afYB4Xg45QtpPVi2NQw
Completed persistent-test-2.13.1.4
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'