Resolving dependencies... Configuring OneTuple-0.4.2.1... Preprocessing library for OneTuple-0.4.2.1.. Building library for OneTuple-0.4.2.1.. [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.1.. Running Haddock on library for OneTuple-0.4.2.1.. 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.1-65GlXcz0coiFvmploW1YZu Completed OneTuple-0.4.2.1 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.4... Preprocessing library for base-orphans-0.9.4.. Building library for base-orphans-0.9.4.. [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.4.. Running Haddock on library for base-orphans-0.9.4.. 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.4-GDnU7L0BqB344vG7X82oqc Completed base-orphans-0.9.4 Configuring base64-bytestring-1.2.1.0... Preprocessing library for base64-bytestring-1.2.1.0.. Building library for base64-bytestring-1.2.1.0.. [1 of 5] Compiling Data.ByteString.Base64.Internal ( Data/ByteString/Base64/Internal.hs, dist/build/Data/ByteString/Base64/Internal.o, dist/build/Data/ByteString/Base64/Internal.dyn_o ) [2 of 5] Compiling Data.ByteString.Base64 ( Data/ByteString/Base64.hs, dist/build/Data/ByteString/Base64.o, dist/build/Data/ByteString/Base64.dyn_o ) [3 of 5] Compiling Data.ByteString.Base64.Lazy ( Data/ByteString/Base64/Lazy.hs, dist/build/Data/ByteString/Base64/Lazy.o, dist/build/Data/ByteString/Base64/Lazy.dyn_o ) [4 of 5] Compiling Data.ByteString.Base64.URL ( Data/ByteString/Base64/URL.hs, dist/build/Data/ByteString/Base64/URL.o, dist/build/Data/ByteString/Base64/URL.dyn_o ) [5 of 5] Compiling Data.ByteString.Base64.URL.Lazy ( Data/ByteString/Base64/URL/Lazy.hs, dist/build/Data/ByteString/Base64/URL/Lazy.o, dist/build/Data/ByteString/Base64/URL/Lazy.dyn_o ) Preprocessing library for base64-bytestring-1.2.1.0.. Running Haddock on library for base64-bytestring-1.2.1.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling Data.ByteString.Base64.Internal ( Data/ByteString/Base64/Internal.hs, nothing ) [2 of 5] Compiling Data.ByteString.Base64 ( Data/ByteString/Base64.hs, nothing ) [3 of 5] Compiling Data.ByteString.Base64.Lazy ( Data/ByteString/Base64/Lazy.hs, nothing ) [4 of 5] Compiling Data.ByteString.Base64.URL ( Data/ByteString/Base64/URL.hs, nothing ) [5 of 5] Compiling Data.ByteString.Base64.URL.Lazy ( Data/ByteString/Base64/URL/Lazy.hs, nothing ) Haddock coverage: 100% ( 4 / 4) in 'Data.ByteString.Base64' 100% ( 4 / 4) in 'Data.ByteString.Base64.Lazy' 100% ( 7 / 7) in 'Data.ByteString.Base64.URL' 100% ( 7 / 7) in 'Data.ByteString.Base64.URL.Lazy' Documentation created: dist/doc/html/base64-bytestring/, dist/doc/html/base64-bytestring/base64-bytestring.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/base64-bytestring-1.2.1.0-AIN2dTo0IeiEPRnFKNxiRV Completed base64-bytestring-1.2.1.0 Configuring blaze-builder-0.4.4.1... Preprocessing library for blaze-builder-0.4.4.1.. Building library for blaze-builder-0.4.4.1.. [ 1 of 11] Compiling Blaze.ByteString.Builder.Internal.Write ( Blaze/ByteString/Builder/Internal/Write.hs, dist/build/Blaze/ByteString/Builder/Internal/Write.o, dist/build/Blaze/ByteString/Builder/Internal/Write.dyn_o ) [ 2 of 11] Compiling Blaze.ByteString.Builder.Compat.Write ( Blaze/ByteString/Builder/Compat/Write.hs, dist/build/Blaze/ByteString/Builder/Compat/Write.o, dist/build/Blaze/ByteString/Builder/Compat/Write.dyn_o ) [ 3 of 11] Compiling Blaze.ByteString.Builder.Int ( Blaze/ByteString/Builder/Int.hs, dist/build/Blaze/ByteString/Builder/Int.o, dist/build/Blaze/ByteString/Builder/Int.dyn_o ) [ 4 of 11] Compiling Blaze.ByteString.Builder.Html.Word ( Blaze/ByteString/Builder/Html/Word.hs, dist/build/Blaze/ByteString/Builder/Html/Word.o, dist/build/Blaze/ByteString/Builder/Html/Word.dyn_o ) [ 5 of 11] Compiling Blaze.ByteString.Builder.Char8 ( Blaze/ByteString/Builder/Char8.hs, dist/build/Blaze/ByteString/Builder/Char8.o, dist/build/Blaze/ByteString/Builder/Char8.dyn_o ) [ 6 of 11] Compiling Blaze.ByteString.Builder.Char.Utf8 ( Blaze/ByteString/Builder/Char/Utf8.hs, dist/build/Blaze/ByteString/Builder/Char/Utf8.o, dist/build/Blaze/ByteString/Builder/Char/Utf8.dyn_o ) [ 7 of 11] Compiling Blaze.ByteString.Builder.Html.Utf8 ( Blaze/ByteString/Builder/Html/Utf8.hs, dist/build/Blaze/ByteString/Builder/Html/Utf8.o, dist/build/Blaze/ByteString/Builder/Html/Utf8.dyn_o ) [ 8 of 11] Compiling Blaze.ByteString.Builder.ByteString ( Blaze/ByteString/Builder/ByteString.hs, dist/build/Blaze/ByteString/Builder/ByteString.o, dist/build/Blaze/ByteString/Builder/ByteString.dyn_o ) [ 9 of 11] Compiling Blaze.ByteString.Builder.HTTP ( Blaze/ByteString/Builder/HTTP.hs, dist/build/Blaze/ByteString/Builder/HTTP.o, dist/build/Blaze/ByteString/Builder/HTTP.dyn_o ) [10 of 11] Compiling Blaze.ByteString.Builder.Word ( Blaze/ByteString/Builder/Word.hs, dist/build/Blaze/ByteString/Builder/Word.o, dist/build/Blaze/ByteString/Builder/Word.dyn_o ) [11 of 11] Compiling Blaze.ByteString.Builder ( Blaze/ByteString/Builder.hs, dist/build/Blaze/ByteString/Builder.o, dist/build/Blaze/ByteString/Builder.dyn_o ) Preprocessing library for blaze-builder-0.4.4.1.. Running Haddock on library for blaze-builder-0.4.4.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 11] Compiling Blaze.ByteString.Builder.Internal.Write ( Blaze/ByteString/Builder/Internal/Write.hs, nothing ) [ 2 of 11] Compiling Blaze.ByteString.Builder.Compat.Write ( Blaze/ByteString/Builder/Compat/Write.hs, nothing ) [ 3 of 11] Compiling Blaze.ByteString.Builder.Int ( Blaze/ByteString/Builder/Int.hs, nothing ) [ 4 of 11] Compiling Blaze.ByteString.Builder.Html.Word ( Blaze/ByteString/Builder/Html/Word.hs, nothing ) [ 5 of 11] Compiling Blaze.ByteString.Builder.Char8 ( Blaze/ByteString/Builder/Char8.hs, nothing ) [ 6 of 11] Compiling Blaze.ByteString.Builder.Char.Utf8 ( Blaze/ByteString/Builder/Char/Utf8.hs, nothing ) [ 7 of 11] Compiling Blaze.ByteString.Builder.Html.Utf8 ( Blaze/ByteString/Builder/Html/Utf8.hs, nothing ) [ 8 of 11] Compiling Blaze.ByteString.Builder.ByteString ( Blaze/ByteString/Builder/ByteString.hs, nothing ) [ 9 of 11] Compiling Blaze.ByteString.Builder.HTTP ( Blaze/ByteString/Builder/HTTP.hs, nothing ) [10 of 11] Compiling Blaze.ByteString.Builder.Word ( Blaze/ByteString/Builder/Word.hs, nothing ) [11 of 11] Compiling Blaze.ByteString.Builder ( Blaze/ByteString/Builder.hs, nothing ) Haddock coverage: Warning: 'Poke' is ambiguous. It is defined * at Blaze/ByteString/Builder/Internal/Write.hs:77:5 * at Blaze/ByteString/Builder/Internal/Write.hs:76:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Blaze/ByteString/Builder/Internal/Write.hs:76:1 Warning: 'Write' is ambiguous. It is defined * at Blaze/ByteString/Builder/Internal/Write.hs:93:14 * at Blaze/ByteString/Builder/Internal/Write.hs:93:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Blaze/ByteString/Builder/Internal/Write.hs:93:1 96% ( 24 / 25) in 'Blaze.ByteString.Builder.Internal.Write' Missing documentation for: fromWriteSingleton (Blaze/ByteString/Builder/Internal/Write.hs:245) 50% ( 2 / 4) in 'Blaze.ByteString.Builder.Compat.Write' Missing documentation for: writePrimFixed (Blaze/ByteString/Builder/Compat/Write.hs:25) writePrimBounded (Blaze/ByteString/Builder/Compat/Write.hs:29) 100% ( 43 / 43) in 'Blaze.ByteString.Builder.Int' 88% ( 8 / 9) in 'Blaze.ByteString.Builder.Html.Word' Missing documentation for: wordHtmlEscaped (Blaze/ByteString/Builder/Html/Word.hs:40) Warning: 'bytestring' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 9 / 9) in 'Blaze.ByteString.Builder.Char8' 100% ( 9 / 9) in 'Blaze.ByteString.Builder.Char.Utf8' Warning: 'Builder' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 10 / 10) in 'Blaze.ByteString.Builder.Html.Utf8' 100% ( 12 / 12) in 'Blaze.ByteString.Builder.ByteString' 100% ( 4 / 4) in 'Blaze.ByteString.Builder.HTTP' 100% ( 43 / 43) in 'Blaze.ByteString.Builder.Word' Warning: 'fromString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'toLazyByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Write' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'fromWrite' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 91% ( 22 / 24) in 'Blaze.ByteString.Builder' Missing documentation for: toByteStringIOWith (Blaze/ByteString/Builder.hs:187) fromWriteSingleton (Blaze/ByteString/Builder/Internal/Write.hs:245) Documentation created: dist/doc/html/blaze-builder/, dist/doc/html/blaze-builder/blaze-builder.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/blaze-builder-0.4.4.1-8j2XeR06mxnJMf1nnbZvi2 Completed blaze-builder-0.4.4.1 Configuring call-stack-0.4.0... Preprocessing library for call-stack-0.4.0.. Building library for call-stack-0.4.0.. [1 of 3] Compiling Data.SrcLoc ( src/Data/SrcLoc.hs, dist/build/Data/SrcLoc.o, dist/build/Data/SrcLoc.dyn_o ) [2 of 3] Compiling Data.CallStack ( src/Data/CallStack.hs, dist/build/Data/CallStack.o, dist/build/Data/CallStack.dyn_o ) [3 of 3] Compiling Paths_call_stack ( dist/build/autogen/Paths_call_stack.hs, dist/build/Paths_call_stack.o, dist/build/Paths_call_stack.dyn_o ) Preprocessing library for call-stack-0.4.0.. Running Haddock on library for call-stack-0.4.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Data.SrcLoc ( src/Data/SrcLoc.hs, nothing ) [2 of 3] Compiling Data.CallStack ( src/Data/CallStack.hs, nothing ) [3 of 3] Compiling Paths_call_stack ( dist/build/autogen/Paths_call_stack.hs, nothing ) Haddock coverage: 33% ( 2 / 6) in 'Data.CallStack' Missing documentation for: Module header CallStack (src/Data/CallStack.hs:42) callStack (src/Data/CallStack.hs:45) callSite (src/Data/CallStack.hs:55) Warning: Data.CallStack: could not find link destinations for: - GHC.Generics.Rep_SrcLoc Documentation created: dist/doc/html/call-stack/, dist/doc/html/call-stack/call-stack.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/call-stack-0.4.0-6toa6qiMTfCIj9v12ifnhn Completed call-stack-0.4.0 Configuring cereal-0.5.8.3... Preprocessing library for cereal-0.5.8.3.. Building library for cereal-0.5.8.3.. [1 of 4] Compiling Data.Serialize.Get ( src/Data/Serialize/Get.hs, dist/build/Data/Serialize/Get.o, dist/build/Data/Serialize/Get.dyn_o ) [2 of 4] Compiling Data.Serialize.Put ( src/Data/Serialize/Put.hs, dist/build/Data/Serialize/Put.o, dist/build/Data/Serialize/Put.dyn_o ) [3 of 4] Compiling Data.Serialize.IEEE754 ( src/Data/Serialize/IEEE754.hs, dist/build/Data/Serialize/IEEE754.o, dist/build/Data/Serialize/IEEE754.dyn_o ) [4 of 4] Compiling Data.Serialize ( src/Data/Serialize.hs, dist/build/Data/Serialize.o, dist/build/Data/Serialize.dyn_o ) src/Data/Serialize.hs:702:22: 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. | 702 | newtype Tagged (s :: * -> *) b = Tagged {unTagged :: b} | ^ src/Data/Serialize.hs:702:27: 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. | 702 | newtype Tagged (s :: * -> *) b = Tagged {unTagged :: b} | ^ Preprocessing library for cereal-0.5.8.3.. Running Haddock on library for cereal-0.5.8.3.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling Data.Serialize.Get ( src/Data/Serialize/Get.hs, nothing ) [2 of 4] Compiling Data.Serialize.Put ( src/Data/Serialize/Put.hs, nothing ) [3 of 4] Compiling Data.Serialize.IEEE754 ( src/Data/Serialize/IEEE754.hs, nothing ) [4 of 4] Compiling Data.Serialize ( src/Data/Serialize.hs, nothing ) src/Data/Serialize.hs:702:22: 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. | 702 | newtype Tagged (s :: * -> *) b = Tagged {unTagged :: b} | ^ src/Data/Serialize.hs:702:27: 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. | 702 | newtype Tagged (s :: * -> *) b = Tagged {unTagged :: b} | ^ Haddock coverage: 93% ( 61 / 65) in 'Data.Serialize.Get' Missing documentation for: label (src/Data/Serialize/Get.hs:268) getLazyByteString (src/Data/Serialize/Get.hs:509) getShortByteString (src/Data/Serialize/Get.hs:513) getTwoOf (src/Data/Serialize/Get.hs:761) Warning: 'Put' is ambiguous. It is defined * at src/Data/Serialize/Put.hs:140:18 * at src/Data/Serialize/Put.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/Serialize/Put.hs:143:1 75% ( 42 / 56) in 'Data.Serialize.Put' Missing documentation for: Putter (src/Data/Serialize/Put.hs:145) putBuilder (src/Data/Serialize/Put.hs:202) putShortByteString (src/Data/Serialize/Put.hs:260) putTwoOf (src/Data/Serialize/Put.hs:400) putListOf (src/Data/Serialize/Put.hs:404) putIArrayOf (src/Data/Serialize/Put.hs:410) putSeqOf (src/Data/Serialize/Put.hs:416) putTreeOf (src/Data/Serialize/Put.hs:422) putMapOf (src/Data/Serialize/Put.hs:429) putIntMapOf (src/Data/Serialize/Put.hs:433) putSetOf (src/Data/Serialize/Put.hs:437) putIntSetOf (src/Data/Serialize/Put.hs:441) putMaybeOf (src/Data/Serialize/Put.hs:445) putEitherOf (src/Data/Serialize/Put.hs:450) 100% ( 11 / 11) in 'Data.Serialize.IEEE754' Cannot find documentation for: $example 86% ( 13 / 15) in 'Data.Serialize' Missing documentation for: GSerializePut (src/Data/Serialize.hs:571) GSerializeGet (src/Data/Serialize.hs:574) Warning: Data.Serialize.Get: could not find link destinations for: - Data.Serialize.Get.get Warning: Data.Serialize.Put: could not find link destinations for: - Data.Serialize.Put.PairS Warning: Data.Serialize: could not find link destinations for: - Data.Serialize.SumSize - Data.Serialize.GetSum - Data.Serialize.PutSum Documentation created: dist/doc/html/cereal/, dist/doc/html/cereal/cereal.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/cereal-0.5.8.3-CdRifegrast6xnOPLq62pE Completed cereal-0.5.8.3 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.2... Preprocessing library for data-default-0.8.0.2.. Building library for data-default-0.8.0.2.. [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.2.. Running Haddock on library for data-default-0.8.0.2.. 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.2-BfpfLpGO2Fe38DPNHgbq9W Completed data-default-0.8.0.2 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 [1 of 2] Compiling Main ( /tmp/cabal-tmp-356894/entropy-0.4.1.11/dist/setup/setup.hs, /tmp/cabal-tmp-356894/entropy-0.4.1.11/dist/setup/Main.o ) [2 of 2] Linking /tmp/cabal-tmp-356894/entropy-0.4.1.11/dist/setup/setup Configuring entropy-0.4.1.11... Result of RDRAND Test: True Result of libc getrandom() Test: True Result of getentropy() Test: True Preprocessing library for entropy-0.4.1.11.. Building library for entropy-0.4.1.11.. [1 of 2] Compiling System.EntropyNix ( System/EntropyNix.hs, dist/build/System/EntropyNix.o, dist/build/System/EntropyNix.dyn_o ) [2 of 2] Compiling System.Entropy ( System/Entropy.hs, dist/build/System/Entropy.o, dist/build/System/Entropy.dyn_o ) Preprocessing library for entropy-0.4.1.11.. Running Haddock on library for entropy-0.4.1.11.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling System.EntropyNix ( System/EntropyNix.hs, nothing ) [2 of 2] Compiling System.Entropy ( System/Entropy.hs, nothing ) Haddock coverage: Warning: 'xor' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 7 / 7) in 'System.Entropy' Documentation created: dist/doc/html/entropy/, dist/doc/html/entropy/entropy.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/entropy-0.4.1.11-7f1UWnFq6CEG7LE58NCfZY Completed entropy-0.4.1.11 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.16... Preprocessing library for hspec-discover-2.11.16.. Building library for hspec-discover-2.11.16.. [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.16.. Building executable 'hspec-discover' for hspec-discover-2.11.16.. [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.16.. Running Haddock on library for hspec-discover-2.11.16.. 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.16.. Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-discover-2.11.16-IK5qXzdqgXW3CbnK9P1MgB 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.16 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.5... Preprocessing library for integer-logarithms-1.0.5.. Building library for integer-logarithms-1.0.5.. [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.5.. Running Haddock on library for integer-logarithms-1.0.5.. 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.5-5ssp4WvPDv64YBApP86K0V Completed integer-logarithms-1.0.5 Configuring lift-type-0.1.2.0... Preprocessing library for lift-type-0.1.2.0.. Building library for lift-type-0.1.2.0.. src/LiftType.hs:7:14: warning: [GHC-53692] [-Wdeprecated-flags] -XTypeInType is deprecated: use -XDataKinds and -XPolyKinds instead | 7 | {-# LANGUAGE TypeInType #-} | ^^^^^^^^^^ [1 of 1] Compiling LiftType ( src/LiftType.hs, dist/build/LiftType.o, dist/build/LiftType.dyn_o ) Preprocessing library for lift-type-0.1.2.0.. Running Haddock on library for lift-type-0.1.2.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. src/LiftType.hs:7:14: warning: [GHC-53692] [-Wdeprecated-flags] -XTypeInType is deprecated: use -XDataKinds and -XPolyKinds instead | 7 | {-# LANGUAGE TypeInType #-} | ^^^^^^^^^^ [1 of 1] Compiling LiftType ( src/LiftType.hs, nothing ) Haddock coverage: Warning: 'Q' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax Warning: 'TExp' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax Warning: 'SomeTypeRep' is ambiguous. It is defined * in Data.Typeable.Internal * in Data.Typeable.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Typeable.Internal Warning: 'Name' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax 100% ( 8 / 8) in 'LiftType' Documentation created: dist/doc/html/lift-type/, dist/doc/html/lift-type/lift-type.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/lift-type-0.1.2.0-Bezc4YE1qkJCzmMxrrewIC Completed lift-type-0.1.2.0 Configuring monad-loops-0.4.3... Preprocessing library for monad-loops-0.4.3.. Building library for monad-loops-0.4.3.. [1 of 1] Compiling Control.Monad.Loops ( src/Control/Monad/Loops.hs, dist/build/Control/Monad/Loops.o, dist/build/Control/Monad/Loops.dyn_o ) Preprocessing library for monad-loops-0.4.3.. Running Haddock on library for monad-loops-0.4.3.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Control.Monad.Loops ( src/Control/Monad/Loops.hs, nothing ) Haddock coverage: Warning: Control.Monad.Loops: Could not find documentation for exported module: Control.Monad.Loops 75% ( 36 / 48) in 'Control.Monad.Loops' Missing documentation for: minimaOnByM (src/Control/Monad/Loops.hs:406) maximaOnByM (src/Control/Monad/Loops.hs:421) minimaByM (src/Control/Monad/Loops.hs:424) maximaByM (src/Control/Monad/Loops.hs:427) minimaOnM (src/Control/Monad/Loops.hs:430) maximaOnM (src/Control/Monad/Loops.hs:433) minimumOnByM (src/Control/Monad/Loops.hs:437) maximumOnByM (src/Control/Monad/Loops.hs:452) minimumByM (src/Control/Monad/Loops.hs:455) maximumByM (src/Control/Monad/Loops.hs:458) minimumOnM (src/Control/Monad/Loops.hs:461) maximumOnM (src/Control/Monad/Loops.hs:464) Documentation created: dist/doc/html/monad-loops/, dist/doc/html/monad-loops/monad-loops.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/monad-loops-0.4.3-E8lkPrSfxqUDEDJGlndSx6 Completed monad-loops-0.4.3 Configuring network-3.2.8.0... configure: WARNING: unrecognized options: --with-compiler checking build system type... x86_64-pc-linux-gnu checking host system type... x86_64-pc-linux-gnu checking for gcc... /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether the compiler supports GNU C... yes checking whether /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc accepts -g... yes checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc option to enable C11 features... none needed checking for an ANSI C-conforming const... yes checking for stdio.h... yes checking for stdlib.h... yes checking for string.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for strings.h... yes checking for sys/stat.h... yes checking for sys/types.h... yes checking for unistd.h... yes checking for limits.h... yes checking for stdlib.h... (cached) yes checking for unistd.h... (cached) yes checking for sys/types.h... (cached) yes checking for fcntl.h... yes checking for sys/uio.h... yes checking for sys/socket.h... yes checking for netinet/in.h... yes checking for netinet/tcp.h... yes checking for sys/un.h... yes checking for arpa/inet.h... yes checking for netdb.h... yes checking for net/if.h... yes checking for netioapi.h... no checking for struct ucred... yes checking for gai_strerror... yes checking for gethostent... yes checking for accept4... yes checking for getpeereid... no checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc options needed to detect all undeclared functions... none needed checking whether AI_ADDRCONFIG is declared... yes checking whether AI_ALL is declared... yes checking whether AI_NUMERICSERV is declared... yes checking whether AI_V4MAPPED is declared... yes checking whether IPV6_V6ONLY is declared... yes checking whether IPPROTO_IP is declared... yes checking whether IPPROTO_TCP is declared... yes checking whether IPPROTO_IPV6 is declared... yes checking whether SO_PEERCRED is declared... yes checking whether IP_DONTFRAG is declared... no checking whether IP_MTU_DISCOVER is declared... yes checking for struct msghdr.msg_control... yes checking for struct msghdr.msg_accrights... no checking for struct sockaddr.sa_len... no configure: creating ./network.buildinfo configure: creating ./config.status config.status: creating include/HsNetworkConfig.h configure: WARNING: unrecognized options: --with-compiler Preprocessing library for network-3.2.8.0.. Building library for network-3.2.8.0.. [ 1 of 29] Compiling Network.Socket.Imports ( Network/Socket/Imports.hs, dist/build/Network/Socket/Imports.o, dist/build/Network/Socket/Imports.dyn_o ) [ 2 of 29] Compiling Network.Socket.If ( Network/Socket/If.hs, dist/build/Network/Socket/If.o, dist/build/Network/Socket/If.dyn_o ) [ 3 of 29] Compiling Network.Socket.Flag ( dist/build/Network/Socket/Flag.hs, dist/build/Network/Socket/Flag.o, dist/build/Network/Socket/Flag.dyn_o ) [ 4 of 29] Compiling Network.Socket.Cbits ( dist/build/Network/Socket/Cbits.hs, dist/build/Network/Socket/Cbits.o, dist/build/Network/Socket/Cbits.dyn_o ) [ 5 of 29] Compiling Network.Socket.Fcntl ( Network/Socket/Fcntl.hs, dist/build/Network/Socket/Fcntl.o, dist/build/Network/Socket/Fcntl.dyn_o ) [ 6 of 29] Compiling Network.Socket.Posix.IOVec ( dist/build/Network/Socket/Posix/IOVec.hs, dist/build/Network/Socket/Posix/IOVec.o, dist/build/Network/Socket/Posix/IOVec.dyn_o ) [ 7 of 29] Compiling Network.Socket.ReadShow ( Network/Socket/ReadShow.hs, dist/build/Network/Socket/ReadShow.o, dist/build/Network/Socket/ReadShow.dyn_o ) [ 8 of 29] Compiling Network.Socket.Types ( dist/build/Network/Socket/Types.hs, dist/build/Network/Socket/Types.o, dist/build/Network/Socket/Types.dyn_o ) [ 9 of 29] Compiling Network.Socket.STM ( Network/Socket/STM.hs, dist/build/Network/Socket/STM.o, dist/build/Network/Socket/STM.dyn_o ) [10 of 29] Compiling Network.Socket.Posix.Cmsg ( dist/build/Network/Socket/Posix/Cmsg.hs, dist/build/Network/Socket/Posix/Cmsg.o, dist/build/Network/Socket/Posix/Cmsg.dyn_o ) [11 of 29] Compiling Network.Socket.Internal ( Network/Socket/Internal.hs, dist/build/Network/Socket/Internal.o, dist/build/Network/Socket/Internal.dyn_o ) [12 of 29] Compiling Network.Socket.Posix.MsgHdr ( dist/build/Network/Socket/Posix/MsgHdr.hs, dist/build/Network/Socket/Posix/MsgHdr.o, dist/build/Network/Socket/Posix/MsgHdr.dyn_o ) [13 of 29] Compiling Network.Socket.Posix.CmsgHdr ( dist/build/Network/Socket/Posix/CmsgHdr.hs, dist/build/Network/Socket/Posix/CmsgHdr.o, dist/build/Network/Socket/Posix/CmsgHdr.dyn_o ) [14 of 29] Compiling Network.Socket.Options ( dist/build/Network/Socket/Options.hs, dist/build/Network/Socket/Options.o, dist/build/Network/Socket/Options.dyn_o ) [15 of 29] Compiling Network.Socket.Syscall ( Network/Socket/Syscall.hs, dist/build/Network/Socket/Syscall.o, dist/build/Network/Socket/Syscall.dyn_o ) [16 of 29] Compiling Network.Socket.Name ( Network/Socket/Name.hs, dist/build/Network/Socket/Name.o, dist/build/Network/Socket/Name.dyn_o ) [17 of 29] Compiling Network.Socket.Info ( dist/build/Network/Socket/Info.hs, dist/build/Network/Socket/Info.o, dist/build/Network/Socket/Info.dyn_o ) [18 of 29] Compiling Network.Socket.Handle ( Network/Socket/Handle.hs, dist/build/Network/Socket/Handle.o, dist/build/Network/Socket/Handle.dyn_o ) [19 of 29] Compiling Network.Socket.ByteString.Internal ( Network/Socket/ByteString/Internal.hs, dist/build/Network/Socket/ByteString/Internal.o, dist/build/Network/Socket/ByteString/Internal.dyn_o ) [20 of 29] Compiling Network.Socket.Buffer ( dist/build/Network/Socket/Buffer.hs, dist/build/Network/Socket/Buffer.o, dist/build/Network/Socket/Buffer.dyn_o ) [21 of 29] Compiling Network.Socket.SockAddr ( Network/Socket/SockAddr.hs, dist/build/Network/Socket/SockAddr.o, dist/build/Network/Socket/SockAddr.dyn_o ) [22 of 29] Compiling Network.Socket.Shutdown ( Network/Socket/Shutdown.hs, dist/build/Network/Socket/Shutdown.o, dist/build/Network/Socket/Shutdown.dyn_o ) [23 of 29] Compiling Network.Socket.ByteString.IO ( dist/build/Network/Socket/ByteString/IO.hs, dist/build/Network/Socket/ByteString/IO.o, dist/build/Network/Socket/ByteString/IO.dyn_o ) [24 of 29] Compiling Network.Socket.ByteString.Lazy.Posix ( Network/Socket/ByteString/Lazy/Posix.hs, dist/build/Network/Socket/ByteString/Lazy/Posix.o, dist/build/Network/Socket/ByteString/Lazy/Posix.dyn_o ) [25 of 29] Compiling Network.Socket.ByteString ( Network/Socket/ByteString.hs, dist/build/Network/Socket/ByteString.o, dist/build/Network/Socket/ByteString.dyn_o ) [26 of 29] Compiling Network.Socket.Address ( Network/Socket/Address.hs, dist/build/Network/Socket/Address.o, dist/build/Network/Socket/Address.dyn_o ) [27 of 29] Compiling Network.Socket.Unix ( dist/build/Network/Socket/Unix.hs, dist/build/Network/Socket/Unix.o, dist/build/Network/Socket/Unix.dyn_o ) [28 of 29] Compiling Network.Socket ( Network/Socket.hs, dist/build/Network/Socket.o, dist/build/Network/Socket.dyn_o ) [29 of 29] Compiling Network.Socket.ByteString.Lazy ( Network/Socket/ByteString/Lazy.hs, dist/build/Network/Socket/ByteString/Lazy.o, dist/build/Network/Socket/ByteString/Lazy.dyn_o ) Preprocessing library for network-3.2.8.0.. Running Haddock on library for network-3.2.8.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 29] Compiling Network.Socket.Imports ( Network/Socket/Imports.hs, nothing ) [ 2 of 29] Compiling Network.Socket.If ( Network/Socket/If.hs, nothing ) [ 3 of 29] Compiling Network.Socket.Flag ( dist/build/Network/Socket/Flag.hs, nothing ) [ 4 of 29] Compiling Network.Socket.Cbits ( dist/build/Network/Socket/Cbits.hs, nothing ) [ 5 of 29] Compiling Network.Socket.Fcntl ( Network/Socket/Fcntl.hs, nothing ) [ 6 of 29] Compiling Network.Socket.Posix.IOVec ( dist/build/Network/Socket/Posix/IOVec.hs, nothing ) [ 7 of 29] Compiling Network.Socket.ReadShow ( Network/Socket/ReadShow.hs, nothing ) [ 8 of 29] Compiling Network.Socket.Types ( dist/build/Network/Socket/Types.hs, nothing ) [ 9 of 29] Compiling Network.Socket.STM ( Network/Socket/STM.hs, nothing ) [10 of 29] Compiling Network.Socket.Posix.Cmsg ( dist/build/Network/Socket/Posix/Cmsg.hs, nothing ) [11 of 29] Compiling Network.Socket.Internal ( Network/Socket/Internal.hs, nothing ) [12 of 29] Compiling Network.Socket.Posix.MsgHdr ( dist/build/Network/Socket/Posix/MsgHdr.hs, nothing ) [13 of 29] Compiling Network.Socket.Posix.CmsgHdr ( dist/build/Network/Socket/Posix/CmsgHdr.hs, nothing ) [14 of 29] Compiling Network.Socket.Options ( dist/build/Network/Socket/Options.hs, nothing ) [15 of 29] Compiling Network.Socket.Syscall ( Network/Socket/Syscall.hs, nothing ) [16 of 29] Compiling Network.Socket.Name ( Network/Socket/Name.hs, nothing ) [17 of 29] Compiling Network.Socket.Info ( dist/build/Network/Socket/Info.hs, nothing ) [18 of 29] Compiling Network.Socket.Handle ( Network/Socket/Handle.hs, nothing ) [19 of 29] Compiling Network.Socket.ByteString.Internal ( Network/Socket/ByteString/Internal.hs, nothing ) [20 of 29] Compiling Network.Socket.Buffer ( dist/build/Network/Socket/Buffer.hs, nothing ) [21 of 29] Compiling Network.Socket.SockAddr ( Network/Socket/SockAddr.hs, nothing ) [22 of 29] Compiling Network.Socket.Shutdown ( Network/Socket/Shutdown.hs, nothing ) [23 of 29] Compiling Network.Socket.ByteString.IO ( dist/build/Network/Socket/ByteString/IO.hs, nothing ) [24 of 29] Compiling Network.Socket.ByteString.Lazy.Posix ( Network/Socket/ByteString/Lazy/Posix.hs, nothing ) [25 of 29] Compiling Network.Socket.ByteString ( Network/Socket/ByteString.hs, nothing ) [26 of 29] Compiling Network.Socket.Address ( Network/Socket/Address.hs, nothing ) [27 of 29] Compiling Network.Socket.Unix ( dist/build/Network/Socket/Unix.hs, nothing ) [28 of 29] Compiling Network.Socket ( Network/Socket.hs, nothing ) [29 of 29] Compiling Network.Socket.ByteString.Lazy ( Network/Socket/ByteString/Lazy.hs, nothing ) Haddock coverage: Warning: 'Socket' is ambiguous. It is defined * at dist/build/Network/Socket/Types.hs:112:15 * at dist/build/Network/Socket/Types.hs:112:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at dist/build/Network/Socket/Types.hs:112:1 Warning: 'getAddrInfo' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'CInt' is ambiguous. It is defined * in Foreign.C.Types * in Foreign.C.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Foreign.C.Types Warning: 'Family' is ambiguous. It is defined * at Network/Socket/Types.hsc:398:18 * at Network/Socket/Types.hsc:398:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Types.hsc:398:1 Warning: 'CmsgId' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:38:15 * at Network/Socket/Posix/Cmsg.hsc:38:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:38:1 Warning: 'Fds' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'IPv6PktInfo' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:215:20 * at Network/Socket/Posix/Cmsg.hsc:215:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:215:1 Warning: 'IPv4PktInfo' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:182:20 * at Network/Socket/Posix/Cmsg.hsc:182:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:182:1 Warning: 'IPv6TClass' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:172:22 * at Network/Socket/Posix/Cmsg.hsc:172:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:172:1 Warning: 'IPv4TOS' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:162:19 * at Network/Socket/Posix/Cmsg.hsc:162:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:162:1 Warning: 'IPv6HopLimit' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:152:24 * at Network/Socket/Posix/Cmsg.hsc:152:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:152:1 Warning: 'IPv4TTL' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:141:19 * at Network/Socket/Posix/Cmsg.hsc:141:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:141:1 100% ( 20 / 20) in 'Network.Socket.Internal' Warning: 'sendmsg' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'StructLinger' is ambiguous. It is defined * at Network/Socket/Options.hsc:500:21 * at Network/Socket/Options.hsc:500:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Options.hsc:500:1 Warning: 'CInt' is ambiguous. It is defined * in Foreign.C.Types * in Foreign.C.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Foreign.C.Types Warning: 'setSocOptValue' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SockOptValue' is ambiguous. It is defined * at Network/Socket/Options.hsc:528:3 * at Network/Socket/Options.hsc:527:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Options.hsc:527:1 Warning: 'AddrInfo' is ambiguous. It is defined * at Network/Socket/Info.hsc:104:17 * at Network/Socket/Info.hsc:104:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Info.hsc:104:1 Warning: 'inet_ntop' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'hClose' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'gracefulClose' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'socket' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Cannot find documentation for: $vectored 100% ( 17 / 17) in 'Network.Socket.ByteString' 100% ( 19 / 19) in 'Network.Socket.Address' Warning: 'True' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% (127 /130) in 'Network.Socket' Missing documentation for: AddrInfo (Network/Socket/Info.hsc:104) ShutdownCmd (Network/Socket/Shutdown.hs:28) packFamily 75% ( 6 / 8) in 'Network.Socket.ByteString.Lazy' Missing documentation for: send (Network/Socket/ByteString/Lazy/Posix.hs:29) sendAll (Network/Socket/ByteString/Lazy/Posix.hs:58) Warning: Network.Socket: could not find link destinations for: - Network.Socket.Info.GetAddrInfo Documentation created: dist/doc/html/network/, dist/doc/html/network/network.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/network-3.2.8.0-2mBD7NmHSYt6MqMlmsyIDz Completed network-3.2.8.0 Configuring old-locale-1.0.0.7... Preprocessing library for old-locale-1.0.0.7.. Building library for old-locale-1.0.0.7.. [1 of 1] Compiling System.Locale ( System/Locale.hs, dist/build/System/Locale.o, dist/build/System/Locale.dyn_o ) Preprocessing library for old-locale-1.0.0.7.. Running Haddock on library for old-locale-1.0.0.7.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling System.Locale ( System/Locale.hs, nothing ) Haddock coverage: 60% ( 3 / 5) in 'System.Locale' Missing documentation for: TimeLocale (System/Locale.hs:36) defaultTimeLocale (System/Locale.hs:50) Documentation created: dist/doc/html/old-locale/, dist/doc/html/old-locale/old-locale.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/old-locale-1.0.0.7-2YowMuiAcJ5JaeIIGUyoRA Completed old-locale-1.0.0.7 Configuring os-string-2.0.8... Preprocessing library for os-string-2.0.8.. Building library for os-string-2.0.8.. [ 1 of 11] Compiling System.OsString.Data.ByteString.Short.Internal ( System/OsString/Data/ByteString/Short/Internal.hs, dist/build/System/OsString/Data/ByteString/Short/Internal.o, dist/build/System/OsString/Data/ByteString/Short/Internal.dyn_o ) [ 2 of 11] Compiling System.OsString.Data.ByteString.Short ( System/OsString/Data/ByteString/Short.hs, dist/build/System/OsString/Data/ByteString/Short.o, dist/build/System/OsString/Data/ByteString/Short.dyn_o ) [ 3 of 11] Compiling System.OsString.Data.ByteString.Short.Word16 ( System/OsString/Data/ByteString/Short/Word16.hs, dist/build/System/OsString/Data/ByteString/Short/Word16.o, dist/build/System/OsString/Data/ByteString/Short/Word16.dyn_o ) [ 4 of 11] Compiling System.OsString.Internal.Exception ( System/OsString/Internal/Exception.hs, dist/build/System/OsString/Internal/Exception.o, dist/build/System/OsString/Internal/Exception.dyn_o ) [ 5 of 11] Compiling System.OsString.Encoding.Internal ( System/OsString/Encoding/Internal.hs, dist/build/System/OsString/Encoding/Internal.o, dist/build/System/OsString/Encoding/Internal.dyn_o ) System/OsString/Encoding/Internal.hs:23:42: warning: [GHC-38856] [-Wunused-imports] The import of try from module Control.Exception is redundant | 23 | import Control.Exception (SomeException, try, Exception (displayException), evaluate) | ^^^ [ 6 of 11] Compiling System.OsString.Encoding ( System/OsString/Encoding.hs, dist/build/System/OsString/Encoding.o, dist/build/System/OsString/Encoding.dyn_o ) [ 7 of 11] Compiling System.OsString.Internal.Types ( System/OsString/Internal/Types.hs, dist/build/System/OsString/Internal/Types.o, dist/build/System/OsString/Internal/Types.dyn_o ) [ 8 of 11] Compiling System.OsString.Posix ( System/OsString/Posix.hs, dist/build/System/OsString/Posix.o, dist/build/System/OsString/Posix.dyn_o ) [ 9 of 11] Compiling System.OsString.Internal ( System/OsString/Internal.hs, dist/build/System/OsString/Internal.o, dist/build/System/OsString/Internal.dyn_o ) [10 of 11] Compiling System.OsString ( System/OsString.hs, dist/build/System/OsString.o, dist/build/System/OsString.dyn_o ) [11 of 11] Compiling System.OsString.Windows ( System/OsString/Windows.hs, dist/build/System/OsString/Windows.o, dist/build/System/OsString/Windows.dyn_o ) Preprocessing library for os-string-2.0.8.. Running Haddock on library for os-string-2.0.8.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 11] Compiling System.OsString.Data.ByteString.Short.Internal ( System/OsString/Data/ByteString/Short/Internal.hs, nothing ) [ 2 of 11] Compiling System.OsString.Data.ByteString.Short ( System/OsString/Data/ByteString/Short.hs, nothing ) [ 3 of 11] Compiling System.OsString.Data.ByteString.Short.Word16 ( System/OsString/Data/ByteString/Short/Word16.hs, nothing ) [ 4 of 11] Compiling System.OsString.Internal.Exception ( System/OsString/Internal/Exception.hs, nothing ) [ 5 of 11] Compiling System.OsString.Encoding.Internal ( System/OsString/Encoding/Internal.hs, nothing ) System/OsString/Encoding/Internal.hs:23:42: warning: [GHC-38856] [-Wunused-imports] The import of try from module Control.Exception is redundant | 23 | import Control.Exception (SomeException, try, Exception (displayException), evaluate) | ^^^ [ 6 of 11] Compiling System.OsString.Encoding ( System/OsString/Encoding.hs, nothing ) [ 7 of 11] Compiling System.OsString.Internal.Types ( System/OsString/Internal/Types.hs, nothing ) [ 8 of 11] Compiling System.OsString.Posix ( System/OsString/Posix.hs, nothing ) [ 9 of 11] Compiling System.OsString.Internal ( System/OsString/Internal.hs, nothing ) [10 of 11] Compiling System.OsString ( System/OsString.hs, nothing ) [11 of 11] Compiling System.OsString.Windows ( System/OsString/Windows.hs, nothing ) Haddock coverage: Warning: 'ShortByteString' is ambiguous. It is defined * in Data.ByteString.Short.Internal * in Data.ByteString.Short.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.ByteString.Short.Internal 26% ( 11 / 41) in 'System.OsString.Data.ByteString.Short.Internal' Missing documentation for: _nul (System/OsString/Data/ByteString/Short/Internal.hs:60) isSpace (System/OsString/Data/ByteString/Short/Internal.hs:63) create (System/OsString/Data/ByteString/Short/Internal.hs:70) asBA (System/OsString/Data/ByteString/Short/Internal.hs:80) BA (System/OsString/Data/ByteString/Short/Internal.hs:84) MBA (System/OsString/Data/ByteString/Short/Internal.hs:85) newPinnedByteArray (System/OsString/Data/ByteString/Short/Internal.hs:89) newByteArray (System/OsString/Data/ByteString/Short/Internal.hs:94) copyByteArray (System/OsString/Data/ByteString/Short/Internal.hs:99) unsafeFreezeByteArray (System/OsString/Data/ByteString/Short/Internal.hs:104) copyAddrToByteArray (System/OsString/Data/ByteString/Short/Internal.hs:109) moduleErrorIO (System/OsString/Data/ByteString/Short/Internal.hs:244) moduleErrorMsg (System/OsString/Data/ByteString/Short/Internal.hs:248) packWord16 (System/OsString/Data/ByteString/Short/Internal.hs:251) packLenWord16 (System/OsString/Data/ByteString/Short/Internal.hs:254) unpackWord16 (System/OsString/Data/ByteString/Short/Internal.hs:265) packWord16Rev (System/OsString/Data/ByteString/Short/Internal.hs:274) packLenWord16Rev (System/OsString/Data/ByteString/Short/Internal.hs:277) indexWord8Array (System/OsString/Data/ByteString/Short/Internal.hs:299) word16ToLE# (System/OsString/Data/ByteString/Short/Internal.hs:320) word16FromLE# (System/OsString/Data/ByteString/Short/Internal.hs:322) setByteArray (System/OsString/Data/ByteString/Short/Internal.hs:325) copyMutableByteArray (System/OsString/Data/ByteString/Short/Internal.hs:330) createAndTrim' (System/OsString/Data/ByteString/Short/Internal.hs:356) createAndTrim'' (System/OsString/Data/ByteString/Short/Internal.hs:372) findIndexOrLength (System/OsString/Data/ByteString/Short/Internal.hs:397) assertEven (System/OsString/Data/ByteString/Short/Internal.hs:422) errorEmptySBS (System/OsString/Data/ByteString/Short/Internal.hs:430) moduleError (System/OsString/Data/ByteString/Short/Internal.hs:434) compareByteArraysOff (System/OsString/Data/ByteString/Short/Internal.hs:444) Warning: 'ShortByteString' is ambiguous. It is defined * in Data.ByteString.Short.Internal * in Data.ByteString.Short.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.ByteString.Short.Internal 96% ( 93 / 96) in 'System.OsString.Data.ByteString.Short' Missing documentation for: append uncons2 (System/OsString/Data/ByteString/Short.hs:184) concat Warning: 'ShortByteString' is ambiguous. It is defined * in Data.ByteString.Short.Internal * in Data.ByteString.Short.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.ByteString.Short.Internal Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'CString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 96% ( 92 / 95) in 'System.OsString.Data.ByteString.Short.Word16' Missing documentation for: append concat breakSubstring (System/OsString/Data/ByteString/Short/Word16.hs:663) Warning: 'try' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 33% ( 1 / 3) in 'System.OsString.Internal.Exception' Missing documentation for: Module header isAsyncException (System/OsString/Internal/Exception.hs:17) Warning: 'TextEncoding' is ambiguous. It is defined * in GHC.IO.Encoding.Types * in GHC.IO.Encoding.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.IO.Encoding.Types 27% ( 9 / 33) in 'System.OsString.Encoding.Internal' Missing documentation for: Module header ucs2le (System/OsString/Encoding/Internal.hs:42) mkUcs2le (System/OsString/Encoding/Internal.hs:45) ucs2le_DF (System/OsString/Encoding/Internal.hs:50) ucs2le_EF (System/OsString/Encoding/Internal.hs:60) ucs2le_decode (System/OsString/Encoding/Internal.hs:71) ucs2le_encode (System/OsString/Encoding/Internal.hs:96) mkUTF16le_b (System/OsString/Encoding/Internal.hs:131) utf16le_b_DF (System/OsString/Encoding/Internal.hs:136) utf16le_b_EF (System/OsString/Encoding/Internal.hs:146) utf16le_b_decode (System/OsString/Encoding/Internal.hs:157) utf16le_b_encode (System/OsString/Encoding/Internal.hs:195) cWcharsToChars_UCS2 (System/OsString/Encoding/Internal.hs:231) cWcharsToChars (System/OsString/Encoding/Internal.hs:238) charsToCWchars (System/OsString/Encoding/Internal.hs:248) withWindowsString (System/OsString/Encoding/Internal.hs:264) peekWindowsString (System/OsString/Encoding/Internal.hs:267) withPosixString (System/OsString/Encoding/Internal.hs:272) withPosixString' (System/OsString/Encoding/Internal.hs:275) peekPosixString (System/OsString/Encoding/Internal.hs:278) peekPosixString' (System/OsString/Encoding/Internal.hs:281) EncodingException (System/OsString/Encoding/Internal.hs:340) showEncodingException (System/OsString/Encoding/Internal.hs:348) wNUL (System/OsString/Encoding/Internal.hs:367) 44% ( 11 / 25) in 'System.OsString.Encoding' Missing documentation for: Module header EncodingException (System/OsString/Encoding/Internal.hs:340) showEncodingException (System/OsString/Encoding/Internal.hs:348) ucs2le (System/OsString/Encoding/Internal.hs:42) mkUcs2le (System/OsString/Encoding/Internal.hs:45) ucs2le_DF (System/OsString/Encoding/Internal.hs:50) ucs2le_EF (System/OsString/Encoding/Internal.hs:60) ucs2le_decode (System/OsString/Encoding/Internal.hs:71) ucs2le_encode (System/OsString/Encoding/Internal.hs:96) mkUTF16le_b (System/OsString/Encoding/Internal.hs:131) utf16le_b_DF (System/OsString/Encoding/Internal.hs:136) utf16le_b_EF (System/OsString/Encoding/Internal.hs:146) utf16le_b_decode (System/OsString/Encoding/Internal.hs:157) utf16le_b_encode (System/OsString/Encoding/Internal.hs:195) Warning: 'WindowsString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:60:25 * at System/OsString/Internal/Types.hs:60:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:60:1 Warning: 'PosixString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:87:23 * at System/OsString/Internal/Types.hs:87:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:87:1 Warning: 'ShortByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'PosixChar' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:123:23 * at System/OsString/Internal/Types.hs:123:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:123:1 Warning: 'WindowsChar' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:117:23 * at System/OsString/Internal/Types.hs:117:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:117:1 Warning: 'OsChar' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:210:18 * at System/OsString/Internal/Types.hs:210:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:210:1 Warning: 'OsString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:161:20 * at System/OsString/Internal/Types.hs:161:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:161:1 Warning: '()' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 50% ( 9 / 18) in 'System.OsString.Internal.Types' Missing documentation for: Module header unWS (System/OsString/Internal/Types.hs:70) unPS (System/OsString/Internal/Types.hs:96) PlatformString (System/OsString/Internal/Types.hs:114) WindowsChar (System/OsString/Internal/Types.hs:117) unWW (System/OsString/Internal/Types.hs:131) PosixChar (System/OsString/Internal/Types.hs:123) unPW (System/OsString/Internal/Types.hs:139) PlatformChar (System/OsString/Internal/Types.hs:148) Warning: 'setFileSystemEncoding' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'getLocaleEncoding' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'PosixString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:87:23 * at System/OsString/Internal/Types.hs:87:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:87:1 Warning: 'OsString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 95% ( 95 /100) in 'System.OsString.Posix' Missing documentation for: Module header PosixChar (System/OsString/Internal/Types.hs:123) singleton (System/OsString/Common.hs:526) empty (System/OsString/Common.hs:529) concat (System/OsString/Common.hs:737) Warning: 'setFileSystemEncoding' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unsafePerformIO' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'getLocaleEncoding' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'OsString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:161:20 * at System/OsString/Internal/Types.hs:161:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:161:1 Warning: 'OsChar' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:210:18 * at System/OsString/Internal/Types.hs:210:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:210:1 Warning: 'head' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:293:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:293:1 Warning: 'tail' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:277:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:277:1 Warning: 'init' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:302:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:302:1 Warning: 'last' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:268:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:268:1 Warning: 'map' is ambiguous. It is defined * in GHC.Base * at System/OsString/Internal.hs:332:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:332:1 Warning: 'reverse' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:338:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:338:1 Warning: 'foldl' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:354:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:354:1 Warning: 'foldl1' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:368:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:368:1 Warning: 'foldr' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:384:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:384:1 Warning: 'foldr1' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:398:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:398:1 Warning: 'all' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:412:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:412:1 Warning: 'any' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:419:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:419:1 Warning: 'replicate' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:434:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:434:1 Warning: 'take' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:476:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:476:1 Warning: 'length' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:325:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:325:1 Warning: 'drop' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:513:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:513:1 Warning: 'takeWhile' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:507:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:507:1 Warning: 'dropWhile' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:535:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:535:1 Warning: 'break' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:564:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:564:1 Warning: 'span' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:574:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:574:1 Warning: 'splitAt' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:599:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:599:1 Warning: 'elem' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:702:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:702:1 Warning: 'filter' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:720:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:720:1 94% ( 75 / 79) in 'System.OsString.Internal' Missing documentation for: Module header empty (System/OsString/Internal.hs:233) singleton (System/OsString/Internal.hs:236) concat (System/OsString/Internal.hs:425) Warning: 'setFileSystemEncoding' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unsafePerformIO' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 96% ( 96 / 99) in 'System.OsString' Missing documentation for: empty (System/OsString/Internal.hs:233) singleton (System/OsString/Internal.hs:236) concat (System/OsString/Internal.hs:425) Warning: 'unsafeDupablePerformIO' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'WindowsString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:60:25 * at System/OsString/Internal/Types.hs:60:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:60:1 Warning: 'OsString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 94% ( 94 / 99) in 'System.OsString.Windows' Missing documentation for: Module header WindowsChar (System/OsString/Internal/Types.hs:117) singleton (System/OsString/Common.hs:526) empty (System/OsString/Common.hs:529) concat (System/OsString/Common.hs:737) Warning: System.OsString.Data.ByteString.Short: could not find link destinations for: - Data.ByteString.Short.Internal.Rep_ShortByteString - Data.ByteString.Short.Internal.D:R:ItemShortByteString Warning: System.OsString.Data.ByteString.Short.Word16: could not find link destinations for: - Data.ByteString.Short.Internal.Rep_ShortByteString - Data.ByteString.Short.Internal.D:R:ItemShortByteString Warning: System.OsString.Internal.Types: could not find link destinations for: - System.OsString.Internal.Types.Rep_OsChar - System.OsString.Internal.Types.Rep_OsString - System.OsString.Internal.Types.Rep_PosixChar - System.OsString.Internal.Types.Rep_WindowsChar - System.OsString.Internal.Types.Rep_PosixString - System.OsString.Internal.Types.Rep_WindowsString Warning: System.OsString.Posix: could not find link destinations for: - System.OsString.Internal.Types.Rep_PosixChar - System.OsString.Internal.Types.Rep_PosixString Warning: System.OsString: could not find link destinations for: - System.OsString.Internal.Types.Rep_OsChar - System.OsString.Internal.Types.Rep_OsString Warning: System.OsString.Windows: could not find link destinations for: - System.OsString.Internal.Types.Rep_WindowsChar - System.OsString.Internal.Types.Rep_WindowsString Documentation created: dist/doc/html/os-string/, dist/doc/html/os-string/os-string.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/os-string-2.0.8-JLOCx5syZ3qViIHERGXha Completed os-string-2.0.8 Configuring parser-combinators-1.3.1... Preprocessing library for parser-combinators-1.3.1.. Building library for parser-combinators-1.3.1.. [1 of 7] Compiling Control.Applicative.Combinators ( Control/Applicative/Combinators.hs, dist/build/Control/Applicative/Combinators.o, dist/build/Control/Applicative/Combinators.dyn_o ) [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.1.. Running Haddock on library for parser-combinators-1.3.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 7] Compiling Control.Applicative.Combinators ( Control/Applicative/Combinators.hs, nothing ) [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.1-JT4oLdez4jq1KuMFwheiJs Completed parser-combinators-1.3.1 Configuring path-pieces-0.2.1... Preprocessing library for path-pieces-0.2.1.. Building library for path-pieces-0.2.1.. [1 of 1] Compiling Web.PathPieces ( Web/PathPieces.hs, dist/build/Web/PathPieces.o, dist/build/Web/PathPieces.dyn_o ) Web/PathPieces.hs:15:19: warning: [GHC-38856] [-Wunused-imports] The import of Word from module Data.Word is redundant | 15 | import Data.Word (Word, Word8, Word16, Word32, Word64) | ^^^^ Web/PathPieces.hs:49:5: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type Maybe a not matched: Nothing | 49 | Just witness = n | ^^^^^^^^^^^^^^^^ Preprocessing library for path-pieces-0.2.1.. Running Haddock on library for path-pieces-0.2.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Web.PathPieces ( Web/PathPieces.hs, nothing ) Web/PathPieces.hs:15:19: warning: [GHC-38856] [-Wunused-imports] The import of Word from module Data.Word is redundant | 15 | import Data.Word (Word, Word8, Word16, Word32, Word64) | ^^^^ Haddock coverage: 30% ( 3 / 10) in 'Web.PathPieces' Missing documentation for: Module header PathPiece (Web/PathPieces.hs:23) PathMultiPiece (Web/PathPieces.hs:124) toSinglePiece (Web/PathPieces.hs:155) toMultiPiece (Web/PathPieces.hs:163) fromSinglePiece (Web/PathPieces.hs:159) fromMultiPiece (Web/PathPieces.hs:167) Documentation created: dist/doc/html/path-pieces/, dist/doc/html/path-pieces/path-pieces.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/path-pieces-0.2.1-FMpWGLsLCs17X59OilBcU7 Completed path-pieces-0.2.1 Configuring prettyprinter-1.7.1... Preprocessing library for prettyprinter-1.7.1.. Building library for prettyprinter-1.7.1.. [ 1 of 28] Compiling Prettyprinter.Render.Util.Panic ( src/Prettyprinter/Render/Util/Panic.hs, dist/build/Prettyprinter/Render/Util/Panic.o, dist/build/Prettyprinter/Render/Util/Panic.dyn_o ) [ 2 of 28] Compiling Prettyprinter.Internal ( src/Prettyprinter/Internal.hs, dist/build/Prettyprinter/Internal.o, dist/build/Prettyprinter/Internal.dyn_o ) [ 3 of 28] Compiling Prettyprinter.Render.String ( src/Prettyprinter/Render/String.hs, dist/build/Prettyprinter/Render/String.o, dist/build/Prettyprinter/Render/String.dyn_o ) [ 4 of 28] Compiling Data.Text.Prettyprint.Doc.Render.String ( src/Data/Text/Prettyprint/Doc/Render/String.hs, dist/build/Data/Text/Prettyprint/Doc/Render/String.o, dist/build/Data/Text/Prettyprint/Doc/Render/String.dyn_o ) [ 5 of 28] Compiling Prettyprinter.Internal.Type ( src/Prettyprinter/Internal/Type.hs, dist/build/Prettyprinter/Internal/Type.o, dist/build/Prettyprinter/Internal/Type.dyn_o ) [ 6 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Type ( src/Data/Text/Prettyprint/Doc/Internal/Type.hs, dist/build/Data/Text/Prettyprint/Doc/Internal/Type.o, dist/build/Data/Text/Prettyprint/Doc/Internal/Type.dyn_o ) [ 7 of 28] Compiling Prettyprinter.Internal.Debug ( src/Prettyprinter/Internal/Debug.hs, dist/build/Prettyprinter/Internal/Debug.o, dist/build/Prettyprinter/Internal/Debug.dyn_o ) [ 8 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Debug ( src/Data/Text/Prettyprint/Doc/Internal/Debug.hs, dist/build/Data/Text/Prettyprint/Doc/Internal/Debug.o, dist/build/Data/Text/Prettyprint/Doc/Internal/Debug.dyn_o ) [ 9 of 28] Compiling Data.Text.Prettyprint.Doc.Internal ( src/Data/Text/Prettyprint/Doc/Internal.hs, dist/build/Data/Text/Prettyprint/Doc/Internal.o, dist/build/Data/Text/Prettyprint/Doc/Internal.dyn_o ) [10 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.Panic ( src/Data/Text/Prettyprint/Doc/Render/Util/Panic.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Util/Panic.o, dist/build/Data/Text/Prettyprint/Doc/Render/Util/Panic.dyn_o ) [11 of 28] Compiling Prettyprinter.Render.Util.StackMachine ( src/Prettyprinter/Render/Util/StackMachine.hs, dist/build/Prettyprinter/Render/Util/StackMachine.o, dist/build/Prettyprinter/Render/Util/StackMachine.dyn_o ) src/Prettyprinter/Render/Util/StackMachine.hs:34:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 34 | import Control.Applicative | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [12 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.StackMachine ( src/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.o, dist/build/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.dyn_o ) [13 of 28] Compiling Prettyprinter.Symbols.Ascii ( src/Prettyprinter/Symbols/Ascii.hs, dist/build/Prettyprinter/Symbols/Ascii.o, dist/build/Prettyprinter/Symbols/Ascii.dyn_o ) [14 of 28] Compiling Prettyprinter ( src/Prettyprinter.hs, dist/build/Prettyprinter.o, dist/build/Prettyprinter.dyn_o ) [15 of 28] Compiling Prettyprinter.Render.Util.SimpleDocTree ( src/Prettyprinter/Render/Util/SimpleDocTree.hs, dist/build/Prettyprinter/Render/Util/SimpleDocTree.o, dist/build/Prettyprinter/Render/Util/SimpleDocTree.dyn_o ) [16 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.SimpleDocTree ( src/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.o, dist/build/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.dyn_o ) [17 of 28] Compiling Prettyprinter.Render.Tutorials.TreeRenderingTutorial ( src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs, dist/build/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.o, dist/build/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.dyn_o ) [18 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.TreeRenderingTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.o, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.dyn_o ) [19 of 28] Compiling Prettyprinter.Render.Tutorials.StackMachineTutorial ( src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs, dist/build/Prettyprinter/Render/Tutorials/StackMachineTutorial.o, dist/build/Prettyprinter/Render/Tutorials/StackMachineTutorial.dyn_o ) [20 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.StackMachineTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.o, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.dyn_o ) src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs:7:1: warning: [GHC-15328] [-Wdeprecations] Module Prettyprinter.Render.Tutorials.StackMachineTutorial is deprecated: "Writing your own stack machine is probably more efficient and customizable; also consider using »renderSimplyDecorated(A)« instead" | 7 | import Prettyprinter.Render.Tutorials.StackMachineTutorial | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [21 of 28] Compiling Prettyprinter.Render.Text ( src/Prettyprinter/Render/Text.hs, dist/build/Prettyprinter/Render/Text.o, dist/build/Prettyprinter/Render/Text.dyn_o ) [22 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Text ( src/Data/Text/Prettyprint/Doc/Render/Text.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Text.o, dist/build/Data/Text/Prettyprint/Doc/Render/Text.dyn_o ) [23 of 28] Compiling Data.Text.Prettyprint.Doc ( src/Data/Text/Prettyprint/Doc.hs, dist/build/Data/Text/Prettyprint/Doc.o, dist/build/Data/Text/Prettyprint/Doc.dyn_o ) [24 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Ascii ( src/Data/Text/Prettyprint/Doc/Symbols/Ascii.hs, dist/build/Data/Text/Prettyprint/Doc/Symbols/Ascii.o, dist/build/Data/Text/Prettyprint/Doc/Symbols/Ascii.dyn_o ) [25 of 28] Compiling Prettyprinter.Symbols.Unicode ( src/Prettyprinter/Symbols/Unicode.hs, dist/build/Prettyprinter/Symbols/Unicode.o, dist/build/Prettyprinter/Symbols/Unicode.dyn_o ) [26 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Unicode ( src/Data/Text/Prettyprint/Doc/Symbols/Unicode.hs, dist/build/Data/Text/Prettyprint/Doc/Symbols/Unicode.o, dist/build/Data/Text/Prettyprint/Doc/Symbols/Unicode.dyn_o ) [27 of 28] Compiling Prettyprinter.Util ( src/Prettyprinter/Util.hs, dist/build/Prettyprinter/Util.o, dist/build/Prettyprinter/Util.dyn_o ) [28 of 28] Compiling Data.Text.Prettyprint.Doc.Util ( src/Data/Text/Prettyprint/Doc/Util.hs, dist/build/Data/Text/Prettyprint/Doc/Util.o, dist/build/Data/Text/Prettyprint/Doc/Util.dyn_o ) Preprocessing library for prettyprinter-1.7.1.. Running Haddock on library for prettyprinter-1.7.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 28] Compiling Prettyprinter.Render.Util.Panic ( src/Prettyprinter/Render/Util/Panic.hs, nothing ) [ 2 of 28] Compiling Prettyprinter.Internal ( src/Prettyprinter/Internal.hs, nothing ) [ 3 of 28] Compiling Prettyprinter.Render.String ( src/Prettyprinter/Render/String.hs, nothing ) [ 4 of 28] Compiling Data.Text.Prettyprint.Doc.Render.String ( src/Data/Text/Prettyprint/Doc/Render/String.hs, nothing ) [ 5 of 28] Compiling Prettyprinter.Internal.Type ( src/Prettyprinter/Internal/Type.hs, nothing ) [ 6 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Type ( src/Data/Text/Prettyprint/Doc/Internal/Type.hs, nothing ) [ 7 of 28] Compiling Prettyprinter.Internal.Debug ( src/Prettyprinter/Internal/Debug.hs, nothing ) [ 8 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Debug ( src/Data/Text/Prettyprint/Doc/Internal/Debug.hs, nothing ) [ 9 of 28] Compiling Data.Text.Prettyprint.Doc.Internal ( src/Data/Text/Prettyprint/Doc/Internal.hs, nothing ) [10 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.Panic ( src/Data/Text/Prettyprint/Doc/Render/Util/Panic.hs, nothing ) [11 of 28] Compiling Prettyprinter.Render.Util.StackMachine ( src/Prettyprinter/Render/Util/StackMachine.hs, nothing ) src/Prettyprinter/Render/Util/StackMachine.hs:34:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 34 | import Control.Applicative | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [12 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.StackMachine ( src/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.hs, nothing ) [13 of 28] Compiling Prettyprinter.Symbols.Ascii ( src/Prettyprinter/Symbols/Ascii.hs, nothing ) [14 of 28] Compiling Prettyprinter ( src/Prettyprinter.hs, nothing ) [15 of 28] Compiling Prettyprinter.Render.Util.SimpleDocTree ( src/Prettyprinter/Render/Util/SimpleDocTree.hs, nothing ) [16 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.SimpleDocTree ( src/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.hs, nothing ) [17 of 28] Compiling Prettyprinter.Render.Tutorials.TreeRenderingTutorial ( src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs, nothing ) [18 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.TreeRenderingTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.hs, nothing ) [19 of 28] Compiling Prettyprinter.Render.Tutorials.StackMachineTutorial ( src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs, nothing ) [20 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.StackMachineTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs, nothing ) src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs:7:1: warning: [GHC-15328] [-Wdeprecations] Module Prettyprinter.Render.Tutorials.StackMachineTutorial is deprecated: "Writing your own stack machine is probably more efficient and customizable; also consider using »renderSimplyDecorated(A)« instead" | 7 | import Prettyprinter.Render.Tutorials.StackMachineTutorial | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [21 of 28] Compiling Prettyprinter.Render.Text ( src/Prettyprinter/Render/Text.hs, nothing ) [22 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Text ( src/Data/Text/Prettyprint/Doc/Render/Text.hs, nothing ) [23 of 28] Compiling Data.Text.Prettyprint.Doc ( src/Data/Text/Prettyprint/Doc.hs, nothing ) [24 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Ascii ( src/Data/Text/Prettyprint/Doc/Symbols/Ascii.hs, nothing ) [25 of 28] Compiling Prettyprinter.Symbols.Unicode ( src/Prettyprinter/Symbols/Unicode.hs, nothing ) [26 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Unicode ( src/Data/Text/Prettyprint/Doc/Symbols/Unicode.hs, nothing ) [27 of 28] Compiling Prettyprinter.Util ( src/Prettyprinter/Util.hs, nothing ) [28 of 28] Compiling Data.Text.Prettyprint.Doc.Util ( src/Data/Text/Prettyprint/Doc/Util.hs, nothing ) Haddock coverage: 57% ( 4 / 7) in 'Prettyprinter.Render.Util.Panic' Missing documentation for: Module header panicPeekedEmpty (src/Prettyprinter/Render/Util/Panic.hs:36) panicPoppedEmpty (src/Prettyprinter/Render/Util/Panic.hs:36) Warning: 'Text' is ambiguous. It is defined * at src/Prettyprinter/Internal.hs:159:7 * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7 Warning: 'parens' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'space' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'doc' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'putDoc' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'hPutDoc' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'reAnnotateST' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'comma' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 98% ( 77 / 78) in 'Prettyprinter.Internal' Missing documentation for: defaultPageWidth (src/Prettyprinter/Internal.hs:1778) 66% ( 2 / 3) in 'Prettyprinter.Render.String' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.String' Missing documentation for: Module header 100% ( 2 / 2) in 'Prettyprinter.Internal.Type' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Internal.Type' Missing documentation for: Module header 75% ( 3 / 4) in 'Prettyprinter.Internal.Debug' Missing documentation for: diag' (src/Prettyprinter/Internal/Debug.hs:76) 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Internal.Debug' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Internal' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Util.Panic' Missing documentation for: Module header Warning: 'Text' is ambiguous. It is defined * at src/Prettyprinter/Internal.hs:159:7 * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7 100% ( 13 / 13) in 'Prettyprinter.Render.Util.StackMachine' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Util.StackMachine' Missing documentation for: Module header 100% ( 27 / 27) in 'Prettyprinter.Symbols.Ascii' Warning: 'Keyword' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Red' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'color' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'colorDull' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'bgColor' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'bgColorDull' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% (112 /112) in 'Prettyprinter' Warning: 'Text' is ambiguous. It is defined * at src/Prettyprinter/Internal.hs:159:7 * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7 100% ( 11 / 11) in 'Prettyprinter.Render.Util.SimpleDocTree' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Util.SimpleDocTree' Missing documentation for: Module header 61% ( 11 / 18) in 'Prettyprinter.Render.Tutorials.TreeRenderingTutorial' Missing documentation for: SimpleHtml (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:40) Color (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:41) bold (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:46) italics (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:47) paragraph (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:48) headline (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:49) color (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:52) 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Tutorials.TreeRenderingTutorial' Missing documentation for: Module header 61% ( 11 / 18) in 'Prettyprinter.Render.Tutorials.StackMachineTutorial' Missing documentation for: SimpleHtml (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:43) Color (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:44) bold (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:49) italics (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:50) paragraph (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:51) headline (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:52) color (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:55) 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Tutorials.StackMachineTutorial' Missing documentation for: Module header Warning: 'Text' is ambiguous. It is defined * at src/Prettyprinter/Internal.hs:159:7 * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7 100% ( 9 / 9) in 'Prettyprinter.Render.Text' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Text' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Symbols.Ascii' Missing documentation for: Module header 100% ( 30 / 30) in 'Prettyprinter.Symbols.Unicode' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Symbols.Unicode' Missing documentation for: Module header Warning: Prettyprinter.Util: Could not find documentation for exported module: Prettyprinter.Util 100% ( 4 / 4) in 'Prettyprinter.Util' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Util' Missing documentation for: Module header Warning: Prettyprinter.Internal: could not find link destinations for: - Prettyprinter.Internal.Rep_Doc - Prettyprinter.Internal.Rep_SimpleDocStream Warning: Prettyprinter.Internal.Type: could not find link destinations for: - Prettyprinter.Internal.Rep_Doc Warning: Prettyprinter: could not find link destinations for: - Prettyprinter.Internal.Rep_Doc - Prettyprinter.Internal.Rep_SimpleDocStream Warning: Prettyprinter.Render.Util.SimpleDocTree: could not find link destinations for: - Prettyprinter.Render.Util.SimpleDocTree.Rep_SimpleDocTree Documentation created: dist/doc/html/prettyprinter/, dist/doc/html/prettyprinter/prettyprinter.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/prettyprinter-1.7.1-UnQFunVR8xJApG1SQhvgB Completed prettyprinter-1.7.1 Configuring primitive-0.9.1.0... Preprocessing library for primitive-0.9.1.0.. Building library for primitive-0.9.1.0.. [ 1 of 14] Compiling Data.Primitive.Internal.Read ( Data/Primitive/Internal/Read.hs, dist/build/Data/Primitive/Internal/Read.o, dist/build/Data/Primitive/Internal/Read.dyn_o ) [ 2 of 14] Compiling Data.Primitive.MachDeps ( Data/Primitive/MachDeps.hs, dist/build/Data/Primitive/MachDeps.o, dist/build/Data/Primitive/MachDeps.dyn_o ) [ 3 of 14] Compiling Data.Primitive.Internal.Operations ( Data/Primitive/Internal/Operations.hs, dist/build/Data/Primitive/Internal/Operations.o, dist/build/Data/Primitive/Internal/Operations.dyn_o ) [ 4 of 14] Compiling Control.Monad.Primitive ( Control/Monad/Primitive.hs, dist/build/Control/Monad/Primitive.o, dist/build/Control/Monad/Primitive.dyn_o ) [ 5 of 14] Compiling Data.Primitive.MVar ( Data/Primitive/MVar.hs, dist/build/Data/Primitive/MVar.o, dist/build/Data/Primitive/MVar.dyn_o ) [ 6 of 14] Compiling Data.Primitive.Array ( Data/Primitive/Array.hs, dist/build/Data/Primitive/Array.o, dist/build/Data/Primitive/Array.dyn_o ) [ 7 of 14] Compiling Data.Primitive.MutVar ( Data/Primitive/MutVar.hs, dist/build/Data/Primitive/MutVar.o, dist/build/Data/Primitive/MutVar.dyn_o ) [ 8 of 14] Compiling Data.Primitive.SmallArray ( Data/Primitive/SmallArray.hs, dist/build/Data/Primitive/SmallArray.o, dist/build/Data/Primitive/SmallArray.dyn_o ) [ 9 of 14] Compiling Data.Primitive.Types ( Data/Primitive/Types.hs, dist/build/Data/Primitive/Types.o, dist/build/Data/Primitive/Types.dyn_o ) [10 of 14] Compiling Data.Primitive.ByteArray ( Data/Primitive/ByteArray.hs, dist/build/Data/Primitive/ByteArray.o, dist/build/Data/Primitive/ByteArray.dyn_o ) [11 of 14] Compiling Data.Primitive.PrimArray ( Data/Primitive/PrimArray.hs, dist/build/Data/Primitive/PrimArray.o, dist/build/Data/Primitive/PrimArray.dyn_o ) [12 of 14] Compiling Data.Primitive.Ptr ( Data/Primitive/Ptr.hs, dist/build/Data/Primitive/Ptr.o, dist/build/Data/Primitive/Ptr.dyn_o ) [13 of 14] Compiling Data.Primitive ( Data/Primitive.hs, dist/build/Data/Primitive.o, dist/build/Data/Primitive.dyn_o ) [14 of 14] Compiling Data.Primitive.PrimVar ( Data/Primitive/PrimVar.hs, dist/build/Data/Primitive/PrimVar.o, dist/build/Data/Primitive/PrimVar.dyn_o ) Preprocessing library for primitive-0.9.1.0.. Running Haddock on library for primitive-0.9.1.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 14] Compiling Data.Primitive.Internal.Read ( Data/Primitive/Internal/Read.hs, nothing ) [ 2 of 14] Compiling Data.Primitive.MachDeps ( Data/Primitive/MachDeps.hs, nothing ) [ 3 of 14] Compiling Data.Primitive.Internal.Operations ( Data/Primitive/Internal/Operations.hs, nothing ) [ 4 of 14] Compiling Control.Monad.Primitive ( Control/Monad/Primitive.hs, nothing ) [ 5 of 14] Compiling Data.Primitive.MVar ( Data/Primitive/MVar.hs, nothing ) [ 6 of 14] Compiling Data.Primitive.Array ( Data/Primitive/Array.hs, nothing ) [ 7 of 14] Compiling Data.Primitive.MutVar ( Data/Primitive/MutVar.hs, nothing ) [ 8 of 14] Compiling Data.Primitive.SmallArray ( Data/Primitive/SmallArray.hs, nothing ) [ 9 of 14] Compiling Data.Primitive.Types ( Data/Primitive/Types.hs, nothing ) [10 of 14] Compiling Data.Primitive.ByteArray ( Data/Primitive/ByteArray.hs, nothing ) [11 of 14] Compiling Data.Primitive.PrimArray ( Data/Primitive/PrimArray.hs, nothing ) [12 of 14] Compiling Data.Primitive.Ptr ( Data/Primitive/Ptr.hs, nothing ) [13 of 14] Compiling Data.Primitive ( Data/Primitive.hs, nothing ) [14 of 14] Compiling Data.Primitive.PrimVar ( Data/Primitive/PrimVar.hs, nothing ) Haddock coverage: 2% ( 1 / 35) in 'Data.Primitive.MachDeps' Missing documentation for: sIZEOF_CHAR (Data/Primitive/MachDeps.hs:68) aLIGNMENT_CHAR (Data/Primitive/MachDeps.hs:69) sIZEOF_INT (Data/Primitive/MachDeps.hs:71) aLIGNMENT_INT (Data/Primitive/MachDeps.hs:72) sIZEOF_WORD (Data/Primitive/MachDeps.hs:74) aLIGNMENT_WORD (Data/Primitive/MachDeps.hs:75) sIZEOF_DOUBLE (Data/Primitive/MachDeps.hs:77) aLIGNMENT_DOUBLE (Data/Primitive/MachDeps.hs:78) sIZEOF_FLOAT (Data/Primitive/MachDeps.hs:80) aLIGNMENT_FLOAT (Data/Primitive/MachDeps.hs:81) sIZEOF_PTR (Data/Primitive/MachDeps.hs:83) aLIGNMENT_PTR (Data/Primitive/MachDeps.hs:84) sIZEOF_FUNPTR (Data/Primitive/MachDeps.hs:86) aLIGNMENT_FUNPTR (Data/Primitive/MachDeps.hs:87) sIZEOF_STABLEPTR (Data/Primitive/MachDeps.hs:89) aLIGNMENT_STABLEPTR (Data/Primitive/MachDeps.hs:90) sIZEOF_INT8 (Data/Primitive/MachDeps.hs:92) aLIGNMENT_INT8 (Data/Primitive/MachDeps.hs:93) sIZEOF_WORD8 (Data/Primitive/MachDeps.hs:95) aLIGNMENT_WORD8 (Data/Primitive/MachDeps.hs:96) sIZEOF_INT16 (Data/Primitive/MachDeps.hs:98) aLIGNMENT_INT16 (Data/Primitive/MachDeps.hs:99) sIZEOF_WORD16 (Data/Primitive/MachDeps.hs:101) aLIGNMENT_WORD16 (Data/Primitive/MachDeps.hs:102) sIZEOF_INT32 (Data/Primitive/MachDeps.hs:104) aLIGNMENT_INT32 (Data/Primitive/MachDeps.hs:105) sIZEOF_WORD32 (Data/Primitive/MachDeps.hs:107) aLIGNMENT_WORD32 (Data/Primitive/MachDeps.hs:108) sIZEOF_INT64 (Data/Primitive/MachDeps.hs:110) aLIGNMENT_INT64 (Data/Primitive/MachDeps.hs:111) sIZEOF_WORD64 (Data/Primitive/MachDeps.hs:113) aLIGNMENT_WORD64 (Data/Primitive/MachDeps.hs:114) Word64_# (Data/Primitive/MachDeps.hs:117) Int64_# (Data/Primitive/MachDeps.hs:118) Warning: 'IO' is ambiguous. It is defined * in GHC.Types * in GHC.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Types Warning: 'ST' is ambiguous. It is defined * in GHC.ST * in GHC.ST You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.ST 89% ( 26 / 29) in 'Control.Monad.Primitive' Missing documentation for: unsafeInterleave (Control/Monad/Primitive.hs:408) unsafeDupableInterleave (Control/Monad/Primitive.hs:409) noDuplicate (Control/Monad/Primitive.hs:401) Warning: 'MVar' is ambiguous. It is defined * at Data/Primitive/MVar.hs:41:17 * at Data/Primitive/MVar.hs:41:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/MVar.hs:41:1 100% ( 11 / 11) in 'Data.Primitive.MVar' Warning: 'Array' is ambiguous. It is defined * at Data/Primitive/Array.hs:65:16 * at Data/Primitive/Array.hs:65:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/Array.hs:65:1 Warning: 'MutableArray' is ambiguous. It is defined * at Data/Primitive/Array.hs:108:25 * at Data/Primitive/Array.hs:108:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/Array.hs:108:1 100% ( 27 / 27) in 'Data.Primitive.Array' Warning: 'MutVar' is ambiguous. It is defined * at Data/Primitive/MutVar.hs:44:19 * at Data/Primitive/MutVar.hs:44:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/MutVar.hs:44:1 Warning: 'IORef' is ambiguous. It is defined * in GHC.IORef * in GHC.IORef You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.IORef Warning: 'STRef' is ambiguous. It is defined * in GHC.STRef * in GHC.STRef You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.STRef 100% ( 15 / 15) in 'Data.Primitive.MutVar' Warning: 'SmallArray' is ambiguous. It is defined * at Data/Primitive/SmallArray.hs:95:21 * at Data/Primitive/SmallArray.hs:95:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/SmallArray.hs:95:1 Warning: 'Identity' is ambiguous. It is defined * in Data.Functor.Identity * in Data.Functor.Identity You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Identity Warning: 'SmallMutableArray' is ambiguous. It is defined * at Data/Primitive/SmallArray.hs:106:30 * at Data/Primitive/SmallArray.hs:106:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/SmallArray.hs:106:1 93% ( 27 / 29) in 'Data.Primitive.SmallArray' Missing documentation for: SmallArray (Data/Primitive/SmallArray.hs:95) SmallMutableArray (Data/Primitive/SmallArray.hs:106) 100% ( 10 / 10) in 'Data.Primitive.Types' Warning: 'MutableByteArray' is ambiguous. It is defined * in Data.Array.Byte * in Data.Array.Byte You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Array.Byte Warning: 'ByteArray' is ambiguous. It is defined * in Data.Array.Byte * in Data.Array.Byte You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Array.Byte 98% ( 61 / 62) in 'Data.Primitive.ByteArray' Missing documentation for: createByteArray (Data/Primitive/ByteArray.hs:672) Warning: 'PrimArray' is ambiguous. It is defined * at Data/Primitive/PrimArray.hs:144:20 * at Data/Primitive/PrimArray.hs:144:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/PrimArray.hs:144:1 Warning: 'MutablePrimArray' is ambiguous. It is defined * at Data/Primitive/PrimArray.hs:167:29 * at Data/Primitive/PrimArray.hs:167:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/PrimArray.hs:167:1 Warning: 'ByteArray' is ambiguous. It is defined * in Data.Array.Byte * in Data.Array.Byte You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Array.Byte 100% ( 78 / 78) in 'Data.Primitive.PrimArray' Warning: 'Ptr' is ambiguous. It is defined * in GHC.Ptr * in GHC.Ptr You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Ptr 100% ( 17 / 17) in 'Data.Primitive.Ptr' 100% ( 10 / 10) in 'Data.Primitive' Warning: 'PrimVar' is ambiguous. It is defined * at Data/Primitive/PrimVar.hs:49:23 * at Data/Primitive/PrimVar.hs:49:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/PrimVar.hs:49:1 Warning: 'MutablePrimArray' is ambiguous. It is defined * at Data/Primitive/PrimArray.hs:167:29 * at Data/Primitive/PrimArray.hs:167:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/PrimArray.hs:167:1 100% ( 22 / 22) in 'Data.Primitive.PrimVar' Warning: Control.Monad.Primitive: could not find link destinations for: - Control.Monad.Primitive.D:R:PrimStateST - Control.Monad.Primitive.D:R:PrimStateST0 - Control.Monad.Primitive.D:R:PrimStateRWST - Control.Monad.Primitive.D:R:PrimStateWriterT - Control.Monad.Primitive.D:R:PrimStateStateT - Control.Monad.Primitive.D:R:PrimStateSelectT - Control.Monad.Primitive.D:R:PrimStateAccumT - Control.Monad.Primitive.D:R:PrimStateExceptT - Control.Monad.Primitive.D:R:PrimStateRWST0 - Control.Monad.Primitive.D:R:PrimStateRWST1 - Control.Monad.Primitive.D:R:PrimStateWriterT0 - Control.Monad.Primitive.D:R:PrimStateWriterT1 - Control.Monad.Primitive.D:R:PrimStateStateT0 - Control.Monad.Primitive.D:R:PrimStateReaderT - Control.Monad.Primitive.D:R:PrimStateMaybeT - Control.Monad.Primitive.D:R:PrimStateIdentityT - Control.Monad.Primitive.D:R:PrimStateContT - Control.Monad.Primitive.D:R:PrimStateIO Warning: Data.Primitive.Array: could not find link destinations for: - Data.Primitive.Array.D:R:ItemArray Warning: Data.Primitive.SmallArray: could not find link destinations for: - Data.Primitive.SmallArray.D:R:ItemSmallArray Warning: Data.Primitive.Types: could not find link destinations for: - GHC.Generics.D:R:UReckPtrp0 - GHC.Generics.Rep_R:UReckPtrp - GHC.Generics.Rep1_R:UReckPtrp Warning: Data.Primitive.ByteArray: could not find link destinations for: - Data.Array.Byte.D:R:ItemByteArray Warning: Data.Primitive.PrimArray: could not find link destinations for: - Data.Primitive.PrimArray.D:R:ItemPrimArray Warning: Data.Primitive.Ptr: could not find link destinations for: - GHC.Generics.D:R:UReckPtrp0 - GHC.Generics.Rep_R:UReckPtrp - GHC.Generics.Rep1_R:UReckPtrp Documentation created: dist/doc/html/primitive/, dist/doc/html/primitive/primitive.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/primitive-0.9.1.0-FI4ablStFrKABDqEidp4iv Completed primitive-0.9.1.0 Configuring safe-exceptions-0.1.7.4... Preprocessing library for safe-exceptions-0.1.7.4.. Building library for safe-exceptions-0.1.7.4.. [1 of 1] Compiling Control.Exception.Safe ( src/Control/Exception/Safe.hs, dist/build/Control/Exception/Safe.o, dist/build/Control/Exception/Safe.dyn_o ) Preprocessing library for safe-exceptions-0.1.7.4.. Running Haddock on library for safe-exceptions-0.1.7.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Control.Exception.Safe ( src/Control/Exception/Safe.hs, nothing ) Haddock coverage: Warning: 'StringException' is ambiguous. It is defined * at src/Control/Exception/Safe.hs:193:24 * at src/Control/Exception/Safe.hs:193:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Control/Exception/Safe.hs:193:1 Warning: 'AsyncExceptionWrapper' is ambiguous. It is defined * at src/Control/Exception/Safe.hs:553:30 * at src/Control/Exception/Safe.hs:553:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Control/Exception/Safe.hs:553:1 Warning: 'SyncExceptionWrapper' is ambiguous. It is defined * at src/Control/Exception/Safe.hs:523:29 * at src/Control/Exception/Safe.hs:523:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Control/Exception/Safe.hs:523:1 100% ( 66 / 66) in 'Control.Exception.Safe' Warning: Control.Exception.Safe: could not find link destinations for: - GHC.IOPort.IOPortException Documentation created: dist/doc/html/safe-exceptions/, dist/doc/html/safe-exceptions/safe-exceptions.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/safe-exceptions-0.1.7.4-HEELpJrHsBu7dCqXXORL1I Completed safe-exceptions-0.1.7.4 Configuring silently-1.2.5.4... Preprocessing library for silently-1.2.5.4.. Building library for silently-1.2.5.4.. [1 of 1] Compiling System.IO.Silently ( src/System/IO/Silently.hs, dist/build/System/IO/Silently.o, dist/build/System/IO/Silently.dyn_o ) Preprocessing library for silently-1.2.5.4.. Running Haddock on library for silently-1.2.5.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling System.IO.Silently ( src/System/IO/Silently.hs, nothing ) Haddock coverage: 100% ( 7 / 7) in 'System.IO.Silently' Documentation created: dist/doc/html/silently/, dist/doc/html/silently/silently.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/silently-1.2.5.4-5U79Y14JDrXFPN2GYa2ShU Completed silently-1.2.5.4 Configuring split-0.2.5... Preprocessing library for split-0.2.5.. Building library for split-0.2.5.. [1 of 2] Compiling Data.List.Split.Internals ( src/Data/List/Split/Internals.hs, dist/build/Data/List/Split/Internals.o, dist/build/Data/List/Split/Internals.dyn_o ) [2 of 2] Compiling Data.List.Split ( src/Data/List/Split.hs, dist/build/Data/List/Split.o, dist/build/Data/List/Split.dyn_o ) Preprocessing library for split-0.2.5.. Running Haddock on library for split-0.2.5.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Data.List.Split.Internals ( src/Data/List/Split/Internals.hs, nothing ) [2 of 2] Compiling Data.List.Split ( src/Data/List/Split.hs, nothing ) Haddock coverage: Warning: 'Splitter' is ambiguous. It is defined * at src/Data/List/Split/Internals.hs:21:19 * at src/Data/List/Split/Internals.hs:21:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/List/Split/Internals.hs:21:1 Warning: 'n' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'm' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 91% ( 63 / 69) in 'Data.List.Split.Internals' Warning: 'Splitter' is ambiguous. It is defined * at src/Data/List/Split/Internals.hs:21:19 * at src/Data/List/Split/Internals.hs:21:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/List/Split/Internals.hs:21:1 90% ( 46 / 51) in 'Data.List.Split' Documentation created: dist/doc/html/split/, dist/doc/html/split/split.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/split-0.2.5-HdqIBMrRyNiLuV2hi4AZF8 Completed split-0.2.5 Configuring splitmix-0.1.3.2... Preprocessing library for splitmix-0.1.3.2.. Building library for splitmix-0.1.3.2.. [1 of 3] 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 ) [2 of 3] Compiling System.Random.SplitMix ( src/System/Random/SplitMix.hs, dist/build/System/Random/SplitMix.o, dist/build/System/Random/SplitMix.dyn_o ) [3 of 3] Compiling System.Random.SplitMix32 ( src/System/Random/SplitMix32.hs, dist/build/System/Random/SplitMix32.o, dist/build/System/Random/SplitMix32.dyn_o ) Preprocessing library for splitmix-0.1.3.2.. Running Haddock on library for splitmix-0.1.3.2.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling System.Random.SplitMix.Init ( src/System/Random/SplitMix/Init.hs, nothing ) [2 of 3] Compiling System.Random.SplitMix ( src/System/Random/SplitMix.hs, nothing ) [3 of 3] Compiling System.Random.SplitMix32 ( src/System/Random/SplitMix32.hs, nothing ) Haddock coverage: Warning: 'SMGen' is ambiguous. It is defined * at src/System/Random/SplitMix.hs:77:14 * at src/System/Random/SplitMix.hs:77:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/SplitMix.hs:77:1 100% ( 22 / 22) in 'System.Random.SplitMix' Warning: 'SMGen' is ambiguous. It is defined * at src/System/Random/SplitMix32.hs:61:14 * at src/System/Random/SplitMix32.hs:61:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/SplitMix32.hs:61:1 100% ( 22 / 22) in 'System.Random.SplitMix32' Documentation created: dist/doc/html/splitmix/, dist/doc/html/splitmix/splitmix.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/splitmix-0.1.3.2-2SXojlwG8icBs6A9ie9EH9 Completed splitmix-0.1.3.2 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.10... Preprocessing library for tagged-0.8.10.. Building library for tagged-0.8.10.. [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.10.. Running Haddock on library for tagged-0.8.10.. 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:83:22 * at src/Data/Tagged.hs:83:1 You may 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:83: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:389) 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.10-AB5hoggHcu9Fkw7jqxEFs0 Completed tagged-0.8.10 Configuring th-abstraction-0.7.2.0... Preprocessing library for th-abstraction-0.7.2.0.. Building library for th-abstraction-0.7.2.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.2.0.. Running Haddock on library for th-abstraction-0.7.2.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.2.0-LXxpvWq4N5lSpSniaraaB Completed th-abstraction-0.7.2.0 Configuring th-compat-0.1.7... Preprocessing library for th-compat-0.1.7.. Building library for th-compat-0.1.7.. [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.7.. Running Haddock on library for th-compat-0.1.7.. 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.7-EmM9ruMKEJXEkEkRote8Zx Completed th-compat-0.1.7 Configuring transformers-compat-0.7.2... Preprocessing library for transformers-compat-0.7.2.. Building library for transformers-compat-0.7.2.. [1 of 4] Compiling Control.Monad.Trans.Instances ( src/Control/Monad/Trans/Instances.hs, dist/build/Control/Monad/Trans/Instances.o, dist/build/Control/Monad/Trans/Instances.dyn_o ) [2 of 4] Compiling Data.Functor.Classes.Generic.Internal ( generics/Data/Functor/Classes/Generic/Internal.hs, dist/build/Data/Functor/Classes/Generic/Internal.o, dist/build/Data/Functor/Classes/Generic/Internal.dyn_o ) [3 of 4] Compiling Data.Functor.Classes.Generic ( generics/Data/Functor/Classes/Generic.hs, dist/build/Data/Functor/Classes/Generic.o, dist/build/Data/Functor/Classes/Generic.dyn_o ) [4 of 4] Compiling Paths_transformers_compat ( dist/build/autogen/Paths_transformers_compat.hs, dist/build/Paths_transformers_compat.o, dist/build/Paths_transformers_compat.dyn_o ) Preprocessing library for transformers-compat-0.7.2.. Running Haddock on library for transformers-compat-0.7.2.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling Control.Monad.Trans.Instances ( src/Control/Monad/Trans/Instances.hs, nothing ) [2 of 4] Compiling Data.Functor.Classes.Generic.Internal ( generics/Data/Functor/Classes/Generic/Internal.hs, nothing ) [3 of 4] Compiling Data.Functor.Classes.Generic ( generics/Data/Functor/Classes/Generic.hs, nothing ) [4 of 4] Compiling Paths_transformers_compat ( dist/build/autogen/Paths_transformers_compat.hs, nothing ) Haddock coverage: 100% ( 1 / 1) in 'Control.Monad.Trans.Instances' Warning: 'String' is ambiguous. It is defined * in Text.Read.Lex * in GHC.Base You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Base Warning: 'Options' is ambiguous. It is defined * at generics/Data/Functor/Classes/Generic/Internal.hs:146:19 * at generics/Data/Functor/Classes/Generic/Internal.hs:146:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at generics/Data/Functor/Classes/Generic/Internal.hs:146:1 Warning: 'FunctorClassesDefault' is ambiguous. It is defined * at generics/Data/Functor/Classes/Generic/Internal.hs:1231:3 * at generics/Data/Functor/Classes/Generic/Internal.hs:1230:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at generics/Data/Functor/Classes/Generic/Internal.hs:1230:1 100% ( 48 / 48) in 'Data.Functor.Classes.Generic.Internal' Warning: 'Eq1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Ord1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Read1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Show1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'GenericFunctorClasses' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'eq1Default' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'compare1Default' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'readsPrec1Default' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'showsPrec1Default' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 21 / 21) in 'Data.Functor.Classes.Generic' Warning: Data.Functor.Classes.Generic.Internal: could not find link destinations for: - Data.Functor.Classes.Generic.Internal.GShowCon - Data.Functor.Classes.Generic.Internal.GReadCon Documentation created: dist/doc/html/transformers-compat/, dist/doc/html/transformers-compat/transformers-compat.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/transformers-compat-0.7.2-Kjd0KzrkeU5ax708EytP3 Completed transformers-compat-0.7.2 Configuring unix-compat-0.7.4.1... Preprocessing library for unix-compat-0.7.4.1.. Building library for unix-compat-0.7.4.1.. [1 of 8] Compiling System.PosixCompat.Files ( dist/build/System/PosixCompat/Files.hs, dist/build/System/PosixCompat/Files.o, dist/build/System/PosixCompat/Files.dyn_o ) [2 of 8] Compiling System.PosixCompat.Process ( src/System/PosixCompat/Process.hs, dist/build/System/PosixCompat/Process.o, dist/build/System/PosixCompat/Process.dyn_o ) [3 of 8] Compiling System.PosixCompat.Temp ( src/System/PosixCompat/Temp.hs, dist/build/System/PosixCompat/Temp.o, dist/build/System/PosixCompat/Temp.dyn_o ) [4 of 8] Compiling System.PosixCompat.Time ( src/System/PosixCompat/Time.hs, dist/build/System/PosixCompat/Time.o, dist/build/System/PosixCompat/Time.dyn_o ) [5 of 8] Compiling System.PosixCompat.Types ( src/System/PosixCompat/Types.hs, dist/build/System/PosixCompat/Types.o, dist/build/System/PosixCompat/Types.dyn_o ) [6 of 8] Compiling System.PosixCompat.Extensions ( dist/build/System/PosixCompat/Extensions.hs, dist/build/System/PosixCompat/Extensions.o, dist/build/System/PosixCompat/Extensions.dyn_o ) [7 of 8] Compiling System.PosixCompat.Unistd ( src/System/PosixCompat/Unistd.hs, dist/build/System/PosixCompat/Unistd.o, dist/build/System/PosixCompat/Unistd.dyn_o ) [8 of 8] Compiling System.PosixCompat ( src/System/PosixCompat.hs, dist/build/System/PosixCompat.o, dist/build/System/PosixCompat.dyn_o ) Preprocessing library for unix-compat-0.7.4.1.. Running Haddock on library for unix-compat-0.7.4.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 8] Compiling System.PosixCompat.Files ( dist/build/System/PosixCompat/Files.hs, nothing ) [2 of 8] Compiling System.PosixCompat.Process ( src/System/PosixCompat/Process.hs, nothing ) [3 of 8] Compiling System.PosixCompat.Temp ( src/System/PosixCompat/Temp.hs, nothing ) [4 of 8] Compiling System.PosixCompat.Time ( src/System/PosixCompat/Time.hs, nothing ) [5 of 8] Compiling System.PosixCompat.Types ( src/System/PosixCompat/Types.hs, nothing ) [6 of 8] Compiling System.PosixCompat.Extensions ( dist/build/System/PosixCompat/Extensions.hs, nothing ) [7 of 8] Compiling System.PosixCompat.Unistd ( src/System/PosixCompat/Unistd.hs, nothing ) [8 of 8] Compiling System.PosixCompat ( src/System/PosixCompat.hs, nothing ) Haddock coverage: 98% ( 80 / 81) in 'System.PosixCompat.Files' Missing documentation for: PathVar 100% ( 2 / 2) in 'System.PosixCompat.Process' 100% ( 2 / 2) in 'System.PosixCompat.Temp' 100% ( 2 / 2) in 'System.PosixCompat.Time' 100% ( 2 / 2) in 'System.PosixCompat.Types' 71% ( 5 / 7) in 'System.PosixCompat.Extensions' Missing documentation for: CMajor (src/System/PosixCompat/Extensions.hsc:23) CMinor (src/System/PosixCompat/Extensions.hsc:24) 75% ( 6 / 8) in 'System.PosixCompat.Unistd' Missing documentation for: SystemID getSystemID 100% ( 8 / 8) in 'System.PosixCompat' Documentation created: dist/doc/html/unix-compat/, dist/doc/html/unix-compat/unix-compat.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unix-compat-0.7.4.1-3WW2dYzNjvCGBx3FDUrKMW Completed unix-compat-0.7.4.1 Configuring unliftio-core-0.2.1.0... Preprocessing library for unliftio-core-0.2.1.0.. Building library for unliftio-core-0.2.1.0.. [1 of 2] Compiling Control.Monad.IO.Unlift ( src/Control/Monad/IO/Unlift.hs, dist/build/Control/Monad/IO/Unlift.o, dist/build/Control/Monad/IO/Unlift.dyn_o ) [2 of 2] Compiling Paths_unliftio_core ( dist/build/autogen/Paths_unliftio_core.hs, dist/build/Paths_unliftio_core.o, dist/build/Paths_unliftio_core.dyn_o ) Preprocessing library for unliftio-core-0.2.1.0.. Running Haddock on library for unliftio-core-0.2.1.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Control.Monad.IO.Unlift ( src/Control/Monad/IO/Unlift.hs, nothing ) [2 of 2] Compiling Paths_unliftio_core ( dist/build/autogen/Paths_unliftio_core.hs, nothing ) Haddock coverage: Warning: 'ReaderT' is ambiguous. It is defined * in Control.Monad.Trans.Reader * in Control.Monad.Trans.Reader You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Reader Warning: 'IdentityT' is ambiguous. It is defined * in Control.Monad.Trans.Identity * in Control.Monad.Trans.Identity You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Identity Warning: 'UnliftIO' is ambiguous. It is defined * at src/Control/Monad/IO/Unlift.hs:27:22 * at src/Control/Monad/IO/Unlift.hs:27:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Control/Monad/IO/Unlift.hs:27:1 100% ( 10 / 10) in 'Control.Monad.IO.Unlift' Documentation created: dist/doc/html/unliftio-core/, dist/doc/html/unliftio-core/unliftio-core.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unliftio-core-0.2.1.0-4RRDZLCPaiuAoQNEd4e5m9 Completed unliftio-core-0.2.1.0 Configuring vector-stream-0.1.0.1... Preprocessing library for vector-stream-0.1.0.1.. Building library for vector-stream-0.1.0.1.. [1 of 1] Compiling Data.Stream.Monadic ( src/Data/Stream/Monadic.hs, dist/build/Data/Stream/Monadic.o, dist/build/Data/Stream/Monadic.dyn_o ) Preprocessing library for vector-stream-0.1.0.1.. Running Haddock on library for vector-stream-0.1.0.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Data.Stream.Monadic ( src/Data/Stream/Monadic.hs, nothing ) Haddock coverage: Warning: 'Stream' is ambiguous. It is defined * at src/Data/Stream/Monadic.hs:154:19 * at src/Data/Stream/Monadic.hs:154:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Stream/Monadic.hs:154:1 Warning: 'Bundle' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 81% (110 /135) in 'Data.Stream.Monadic' Missing documentation for: liftBox (src/Data/Stream/Monadic.hs:130) generate (src/Data/Stream/Monadic.hs:210) unbox (src/Data/Stream/Monadic.hs:462) concatMap (src/Data/Stream/Monadic.hs:1070) zipWithM_ (src/Data/Stream/Monadic.hs:531) zipWith3M (src/Data/Stream/Monadic.hs:535) zipWith4M (src/Data/Stream/Monadic.hs:565) zipWith5M (src/Data/Stream/Monadic.hs:572) zipWith6M (src/Data/Stream/Monadic.hs:579) zipWith (src/Data/Stream/Monadic.hs:585) zipWith3 (src/Data/Stream/Monadic.hs:590) zipWith4 (src/Data/Stream/Monadic.hs:596) zipWith5 (src/Data/Stream/Monadic.hs:602) zipWith6 (src/Data/Stream/Monadic.hs:608) zip (src/Data/Stream/Monadic.hs:612) zip3 (src/Data/Stream/Monadic.hs:616) zip4 (src/Data/Stream/Monadic.hs:621) zip5 (src/Data/Stream/Monadic.hs:626) zip6 (src/Data/Stream/Monadic.hs:631) mapMaybe (src/Data/Stream/Monadic.hs:702) catMaybes (src/Data/Stream/Monadic.hs:716) and (src/Data/Stream/Monadic.hs:1044) or (src/Data/Stream/Monadic.hs:1057) concatMapM (src/Data/Stream/Monadic.hs:1074) unfoldrN (src/Data/Stream/Monadic.hs:1136) Documentation created: dist/doc/html/vector-stream/, dist/doc/html/vector-stream/vector-stream.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/vector-stream-0.1.0.1-6z73n1LRnZvKlURnjwR3rr Completed vector-stream-0.1.0.1 Configuring zlib-0.7.1.1... Preprocessing library for zlib-0.7.1.1.. Building library for zlib-0.7.1.1.. [1 of 6] Compiling Codec.Compression.Zlib.ByteStringCompat ( Codec/Compression/Zlib/ByteStringCompat.hs, dist/build/Codec/Compression/Zlib/ByteStringCompat.o, dist/build/Codec/Compression/Zlib/ByteStringCompat.dyn_o ) [2 of 6] Compiling Codec.Compression.Zlib.Stream ( dist/build/Codec/Compression/Zlib/Stream.hs, dist/build/Codec/Compression/Zlib/Stream.o, dist/build/Codec/Compression/Zlib/Stream.dyn_o ) [3 of 6] Compiling Codec.Compression.Zlib.Internal ( Codec/Compression/Zlib/Internal.hs, dist/build/Codec/Compression/Zlib/Internal.o, dist/build/Codec/Compression/Zlib/Internal.dyn_o ) [4 of 6] Compiling Codec.Compression.Zlib.Raw ( Codec/Compression/Zlib/Raw.hs, dist/build/Codec/Compression/Zlib/Raw.o, dist/build/Codec/Compression/Zlib/Raw.dyn_o ) [5 of 6] Compiling Codec.Compression.Zlib ( Codec/Compression/Zlib.hs, dist/build/Codec/Compression/Zlib.o, dist/build/Codec/Compression/Zlib.dyn_o ) [6 of 6] Compiling Codec.Compression.GZip ( Codec/Compression/GZip.hs, dist/build/Codec/Compression/GZip.o, dist/build/Codec/Compression/GZip.dyn_o ) Preprocessing library for zlib-0.7.1.1.. Running Haddock on library for zlib-0.7.1.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling Codec.Compression.Zlib.ByteStringCompat ( Codec/Compression/Zlib/ByteStringCompat.hs, nothing ) [2 of 6] Compiling Codec.Compression.Zlib.Stream ( dist/build/Codec/Compression/Zlib/Stream.hs, nothing ) [3 of 6] Compiling Codec.Compression.Zlib.Internal ( Codec/Compression/Zlib/Internal.hs, nothing ) [4 of 6] Compiling Codec.Compression.Zlib.Raw ( Codec/Compression/Zlib/Raw.hs, nothing ) [5 of 6] Compiling Codec.Compression.Zlib ( Codec/Compression/Zlib.hs, nothing ) [6 of 6] Compiling Codec.Compression.GZip ( Codec/Compression/GZip.hs, nothing ) Haddock coverage: 100% ( 53 / 53) in 'Codec.Compression.Zlib.Internal' 100% ( 35 / 35) in 'Codec.Compression.Zlib.Raw' 100% ( 36 / 36) in 'Codec.Compression.Zlib' 100% ( 36 / 36) in 'Codec.Compression.GZip' Warning: Codec.Compression.Zlib.Internal: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_CompressionStrategy - Codec.Compression.Zlib.Stream.Rep_MemoryLevel - Codec.Compression.Zlib.Stream.Rep_WindowBits - Codec.Compression.Zlib.Stream.Rep_CompressionLevel - Codec.Compression.Zlib.Stream.Rep_Method - Codec.Compression.Zlib.Stream.Rep_Format - Codec.Compression.Zlib.Internal.Rep_DecompressError - Codec.Compression.Zlib.Internal.Rep_DecompressParams - Codec.Compression.Zlib.Internal.Rep_CompressParams Warning: Codec.Compression.Zlib.Raw: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_CompressionStrategy - Codec.Compression.Zlib.Stream.Rep_MemoryLevel - Codec.Compression.Zlib.Stream.Rep_WindowBits - Codec.Compression.Zlib.Stream.Rep_CompressionLevel - Codec.Compression.Zlib.Stream.Rep_Method - Codec.Compression.Zlib.Internal.Rep_DecompressError - Codec.Compression.Zlib.Internal.Rep_DecompressParams - Codec.Compression.Zlib.Internal.Rep_CompressParams Warning: Codec.Compression.Zlib: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_CompressionStrategy - Codec.Compression.Zlib.Stream.Rep_MemoryLevel - Codec.Compression.Zlib.Stream.Rep_WindowBits - Codec.Compression.Zlib.Stream.Rep_CompressionLevel - Codec.Compression.Zlib.Stream.Rep_Method - Codec.Compression.Zlib.Internal.Rep_DecompressError - Codec.Compression.Zlib.Internal.Rep_DecompressParams - Codec.Compression.Zlib.Internal.Rep_CompressParams Warning: Codec.Compression.GZip: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_CompressionStrategy - Codec.Compression.Zlib.Stream.Rep_MemoryLevel - Codec.Compression.Zlib.Stream.Rep_WindowBits - Codec.Compression.Zlib.Stream.Rep_CompressionLevel - Codec.Compression.Zlib.Stream.Rep_Method - Codec.Compression.Zlib.Internal.Rep_DecompressError - Codec.Compression.Zlib.Internal.Rep_DecompressParams - Codec.Compression.Zlib.Internal.Rep_CompressParams Documentation created: dist/doc/html/zlib/, dist/doc/html/zlib/zlib.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/zlib-0.7.1.1-JJRWuCnd7LR9y9ey9xuk4f Completed zlib-0.7.1.1 Configuring contravariant-1.5.6... Preprocessing library for contravariant-1.5.6.. Building library for contravariant-1.5.6.. [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.6.. Running Haddock on library for contravariant-1.5.6.. 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.6-qv5bbVRExRIFbfN8ysinu Completed contravariant-1.5.6 Configuring blaze-markup-0.8.3.0... Preprocessing library for blaze-markup-0.8.3.0.. Building library for blaze-markup-0.8.3.0.. [1 of 6] Compiling Text.Blaze.Internal ( src/Text/Blaze/Internal.hs, dist/build/Text/Blaze/Internal.o, dist/build/Text/Blaze/Internal.dyn_o ) src/Text/Blaze/Internal.hs:82:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 82 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:84:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 84 | import Data.Monoid (Monoid, mappend, mconcat, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:223:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances] Noncanonical return definition detected in the instance declaration for Monad MarkupM. return will eventually be removed in favour of pure Suggested fix: Either remove definition for return (recommended) or define as return = pure See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return | 223 | return x = Empty x | ^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:225:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances] Noncanonical (>>) definition detected in the instance declaration for Monad MarkupM. (>>) will eventually be removed in favour of (*>) Suggested fix: Either remove definition for (>>) (recommended) or define as (>>) = (*>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return | 225 | (>>) = Append | ^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:230:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 230 | instance (a ~ ()) => IsString (MarkupM a) where | ^ [2 of 6] Compiling Text.Blaze ( src/Text/Blaze.hs, dist/build/Text/Blaze.o, dist/build/Text/Blaze.dyn_o ) src/Text/Blaze.hs:92:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 92 | import Data.Monoid (mconcat) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze.hs:93:42: warning: [GHC-38856] [-Wunused-imports] The import of Word from module Data.Word is redundant | 93 | import Data.Word (Word, Word32, Word64) | ^^^^ [3 of 6] Compiling Text.Blaze.Renderer.String ( src/Text/Blaze/Renderer/String.hs, dist/build/Text/Blaze/Renderer/String.o, dist/build/Text/Blaze/Renderer/String.dyn_o ) [4 of 6] Compiling Text.Blaze.Renderer.Pretty ( src/Text/Blaze/Renderer/Pretty.hs, dist/build/Text/Blaze/Renderer/Pretty.o, dist/build/Text/Blaze/Renderer/Pretty.dyn_o ) [5 of 6] Compiling Text.Blaze.Renderer.Text ( src/Text/Blaze/Renderer/Text.hs, dist/build/Text/Blaze/Renderer/Text.o, dist/build/Text/Blaze/Renderer/Text.dyn_o ) src/Text/Blaze/Renderer/Text.hs:15:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 15 | import Data.Monoid (mappend, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [6 of 6] Compiling Text.Blaze.Renderer.Utf8 ( src/Text/Blaze/Renderer/Utf8.hs, dist/build/Text/Blaze/Renderer/Utf8.o, dist/build/Text/Blaze/Renderer/Utf8.dyn_o ) src/Text/Blaze/Renderer/Utf8.hs:11:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 11 | import Data.Monoid (mappend, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Preprocessing library for blaze-markup-0.8.3.0.. Running Haddock on library for blaze-markup-0.8.3.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling Text.Blaze.Internal ( src/Text/Blaze/Internal.hs, nothing ) src/Text/Blaze/Internal.hs:82:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 82 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:84:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 84 | import Data.Monoid (Monoid, mappend, mconcat, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:223:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances] Noncanonical return definition detected in the instance declaration for Monad MarkupM. return will eventually be removed in favour of pure Suggested fix: Either remove definition for return (recommended) or define as return = pure See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return | 223 | return x = Empty x | ^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:225:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances] Noncanonical (>>) definition detected in the instance declaration for Monad MarkupM. (>>) will eventually be removed in favour of (*>) Suggested fix: Either remove definition for (>>) (recommended) or define as (>>) = (*>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return | 225 | (>>) = Append | ^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:230:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 230 | instance (a ~ ()) => IsString (MarkupM a) where | ^ [2 of 6] Compiling Text.Blaze ( src/Text/Blaze.hs, nothing ) src/Text/Blaze.hs:92:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 92 | import Data.Monoid (mconcat) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze.hs:93:42: warning: [GHC-38856] [-Wunused-imports] The import of Word from module Data.Word is redundant | 93 | import Data.Word (Word, Word32, Word64) | ^^^^ [3 of 6] Compiling Text.Blaze.Renderer.String ( src/Text/Blaze/Renderer/String.hs, nothing ) [4 of 6] Compiling Text.Blaze.Renderer.Pretty ( src/Text/Blaze/Renderer/Pretty.hs, nothing ) [5 of 6] Compiling Text.Blaze.Renderer.Text ( src/Text/Blaze/Renderer/Text.hs, nothing ) src/Text/Blaze/Renderer/Text.hs:15:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 15 | import Data.Monoid (mappend, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [6 of 6] Compiling Text.Blaze.Renderer.Utf8 ( src/Text/Blaze/Renderer/Utf8.hs, nothing ) src/Text/Blaze/Renderer/Utf8.hs:11:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 11 | import Data.Monoid (mappend, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Haddock coverage: Warning: 'String' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:123:7 * in GHC.Base You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:123:7 Warning: 'ByteString' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:127:7 * in Data.ByteString.Internal.Type You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:127:7 Warning: 'Text' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:125:7 * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:125:7 Warning: 'Tag' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:252:15 * at src/Text/Blaze/Internal.hs:252:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:252:1 100% ( 55 / 55) in 'Text.Blaze.Internal' 100% ( 43 / 43) in 'Text.Blaze' Warning: 'String' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:123:7 * in GHC.Base You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:123:7 75% ( 3 / 4) in 'Text.Blaze.Renderer.String' Missing documentation for: renderHtml (src/Text/Blaze/Renderer/String.hs:94) Warning: 'String' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:123:7 * in GHC.Base You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:123:7 66% ( 2 / 3) in 'Text.Blaze.Renderer.Pretty' Missing documentation for: renderHtml (src/Text/Blaze/Renderer/Pretty.hs:57) 55% ( 5 / 9) in 'Text.Blaze.Renderer.Text' Missing documentation for: renderHtmlBuilder (src/Text/Blaze/Renderer/Text.hs:74) renderHtmlBuilderWith (src/Text/Blaze/Renderer/Text.hs:136) renderHtml (src/Text/Blaze/Renderer/Text.hs:150) renderHtmlWith (src/Text/Blaze/Renderer/Text.hs:167) 85% ( 6 / 7) in 'Text.Blaze.Renderer.Utf8' Missing documentation for: Module header Documentation created: dist/doc/html/blaze-markup/, dist/doc/html/blaze-markup/blaze-markup.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/blaze-markup-0.8.3.0-BIuxAhh0uThCOjqjFDDCUo Completed blaze-markup-0.8.3.0 Configuring HUnit-1.6.2.0... Preprocessing library for HUnit-1.6.2.0.. Building library for HUnit-1.6.2.0.. [1 of 6] Compiling Paths_HUnit ( dist/build/autogen/Paths_HUnit.hs, dist/build/Paths_HUnit.o, dist/build/Paths_HUnit.dyn_o ) [2 of 6] Compiling Test.HUnit.Lang ( src/Test/HUnit/Lang.hs, dist/build/Test/HUnit/Lang.o, dist/build/Test/HUnit/Lang.dyn_o ) [3 of 6] Compiling Test.HUnit.Base ( src/Test/HUnit/Base.hs, dist/build/Test/HUnit/Base.o, dist/build/Test/HUnit/Base.dyn_o ) [4 of 6] Compiling Test.HUnit.Terminal ( src/Test/HUnit/Terminal.hs, dist/build/Test/HUnit/Terminal.o, dist/build/Test/HUnit/Terminal.dyn_o ) src/Test/HUnit/Terminal.hs:41:41: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 41 | | otherwise = ta f (c:bs) (tail as) cs | ^^^^ [5 of 6] Compiling Test.HUnit.Text ( src/Test/HUnit/Text.hs, dist/build/Test/HUnit/Text.o, dist/build/Test/HUnit/Text.dyn_o ) [6 of 6] Compiling Test.HUnit ( src/Test/HUnit.hs, dist/build/Test/HUnit.o, dist/build/Test/HUnit.dyn_o ) Preprocessing library for HUnit-1.6.2.0.. Running Haddock on library for HUnit-1.6.2.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling Paths_HUnit ( dist/build/autogen/Paths_HUnit.hs, nothing ) [2 of 6] Compiling Test.HUnit.Lang ( src/Test/HUnit/Lang.hs, nothing ) [3 of 6] Compiling Test.HUnit.Base ( src/Test/HUnit/Base.hs, nothing ) [4 of 6] Compiling Test.HUnit.Terminal ( src/Test/HUnit/Terminal.hs, nothing ) src/Test/HUnit/Terminal.hs:41:41: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 41 | | otherwise = ta f (c:bs) (tail as) cs | ^^^^ [5 of 6] Compiling Test.HUnit.Text ( src/Test/HUnit/Text.hs, nothing ) [6 of 6] Compiling Test.HUnit ( src/Test/HUnit.hs, nothing ) Haddock coverage: 54% ( 6 / 11) in 'Test.HUnit.Lang' Missing documentation for: Module header Result (src/Test/HUnit/Lang.hs:86) HUnitFailure (src/Test/HUnit/Lang.hs:41) FailureReason (src/Test/HUnit/Lang.hs:46) formatFailureReason (src/Test/HUnit/Lang.hs:83) 100% ( 33 / 33) in 'Test.HUnit.Base' 100% ( 2 / 2) in 'Test.HUnit.Terminal' Warning: 'PutText' is ambiguous. It is defined * at src/Test/HUnit/Text.hs:40:19 * at src/Test/HUnit/Text.hs:40:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/HUnit/Text.hs:40:1 Warning: 'st' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 9 / 9) in 'Test.HUnit.Text' 100% ( 3 / 3) in 'Test.HUnit' Documentation created: dist/doc/html/HUnit/, dist/doc/html/HUnit/HUnit.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/HUnit-1.6.2.0-I4Li6SX3p2jHu37LTSBLSu Completed HUnit-1.6.2.0 Configuring ansi-terminal-types-1.1.3... Preprocessing library for ansi-terminal-types-1.1.3.. Building library for ansi-terminal-types-1.1.3.. [1 of 2] Compiling System.Console.ANSI.Types ( src/System/Console/ANSI/Types.hs, dist/build/System/Console/ANSI/Types.o, dist/build/System/Console/ANSI/Types.dyn_o ) [2 of 2] Compiling System.Console.ANSI.Codes ( src/System/Console/ANSI/Codes.hs, dist/build/System/Console/ANSI/Codes.o, dist/build/System/Console/ANSI/Codes.dyn_o ) Preprocessing library for ansi-terminal-types-1.1.3.. Running Haddock on library for ansi-terminal-types-1.1.3.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling System.Console.ANSI.Types ( src/System/Console/ANSI/Types.hs, nothing ) [2 of 2] Compiling System.Console.ANSI.Codes ( src/System/Console/ANSI/Codes.hs, nothing ) Haddock coverage: 100% ( 13 / 13) in 'System.Console.ANSI.Types' 66% ( 41 / 62) in 'System.Console.ANSI.Codes' Missing documentation for: cursorUpCode (src/System/Console/ANSI/Codes.hs:236) cursorDownCode (src/System/Console/ANSI/Codes.hs:237) cursorForwardCode (src/System/Console/ANSI/Codes.hs:238) cursorBackwardCode (src/System/Console/ANSI/Codes.hs:239) cursorUpLineCode (src/System/Console/ANSI/Codes.hs:245) cursorDownLineCode (src/System/Console/ANSI/Codes.hs:244) clearFromCursorToScreenEndCode (src/System/Console/ANSI/Codes.hs:312) clearFromCursorToScreenBeginningCode (src/System/Console/ANSI/Codes.hs:313) clearScreenCode (src/System/Console/ANSI/Codes.hs:314) clearFromCursorToLineEndCode (src/System/Console/ANSI/Codes.hs:315) clearFromCursorToLineBeginningCode (src/System/Console/ANSI/Codes.hs:316) clearLineCode (src/System/Console/ANSI/Codes.hs:317) enableLineWrapCode (src/System/Console/ANSI/Codes.hs:320) disableLineWrapCode (src/System/Console/ANSI/Codes.hs:321) scrollPageUpCode (src/System/Console/ANSI/Codes.hs:326) scrollPageDownCode (src/System/Console/ANSI/Codes.hs:327) useAlternateScreenBufferCode (src/System/Console/ANSI/Codes.hs:330) useNormalScreenBufferCode (src/System/Console/ANSI/Codes.hs:331) setSGRCode (src/System/Console/ANSI/Codes.hs:339) hideCursorCode (src/System/Console/ANSI/Codes.hs:344) showCursorCode (src/System/Console/ANSI/Codes.hs:345) Documentation created: dist/doc/html/ansi-terminal-types/, dist/doc/html/ansi-terminal-types/ansi-terminal-types.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/ansi-terminal-types-1.1.3-FbCvCegLPPTJZH2c3Rw7yn Completed ansi-terminal-types-1.1.3 Configuring data-default-class-0.2.0.0... Preprocessing library for data-default-class-0.2.0.0.. Building library for data-default-class-0.2.0.0.. [1 of 1] Compiling Data.Default.Class ( Data/Default/Class.hs, dist/build/Data/Default/Class.o, dist/build/Data/Default/Class.dyn_o ) Preprocessing library for data-default-class-0.2.0.0.. Running Haddock on library for data-default-class-0.2.0.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Data.Default.Class ( Data/Default/Class.hs, nothing ) Haddock coverage: 100% ( 2 / 2) in 'Data.Default.Class' Documentation created: dist/doc/html/data-default-class/, dist/doc/html/data-default-class/data-default-class.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/data-default-class-0.2.0.0-5ekG5WXD5UGxH4iaLS07P Completed data-default-class-0.2.0.0 Configuring old-time-1.1.0.5... 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.5.. Building library for old-time-1.1.0.5.. [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.5.. Running Haddock on library for old-time-1.1.0.5.. 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.5-C90ycRQdPxMIXikMBTM1Hq Completed old-time-1.1.0.5 Configuring hashable-1.5.1.0... Preprocessing library for hashable-1.5.1.0.. Building library for hashable-1.5.1.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.1.0.. Running Haddock on library for hashable-1.5.1.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:863:17 * at src/Data/Hashable/Class.hs:863:1 You may 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:863: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:255) Hashable2 (src/Data/Hashable/Class.hs:270) 66% ( 6 / 9) in 'Data.Hashable.Generic' Missing documentation for: One (src/Data/Hashable/Class.hs:245) Zero (src/Data/Hashable/Class.hs:244) HashArgs (src/Data/Hashable/Class.hs:247) 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.1.0-B3HWh9nPMlILQrq8654h2p Completed hashable-1.5.1.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-4YoyfNE8GMC3bv8ZvDq2uc Completed random-1.3.1 Configuring distributive-0.6.3... Preprocessing library for distributive-0.6.3.. Building library for distributive-0.6.3.. [1 of 2] Compiling Data.Distributive ( src/Data/Distributive.hs, dist/build/Data/Distributive.o, dist/build/Data/Distributive.dyn_o ) [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.3.. Running Haddock on library for distributive-0.6.3.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Data.Distributive ( src/Data/Distributive.hs, nothing ) [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:48) 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.3-FeoNVMgKO2HK3z1aAZCP5y Completed distributive-0.6.3 Configuring th-lift-0.8.7... Preprocessing library for th-lift-0.8.7.. Building library for th-lift-0.8.7.. [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.7.. Running Haddock on library for th-lift-0.8.7.. 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.7-3uWxPq0XfGlICVJlRupueF Completed th-lift-0.8.7 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-9dfGMfPiC12BvsnaeenaXD 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-pKTdaI7fhZL8cg5xaxvTv Completed transformers-base-0.4.6 Configuring resourcet-1.3.0... Preprocessing library for resourcet-1.3.0.. Building library for resourcet-1.3.0.. [1 of 5] Compiling Data.Acquire.Internal ( Data/Acquire/Internal.hs, dist/build/Data/Acquire/Internal.o, dist/build/Data/Acquire/Internal.dyn_o ) Data/Acquire/Internal.hs:17:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 17 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 5] Compiling Control.Monad.Trans.Resource.Internal ( Control/Monad/Trans/Resource/Internal.hs, dist/build/Control/Monad/Trans/Resource/Internal.o, dist/build/Control/Monad/Trans/Resource/Internal.dyn_o ) Control/Monad/Trans/Resource/Internal.hs:28:29: warning: [GHC-38856] [-Wunused-imports] The import of Applicative from module Control.Applicative is redundant | 28 | import Control.Applicative (Applicative (..), Alternative(..)) | ^^^^^^^^^^^^^^^^ Control/Monad/Trans/Resource/Internal.hs:57:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Monad.IO.Class is redundant except perhaps to import instances from Control.Monad.IO.Class To import instances alone, use: import Control.Monad.IO.Class() | 57 | import Control.Monad.IO.Class (MonadIO (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Control/Monad/Trans/Resource/Internal.hs:67:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Word is redundant except perhaps to import instances from Data.Word To import instances alone, use: import Data.Word() | 67 | import Data.Word(Word) | ^^^^^^^^^^^^^^^^^^^^^^ [3 of 5] Compiling Data.Acquire ( Data/Acquire.hs, dist/build/Data/Acquire.o, dist/build/Data/Acquire.dyn_o ) [4 of 5] Compiling Control.Monad.Trans.Resource ( Control/Monad/Trans/Resource.hs, dist/build/Control/Monad/Trans/Resource.o, dist/build/Control/Monad/Trans/Resource.dyn_o ) [5 of 5] Compiling UnliftIO.Resource ( UnliftIO/Resource.hs, dist/build/UnliftIO/Resource.o, dist/build/UnliftIO/Resource.dyn_o ) Preprocessing library for resourcet-1.3.0.. Running Haddock on library for resourcet-1.3.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling Data.Acquire.Internal ( Data/Acquire/Internal.hs, nothing ) Data/Acquire/Internal.hs:17:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 17 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 5] Compiling Control.Monad.Trans.Resource.Internal ( Control/Monad/Trans/Resource/Internal.hs, nothing ) Control/Monad/Trans/Resource/Internal.hs:28:29: warning: [GHC-38856] [-Wunused-imports] The import of Applicative from module Control.Applicative is redundant | 28 | import Control.Applicative (Applicative (..), Alternative(..)) | ^^^^^^^^^^^^^^^^ Control/Monad/Trans/Resource/Internal.hs:57:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Monad.IO.Class is redundant except perhaps to import instances from Control.Monad.IO.Class To import instances alone, use: import Control.Monad.IO.Class() | 57 | import Control.Monad.IO.Class (MonadIO (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Control/Monad/Trans/Resource/Internal.hs:67:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Word is redundant except perhaps to import instances from Data.Word To import instances alone, use: import Data.Word() | 67 | import Data.Word(Word) | ^^^^^^^^^^^^^^^^^^^^^^ [3 of 5] Compiling Data.Acquire ( Data/Acquire.hs, nothing ) [4 of 5] Compiling Control.Monad.Trans.Resource ( Control/Monad/Trans/Resource.hs, nothing ) [5 of 5] Compiling UnliftIO.Resource ( UnliftIO/Resource.hs, nothing ) Haddock coverage: 71% ( 5 / 7) in 'Data.Acquire.Internal' Missing documentation for: Module header Allocated (Data/Acquire/Internal.hs:37) Warning: 'ResourceT' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:182:25 * at Control/Monad/Trans/Resource/Internal.hs:182:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:182:1 Warning: 'runResourceT' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'register' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'allocate' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'release' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'hoist' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ResourceCleanupException' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:343:33 * at Control/Monad/Trans/Resource/Internal.hs:343:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:343:1 64% ( 9 / 14) in 'Control.Monad.Trans.Resource.Internal' Missing documentation for: Module header ReleaseMap (Control/Monad/Trans/Resource/Internal.hs:98) stateAlloc (Control/Monad/Trans/Resource/Internal.hs:289) stateCleanup (Control/Monad/Trans/Resource/Internal.hs:297) register' (Control/Monad/Trans/Resource/Internal.hs:317) Warning: 'Acquire' is ambiguous. It is defined * at Data/Acquire/Internal.hs:51:21 * at Data/Acquire/Internal.hs:51:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Acquire/Internal.hs:51:1 100% ( 10 / 10) in 'Data.Acquire' Warning: 'ReleaseKey' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:92:19 * at Control/Monad/Trans/Resource/Internal.hs:92:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:92:1 Warning: 'ResourceT' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:182:25 * at Control/Monad/Trans/Resource/Internal.hs:182:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:182:1 Warning: 'ResourceCleanupException' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:343:33 * at Control/Monad/Trans/Resource/Internal.hs:343:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:343:1 Warning: 'concurrently' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'race' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'InvalidAccess' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:205:22 * at Control/Monad/Trans/Resource/Internal.hs:205:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:205:1 100% ( 40 / 40) in 'Control.Monad.Trans.Resource' 100% ( 13 / 13) in 'UnliftIO.Resource' Warning: Control.Monad.Trans.Resource.Internal: could not find link destinations for: - Control.Monad.Trans.Resource.Internal.NextKey - Control.Monad.Trans.Resource.Internal.RefCount - Control.Monad.Trans.Resource.Internal.D:R:PrimStateResourceT Warning: Control.Monad.Trans.Resource: could not find link destinations for: - Control.Monad.Trans.Resource.Internal.D:R:PrimStateResourceT Warning: UnliftIO.Resource: could not find link destinations for: - Control.Monad.Trans.Resource.Internal.D:R:PrimStateResourceT Documentation created: dist/doc/html/resourcet/, dist/doc/html/resourcet/resourcet.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/resourcet-1.3.0-JbK6FWjuH9wIRghP2zKnYA Completed resourcet-1.3.0 Configuring blaze-html-0.9.2.0... Preprocessing library for blaze-html-0.9.2.0.. Building library for blaze-html-0.9.2.0.. [ 1 of 21] Compiling Text.Blaze.Html ( src/Text/Blaze/Html.hs, dist/build/Text/Blaze/Html.o, dist/build/Text/Blaze/Html.dyn_o ) [ 2 of 21] Compiling Text.Blaze.Html.Renderer.Pretty ( src/Text/Blaze/Html/Renderer/Pretty.hs, dist/build/Text/Blaze/Html/Renderer/Pretty.o, dist/build/Text/Blaze/Html/Renderer/Pretty.dyn_o ) [ 3 of 21] Compiling Text.Blaze.Html.Renderer.String ( src/Text/Blaze/Html/Renderer/String.hs, dist/build/Text/Blaze/Html/Renderer/String.o, dist/build/Text/Blaze/Html/Renderer/String.dyn_o ) [ 4 of 21] Compiling Text.Blaze.Html.Renderer.Text ( src/Text/Blaze/Html/Renderer/Text.hs, dist/build/Text/Blaze/Html/Renderer/Text.o, dist/build/Text/Blaze/Html/Renderer/Text.dyn_o ) [ 5 of 21] Compiling Text.Blaze.Html.Renderer.Utf8 ( src/Text/Blaze/Html/Renderer/Utf8.hs, dist/build/Text/Blaze/Html/Renderer/Utf8.o, dist/build/Text/Blaze/Html/Renderer/Utf8.dyn_o ) [ 6 of 21] Compiling Text.Blaze.Html4.FrameSet ( src/Text/Blaze/Html4/FrameSet.hs, dist/build/Text/Blaze/Html4/FrameSet.o, dist/build/Text/Blaze/Html4/FrameSet.dyn_o ) [ 7 of 21] Compiling Text.Blaze.Html4.FrameSet.Attributes ( src/Text/Blaze/Html4/FrameSet/Attributes.hs, dist/build/Text/Blaze/Html4/FrameSet/Attributes.o, dist/build/Text/Blaze/Html4/FrameSet/Attributes.dyn_o ) [ 8 of 21] Compiling Text.Blaze.Html4.Strict ( src/Text/Blaze/Html4/Strict.hs, dist/build/Text/Blaze/Html4/Strict.o, dist/build/Text/Blaze/Html4/Strict.dyn_o ) [ 9 of 21] Compiling Text.Blaze.Html4.Strict.Attributes ( src/Text/Blaze/Html4/Strict/Attributes.hs, dist/build/Text/Blaze/Html4/Strict/Attributes.o, dist/build/Text/Blaze/Html4/Strict/Attributes.dyn_o ) [10 of 21] Compiling Text.Blaze.Html4.Transitional ( src/Text/Blaze/Html4/Transitional.hs, dist/build/Text/Blaze/Html4/Transitional.o, dist/build/Text/Blaze/Html4/Transitional.dyn_o ) [11 of 21] Compiling Text.Blaze.Html4.Transitional.Attributes ( src/Text/Blaze/Html4/Transitional/Attributes.hs, dist/build/Text/Blaze/Html4/Transitional/Attributes.o, dist/build/Text/Blaze/Html4/Transitional/Attributes.dyn_o ) [12 of 21] Compiling Text.Blaze.Html5 ( src/Text/Blaze/Html5.hs, dist/build/Text/Blaze/Html5.o, dist/build/Text/Blaze/Html5.dyn_o ) [13 of 21] Compiling Text.Blaze.Html5.Attributes ( src/Text/Blaze/Html5/Attributes.hs, dist/build/Text/Blaze/Html5/Attributes.o, dist/build/Text/Blaze/Html5/Attributes.dyn_o ) [14 of 21] Compiling Text.Blaze.XHtml1.FrameSet ( src/Text/Blaze/XHtml1/FrameSet.hs, dist/build/Text/Blaze/XHtml1/FrameSet.o, dist/build/Text/Blaze/XHtml1/FrameSet.dyn_o ) [15 of 21] Compiling Text.Blaze.XHtml1.FrameSet.Attributes ( src/Text/Blaze/XHtml1/FrameSet/Attributes.hs, dist/build/Text/Blaze/XHtml1/FrameSet/Attributes.o, dist/build/Text/Blaze/XHtml1/FrameSet/Attributes.dyn_o ) [16 of 21] Compiling Text.Blaze.XHtml1.Strict ( src/Text/Blaze/XHtml1/Strict.hs, dist/build/Text/Blaze/XHtml1/Strict.o, dist/build/Text/Blaze/XHtml1/Strict.dyn_o ) [17 of 21] Compiling Text.Blaze.XHtml1.Strict.Attributes ( src/Text/Blaze/XHtml1/Strict/Attributes.hs, dist/build/Text/Blaze/XHtml1/Strict/Attributes.o, dist/build/Text/Blaze/XHtml1/Strict/Attributes.dyn_o ) [18 of 21] Compiling Text.Blaze.XHtml1.Transitional ( src/Text/Blaze/XHtml1/Transitional.hs, dist/build/Text/Blaze/XHtml1/Transitional.o, dist/build/Text/Blaze/XHtml1/Transitional.dyn_o ) [19 of 21] Compiling Text.Blaze.XHtml1.Transitional.Attributes ( src/Text/Blaze/XHtml1/Transitional/Attributes.hs, dist/build/Text/Blaze/XHtml1/Transitional/Attributes.o, dist/build/Text/Blaze/XHtml1/Transitional/Attributes.dyn_o ) [20 of 21] Compiling Text.Blaze.XHtml5 ( src/Text/Blaze/XHtml5.hs, dist/build/Text/Blaze/XHtml5.o, dist/build/Text/Blaze/XHtml5.dyn_o ) [21 of 21] Compiling Text.Blaze.XHtml5.Attributes ( src/Text/Blaze/XHtml5/Attributes.hs, dist/build/Text/Blaze/XHtml5/Attributes.o, dist/build/Text/Blaze/XHtml5/Attributes.dyn_o ) Preprocessing library for blaze-html-0.9.2.0.. Running Haddock on library for blaze-html-0.9.2.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 21] Compiling Text.Blaze.Html ( src/Text/Blaze/Html.hs, nothing ) [ 2 of 21] Compiling Text.Blaze.Html.Renderer.Pretty ( src/Text/Blaze/Html/Renderer/Pretty.hs, nothing ) [ 3 of 21] Compiling Text.Blaze.Html.Renderer.String ( src/Text/Blaze/Html/Renderer/String.hs, nothing ) [ 4 of 21] Compiling Text.Blaze.Html.Renderer.Text ( src/Text/Blaze/Html/Renderer/Text.hs, nothing ) [ 5 of 21] Compiling Text.Blaze.Html.Renderer.Utf8 ( src/Text/Blaze/Html/Renderer/Utf8.hs, nothing ) [ 6 of 21] Compiling Text.Blaze.Html4.FrameSet ( src/Text/Blaze/Html4/FrameSet.hs, nothing ) [ 7 of 21] Compiling Text.Blaze.Html4.FrameSet.Attributes ( src/Text/Blaze/Html4/FrameSet/Attributes.hs, nothing ) [ 8 of 21] Compiling Text.Blaze.Html4.Strict ( src/Text/Blaze/Html4/Strict.hs, nothing ) [ 9 of 21] Compiling Text.Blaze.Html4.Strict.Attributes ( src/Text/Blaze/Html4/Strict/Attributes.hs, nothing ) [10 of 21] Compiling Text.Blaze.Html4.Transitional ( src/Text/Blaze/Html4/Transitional.hs, nothing ) [11 of 21] Compiling Text.Blaze.Html4.Transitional.Attributes ( src/Text/Blaze/Html4/Transitional/Attributes.hs, nothing ) [12 of 21] Compiling Text.Blaze.Html5 ( src/Text/Blaze/Html5.hs, nothing ) [13 of 21] Compiling Text.Blaze.Html5.Attributes ( src/Text/Blaze/Html5/Attributes.hs, nothing ) [14 of 21] Compiling Text.Blaze.XHtml1.FrameSet ( src/Text/Blaze/XHtml1/FrameSet.hs, nothing ) [15 of 21] Compiling Text.Blaze.XHtml1.FrameSet.Attributes ( src/Text/Blaze/XHtml1/FrameSet/Attributes.hs, nothing ) [16 of 21] Compiling Text.Blaze.XHtml1.Strict ( src/Text/Blaze/XHtml1/Strict.hs, nothing ) [17 of 21] Compiling Text.Blaze.XHtml1.Strict.Attributes ( src/Text/Blaze/XHtml1/Strict/Attributes.hs, nothing ) [18 of 21] Compiling Text.Blaze.XHtml1.Transitional ( src/Text/Blaze/XHtml1/Transitional.hs, nothing ) [19 of 21] Compiling Text.Blaze.XHtml1.Transitional.Attributes ( src/Text/Blaze/XHtml1/Transitional/Attributes.hs, nothing ) [20 of 21] Compiling Text.Blaze.XHtml5 ( src/Text/Blaze/XHtml5.hs, nothing ) [21 of 21] Compiling Text.Blaze.XHtml5.Attributes ( src/Text/Blaze/XHtml5/Attributes.hs, nothing ) Haddock coverage: 20% ( 1 / 5) in 'Text.Blaze.Html' Missing documentation for: Module header Html (src/Text/Blaze/Html.hs:10) toHtml (src/Text/Blaze/Html.hs:13) preEscapedToHtml (src/Text/Blaze/Html.hs:16) 0% ( 0 / 2) in 'Text.Blaze.Html.Renderer.Pretty' Missing documentation for: Module header renderHtml (src/Text/Blaze/Html/Renderer/Pretty.hs:9) 0% ( 0 / 2) in 'Text.Blaze.Html.Renderer.String' Missing documentation for: Module header renderHtml (src/Text/Blaze/Html/Renderer/String.hs:9) 0% ( 0 / 5) in 'Text.Blaze.Html.Renderer.Text' Missing documentation for: Module header renderHtmlBuilder (src/Text/Blaze/Html/Renderer/Text.hs:16) renderHtmlBuilderWith (src/Text/Blaze/Html/Renderer/Text.hs:19) renderHtml (src/Text/Blaze/Html/Renderer/Text.hs:22) renderHtmlWith (src/Text/Blaze/Html/Renderer/Text.hs:25) 0% ( 0 / 4) in 'Text.Blaze.Html.Renderer.Utf8' Missing documentation for: Module header renderHtmlBuilder (src/Text/Blaze/Html/Renderer/Utf8.hs:14) renderHtml (src/Text/Blaze/Html/Renderer/Utf8.hs:17) renderHtmlToByteStringIO (src/Text/Blaze/Html/Renderer/Utf8.hs:20) 100% ( 93 / 93) in 'Text.Blaze.Html4.FrameSet' 100% (105 /105) in 'Text.Blaze.Html4.FrameSet.Attributes' 100% ( 80 / 80) in 'Text.Blaze.Html4.Strict' 100% ( 92 / 92) in 'Text.Blaze.Html4.Strict.Attributes' 100% ( 91 / 91) in 'Text.Blaze.Html4.Transitional' 100% (103 /103) in 'Text.Blaze.Html4.Transitional.Attributes' 100% (120 /120) in 'Text.Blaze.Html5' 100% (176 /176) in 'Text.Blaze.Html5.Attributes' 100% ( 93 / 93) in 'Text.Blaze.XHtml1.FrameSet' 100% (105 /105) in 'Text.Blaze.XHtml1.FrameSet.Attributes' 100% ( 80 / 80) in 'Text.Blaze.XHtml1.Strict' 100% ( 92 / 92) in 'Text.Blaze.XHtml1.Strict.Attributes' 100% ( 91 / 91) in 'Text.Blaze.XHtml1.Transitional' 100% (103 /103) in 'Text.Blaze.XHtml1.Transitional.Attributes' 100% (120 /120) in 'Text.Blaze.XHtml5' 100% (176 /176) in 'Text.Blaze.XHtml5.Attributes' Documentation created: dist/doc/html/blaze-html/, dist/doc/html/blaze-html/blaze-html.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/blaze-html-0.9.2.0-GGLnD0E7AI8C2BAzBpWamU Completed blaze-html-0.9.2.0 Configuring hspec-expectations-0.8.4... Preprocessing library for hspec-expectations-0.8.4.. Building library for hspec-expectations-0.8.4.. [1 of 4] Compiling Paths_hspec_expectations ( dist/build/autogen/Paths_hspec_expectations.hs, dist/build/Paths_hspec_expectations.o, dist/build/Paths_hspec_expectations.dyn_o ) [2 of 4] Compiling Test.Hspec.Expectations.Contrib ( src/Test/Hspec/Expectations/Contrib.hs, dist/build/Test/Hspec/Expectations/Contrib.o, dist/build/Test/Hspec/Expectations/Contrib.dyn_o ) [3 of 4] Compiling Test.Hspec.Expectations.Matcher ( src/Test/Hspec/Expectations/Matcher.hs, dist/build/Test/Hspec/Expectations/Matcher.o, dist/build/Test/Hspec/Expectations/Matcher.dyn_o ) [4 of 4] Compiling Test.Hspec.Expectations ( src/Test/Hspec/Expectations.hs, dist/build/Test/Hspec/Expectations.o, dist/build/Test/Hspec/Expectations.dyn_o ) Preprocessing library for hspec-expectations-0.8.4.. Running Haddock on library for hspec-expectations-0.8.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling Paths_hspec_expectations ( dist/build/autogen/Paths_hspec_expectations.hs, nothing ) [2 of 4] Compiling Test.Hspec.Expectations.Contrib ( src/Test/Hspec/Expectations/Contrib.hs, nothing ) [3 of 4] Compiling Test.Hspec.Expectations.Matcher ( src/Test/Hspec/Expectations/Matcher.hs, nothing ) [4 of 4] Compiling Test.Hspec.Expectations ( src/Test/Hspec/Expectations.hs, nothing ) Haddock coverage: Warning: 'Expectation' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'shouldBe' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'shouldSatisfy' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 7 / 7) in 'Test.Hspec.Expectations.Contrib' Warning: 'ErrorCall' is ambiguous. It is defined * in GHC.Exception * in GHC.Exception You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Exception 76% ( 23 / 30) in 'Test.Hspec.Expectations' Missing documentation for: Expectation (src/Test/Hspec/Expectations.hs:76) expectationFailure (src/Test/Hspec/Expectations.hs:79) anyException (src/Test/Hspec/Expectations.hs:183) anyErrorCall (src/Test/Hspec/Expectations.hs:186) anyIOException (src/Test/Hspec/Expectations.hs:196) anyArithException (src/Test/Hspec/Expectations.hs:199) errorCall (src/Test/Hspec/Expectations.hs:190) Documentation created: dist/doc/html/hspec-expectations/, dist/doc/html/hspec-expectations/hspec-expectations.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-expectations-0.8.4-HhwaltKFPw86SDondIAVYY Completed hspec-expectations-0.8.4 Configuring ansi-terminal-1.1.5... Preprocessing library for ansi-terminal-1.1.5.. Building library for ansi-terminal-1.1.5.. [1 of 2] Compiling System.Console.ANSI.Internal ( unix/System/Console/ANSI/Internal.hs, dist/build/System/Console/ANSI/Internal.o, dist/build/System/Console/ANSI/Internal.dyn_o ) [2 of 2] Compiling System.Console.ANSI ( src/System/Console/ANSI.hs, dist/build/System/Console/ANSI.o, dist/build/System/Console/ANSI.dyn_o ) Preprocessing library for ansi-terminal-1.1.5.. Running Haddock on library for ansi-terminal-1.1.5.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling System.Console.ANSI.Internal ( unix/System/Console/ANSI/Internal.hs, nothing ) [2 of 2] Compiling System.Console.ANSI ( src/System/Console/ANSI.hs, nothing ) Haddock coverage: 54% ( 85 /155) in 'System.Console.ANSI' Missing documentation for: cursorUp (src/System/Console/ANSI.hs:416) cursorDown (src/System/Console/ANSI.hs:417) cursorForward (src/System/Console/ANSI.hs:418) cursorBackward (src/System/Console/ANSI.hs:419) hCursorUp (src/System/Console/ANSI.hs:408) hCursorDown (src/System/Console/ANSI.hs:409) hCursorForward (src/System/Console/ANSI.hs:410) hCursorBackward (src/System/Console/ANSI.hs:411) cursorUpCode cursorDownCode cursorForwardCode cursorBackwardCode cursorUpLine (src/System/Console/ANSI.hs:432) cursorDownLine (src/System/Console/ANSI.hs:431) hCursorUpLine (src/System/Console/ANSI.hs:426) hCursorDownLine (src/System/Console/ANSI.hs:425) cursorUpLineCode cursorDownLineCode hSetCursorColumn (src/System/Console/ANSI.hs:438) hSetCursorPosition (src/System/Console/ANSI.hs:452) hSaveCursor (src/System/Console/ANSI.hs:463) hRestoreCursor (src/System/Console/ANSI.hs:464) hReportCursorPosition (src/System/Console/ANSI.hs:465) clearFromCursorToScreenEnd (src/System/Console/ANSI.hs:1058) clearFromCursorToScreenBeginning (src/System/Console/ANSI.hs:1059) clearScreen (src/System/Console/ANSI.hs:1060) clearFromCursorToLineEnd (src/System/Console/ANSI.hs:1070) clearFromCursorToLineBeginning (src/System/Console/ANSI.hs:1071) clearLine (src/System/Console/ANSI.hs:1072) hClearFromCursorToScreenEnd (src/System/Console/ANSI.hs:1052) hClearFromCursorToScreenBeginning (src/System/Console/ANSI.hs:1053) hClearScreen (src/System/Console/ANSI.hs:1055) hClearFromCursorToLineEnd (src/System/Console/ANSI.hs:1065) hClearFromCursorToLineBeginning (src/System/Console/ANSI.hs:1066) hClearLine (src/System/Console/ANSI.hs:1067) clearFromCursorToScreenEndCode clearFromCursorToScreenBeginningCode clearScreenCode clearFromCursorToLineEndCode clearFromCursorToLineBeginningCode clearLineCode enableLineWrap (src/System/Console/ANSI.hs:1081) disableLineWrap (src/System/Console/ANSI.hs:1082) hEnableLineWrap (src/System/Console/ANSI.hs:1077) hDisableLineWrap (src/System/Console/ANSI.hs:1078) enableLineWrapCode disableLineWrapCode scrollPageUp (src/System/Console/ANSI.hs:1094) scrollPageDown (src/System/Console/ANSI.hs:1095) hScrollPageUp (src/System/Console/ANSI.hs:1088) hScrollPageDown (src/System/Console/ANSI.hs:1089) scrollPageUpCode scrollPageDownCode hUseAlternateScreenBuffer (src/System/Console/ANSI.hs:509) hUseNormalScreenBuffer (src/System/Console/ANSI.hs:512) useAlternateScreenBufferCode useNormalScreenBufferCode hReportLayerColor (src/System/Console/ANSI.hs:825) hSetSGR (src/System/Console/ANSI.hs:1038) setSGRCode hideCursor (src/System/Console/ANSI.hs:505) showCursor (src/System/Console/ANSI.hs:506) hHideCursor (src/System/Console/ANSI.hs:501) hShowCursor (src/System/Console/ANSI.hs:502) hideCursorCode showCursorCode hHyperlink (src/System/Console/ANSI.hs:571) hHyperlinkWithId (src/System/Console/ANSI.hs:593) hHyperlinkWithParams (src/System/Console/ANSI.hs:548) hSetTitle (src/System/Console/ANSI.hs:613) 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.5-F7lGUR3isCV1YxtZEq2804 Completed ansi-terminal-1.1.5 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-B7knclsRewG5XPri0X69Z1 Completed cookie-0.5.1 Configuring unix-time-0.4.17... checking for gcc... /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc accepts -g... yes checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc option to accept ISO C89... none needed checking how to run the C preprocessor... /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc -E checking for grep that handles long lines and -e... /nix/store/0mqngkz34kv5z6hz91bbbgzgrnz56c4y-gnugrep-3.11/bin/grep checking for egrep... /nix/store/0mqngkz34kv5z6hz91bbbgzgrnz56c4y-gnugrep-3.11/bin/grep -E checking for ANSI C header files... yes checking for sys/types.h... yes checking for sys/stat.h... yes checking for stdlib.h... yes checking for string.h... yes checking for memory.h... yes checking for strings.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for unistd.h... yes checking xlocale.h usability... no checking xlocale.h presence... no checking for xlocale.h... no checking for strptime_l... yes checking for timegm... yes checking whether _mkgmtime is declared... no checking for _get_current_locale... no checking for _create_locale... no checking for strtol_l... yes checking for strtoll_l... yes checking for _isspace_l... no checking for _isupper_l... no checking for _isdigit_l... no checking for _isblank_l... no configure: creating ./config.status config.status: creating cbits/config.h Preprocessing library for unix-time-0.4.17.. Building library for unix-time-0.4.17.. [1 of 5] Compiling Data.UnixTime.Types ( dist/build/Data/UnixTime/Types.hs, dist/build/Data/UnixTime/Types.o, dist/build/Data/UnixTime/Types.dyn_o ) Data/UnixTime/Types.hsc:5:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 5 | import Control.Applicative ((<$>), (<*>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 5] Compiling Data.UnixTime.Sys ( dist/build/Data/UnixTime/Sys.hs, dist/build/Data/UnixTime/Sys.o, dist/build/Data/UnixTime/Sys.dyn_o ) [3 of 5] Compiling Data.UnixTime.Diff ( Data/UnixTime/Diff.hs, dist/build/Data/UnixTime/Diff.o, dist/build/Data/UnixTime/Diff.dyn_o ) [4 of 5] Compiling Data.UnixTime.Conv ( Data/UnixTime/Conv.hs, dist/build/Data/UnixTime/Conv.o, dist/build/Data/UnixTime/Conv.dyn_o ) Data/UnixTime/Conv.hs:17:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 17 | import Control.Applicative | ^^^^^^^^^^^^^^^^^^^^^^^^^^ [5 of 5] Compiling Data.UnixTime ( Data/UnixTime.hs, dist/build/Data/UnixTime.o, dist/build/Data/UnixTime.dyn_o ) Preprocessing library for unix-time-0.4.17.. Running Haddock on library for unix-time-0.4.17.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling Data.UnixTime.Types ( dist/build/Data/UnixTime/Types.hs, nothing ) Data/UnixTime/Types.hsc:5:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 5 | import Control.Applicative ((<$>), (<*>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 5] Compiling Data.UnixTime.Sys ( dist/build/Data/UnixTime/Sys.hs, nothing ) [3 of 5] Compiling Data.UnixTime.Diff ( Data/UnixTime/Diff.hs, nothing ) [4 of 5] Compiling Data.UnixTime.Conv ( Data/UnixTime/Conv.hs, nothing ) Data/UnixTime/Conv.hs:17:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 17 | import Control.Applicative | ^^^^^^^^^^^^^^^^^^^^^^^^^^ [5 of 5] Compiling Data.UnixTime ( Data/UnixTime.hs, nothing ) Haddock coverage: Warning: 'UnixDiffTime' is ambiguous. It is defined * at Data/UnixTime/Types.hsc:115:21 * at Data/UnixTime/Types.hsc:115:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/UnixTime/Types.hsc:115:1 Warning: 'UnixTime' is ambiguous. It is defined * at Data/UnixTime/Types.hsc:33:17 * at Data/UnixTime/Types.hsc:33:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/UnixTime/Types.hsc:33:1 Warning: 'UnixTime' is ambiguous. It is defined * at Data/UnixTime/Types.hsc:33:17 * at Data/UnixTime/Types.hsc:33:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/UnixTime/Types.hsc:33:1 Warning: 'UnixTime' is ambiguous. It is defined * at Data/UnixTime/Types.hsc:33:17 * at Data/UnixTime/Types.hsc:33:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/UnixTime/Types.hsc:33:1 96% ( 24 / 25) in 'Data.UnixTime' Missing documentation for: Module header Warning: Data.UnixTime: could not find link destinations for: - Data.UnixTime.Types.Rep_UnixTime Documentation created: dist/doc/html/unix-time/, dist/doc/html/unix-time/unix-time.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unix-time-0.4.17-KImRvb7SVNEHCeF6wJSmd8 Completed unix-time-0.4.17 Configuring unordered-containers-0.2.21... Preprocessing library for unordered-containers-0.2.21.. Building library for unordered-containers-0.2.21.. [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 ) [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.21.. Running Haddock on library for unordered-containers-0.2.21.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 9] Compiling Data.HashMap.Internal.Array ( Data/HashMap/Internal/Array.hs, nothing ) [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: Warning: 'index' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 34% ( 17 / 49) in 'Data.HashMap.Internal.Array' Missing documentation for: Array (Data/HashMap/Internal/Array.hs:130) MArray (Data/HashMap/Internal/Array.hs:162) new_ (Data/HashMap/Internal/Array.hs:222) singleton (Data/HashMap/Internal/Array.hs:234) singletonM (Data/HashMap/Internal/Array.hs:238) snoc (Data/HashMap/Internal/Array.hs:242) pair (Data/HashMap/Internal/Array.hs:251) length (Data/HashMap/Internal/Array.hs:159) lengthM (Data/HashMap/Internal/Array.hs:167) read (Data/HashMap/Internal/Array.hs:258) write (Data/HashMap/Internal/Array.hs:264) indexM (Data/HashMap/Internal/Array.hs:282) sameArray1 (Data/HashMap/Internal/Array.hs:145) unsafeFreeze (Data/HashMap/Internal/Array.hs:288) unsafeThaw (Data/HashMap/Internal/Array.hs:294) unsafeSameArray (Data/HashMap/Internal/Array.hs:141) run (Data/HashMap/Internal/Array.hs:300) cloneM (Data/HashMap/Internal/Array.hs:322) foldl (Data/HashMap/Internal/Array.hs:412) foldl' (Data/HashMap/Internal/Array.hs:383) foldr (Data/HashMap/Internal/Array.hs:402) foldr' (Data/HashMap/Internal/Array.hs:393) foldMap (Data/HashMap/Internal/Array.hs:425) thaw (Data/HashMap/Internal/Array.hs:444) map (Data/HashMap/Internal/Array.hs:469) filter (Data/HashMap/Internal/Array.hs:504) mapMaybe (Data/HashMap/Internal/Array.hs:527) traverse (Data/HashMap/Internal/Array.hs:590) traverse' (Data/HashMap/Internal/Array.hs:606) toList (Data/HashMap/Internal/Array.hs:582) fromList (Data/HashMap/Internal/Array.hs:547) fromList' (Data/HashMap/Internal/Array.hs:560) 25% ( 1 / 4) in 'Data.HashMap.Internal.List' Missing documentation for: isPermutationBy (Data/HashMap/Internal/List.hs:37) deleteBy (Data/HashMap/Internal/List.hs:80) unorderedCompare (Data/HashMap/Internal/List.hs:65) Warning: 'Leaf' is ambiguous. It is defined * at Data/HashMap/Internal.hs:232:7 * at Data/HashMap/Internal.hs:194:1 You 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:194:1 Warning: 'at' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 94% (102 /108) in 'Data.HashMap.Internal' Missing documentation for: Leaf (Data/HashMap/Internal.hs:194) intersectionWithKey# (Data/HashMap/Internal.hs:2174) updateOrConcatWithKey (Data/HashMap/Internal.hs:2793) lookupResToMaybe (Data/HashMap/Internal.hs:668) insert' (Data/HashMap/Internal.hs:852) delete' (Data/HashMap/Internal.hs:1167) 50% ( 3 / 6) in 'Data.HashMap.Internal.Debug' Missing documentation for: valid (Data/HashMap/Internal/Debug.hs:95) Validity (Data/HashMap/Internal/Debug.hs:40) SubHashPath (Data/HashMap/Internal/Debug.hs:72) 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% ( 70 / 70) in 'Data.HashMap.Internal.Strict' Warning: 'HashSet' is ambiguous. It is defined * at Data/HashSet/Internal.hs:114:21 * at Data/HashSet/Internal.hs:114:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/HashSet/Internal.hs:114:1 100% ( 37 / 37) in 'Data.HashSet.Internal' Warning: 'HashSet' is ambiguous. It is defined * at Data/HashSet/Internal.hs:114:21 * at Data/HashSet/Internal.hs:114:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/HashSet/Internal.hs:114:1 100% ( 34 / 34) in 'Data.HashSet' 100% ( 72 / 72) in 'Data.HashMap.Strict' 100% ( 72 / 72) in 'Data.HashMap.Lazy' Warning: Data.HashMap.Internal: could not find link destinations for: - Data.HashMap.Internal.equal1 - Data.HashMap.Internal.equal2 - 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.21-LxzBF9OteKy2rulOGDByiv Completed unordered-containers-0.2.21 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-8bm8pPW34Au1LDzCnXzAlM 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-1f8kJYVDc7NDNfuecOyzhe Completed these-1.2.1 Configuring text-short-0.1.6.1... Preprocessing library for text-short-0.1.6.1.. Building library for text-short-0.1.6.1.. [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.1.. Running Haddock on library for text-short-0.1.6.1.. 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.1-Hf0J0UvQiPZF5E3OjDrGU8 Completed text-short-0.1.6.1 Configuring scientific-0.3.8.1... Preprocessing library for scientific-0.3.8.1.. Building library for scientific-0.3.8.1.. [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 ) [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 ((<>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [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 ((<>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Preprocessing library for scientific-0.3.8.1.. Running Haddock on library for scientific-0.3.8.1.. 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.1-KgiS4EqSkBX51dFdScIU3R Completed scientific-0.3.8.1 Configuring resource-pool-0.5.0.0... Preprocessing library for resource-pool-0.5.0.0.. Building library for resource-pool-0.5.0.0.. [1 of 3] Compiling Data.Pool.Internal ( src/Data/Pool/Internal.hs, dist/build/Data/Pool/Internal.o, dist/build/Data/Pool/Internal.dyn_o ) [2 of 3] Compiling Data.Pool ( src/Data/Pool.hs, dist/build/Data/Pool.o, dist/build/Data/Pool.dyn_o ) [3 of 3] Compiling Data.Pool.Introspection ( src/Data/Pool/Introspection.hs, dist/build/Data/Pool/Introspection.o, dist/build/Data/Pool/Introspection.dyn_o ) Preprocessing library for resource-pool-0.5.0.0.. Running Haddock on library for resource-pool-0.5.0.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Data.Pool.Internal ( src/Data/Pool/Internal.hs, nothing ) [2 of 3] Compiling Data.Pool ( src/Data/Pool.hs, nothing ) [3 of 3] Compiling Data.Pool.Introspection ( src/Data/Pool/Introspection.hs, nothing ) Haddock coverage: Warning: 'Pool' is ambiguous. It is defined * at src/Data/Pool/Internal.hs:23:15 * at src/Data/Pool/Internal.hs:23:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Pool/Internal.hs:23:1 Warning: 'PoolConfig' is ambiguous. It is defined * at src/Data/Pool/Internal.hs:58:21 * at src/Data/Pool/Internal.hs:58:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Pool/Internal.hs:58:1 Warning: 'LocalPool' is ambiguous. It is defined * at src/Data/Pool/Internal.hs:30:20 * at src/Data/Pool/Internal.hs:30:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Pool/Internal.hs:30:1 Warning: 'takeResource' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 94% ( 18 / 19) in 'Data.Pool.Internal' Missing documentation for: signal (src/Data/Pool/Internal.hs:316) Warning: 'LocalPool' is ambiguous. It is defined * at src/Data/Pool/Internal.hs:30:20 * at src/Data/Pool/Internal.hs:30:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Pool/Internal.hs:30:1 100% ( 20 / 20) in 'Data.Pool' 100% ( 20 / 20) in 'Data.Pool.Introspection' Warning: Data.Pool.Introspection: could not find link destinations for: - Data.Pool.Introspection.Rep_Resource - Data.Pool.Introspection.Rep_Acquisition Documentation created: dist/doc/html/resource-pool/, dist/doc/html/resource-pool/resource-pool.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/resource-pool-0.5.0.0-AXVcS7LVND32ZfWXO3iJBK Completed resource-pool-0.5.0.0 Configuring data-fix-0.3.4... Preprocessing library for data-fix-0.3.4.. Building library for data-fix-0.3.4.. [1 of 1] Compiling Data.Fix ( src/Data/Fix.hs, dist/build/Data/Fix.o, dist/build/Data/Fix.dyn_o ) src/Data/Fix.hs:103:41: warning: [GHC-38856] [-Wunused-imports] The import of hashWithSalt1 from module Data.Hashable.Lifted is redundant | 103 | import Data.Hashable.Lifted (Hashable1, hashWithSalt1) | ^^^^^^^^^^^^^ src/Data/Fix.hs:109:47: warning: [GHC-38856] [-Wunused-imports] The import of rnf1 from module Control.DeepSeq is redundant | 109 | import Control.DeepSeq (NFData (..), NFData1, rnf1) | ^^^^ Preprocessing library for data-fix-0.3.4.. Running Haddock on library for data-fix-0.3.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Data.Fix ( src/Data/Fix.hs, nothing ) src/Data/Fix.hs:103:41: warning: [GHC-38856] [-Wunused-imports] The import of hashWithSalt1 from module Data.Hashable.Lifted is redundant | 103 | import Data.Hashable.Lifted (Hashable1, hashWithSalt1) | ^^^^^^^^^^^^^ src/Data/Fix.hs:109:47: warning: [GHC-38856] [-Wunused-imports] The import of rnf1 from module Control.DeepSeq is redundant | 109 | import Control.DeepSeq (NFData (..), NFData1, rnf1) | ^^^^ Haddock coverage: Warning: 'ListF' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Fix' is ambiguous. It is defined * at src/Data/Fix.hs:144:17 * at src/Data/Fix.hs:144:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Fix.hs:144:1 Warning: 'Mu' is ambiguous. It is defined * at src/Data/Fix.hs:299:16 * at src/Data/Fix.hs:299:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Fix.hs:299:1 Warning: 'Nu' is ambiguous. It is defined * at src/Data/Fix.hs:365:13 * at src/Data/Fix.hs:365:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Fix.hs:365:1 100% ( 36 / 36) in 'Data.Fix' Warning: Data.Fix: could not find link destinations for: - Data.Fix.Rep_Fix Documentation created: dist/doc/html/data-fix/, dist/doc/html/data-fix/data-fix.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/data-fix-0.3.4-AhQbGliSeJcKYBZs1UmpCa 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-GeMbLVeXqaa9LWD3uvMDYb Completed case-insensitive-1.2.1.0 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-8LKcx6KaQ0nEuxpvtMd4f6 Completed uuid-types-1.0.6 Configuring QuickCheck-2.16.0.0... Preprocessing library for QuickCheck-2.16.0.0.. Building library for QuickCheck-2.16.0.0.. [ 1 of 17] Compiling Test.QuickCheck.Exception ( src/Test/QuickCheck/Exception.hs, dist/build/Test/QuickCheck/Exception.o, dist/build/Test/QuickCheck/Exception.dyn_o ) [ 2 of 17] Compiling Test.QuickCheck.Random ( src/Test/QuickCheck/Random.hs, dist/build/Test/QuickCheck/Random.o, dist/build/Test/QuickCheck/Random.dyn_o ) src/Test/QuickCheck/Random.hs:50:37: warning: [GHC-68441] [-Wdeprecations] In the use of genShortByteString (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `System.Random.uniformShortByteString`" | 50 | genShortByteString n = wrapQCGen (genShortByteString n) | ^^^^^^^^^^^^^^^^^^ src/Test/QuickCheck/Random.hs:83:16: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 83 | left = fst . split | ^^^^^ src/Test/QuickCheck/Random.hs:84:17: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 84 | right = snd . split | ^^^^^ [ 3 of 17] Compiling Test.QuickCheck.Gen ( src/Test/QuickCheck/Gen.hs, dist/build/Test/QuickCheck/Gen.o, dist/build/Test/QuickCheck/Gen.dyn_o ) src/Test/QuickCheck/Gen.hs:92:12: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 92 | case split r of | ^^^^^ [ 4 of 17] Compiling Test.QuickCheck.Gen.Unsafe ( src/Test/QuickCheck/Gen/Unsafe.hs, dist/build/Test/QuickCheck/Gen/Unsafe.o, dist/build/Test/QuickCheck/Gen/Unsafe.dyn_o ) [ 5 of 17] Compiling Test.QuickCheck.Arbitrary ( src/Test/QuickCheck/Arbitrary.hs, dist/build/Test/QuickCheck/Arbitrary.o, dist/build/Test/QuickCheck/Arbitrary.dyn_o ) [ 6 of 17] Compiling Test.QuickCheck.Poly ( src/Test/QuickCheck/Poly.hs, dist/build/Test/QuickCheck/Poly.o, dist/build/Test/QuickCheck/Poly.dyn_o ) [ 7 of 17] Compiling Test.QuickCheck.Modifiers ( src/Test/QuickCheck/Modifiers.hs, dist/build/Test/QuickCheck/Modifiers.o, dist/build/Test/QuickCheck/Modifiers.dyn_o ) [ 8 of 17] Compiling Test.QuickCheck.Function ( src/Test/QuickCheck/Function.hs, dist/build/Test/QuickCheck/Function.o, dist/build/Test/QuickCheck/Function.dyn_o ) [ 9 of 17] Compiling Test.QuickCheck.Text ( src/Test/QuickCheck/Text.hs, dist/build/Test/QuickCheck/Text.o, dist/build/Test/QuickCheck/Text.dyn_o ) [10 of 17] Compiling Test.QuickCheck.State ( src/Test/QuickCheck/State.hs, dist/build/Test/QuickCheck/State.o, dist/build/Test/QuickCheck/State.dyn_o ) [11 of 17] Compiling Test.QuickCheck.Property ( src/Test/QuickCheck/Property.hs, dist/build/Test/QuickCheck/Property.o, dist/build/Test/QuickCheck/Property.dyn_o ) [12 of 17] Compiling Test.QuickCheck.Test ( src/Test/QuickCheck/Test.hs, dist/build/Test/QuickCheck/Test.o, dist/build/Test/QuickCheck/Test.dyn_o ) src/Test/QuickCheck/Test.hs:501:17: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 501 | (rnd1,rnd2) = split (randomSeed st) | ^^^^^ [13 of 17] Compiling Test.QuickCheck.Monoids ( src/Test/QuickCheck/Monoids.hs, dist/build/Test/QuickCheck/Monoids.o, dist/build/Test/QuickCheck/Monoids.dyn_o ) [14 of 17] Compiling Test.QuickCheck.Monadic ( src/Test/QuickCheck/Monadic.hs, dist/build/Test/QuickCheck/Monadic.o, dist/build/Test/QuickCheck/Monadic.dyn_o ) [15 of 17] Compiling Test.QuickCheck.All ( src/Test/QuickCheck/All.hs, dist/build/Test/QuickCheck/All.o, dist/build/Test/QuickCheck/All.dyn_o ) [16 of 17] Compiling Test.QuickCheck.Features ( src/Test/QuickCheck/Features.hs, dist/build/Test/QuickCheck/Features.o, dist/build/Test/QuickCheck/Features.dyn_o ) [17 of 17] Compiling Test.QuickCheck ( src/Test/QuickCheck.hs, dist/build/Test/QuickCheck.o, dist/build/Test/QuickCheck.dyn_o ) Preprocessing library for QuickCheck-2.16.0.0.. Running Haddock on library for QuickCheck-2.16.0.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 17] Compiling Test.QuickCheck.Exception ( src/Test/QuickCheck/Exception.hs, nothing ) [ 2 of 17] Compiling Test.QuickCheck.Random ( src/Test/QuickCheck/Random.hs, nothing ) src/Test/QuickCheck/Random.hs:50:37: warning: [GHC-68441] [-Wdeprecations] In the use of genShortByteString (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `System.Random.uniformShortByteString`" | 50 | genShortByteString n = wrapQCGen (genShortByteString n) | ^^^^^^^^^^^^^^^^^^ src/Test/QuickCheck/Random.hs:83:16: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 83 | left = fst . split | ^^^^^ src/Test/QuickCheck/Random.hs:84:17: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 84 | right = snd . split | ^^^^^ [ 3 of 17] Compiling Test.QuickCheck.Gen ( src/Test/QuickCheck/Gen.hs, nothing ) src/Test/QuickCheck/Gen.hs:92:12: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 92 | case split r of | ^^^^^ [ 4 of 17] Compiling Test.QuickCheck.Gen.Unsafe ( src/Test/QuickCheck/Gen/Unsafe.hs, nothing ) [ 5 of 17] Compiling Test.QuickCheck.Arbitrary ( src/Test/QuickCheck/Arbitrary.hs, nothing ) [ 6 of 17] Compiling Test.QuickCheck.Poly ( src/Test/QuickCheck/Poly.hs, nothing ) [ 7 of 17] Compiling Test.QuickCheck.Modifiers ( src/Test/QuickCheck/Modifiers.hs, nothing ) [ 8 of 17] Compiling Test.QuickCheck.Function ( src/Test/QuickCheck/Function.hs, nothing ) [ 9 of 17] Compiling Test.QuickCheck.Text ( src/Test/QuickCheck/Text.hs, nothing ) [10 of 17] Compiling Test.QuickCheck.State ( src/Test/QuickCheck/State.hs, nothing ) [11 of 17] Compiling Test.QuickCheck.Property ( src/Test/QuickCheck/Property.hs, nothing ) [12 of 17] Compiling Test.QuickCheck.Test ( src/Test/QuickCheck/Test.hs, nothing ) src/Test/QuickCheck/Test.hs:501:17: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 501 | (rnd1,rnd2) = split (randomSeed st) | ^^^^^ [13 of 17] Compiling Test.QuickCheck.Monoids ( src/Test/QuickCheck/Monoids.hs, nothing ) [14 of 17] Compiling Test.QuickCheck.Monadic ( src/Test/QuickCheck/Monadic.hs, nothing ) [15 of 17] Compiling Test.QuickCheck.All ( src/Test/QuickCheck/All.hs, nothing ) [16 of 17] Compiling Test.QuickCheck.Features ( src/Test/QuickCheck/Features.hs, nothing ) [17 of 17] Compiling Test.QuickCheck ( src/Test/QuickCheck.hs, nothing ) Haddock coverage: 92% ( 35 / 38) in 'Test.QuickCheck.Gen' Missing documentation for: chooseWord64 (src/Test/QuickCheck/Gen.hs:211) chooseInt64 (src/Test/QuickCheck/Gen.hs:220) chooseUpTo (src/Test/QuickCheck/Gen.hs:230) 80% ( 4 / 5) in 'Test.QuickCheck.Gen.Unsafe' Missing documentation for: Capture (src/Test/QuickCheck/Gen/Unsafe.hs:52) Warning: '(:*:)' is ambiguous. It is defined * in GHC.Generics * in GHC.Generics You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Generics Warning: 'Version' is ambiguous. It is defined * in Data.Version * in Data.Version You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Version 88% ( 45 / 51) in 'Test.QuickCheck.Arbitrary' Missing documentation for: arbitrary1 (src/Test/QuickCheck/Arbitrary.hs:298) shrink1 (src/Test/QuickCheck/Arbitrary.hs:301) arbitrary2 (src/Test/QuickCheck/Arbitrary.hs:310) shrink2 (src/Test/QuickCheck/Arbitrary.hs:313) RecursivelyShrink (src/Test/QuickCheck/Arbitrary.hs:325) GSubterms (src/Test/QuickCheck/Arbitrary.hs:356) Warning: 'A' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:29:13 * at src/Test/QuickCheck/Poly.hs:29:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:29:1 Warning: 'B' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:44:13 * at src/Test/QuickCheck/Poly.hs:44:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:44:1 Warning: 'C' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:59:13 * at src/Test/QuickCheck/Poly.hs:59:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:59:1 Warning: 'OrdA' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:77:16 * at src/Test/QuickCheck/Poly.hs:77:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:77:1 Warning: 'OrdB' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:112:16 * at src/Test/QuickCheck/Poly.hs:112:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:112:1 Warning: 'OrdC' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:146:16 * at src/Test/QuickCheck/Poly.hs:146:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:146:1 14% ( 1 / 7) in 'Test.QuickCheck.Poly' Missing documentation for: A (src/Test/QuickCheck/Poly.hs:29) B (src/Test/QuickCheck/Poly.hs:44) C (src/Test/QuickCheck/Poly.hs:59) OrdA (src/Test/QuickCheck/Poly.hs:77) OrdB (src/Test/QuickCheck/Poly.hs:112) OrdC (src/Test/QuickCheck/Poly.hs:146) Warning: 'Blind' is ambiguous. It is defined * at src/Test/QuickCheck/Modifiers.hs:94:19 * at src/Test/QuickCheck/Modifiers.hs:94:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:94:1 Warning: 'NonNegative' is ambiguous. It is defined * at src/Test/QuickCheck/Modifiers.hs:312:25 * at src/Test/QuickCheck/Modifiers.hs:312:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:312:1 Warning: 'Large' is ambiguous. It is defined * at src/Test/QuickCheck/Modifiers.hs:351:19 * at src/Test/QuickCheck/Modifiers.hs:351:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:351:1 95% ( 22 / 23) in 'Test.QuickCheck.Modifiers' Missing documentation for: ShrinkState (src/Test/QuickCheck/Modifiers.hs:487) Warning: 'Fun' is ambiguous. It is defined * at src/Test/QuickCheck/Function.hs:546:16 * at src/Test/QuickCheck/Function.hs:546:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Function.hs:546:1 100% ( 22 / 22) in 'Test.QuickCheck.Function' Warning: 'Discard' is ambiguous. It is defined * at src/Test/QuickCheck/Property.hs:114:16 * at src/Test/QuickCheck/Property.hs:114:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Property.hs:114:1 Warning: 'Confidence' is ambiguous. It is defined * at src/Test/QuickCheck/State.hs:68:3 * at src/Test/QuickCheck/State.hs:67:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/State.hs:67:1 66% ( 2 / 3) in 'Test.QuickCheck.Monoids' Missing documentation for: Module header 83% ( 20 / 24) in 'Test.QuickCheck.Monadic' Missing documentation for: stop (src/Test/QuickCheck/Monadic.hs:163) monadic (src/Test/QuickCheck/Monadic.hs:272) monadic' (src/Test/QuickCheck/Monadic.hs:275) runSTGen (src/Test/QuickCheck/Monadic.hs:314) 100% ( 10 / 10) in 'Test.QuickCheck.All' Warning: 'Fun' is ambiguous. It is defined * at src/Test/QuickCheck/Function.hs:546:16 * at src/Test/QuickCheck/Function.hs:546:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Function.hs:546:1 Warning: 'Blind' is ambiguous. It is defined * at src/Test/QuickCheck/Modifiers.hs:94:19 * at src/Test/QuickCheck/Modifiers.hs:94:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:94:1 Warning: 'NonNegative' is ambiguous. It is defined * at src/Test/QuickCheck/Modifiers.hs:312:25 * at src/Test/QuickCheck/Modifiers.hs:312:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:312:1 96% (203 /211) in 'Test.QuickCheck' Missing documentation for: arbitrary1 (src/Test/QuickCheck/Arbitrary.hs:298) shrink1 (src/Test/QuickCheck/Arbitrary.hs:301) arbitrary2 (src/Test/QuickCheck/Arbitrary.hs:310) shrink2 (src/Test/QuickCheck/Arbitrary.hs:313) ShrinkState (src/Test/QuickCheck/Modifiers.hs:487) Witness (src/Test/QuickCheck/Property.hs:262) coerceWitness (src/Test/QuickCheck/Property.hs:268) castWitness (src/Test/QuickCheck/Property.hs:273) Warning: Test.QuickCheck.Gen: could not find link destinations for: - Test.QuickCheck.Random.QCGen Warning: Test.QuickCheck.Arbitrary: could not find link destinations for: - Test.QuickCheck.Arbitrary.GCoArbitrary - Test.QuickCheck.Arbitrary.GSubtermsIncl - Test.QuickCheck.Arbitrary.gSubterms - Test.QuickCheck.Arbitrary.grecursivelyShrink Warning: Test.QuickCheck.Modifiers: could not find link destinations for: - Test.QuickCheck.Modifiers.InfiniteListInternalData Warning: Test.QuickCheck.Function: could not find link destinations for: - Test.QuickCheck.Function.Shrunk - Test.QuickCheck.Function.GFunction Warning: Test.QuickCheck: could not find link destinations for: - Test.QuickCheck.Exception.AnException - Test.QuickCheck.Random.QCGen - Test.QuickCheck.Arbitrary.GCoArbitrary - Test.QuickCheck.Modifiers.InfiniteListInternalData - Test.QuickCheck.Function.Shrunk - Test.QuickCheck.Function.GFunction - Test.QuickCheck.Property.Result Documentation created: dist/doc/html/QuickCheck/, dist/doc/html/QuickCheck/QuickCheck.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/QuickCheck-2.16.0.0-LRP6EzJXCTlcZEQGfqakB Completed QuickCheck-2.16.0.0 Configuring comonad-5.0.10... Preprocessing library for comonad-5.0.10.. Building library for comonad-5.0.10.. [ 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.10.. Running Haddock on library for comonad-5.0.10.. 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:97) runEnv (src/Control/Comonad/Trans/Env.hs:105) EnvT (src/Control/Comonad/Trans/Env.hs:98) runEnvT (src/Control/Comonad/Trans/Env.hs:108) 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:97) runEnv (src/Control/Comonad/Trans/Env.hs:105) EnvT (src/Control/Comonad/Trans/Env.hs:98) runEnvT (src/Control/Comonad/Trans/Env.hs:108) 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.10-JbeoMPYqL7nARAod004Pet Completed comonad-5.0.10 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-GRlJpoD84tJDYihQjP6sbG 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-JrRnN4r0DhJAK82srIzsBK Completed prettyprinter-ansi-terminal-1.1.3 Configuring fast-logger-3.2.6... Preprocessing library for fast-logger-3.2.6.. Building library for fast-logger-3.2.6.. [ 1 of 13] Compiling System.Log.FastLogger.Imports ( System/Log/FastLogger/Imports.hs, dist/build/System/Log/FastLogger/Imports.o, dist/build/System/Log/FastLogger/Imports.dyn_o ) [ 2 of 13] Compiling System.Log.FastLogger.FileIO ( System/Log/FastLogger/FileIO.hs, dist/build/System/Log/FastLogger/FileIO.o, dist/build/System/Log/FastLogger/FileIO.dyn_o ) [ 3 of 13] Compiling System.Log.FastLogger.LogStr ( System/Log/FastLogger/LogStr.hs, dist/build/System/Log/FastLogger/LogStr.o, dist/build/System/Log/FastLogger/LogStr.dyn_o ) [ 4 of 13] Compiling System.Log.FastLogger.IO ( System/Log/FastLogger/IO.hs, dist/build/System/Log/FastLogger/IO.o, dist/build/System/Log/FastLogger/IO.dyn_o ) [ 5 of 13] Compiling System.Log.FastLogger.Types ( System/Log/FastLogger/Types.hs, dist/build/System/Log/FastLogger/Types.o, dist/build/System/Log/FastLogger/Types.dyn_o ) [ 6 of 13] Compiling System.Log.FastLogger.File ( System/Log/FastLogger/File.hs, dist/build/System/Log/FastLogger/File.o, dist/build/System/Log/FastLogger/File.dyn_o ) [ 7 of 13] Compiling System.Log.FastLogger.Date ( System/Log/FastLogger/Date.hs, dist/build/System/Log/FastLogger/Date.o, dist/build/System/Log/FastLogger/Date.dyn_o ) [ 8 of 13] Compiling System.Log.FastLogger.Write ( System/Log/FastLogger/Write.hs, dist/build/System/Log/FastLogger/Write.o, dist/build/System/Log/FastLogger/Write.dyn_o ) [ 9 of 13] Compiling System.Log.FastLogger.SingleLogger ( System/Log/FastLogger/SingleLogger.hs, dist/build/System/Log/FastLogger/SingleLogger.o, dist/build/System/Log/FastLogger/SingleLogger.dyn_o ) [10 of 13] Compiling System.Log.FastLogger.MultiLogger ( System/Log/FastLogger/MultiLogger.hs, dist/build/System/Log/FastLogger/MultiLogger.o, dist/build/System/Log/FastLogger/MultiLogger.dyn_o ) [11 of 13] Compiling System.Log.FastLogger.LoggerSet ( System/Log/FastLogger/LoggerSet.hs, dist/build/System/Log/FastLogger/LoggerSet.o, dist/build/System/Log/FastLogger/LoggerSet.dyn_o ) [12 of 13] Compiling System.Log.FastLogger ( System/Log/FastLogger.hs, dist/build/System/Log/FastLogger.o, dist/build/System/Log/FastLogger.dyn_o ) [13 of 13] Compiling System.Log.FastLogger.Internal ( System/Log/FastLogger/Internal.hs, dist/build/System/Log/FastLogger/Internal.o, dist/build/System/Log/FastLogger/Internal.dyn_o ) Preprocessing library for fast-logger-3.2.6.. Running Haddock on library for fast-logger-3.2.6.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 13] Compiling System.Log.FastLogger.Imports ( System/Log/FastLogger/Imports.hs, nothing ) [ 2 of 13] Compiling System.Log.FastLogger.FileIO ( System/Log/FastLogger/FileIO.hs, nothing ) [ 3 of 13] Compiling System.Log.FastLogger.LogStr ( System/Log/FastLogger/LogStr.hs, nothing ) [ 4 of 13] Compiling System.Log.FastLogger.IO ( System/Log/FastLogger/IO.hs, nothing ) [ 5 of 13] Compiling System.Log.FastLogger.Types ( System/Log/FastLogger/Types.hs, nothing ) [ 6 of 13] Compiling System.Log.FastLogger.File ( System/Log/FastLogger/File.hs, nothing ) [ 7 of 13] Compiling System.Log.FastLogger.Date ( System/Log/FastLogger/Date.hs, nothing ) [ 8 of 13] Compiling System.Log.FastLogger.Write ( System/Log/FastLogger/Write.hs, nothing ) [ 9 of 13] Compiling System.Log.FastLogger.SingleLogger ( System/Log/FastLogger/SingleLogger.hs, nothing ) [10 of 13] Compiling System.Log.FastLogger.MultiLogger ( System/Log/FastLogger/MultiLogger.hs, nothing ) [11 of 13] Compiling System.Log.FastLogger.LoggerSet ( System/Log/FastLogger/LoggerSet.hs, nothing ) [12 of 13] Compiling System.Log.FastLogger ( System/Log/FastLogger.hs, nothing ) [13 of 13] Compiling System.Log.FastLogger.Internal ( System/Log/FastLogger/Internal.hs, nothing ) Haddock coverage: Warning: 'LogStr' is ambiguous. It is defined * at System/Log/FastLogger/LogStr.hs:50:15 * at System/Log/FastLogger/LogStr.hs:50:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/LogStr.hs:50:1 50% ( 2 / 4) in 'System.Log.FastLogger.Types' Missing documentation for: Module header TimeFormat (System/Log/FastLogger/Types.hs:14) Warning: 'on' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'T' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 83% ( 5 / 6) in 'System.Log.FastLogger.File' Missing documentation for: Module header 100% ( 5 / 5) in 'System.Log.FastLogger.Date' Warning: 'LogStr' is ambiguous. It is defined * at System/Log/FastLogger/LogStr.hs:50:15 * at System/Log/FastLogger/LogStr.hs:50:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/LogStr.hs:50:1 Warning: 'SingleLogger' is ambiguous. It is defined * at System/Log/FastLogger/SingleLogger.hs:24:21 * at System/Log/FastLogger/SingleLogger.hs:24:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/SingleLogger.hs:24:1 Warning: 'MultiLogger' is ambiguous. It is defined * at System/Log/FastLogger/MultiLogger.hs:31:20 * at System/Log/FastLogger/MultiLogger.hs:31:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/MultiLogger.hs:31:1 Warning: 'LoggerSet' is ambiguous. It is defined * at System/Log/FastLogger/LoggerSet.hs:54:18 * at System/Log/FastLogger/LoggerSet.hs:54:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/LoggerSet.hs:54:1 Warning: 'numCapabilties' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 95% ( 20 / 21) in 'System.Log.FastLogger.LoggerSet' Missing documentation for: Module header Warning: 'logStr' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'numCapabilities' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'newTimeFastLogger' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'TimedFileLogSpec' is ambiguous. It is defined * at System/Log/FastLogger/File.hs:49:25 * at System/Log/FastLogger/File.hs:49:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/File.hs:49:1 96% ( 27 / 28) in 'System.Log.FastLogger' Missing documentation for: LogType (System/Log/FastLogger.hs:77) 60% ( 18 / 30) in 'System.Log.FastLogger.Internal' Missing documentation for: Buffer (System/Log/FastLogger/IO.hs:20) getBuffer (System/Log/FastLogger/IO.hs:30) freeBuffer (System/Log/FastLogger/IO.hs:33) toBufIOWith (System/Log/FastLogger/IO.hs:36) FD (System/Log/FastLogger/FileIO.hs:11) closeFD (System/Log/FastLogger/FileIO.hs:14) openFileFD (System/Log/FastLogger/FileIO.hs:17) getStderrFD (System/Log/FastLogger/FileIO.hs:20) getStdoutFD (System/Log/FastLogger/FileIO.hs:23) writeRawBufferPtr2FD (System/Log/FastLogger/FileIO.hs:26) isFDValid (System/Log/FastLogger/FileIO.hs:38) invalidFD (System/Log/FastLogger/FileIO.hs:35) Documentation created: dist/doc/html/fast-logger/, dist/doc/html/fast-logger/fast-logger.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/fast-logger-3.2.6-2cXoRTd721vK4W6iZZ3Ysc Completed fast-logger-3.2.6 Configuring vault-0.3.1.6... Preprocessing library for vault-0.3.1.6.. Building library for vault-0.3.1.6.. [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 ) [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 ) [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 ) [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.6.. Running Haddock on library for vault-0.3.1.6.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling Data.Unique.Really ( src/Data/Unique/Really.hs, nothing ) [2 of 5] Compiling Data.Vault.ST.Lazy ( src/Data/Vault/ST/Lazy.hs, nothing ) [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 ) [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:19:18 * at src/Data/Unique/Really.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 src/Data/Unique/Really.hs:19: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.6-9pj5kCyO5DxL6QzZjlaG9z Completed vault-0.3.1.6 Configuring async-2.2.6... Preprocessing library for async-2.2.6.. Building library for async-2.2.6.. [1 of 4] 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 4] Compiling Control.Concurrent.Async ( Control/Concurrent/Async.hs, dist/build/Control/Concurrent/Async.o, dist/build/Control/Concurrent/Async.dyn_o ) [3 of 4] Compiling Control.Concurrent.Async.Warden ( Control/Concurrent/Async/Warden.hs, dist/build/Control/Concurrent/Async/Warden.o, dist/build/Control/Concurrent/Async/Warden.dyn_o ) [4 of 4] Compiling Control.Concurrent.Stream ( Control/Concurrent/Stream.hs, dist/build/Control/Concurrent/Stream.o, dist/build/Control/Concurrent/Stream.dyn_o ) Preprocessing library for async-2.2.6.. Running Haddock on library for async-2.2.6.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] 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 4] Compiling Control.Concurrent.Async ( Control/Concurrent/Async.hs, nothing ) [3 of 4] Compiling Control.Concurrent.Async.Warden ( Control/Concurrent/Async/Warden.hs, nothing ) [4 of 4] Compiling Control.Concurrent.Stream ( Control/Concurrent/Stream.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:83:16 * at Control/Concurrent/Async/Internal.hs:83:1 You 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:83:1 Warning: 'ExceptionInLinkedThread' is ambiguous. It is defined * at Control/Concurrent/Async/Internal.hs:500:3 * at Control/Concurrent/Async/Internal.hs:499:1 You 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:499:1 Warning: 'AsyncCancelled' is ambiguous. It is defined * at Control/Concurrent/Async/Internal.hs:313:23 * at Control/Concurrent/Async/Internal.hs:313:1 You 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:313: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 85% ( 58 / 68) in 'Control.Concurrent.Async.Internal' Missing documentation for: asyncUsing (Control/Concurrent/Async/Internal.hs:149) withAsyncUsing (Control/Concurrent/Async/Internal.hs:214) ExceptionInLinkedThread (Control/Concurrent/Async/Internal.hs:499) isCancel (Control/Concurrent/Async/Internal.hs:581) concurrently' (Control/Concurrent/Async/Internal.hs:702) catchAll (Control/Concurrent/Async/Internal.hs:930) tryAll (Control/Concurrent/Async/Internal.hs:933) rawForkIO (Control/Concurrent/Async/Internal.hs:942) rawForkOn (Control/Concurrent/Async/Internal.hs:951) debugLabelMe (Control/Concurrent/Async/Internal.hs:959) 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:83:16 * at Control/Concurrent/Async/Internal.hs:83:1 You 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:83:1 Warning: 'Concurrently' is ambiguous. It is defined * at Control/Concurrent/Async/Internal.hs:845:26 * at Control/Concurrent/Async/Internal.hs:845:1 You 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:845: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:499) Warning: 'Warden' is ambiguous. It is defined * at Control/Concurrent/Async/Warden.hs:45:18 * at Control/Concurrent/Async/Warden.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 Control/Concurrent/Async/Warden.hs:45:1 Warning: 'cancel' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'wait' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'link' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 88% ( 8 / 9) in 'Control.Concurrent.Async.Warden' Missing documentation for: WardenException (Control/Concurrent/Async/Warden.hs:84) 100% ( 8 / 8) in 'Control.Concurrent.Stream' 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.6-KZapnXysIPU9fiDzbOdEAJ Completed async-2.2.6 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-82aX0U56tAx6DgzJcAiwXX 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-8HWGUhPgEeP4L6xAWsojxo 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-6C5M1h3PW7NDbw75qyOwpH Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/attoparsec-0.14.4-6C5M1h3PW7NDbw75qyOwpH 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-5TYMwA2DC6yGQlbpnP5uYQ 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-9LLq8a13hYyFz3p4Jo2EfC Completed http-types-0.12.4 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-50hLU8ZKqKK5iNT5epLx7q Completed quickcheck-io-0.2.0 Configuring bifunctors-5.6.3... Preprocessing library for bifunctors-5.6.3.. Building library for bifunctors-5.6.3.. [ 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.3.. Running Haddock on library for bifunctors-5.6.3.. 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.3-3by4OtOsmrV2Ol6Sc3cyDN Completed bifunctors-5.6.3 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-7L8VtGo0SYP4dvpfeWlnXY Completed lifted-base-0.2.3.12 Configuring optparse-applicative-0.19.0.0... Preprocessing library for optparse-applicative-0.19.0.0.. Building library for optparse-applicative-0.19.0.0.. [ 1 of 17] Compiling Options.Applicative.Help.Levenshtein ( src/Options/Applicative/Help/Levenshtein.hs, dist/build/Options/Applicative/Help/Levenshtein.o, dist/build/Options/Applicative/Help/Levenshtein.dyn_o ) src/Options/Applicative/Help/Levenshtein.hs:24:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 24 | oneDiag a b (head uppers) (-1 : head lowers) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:24:39: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 24 | oneDiag a b (head uppers) (-1 : head lowers) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:40:53: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:40:62: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:48:27: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 48 | 1 + min3 (head w) nw (head n) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:48:39: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 48 | 1 + min3 (head w) nw (head n) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:50:35: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 50 | me : doDiag as bs me (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:50:44: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 50 | me : doDiag as bs me (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:52:24: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 52 | firstelt = 1 + head diagBelow | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:53:64: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 53 | thisdiag = firstelt : doDiag a' b' firstelt diagAbove (tail diagBelow) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:59:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 59 | nextDiag = head (tail diags) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:59:26: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 59 | nextDiag = head (tail diags) | ^^^^ [ 2 of 17] Compiling Options.Applicative.Help.Pretty ( src/Options/Applicative/Help/Pretty.hs, dist/build/Options/Applicative/Help/Pretty.o, dist/build/Options/Applicative/Help/Pretty.dyn_o ) [ 3 of 17] Compiling Options.Applicative.Help.Chunk ( src/Options/Applicative/Help/Chunk.hs, dist/build/Options/Applicative/Help/Chunk.o, dist/build/Options/Applicative/Help/Chunk.dyn_o ) [ 4 of 17] Compiling Options.Applicative.Help.Types ( src/Options/Applicative/Help/Types.hs, dist/build/Options/Applicative/Help/Types.o, dist/build/Options/Applicative/Help/Types.dyn_o ) [ 5 of 17] Compiling Options.Applicative.Types ( src/Options/Applicative/Types.hs, dist/build/Options/Applicative/Types.o, dist/build/Options/Applicative/Types.dyn_o ) src/Options/Applicative/Types.hs:59:31: warning: [GHC-61689] [-Wdodgy-imports] Module Data.Semigroup does not export Option. | 59 | import Data.Semigroup hiding (Option) | ^^^^^^ [ 6 of 17] Compiling Options.Applicative.NonEmpty ( src/Options/Applicative/NonEmpty.hs, dist/build/Options/Applicative/NonEmpty.o, dist/build/Options/Applicative/NonEmpty.dyn_o ) [ 7 of 17] Compiling Options.Applicative.Internal ( src/Options/Applicative/Internal.hs, dist/build/Options/Applicative/Internal.o, dist/build/Options/Applicative/Internal.dyn_o ) [ 8 of 17] Compiling Options.Applicative.Common ( src/Options/Applicative/Common.hs, dist/build/Options/Applicative/Common.o, dist/build/Options/Applicative/Common.dyn_o ) [ 9 of 17] Compiling Options.Applicative.Help.Core ( src/Options/Applicative/Help/Core.hs, dist/build/Options/Applicative/Help/Core.o, dist/build/Options/Applicative/Help/Core.dyn_o ) [10 of 17] Compiling Options.Applicative.Help ( src/Options/Applicative/Help.hs, dist/build/Options/Applicative/Help.o, dist/build/Options/Applicative/Help.dyn_o ) [11 of 17] Compiling Options.Applicative.Builder.Internal ( src/Options/Applicative/Builder/Internal.hs, dist/build/Options/Applicative/Builder/Internal.o, dist/build/Options/Applicative/Builder/Internal.dyn_o ) src/Options/Applicative/Builder/Internal.hs:29:31: warning: [GHC-61689] [-Wdodgy-imports] Module Data.Semigroup does not export Option. | 29 | import Data.Semigroup hiding (Option) | ^^^^^^ [12 of 17] Compiling Options.Applicative.Builder.Completer ( src/Options/Applicative/Builder/Completer.hs, dist/build/Options/Applicative/Builder/Completer.o, dist/build/Options/Applicative/Builder/Completer.dyn_o ) [13 of 17] Compiling Options.Applicative.Builder ( src/Options/Applicative/Builder.hs, dist/build/Options/Applicative/Builder.o, dist/build/Options/Applicative/Builder.dyn_o ) [14 of 17] Compiling Options.Applicative.BashCompletion ( src/Options/Applicative/BashCompletion.hs, dist/build/Options/Applicative/BashCompletion.o, dist/build/Options/Applicative/BashCompletion.dyn_o ) src/Options/Applicative/BashCompletion.hs:16:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Foldable is redundant except perhaps to import instances from Data.Foldable To import instances alone, use: import Data.Foldable() | 16 | import Data.Foldable ( asum ) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [15 of 17] Compiling Options.Applicative.Extra ( src/Options/Applicative/Extra.hs, dist/build/Options/Applicative/Extra.o, dist/build/Options/Applicative/Extra.dyn_o ) [16 of 17] Compiling Options.Applicative ( src/Options/Applicative.hs, dist/build/Options/Applicative.o, dist/build/Options/Applicative.dyn_o ) [17 of 17] Compiling Options.Applicative.Arrows ( src/Options/Applicative/Arrows.hs, dist/build/Options/Applicative/Arrows.o, dist/build/Options/Applicative/Arrows.dyn_o ) Preprocessing library for optparse-applicative-0.19.0.0.. Running Haddock on library for optparse-applicative-0.19.0.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 17] Compiling Options.Applicative.Help.Levenshtein ( src/Options/Applicative/Help/Levenshtein.hs, nothing ) src/Options/Applicative/Help/Levenshtein.hs:24:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 24 | oneDiag a b (head uppers) (-1 : head lowers) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:24:39: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 24 | oneDiag a b (head uppers) (-1 : head lowers) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:40:53: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:40:62: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:48:27: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 48 | 1 + min3 (head w) nw (head n) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:48:39: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 48 | 1 + min3 (head w) nw (head n) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:50:35: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 50 | me : doDiag as bs me (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:50:44: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 50 | me : doDiag as bs me (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:52:24: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 52 | firstelt = 1 + head diagBelow | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:53:64: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 53 | thisdiag = firstelt : doDiag a' b' firstelt diagAbove (tail diagBelow) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:59:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 59 | nextDiag = head (tail diags) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:59:26: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 59 | nextDiag = head (tail diags) | ^^^^ [ 2 of 17] Compiling Options.Applicative.Help.Pretty ( src/Options/Applicative/Help/Pretty.hs, nothing ) [ 3 of 17] Compiling Options.Applicative.Help.Chunk ( src/Options/Applicative/Help/Chunk.hs, nothing ) [ 4 of 17] Compiling Options.Applicative.Help.Types ( src/Options/Applicative/Help/Types.hs, nothing ) [ 5 of 17] Compiling Options.Applicative.Types ( src/Options/Applicative/Types.hs, nothing ) src/Options/Applicative/Types.hs:59:31: warning: [GHC-61689] [-Wdodgy-imports] Module Data.Semigroup does not export Option. | 59 | import Data.Semigroup hiding (Option) | ^^^^^^ [ 6 of 17] Compiling Options.Applicative.NonEmpty ( src/Options/Applicative/NonEmpty.hs, nothing ) [ 7 of 17] Compiling Options.Applicative.Internal ( src/Options/Applicative/Internal.hs, nothing ) [ 8 of 17] Compiling Options.Applicative.Common ( src/Options/Applicative/Common.hs, nothing ) [ 9 of 17] Compiling Options.Applicative.Help.Core ( src/Options/Applicative/Help/Core.hs, nothing ) [10 of 17] Compiling Options.Applicative.Help ( src/Options/Applicative/Help.hs, nothing ) [11 of 17] Compiling Options.Applicative.Builder.Internal ( src/Options/Applicative/Builder/Internal.hs, nothing ) src/Options/Applicative/Builder/Internal.hs:29:31: warning: [GHC-61689] [-Wdodgy-imports] Module Data.Semigroup does not export Option. | 29 | import Data.Semigroup hiding (Option) | ^^^^^^ [12 of 17] Compiling Options.Applicative.Builder.Completer ( src/Options/Applicative/Builder/Completer.hs, nothing ) [13 of 17] Compiling Options.Applicative.Builder ( src/Options/Applicative/Builder.hs, nothing ) [14 of 17] Compiling Options.Applicative.BashCompletion ( src/Options/Applicative/BashCompletion.hs, nothing ) src/Options/Applicative/BashCompletion.hs:16:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Foldable is redundant except perhaps to import instances from Data.Foldable To import instances alone, use: import Data.Foldable() | 16 | import Data.Foldable ( asum ) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [15 of 17] Compiling Options.Applicative.Extra ( src/Options/Applicative/Extra.hs, nothing ) [16 of 17] Compiling Options.Applicative ( src/Options/Applicative.hs, nothing ) [17 of 17] Compiling Options.Applicative.Arrows ( src/Options/Applicative/Arrows.hs, nothing ) Haddock coverage: 50% ( 1 / 2) in 'Options.Applicative.Help.Levenshtein' Missing documentation for: Module header 93% ( 85 / 91) in 'Options.Applicative.Help.Pretty' Missing documentation for: Module header Doc (src/Options/Applicative/Help/Pretty.hs:29) SimpleDoc (src/Options/Applicative/Help/Pretty.hs:30) .$. (src/Options/Applicative/Help/Pretty.hs:36) (src/Options/Applicative/Help/Pretty.hs:38) prettyString (src/Options/Applicative/Help/Pretty.hs:113) Warning: 'Chunk' is ambiguous. It is defined * at src/Options/Applicative/Help/Chunk.hs:26:19 * at src/Options/Applicative/Help/Chunk.hs:26:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Help/Chunk.hs:26:1 92% ( 12 / 13) in 'Options.Applicative.Help.Chunk' Missing documentation for: Module header 33% ( 1 / 3) in 'Options.Applicative.Help.Types' Missing documentation for: Module header ParserHelp (src/Options/Applicative/Help/Types.hs:12) Warning: 'OptReader' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:254:5 * at src/Options/Applicative/Types.hs:253:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:253:1 Warning: 'Completer' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:325:21 * at src/Options/Applicative/Types.hs:325:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:325:1 40% ( 18 / 45) in 'Options.Applicative.Types' Missing documentation for: Module header ParseError (src/Options/Applicative/Types.hs:69) OptName (src/Options/Applicative/Types.hs:134) isShortName (src/Options/Applicative/Types.hs:139) isLongName (src/Options/Applicative/Types.hs:143) Backtracking (src/Options/Applicative/Types.hs:105) CReader (src/Options/Applicative/Types.hs:245) ParserM (src/Options/Applicative/Types.hs:288) CompletionResult (src/Options/Applicative/Types.hs:340) ParserFailure (src/Options/Applicative/Types.hs:347) overFailure (src/Options/Applicative/Types.hs:374) Args (src/Options/Applicative/Types.hs:389) ArgumentReachability (src/Options/Applicative/Types.hs:416) OptTree (src/Options/Applicative/Types.hs:426) ParserHelp (src/Options/Applicative/Help/Types.hs:12) SomeParser (src/Options/Applicative/Types.hs:190) IsCmdStart (src/Options/Applicative/Types.hs:78) fromM (src/Options/Applicative/Types.hs:303) oneM (src/Options/Applicative/Types.hs:306) manyM (src/Options/Applicative/Types.hs:309) someM (src/Options/Applicative/Types.hs:316) filterOptional (src/Options/Applicative/Types.hs:434) optVisibility (src/Options/Applicative/Types.hs:447) optMetaVar (src/Options/Applicative/Types.hs:453) optHelp (src/Options/Applicative/Types.hs:450) optShowDefault (src/Options/Applicative/Types.hs:456) optDescMod (src/Options/Applicative/Types.hs:459) 50% ( 1 / 2) in 'Options.Applicative.NonEmpty' Missing documentation for: Module header 4% ( 1 / 22) in 'Options.Applicative.Internal' Missing documentation for: Module header P (src/Options/Applicative/Internal.hs:55) MonadP (src/Options/Applicative/Internal.hs:46) ParseError (src/Options/Applicative/Types.hs:69) uncons (src/Options/Applicative/Internal.hs:100) hoistMaybe (src/Options/Applicative/Internal.hs:91) hoistEither (src/Options/Applicative/Internal.hs:94) runReadM (src/Options/Applicative/Internal.hs:104) withReadM (src/Options/Applicative/Internal.hs:107) runP (src/Options/Applicative/Internal.hs:97) Completion (src/Options/Applicative/Internal.hs:131) runCompletion (src/Options/Applicative/Internal.hs:163) contextNames (src/Options/Applicative/Internal.hs:77) ListT (src/Options/Applicative/Internal.hs:170) takeListT (src/Options/Applicative/Internal.hs:182) runListT (src/Options/Applicative/Internal.hs:186) hoistList (src/Options/Applicative/Internal.hs:271) NondetT (src/Options/Applicative/Internal.hs:226) cut (src/Options/Applicative/Internal.hs:258) (src/Options/Applicative/Internal.hs:252) disamb (src/Options/Applicative/Internal.hs:261) 68% ( 13 / 19) in 'Options.Applicative.Common' Missing documentation for: Module header showOption (src/Options/Applicative/Common.hs:66) runParserInfo (src/Options/Applicative/Common.hs:240) runParserFully (src/Options/Applicative/Common.hs:243) runParserStep (src/Options/Applicative/Common.hs:230) optionNames (src/Options/Applicative/Common.hs:70) 38% ( 7 / 18) in 'Options.Applicative.Help.Core' Missing documentation for: Module header ParserHelp (src/Options/Applicative/Help/Types.hs:12) errorHelp (src/Options/Applicative/Help/Core.hs:362) headerHelp (src/Options/Applicative/Help/Core.hs:365) suggestionsHelp (src/Options/Applicative/Help/Core.hs:368) usageHelp (src/Options/Applicative/Help/Core.hs:374) descriptionHelp (src/Options/Applicative/Help/Core.hs:377) bodyHelp (src/Options/Applicative/Help/Core.hs:380) footerHelp (src/Options/Applicative/Help/Core.hs:383) globalsHelp (src/Options/Applicative/Help/Core.hs:371) parserGlobals (src/Options/Applicative/Help/Core.hs:405) 91% ( 11 / 12) in 'Options.Applicative.Help' Missing documentation for: Module header Warning: 'OptionFields' is ambiguous. It is defined * at src/Options/Applicative/Builder/Internal.hs:35:23 * at src/Options/Applicative/Builder/Internal.hs:35:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Builder/Internal.hs:35:1 Warning: 'FlagFields' is ambiguous. It is defined * at src/Options/Applicative/Builder/Internal.hs:40:21 * at src/Options/Applicative/Builder/Internal.hs:40:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Builder/Internal.hs:40:1 23% ( 5 / 21) in 'Options.Applicative.Builder.Internal' Missing documentation for: Module header HasName (src/Options/Applicative/Builder/Internal.hs:51) HasCompleter (src/Options/Applicative/Builder/Internal.hs:60) HasValue (src/Options/Applicative/Builder/Internal.hs:69) HasMetavar (src/Options/Applicative/Builder/Internal.hs:77) OptionFields (src/Options/Applicative/Builder/Internal.hs:35) FlagFields (src/Options/Applicative/Builder/Internal.hs:40) CommandFields (src/Options/Applicative/Builder/Internal.hs:44) ArgumentFields (src/Options/Applicative/Builder/Internal.hs:48) DefaultProp (src/Options/Applicative/Builder/Internal.hs:88) optionMod (src/Options/Applicative/Builder/Internal.hs:131) fieldMod (src/Options/Applicative/Builder/Internal.hs:134) mkCommand (src/Options/Applicative/Builder/Internal.hs:158) mkParser (src/Options/Applicative/Builder/Internal.hs:167) mkOption (src/Options/Applicative/Builder/Internal.hs:177) mkProps (src/Options/Applicative/Builder/Internal.hs:182) Warning: 'Completer' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:325:21 * at src/Options/Applicative/Types.hs:325:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:325:1 85% ( 6 / 7) in 'Options.Applicative.Builder.Completer' Missing documentation for: Module header Warning: 'ParserInfo' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:90:21 * at src/Options/Applicative/Types.hs:90:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:90:1 Warning: 'Option' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:185:17 * at src/Options/Applicative/Types.hs:185:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:185:1 Warning: 'OptProperties' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:159:22 * at src/Options/Applicative/Types.hs:159:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:159:1 Warning: 'ParserPrefs' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:112:20 * at src/Options/Applicative/Types.hs:112:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:112:1 87% ( 74 / 85) in 'Options.Applicative.Builder' Missing documentation for: Module header ParseError (src/Options/Applicative/Types.hs:69) PrefsMod (src/Options/Applicative/Builder.hs:523) OptionFields (src/Options/Applicative/Builder/Internal.hs:35) FlagFields (src/Options/Applicative/Builder/Internal.hs:40) ArgumentFields (src/Options/Applicative/Builder/Internal.hs:48) CommandFields (src/Options/Applicative/Builder/Internal.hs:44) HasName (src/Options/Applicative/Builder/Internal.hs:51) HasCompleter (src/Options/Applicative/Builder/Internal.hs:60) HasValue (src/Options/Applicative/Builder/Internal.hs:69) HasMetavar (src/Options/Applicative/Builder/Internal.hs:77) 80% ( 4 / 5) in 'Options.Applicative.BashCompletion' Missing documentation for: bashCompletionParser (src/Options/Applicative/BashCompletion.hs:39) Warning: 'ParserInfo' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:90:21 * at src/Options/Applicative/Types.hs:90:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:90:1 Warning: 'ParserFailure' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:347:27 * at src/Options/Applicative/Types.hs:347:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:347:1 Warning: 'Context' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:195:16 * at src/Options/Applicative/Types.hs:195:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:195:1 73% ( 14 / 19) in 'Options.Applicative.Extra' Missing documentation for: Module header renderFailure (src/Options/Applicative/Extra.hs:345) ParserFailure (src/Options/Applicative/Types.hs:347) overFailure (src/Options/Applicative/Types.hs:374) CompletionResult (src/Options/Applicative/Types.hs:340) Warning: 'ParserInfo' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:90:21 * at src/Options/Applicative/Types.hs:90:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:90:1 Warning: 'ParserPrefs' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:112:20 * at src/Options/Applicative/Types.hs:112:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:112:1 Warning: 'Completer' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:325:21 * at src/Options/Applicative/Types.hs:325:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:325:1 86% (107 /123) in 'Options.Applicative' Missing documentation for: Module header OptionFields (src/Options/Applicative/Builder/Internal.hs:35) FlagFields (src/Options/Applicative/Builder/Internal.hs:40) ArgumentFields (src/Options/Applicative/Builder/Internal.hs:48) CommandFields (src/Options/Applicative/Builder/Internal.hs:44) HasName (src/Options/Applicative/Builder/Internal.hs:51) HasCompleter (src/Options/Applicative/Builder/Internal.hs:60) HasValue (src/Options/Applicative/Builder/Internal.hs:69) HasMetavar (src/Options/Applicative/Builder/Internal.hs:77) renderFailure (src/Options/Applicative/Extra.hs:345) overFailure (src/Options/Applicative/Types.hs:374) PrefsMod (src/Options/Applicative/Builder.hs:523) ParseError (src/Options/Applicative/Types.hs:69) ParserHelp (src/Options/Applicative/Help/Types.hs:12) ParserFailure (src/Options/Applicative/Types.hs:347) CompletionResult (src/Options/Applicative/Types.hs:340) Warning: 'A' is ambiguous. It is defined * at src/Options/Applicative/Arrows.hs:47:19 * at src/Options/Applicative/Arrows.hs:47:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Arrows.hs:47:1 100% ( 6 / 6) in 'Options.Applicative.Arrows' Warning: Options.Applicative.Help.Pretty: could not find link destinations for: - Prettyprinter.Internal.Rep_SimpleDocStream Documentation created: dist/doc/html/optparse-applicative/, dist/doc/html/optparse-applicative/optparse-applicative.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/optparse-applicative-0.19.0.0-z4E9iOJQLjEsdPh1hQhKC Completed optparse-applicative-0.19.0.0 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-9Txwxke1yUyH3v28xzOM7u 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-9xIVIbxtPbx72jzlLtOd5O Completed typed-process-0.2.13.0 Configuring streaming-commons-0.2.3.1... Preprocessing library for streaming-commons-0.2.3.1.. Building library for streaming-commons-0.2.3.1.. [ 1 of 11] Compiling Data.Streaming.ByteString.Builder.Buffer ( Data/Streaming/ByteString/Builder/Buffer.hs, dist/build/Data/Streaming/ByteString/Builder/Buffer.o, dist/build/Data/Streaming/ByteString/Builder/Buffer.dyn_o ) [ 2 of 11] Compiling Data.Streaming.ByteString.Builder ( Data/Streaming/ByteString/Builder.hs, dist/build/Data/Streaming/ByteString/Builder.o, dist/build/Data/Streaming/ByteString/Builder.dyn_o ) [ 3 of 11] Compiling Data.Streaming.FileRead ( Data/Streaming/FileRead.hs, dist/build/Data/Streaming/FileRead.o, dist/build/Data/Streaming/FileRead.dyn_o ) [ 4 of 11] Compiling Data.Streaming.Filesystem ( Data/Streaming/Filesystem.hs, dist/build/Data/Streaming/Filesystem.o, dist/build/Data/Streaming/Filesystem.dyn_o ) [ 5 of 11] Compiling Data.Streaming.Network.Internal ( Data/Streaming/Network/Internal.hs, dist/build/Data/Streaming/Network/Internal.o, dist/build/Data/Streaming/Network/Internal.dyn_o ) [ 6 of 11] Compiling Data.Streaming.Network ( Data/Streaming/Network.hs, dist/build/Data/Streaming/Network.o, dist/build/Data/Streaming/Network.dyn_o ) [ 7 of 11] Compiling Data.Streaming.Process.Internal ( Data/Streaming/Process/Internal.hs, dist/build/Data/Streaming/Process/Internal.o, dist/build/Data/Streaming/Process/Internal.dyn_o ) [ 8 of 11] Compiling Data.Streaming.Process ( Data/Streaming/Process.hs, dist/build/Data/Streaming/Process.o, dist/build/Data/Streaming/Process.dyn_o ) [ 9 of 11] Compiling Data.Streaming.Text ( Data/Streaming/Text.hs, dist/build/Data/Streaming/Text.o, dist/build/Data/Streaming/Text.dyn_o ) [10 of 11] Compiling Data.Streaming.Zlib.Lowlevel ( Data/Streaming/Zlib/Lowlevel.hs, dist/build/Data/Streaming/Zlib/Lowlevel.o, dist/build/Data/Streaming/Zlib/Lowlevel.dyn_o ) Data/Streaming/Zlib/Lowlevel.hs:105:1: warning: [GHC-53633] [-Woverlapping-patterns] Pattern match is redundant In an equation for wbToInt: wbToInt _ = ... | 105 | wbToInt _ = 15 | ^^^^^^^^^^^^^^ [11 of 11] Compiling Data.Streaming.Zlib ( Data/Streaming/Zlib.hs, dist/build/Data/Streaming/Zlib.o, dist/build/Data/Streaming/Zlib.dyn_o ) Preprocessing library for streaming-commons-0.2.3.1.. Running Haddock on library for streaming-commons-0.2.3.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 11] Compiling Data.Streaming.ByteString.Builder.Buffer ( Data/Streaming/ByteString/Builder/Buffer.hs, nothing ) [ 2 of 11] Compiling Data.Streaming.ByteString.Builder ( Data/Streaming/ByteString/Builder.hs, nothing ) [ 3 of 11] Compiling Data.Streaming.FileRead ( Data/Streaming/FileRead.hs, nothing ) [ 4 of 11] Compiling Data.Streaming.Filesystem ( Data/Streaming/Filesystem.hs, nothing ) [ 5 of 11] Compiling Data.Streaming.Network.Internal ( Data/Streaming/Network/Internal.hs, nothing ) [ 6 of 11] Compiling Data.Streaming.Network ( Data/Streaming/Network.hs, nothing ) [ 7 of 11] Compiling Data.Streaming.Process.Internal ( Data/Streaming/Process/Internal.hs, nothing ) [ 8 of 11] Compiling Data.Streaming.Process ( Data/Streaming/Process.hs, nothing ) [ 9 of 11] Compiling Data.Streaming.Text ( Data/Streaming/Text.hs, nothing ) [10 of 11] Compiling Data.Streaming.Zlib.Lowlevel ( Data/Streaming/Zlib/Lowlevel.hs, nothing ) [11 of 11] Compiling Data.Streaming.Zlib ( Data/Streaming/Zlib.hs, nothing ) Haddock coverage: Warning: 'Builder' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 95% ( 19 / 20) in 'Data.Streaming.ByteString.Builder.Buffer' Missing documentation for: defaultStrategy (Data/Streaming/ByteString/Builder/Buffer.hs:199) Warning: 'toLazyByteStringWith' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 82% ( 23 / 28) in 'Data.Streaming.ByteString.Builder' Missing documentation for: BuilderRecv (Data/Streaming/ByteString/Builder.hs:75) BuilderFinish (Data/Streaming/ByteString/Builder.hs:77) newBuilderRecv (Data/Streaming/ByteString/Builder.hs:80) newByteStringBuilderRecv (Data/Streaming/ByteString/Builder.hs:84) defaultStrategy (Data/Streaming/ByteString/Builder/Buffer.hs:199) 20% ( 1 / 5) in 'Data.Streaming.FileRead' Missing documentation for: ReadHandle (Data/Streaming/FileRead.hs:26) openFile (Data/Streaming/FileRead.hs:29) closeFile (Data/Streaming/FileRead.hs:32) readChunk (Data/Streaming/FileRead.hs:35) 42% ( 3 / 7) in 'Data.Streaming.Filesystem' Missing documentation for: DirStream readDirStream (Data/Streaming/Filesystem.hs:67) FileType (Data/Streaming/Filesystem.hs:94) getFileType (Data/Streaming/Filesystem.hs:76) 88% ( 8 / 9) in 'Data.Streaming.Network.Internal' Missing documentation for: Module header Warning: 'maxListenQueue' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 68% ( 52 / 76) in 'Data.Streaming.Network' Missing documentation for: Module header message (Data/Streaming/Network.hs:453) HasPort (Data/Streaming/Network.hs:455) HasAfterBind (Data/Streaming/Network.hs:505) HasReadWrite (Data/Streaming/Network.hs:619) HasPath (Data/Streaming/Network.hs:486) setPort (Data/Streaming/Network.hs:466) setHost (Data/Streaming/Network.hs:469) setAfterBind (Data/Streaming/Network.hs:516) setNeedLocalAddr (Data/Streaming/Network.hs:500) setPath (Data/Streaming/Network.hs:497) getPort (Data/Streaming/Network.hs:463) getHost (Data/Streaming/Network.hs:472) getAfterBind (Data/Streaming/Network.hs:513) getNeedLocalAddr (Data/Streaming/Network.hs:503) getPath (Data/Streaming/Network.hs:494) appRead (Data/Streaming/Network.hs:630) appWrite (Data/Streaming/Network.hs:633) appSockAddr (Data/Streaming/Network.hs:604) appLocalAddr (Data/Streaming/Network.hs:601) unassignedPorts (Data/Streaming/Network.hs:213) safeRecv (Data/Streaming/Network.hs:319) ConnectionHandle (Data/Streaming/Network.hs:546) runTCPServerWithHandle (Data/Streaming/Network.hs:549) 75% ( 3 / 4) in 'Data.Streaming.Process.Internal' Missing documentation for: Module header Warning: 'UseProvidedHandle' is ambiguous. It is defined * at Data/Streaming/Process.hs:73:26 * at Data/Streaming/Process.hs:73:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Streaming/Process.hs:73:1 Warning: 'ProcessExitedUnsuccessfully' is ambiguous. It is defined * at Data/Streaming/Process.hs:196:36 * at Data/Streaming/Process.hs:196:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Streaming/Process.hs:196:1 100% ( 24 / 24) in 'Data.Streaming.Process' 90% ( 9 / 10) in 'Data.Streaming.Text' Missing documentation for: DecodeResult (Data/Streaming/Text.hs:91) 0% ( 0 / 21) in 'Data.Streaming.Zlib.Lowlevel' Missing documentation for: Module header ZStreamStruct (Data/Streaming/Zlib/Lowlevel.hs:31) ZStream' (Data/Streaming/Zlib/Lowlevel.hs:32) zstreamNew (Data/Streaming/Zlib/Lowlevel.hs:42) Strategy (Data/Streaming/Zlib/Lowlevel.hs:34) deflateInit2 (Data/Streaming/Zlib/Lowlevel.hs:50) inflateInit2 (Data/Streaming/Zlib/Lowlevel.hs:59) c_free_z_stream_inflate (Data/Streaming/Zlib/Lowlevel.hs:61) c_free_z_stream_deflate (Data/Streaming/Zlib/Lowlevel.hs:64) c_set_avail_in (Data/Streaming/Zlib/Lowlevel.hs:67) c_set_avail_out (Data/Streaming/Zlib/Lowlevel.hs:70) c_get_avail_out (Data/Streaming/Zlib/Lowlevel.hs:73) c_get_avail_in (Data/Streaming/Zlib/Lowlevel.hs:76) c_get_next_in (Data/Streaming/Zlib/Lowlevel.hs:79) c_call_inflate_noflush (Data/Streaming/Zlib/Lowlevel.hs:82) c_call_deflate_noflush (Data/Streaming/Zlib/Lowlevel.hs:85) c_call_deflate_finish (Data/Streaming/Zlib/Lowlevel.hs:88) c_call_deflate_flush (Data/Streaming/Zlib/Lowlevel.hs:91) c_call_deflate_full_flush (Data/Streaming/Zlib/Lowlevel.hs:94) c_call_deflate_set_dictionary (Data/Streaming/Zlib/Lowlevel.hs:97) c_call_inflate_set_dictionary (Data/Streaming/Zlib/Lowlevel.hs:100) Warning: 'WindowBits' is ambiguous. It is defined * in Codec.Compression.Zlib.Stream * in Codec.Compression.Zlib.Stream You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Codec.Compression.Zlib.Stream Warning: 'Inflate' is ambiguous. It is defined * at Data/Streaming/Zlib.hs:64:16 * at Data/Streaming/Zlib.hs:64:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Streaming/Zlib.hs:64:1 Warning: 'Deflate' is ambiguous. It is defined * at Data/Streaming/Zlib.hs:72:19 * at Data/Streaming/Zlib.hs:72:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Streaming/Zlib.hs:72:1 95% ( 23 / 24) in 'Data.Streaming.Zlib' Missing documentation for: PopperRes (Data/Streaming/Zlib.hs:218) Warning: Data.Streaming.Zlib: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_WindowBits Documentation created: dist/doc/html/streaming-commons/, dist/doc/html/streaming-commons/streaming-commons.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/streaming-commons-0.2.3.1-JZrIqFqONMUBpRli5YujES Completed streaming-commons-0.2.3.1 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-8xzuXHi0pAN8Q4ptMuiToa Completed replace-megaparsec-1.5.0.1 Configuring http-api-data-0.7... Preprocessing library for http-api-data-0.7.. Building library for http-api-data-0.7.. [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 ) [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:37: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() | 37 | import Data.Semigroup (Semigroup (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Web/Internal/FormUrlEncoded.hs:55: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() | 55 | import Numeric.Natural (Natural) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Web/Internal/FormUrlEncoded.hs:340: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. | 340 | class GToForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:340: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. | 340 | class GToForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:495: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. | 495 | class GFromForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:495: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. | 495 | 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.7.. Running Haddock on library for http-api-data-0.7.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling Web.Internal.HttpApiData ( src/Web/Internal/HttpApiData.hs, nothing ) [2 of 4] Compiling Web.Internal.FormUrlEncoded ( src/Web/Internal/FormUrlEncoded.hs, nothing ) src/Web/Internal/FormUrlEncoded.hs:37: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() | 37 | import Data.Semigroup (Semigroup (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Web/Internal/FormUrlEncoded.hs:55: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() | 55 | import Numeric.Natural (Natural) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Web/Internal/FormUrlEncoded.hs:340: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. | 340 | class GToForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:340: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. | 340 | class GToForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:495: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. | 495 | class GFromForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:495: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. | 495 | 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:900) runFT (src/Web/Internal/HttpApiData.hs:903) Warning: 'FormOptions' is ambiguous. It is defined * at src/Web/Internal/FormUrlEncoded.hs:777:20 * at src/Web/Internal/FormUrlEncoded.hs:777:1 You may 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:777: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:205:16 * at src/Web/Internal/FormUrlEncoded.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 src/Web/Internal/FormUrlEncoded.hs:205:1 Warning: 'Map' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 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:293) NotSupported (src/Web/Internal/FormUrlEncoded.hs:295) GToForm (src/Web/Internal/FormUrlEncoded.hs:340) GFromForm (src/Web/Internal/FormUrlEncoded.hs:495) sortOn (src/Web/Internal/FormUrlEncoded.hs:795) Warning: 'Form' is ambiguous. It is defined * at src/Web/Internal/FormUrlEncoded.hs:205:16 * at src/Web/Internal/FormUrlEncoded.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 src/Web/Internal/FormUrlEncoded.hs:205: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.7-4xSxnVFLkrS2dEX1lGPfHa Completed http-api-data-0.7 Configuring hspec-core-2.11.16... Preprocessing library for hspec-core-2.11.16.. Building library for hspec-core-2.11.16.. [ 1 of 50] Compiling Control.Concurrent.Async ( vendor/async-2.2.5/Control/Concurrent/Async.hs, dist/build/Control/Concurrent/Async.o, dist/build/Control/Concurrent/Async.dyn_o ) [ 2 of 50] Compiling Data.Algorithm.Diff ( vendor/Data/Algorithm/Diff.hs, dist/build/Data/Algorithm/Diff.o, dist/build/Data/Algorithm/Diff.dyn_o ) [ 3 of 50] 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 50] 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 50] 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 50] 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 50] Compiling GetOpt.Declarative.Types ( src/GetOpt/Declarative/Types.hs, dist/build/GetOpt/Declarative/Types.o, dist/build/GetOpt/Declarative/Types.dyn_o ) [ 8 of 50] Compiling GetOpt.Declarative.Environment ( src/GetOpt/Declarative/Environment.hs, dist/build/GetOpt/Declarative/Environment.o, dist/build/GetOpt/Declarative/Environment.dyn_o ) [ 9 of 50] 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 ) [10 of 50] 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 ) [11 of 50] 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 ) [12 of 50] 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 ) [13 of 50] 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 ) [14 of 50] 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 ) [15 of 50] 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 ) [16 of 50] 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 ) [17 of 50] 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 ) [18 of 50] 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 ) [19 of 50] 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 ) [20 of 50] 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 ) [21 of 50] 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 ) [22 of 50] 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 ) [23 of 50] 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 ) [24 of 50] 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 ) [25 of 50] 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 ) [26 of 50] 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 ) [27 of 50] 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 ) [28 of 50] 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 ) [29 of 50] 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 ) [30 of 50] 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 ) [31 of 50] Compiling GetOpt.Declarative.Util ( src/GetOpt/Declarative/Util.hs, dist/build/GetOpt/Declarative/Util.o, dist/build/GetOpt/Declarative/Util.dyn_o ) [32 of 50] Compiling GetOpt.Declarative.Interpret ( src/GetOpt/Declarative/Interpret.hs, dist/build/GetOpt/Declarative/Interpret.o, dist/build/GetOpt/Declarative/Interpret.dyn_o ) [33 of 50] Compiling GetOpt.Declarative ( src/GetOpt/Declarative.hs, dist/build/GetOpt/Declarative.o, dist/build/GetOpt/Declarative.dyn_o ) [34 of 50] 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 ) [35 of 50] 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 ) [36 of 50] 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 ) [37 of 50] 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 ) [38 of 50] 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 ) [39 of 50] 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 ) [40 of 50] 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 ) [41 of 50] 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 ) [42 of 50] 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 ) [43 of 50] 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 ) [44 of 50] 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 ) [45 of 50] 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 ) [46 of 50] 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 ) [47 of 50] 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 ) [48 of 50] 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 ) [49 of 50] 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 ) [50 of 50] 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.16.. Running Haddock on library for hspec-core-2.11.16.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 50] Compiling Control.Concurrent.Async ( vendor/async-2.2.5/Control/Concurrent/Async.hs, nothing ) [ 2 of 50] Compiling Data.Algorithm.Diff ( vendor/Data/Algorithm/Diff.hs, nothing ) [ 3 of 50] Compiling Paths_hspec_core ( dist/build/autogen/Paths_hspec_core.hs, nothing ) [ 4 of 50] Compiling Test.Hspec.Core.Compat ( src/Test/Hspec/Core/Compat.hs, nothing ) [ 5 of 50] Compiling Test.Hspec.Core.Clock ( src/Test/Hspec/Core/Clock.hs, nothing ) [ 6 of 50] Compiling Test.Hspec.Core.Annotations ( src/Test/Hspec/Core/Annotations.hs, nothing ) [ 7 of 50] Compiling GetOpt.Declarative.Types ( src/GetOpt/Declarative/Types.hs, nothing ) [ 8 of 50] Compiling GetOpt.Declarative.Environment ( src/GetOpt/Declarative/Environment.hs, nothing ) [ 9 of 50] Compiling Test.Hspec.Core.Example.Location ( src/Test/Hspec/Core/Example/Location.hs, nothing ) [10 of 50] Compiling Test.Hspec.Core.Formatters.Diff ( src/Test/Hspec/Core/Formatters/Diff.hs, nothing ) [11 of 50] Compiling Test.Hspec.Core.Formatters.Pretty.Parser ( src/Test/Hspec/Core/Formatters/Pretty/Parser.hs, nothing ) [12 of 50] Compiling Test.Hspec.Core.Formatters.Pretty.Unicode ( src/Test/Hspec/Core/Formatters/Pretty/Unicode.hs, nothing ) [13 of 50] Compiling Test.Hspec.Core.Formatters.Pretty ( src/Test/Hspec/Core/Formatters/Pretty.hs, nothing ) [14 of 50] Compiling Test.Hspec.Core.Formatters.V1.Free ( src/Test/Hspec/Core/Formatters/V1/Free.hs, nothing ) [15 of 50] Compiling Test.Hspec.Core.Runner.JobQueue ( src/Test/Hspec/Core/Runner/JobQueue.hs, nothing ) [16 of 50] Compiling Test.Hspec.Core.Timer ( src/Test/Hspec/Core/Timer.hs, nothing ) [17 of 50] Compiling Test.Hspec.Core.Util ( src/Test/Hspec/Core/Util.hs, nothing ) [18 of 50] Compiling Test.Hspec.Core.QuickCheck.Util ( src/Test/Hspec/Core/QuickCheck/Util.hs, nothing ) [19 of 50] Compiling Test.Hspec.Core.Example ( src/Test/Hspec/Core/Example.hs, nothing ) [20 of 50] Compiling Test.Hspec.Core.Tree ( src/Test/Hspec/Core/Tree.hs, nothing ) [21 of 50] Compiling Test.Hspec.Core.Shuffle ( src/Test/Hspec/Core/Shuffle.hs, nothing ) [22 of 50] Compiling Test.Hspec.Core.Format ( src/Test/Hspec/Core/Format.hs, nothing ) [23 of 50] Compiling Test.Hspec.Core.Runner.Result ( src/Test/Hspec/Core/Runner/Result.hs, nothing ) [24 of 50] Compiling Test.Hspec.Core.Formatters.V1.Monad ( src/Test/Hspec/Core/Formatters/V1/Monad.hs, nothing ) [25 of 50] Compiling Test.Hspec.Core.Formatters.Internal ( src/Test/Hspec/Core/Formatters/Internal.hs, nothing ) [26 of 50] Compiling Test.Hspec.Core.Formatters.V2 ( src/Test/Hspec/Core/Formatters/V2.hs, nothing ) [27 of 50] Compiling Test.Hspec.Core.Runner.PrintSlowSpecItems ( src/Test/Hspec/Core/Runner/PrintSlowSpecItems.hs, nothing ) [28 of 50] Compiling Test.Hspec.Core.Formatters.V1.Internal ( src/Test/Hspec/Core/Formatters/V1/Internal.hs, nothing ) [29 of 50] Compiling Test.Hspec.Core.Formatters.V1 ( src/Test/Hspec/Core/Formatters/V1.hs, nothing ) [30 of 50] Compiling Test.Hspec.Core.Formatters ( src/Test/Hspec/Core/Formatters.hs, nothing ) [31 of 50] Compiling GetOpt.Declarative.Util ( src/GetOpt/Declarative/Util.hs, nothing ) [32 of 50] Compiling GetOpt.Declarative.Interpret ( src/GetOpt/Declarative/Interpret.hs, nothing ) [33 of 50] Compiling GetOpt.Declarative ( src/GetOpt/Declarative.hs, nothing ) [34 of 50] Compiling Test.Hspec.Core.Config.Definition ( src/Test/Hspec/Core/Config/Definition.hs, nothing ) [35 of 50] Compiling Test.Hspec.Core.Spec.Monad ( src/Test/Hspec/Core/Spec/Monad.hs, nothing ) [36 of 50] Compiling Test.Hspec.Core.QuickCheck ( src/Test/Hspec/Core/QuickCheck.hs, nothing ) [37 of 50] Compiling Test.Hspec.Core.Hooks ( src/Test/Hspec/Core/Hooks.hs, nothing ) [38 of 50] Compiling Test.Hspec.Core.Spec ( src/Test/Hspec/Core/Spec.hs, nothing ) [39 of 50] Compiling Test.Hspec.Core.Runner.Eval ( src/Test/Hspec/Core/Runner/Eval.hs, nothing ) [40 of 50] Compiling Test.Hspec.Core.Extension.Tree ( src/Test/Hspec/Core/Extension/Tree.hs, nothing ) [41 of 50] Compiling Test.Hspec.Core.Extension.Spec ( src/Test/Hspec/Core/Extension/Spec.hs, nothing ) [42 of 50] Compiling Test.Hspec.Core.Extension.Item ( src/Test/Hspec/Core/Extension/Item.hs, nothing ) [43 of 50] Compiling Test.Hspec.Core.FailureReport ( src/Test/Hspec/Core/FailureReport.hs, nothing ) [44 of 50] Compiling Test.Hspec.Core.Extension.Config.Type ( src/Test/Hspec/Core/Extension/Config/Type.hs, nothing ) [45 of 50] Compiling Test.Hspec.Core.Extension.Option ( src/Test/Hspec/Core/Extension/Option.hs, nothing ) [46 of 50] Compiling Test.Hspec.Core.Extension.Config ( src/Test/Hspec/Core/Extension/Config.hs, nothing ) [47 of 50] Compiling Test.Hspec.Core.Extension ( src/Test/Hspec/Core/Extension.hs, nothing ) [48 of 50] Compiling Test.Hspec.Core.Config.Options ( src/Test/Hspec/Core/Config/Options.hs, nothing ) [49 of 50] Compiling Test.Hspec.Core.Config ( src/Test/Hspec/Core/Config.hs, nothing ) [50 of 50] Compiling Test.Hspec.Core.Runner ( src/Test/Hspec/Core/Runner.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 vendor/async-2.2.5/Control/Concurrent/Async.hs:68:16 * at vendor/async-2.2.5/Control/Concurrent/Async.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 vendor/async-2.2.5/Control/Concurrent/Async.hs:68:1 Warning: 'ExceptionInLinkedThread' is ambiguous. It is defined * at vendor/async-2.2.5/Control/Concurrent/Async.hs:457:3 * at vendor/async-2.2.5/Control/Concurrent/Async.hs:456:1 You 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/async-2.2.5/Control/Concurrent/Async.hs:456:1 Warning: 'AsyncCancelled' is ambiguous. It is defined * at vendor/async-2.2.5/Control/Concurrent/Async.hs:270:23 * at vendor/async-2.2.5/Control/Concurrent/Async.hs:270:1 You 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/async-2.2.5/Control/Concurrent/Async.hs:270:1 Warning: 'IO' is ambiguous. It is defined * in GHC.Types * in GHC.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Types Warning: Test.Hspec.Core.Compat: Could not find documentation for exported module: Test.Hspec.Core.Compat Warning: 'n' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 15 / 15) in 'Test.Hspec.Core.Util' Warning: 'Result' is ambiguous. It is defined * at src/Test/Hspec/Core/Example.hs:139:15 * at src/Test/Hspec/Core/Example.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/Test/Hspec/Core/Example.hs:139:1 38% ( 5 / 13) in 'Test.Hspec.Core.Format' Missing documentation for: Format (src/Test/Hspec/Core/Format.hs:38) defaultFormatConfig (src/Test/Hspec/Core/Format.hs:85) Event (src/Test/Hspec/Core/Format.hs:53) Seconds (src/Test/Hspec/Core/Clock.hs:30) Item (src/Test/Hspec/Core/Format.hs:40) Result (src/Test/Hspec/Core/Format.hs:47) FailureReason (src/Test/Hspec/Core/Example.hs:150) monadic (src/Test/Hspec/Core/Format.hs:106) Warning: 'Summary' is ambiguous. It is defined * at src/Test/Hspec/Core/Runner/Result.hs:82:16 * at src/Test/Hspec/Core/Runner/Result.hs:82:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Runner/Result.hs:82:1 73% ( 42 / 57) in 'Test.Hspec.Core.Formatters.V2' Missing documentation for: silent (src/Test/Hspec/Core/Formatters/V2.hs:160) checks (src/Test/Hspec/Core/Formatters/V2.hs:171) specdoc (src/Test/Hspec/Core/Formatters/V2.hs:213) progress (src/Test/Hspec/Core/Formatters/V2.hs:259) failed_examples (src/Test/Hspec/Core/Formatters/V2.hs:269) Formatter (src/Test/Hspec/Core/Formatters/Internal.hs:73) Item (src/Test/Hspec/Core/Format.hs:40) Result (src/Test/Hspec/Core/Format.hs:47) FailureReason (src/Test/Hspec/Core/Example.hs:150) 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:30) writeTransient (src/Test/Hspec/Core/Formatters/Internal.hs:272) formatLocation (src/Test/Hspec/Core/Formatters/V2.hs:436) 68% ( 26 / 38) in 'Test.Hspec.Core.Formatters.V1' Missing documentation for: silent (src/Test/Hspec/Core/Formatters/V1/Internal.hs:163) checks (src/Test/Hspec/Core/Formatters/V1/Internal.hs:177) specdoc (src/Test/Hspec/Core/Formatters/V1/Internal.hs:211) progress (src/Test/Hspec/Core/Formatters/V1/Internal.hs:250) failed_examples (src/Test/Hspec/Core/Formatters/V1/Internal.hs:260) Formatter (src/Test/Hspec/Core/Formatters/V1/Monad.hs:59) FailureReason (src/Test/Hspec/Core/Formatters/V1/Monad.hs:52) FormatM (src/Test/Hspec/Core/Formatters/V1/Monad.hs:136) formatterToFormat (src/Test/Hspec/Core/Formatters/V1/Internal.hs:109) FailureRecord (src/Test/Hspec/Core/Formatters/V1/Monad.hs:91) Seconds (src/Test/Hspec/Core/Clock.hs:30) 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:69:21 * at src/Test/Hspec/Core/Spec/Monad.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/Test/Hspec/Core/Spec/Monad.hs:69:1 Warning: 'Params' is ambiguous. It is defined * at src/Test/Hspec/Core/Example.hs:114:15 * at src/Test/Hspec/Core/Example.hs:114:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Example.hs:114:1 Warning: 'Env' is ambiguous. It is defined * at src/Test/Hspec/Core/Spec/Monad.hs:121:15 * at src/Test/Hspec/Core/Spec/Monad.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/Test/Hspec/Core/Spec/Monad.hs:121: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:69:21 * at src/Test/Hspec/Core/Spec/Monad.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/Test/Hspec/Core/Spec/Monad.hs:69:1 100% ( 24 / 24) in 'Test.Hspec.Core.Hooks' 74% ( 49 / 66) in 'Test.Hspec.Core.Spec' Missing documentation for: mapSpecForest (src/Test/Hspec/Core/Spec/Monad.hs:107) mapSpecItem_ (src/Test/Hspec/Core/Spec/Monad.hs:115) defaultParams (src/Test/Hspec/Core/Example.hs:120) ResultStatus (src/Test/Hspec/Core/Example.hs:144) FailureReason (src/Test/Hspec/Core/Example.hs:150) safeEvaluate (src/Test/Hspec/Core/Example.hs:181) safeEvaluateExample (src/Test/Hspec/Core/Example.hs:178) bimapTree (src/Test/Hspec/Core/Tree.hs:58) bimapForest (src/Test/Hspec/Core/Tree.hs:55) filterTree (src/Test/Hspec/Core/Tree.hs:66) filterForest (src/Test/Hspec/Core/Tree.hs:69) filterTreeWithLabels (src/Test/Hspec/Core/Tree.hs:72) filterForestWithLabels (src/Test/Hspec/Core/Tree.hs:75) pruneTree (src/Test/Hspec/Core/Tree.hs:90) pruneForest (src/Test/Hspec/Core/Tree.hs:87) location (src/Test/Hspec/Core/Tree.hs:158) Expectation 0% ( 0 / 4) in 'Test.Hspec.Core.Extension.Tree' Missing documentation for: Module header SpecTree (src/Test/Hspec/Core/Extension/Tree.hs:13) mapItems (src/Test/Hspec/Core/Extension/Tree.hs:16) filterItems (src/Test/Hspec/Core/Extension/Tree.hs:19) 0% ( 0 / 2) in 'Test.Hspec.Core.Extension.Spec' Missing documentation for: Module header mapItems (src/Test/Hspec/Core/Extension/Spec.hs:10) 52% ( 9 / 17) in 'Test.Hspec.Core.Extension.Item' Missing documentation for: Module header ResultStatus (src/Test/Hspec/Core/Example.hs:144) FailureReason (src/Test/Hspec/Core/Example.hs:150) 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:86) ColorMode (src/Test/Hspec/Core/Config/Definition.hs:80) UnicodeMode (src/Test/Hspec/Core/Config/Definition.hs:83) setAnnotation (src/Test/Hspec/Core/Extension/Config/Type.hs:26) getAnnotation (src/Test/Hspec/Core/Extension/Config/Type.hs:29) Warning: 'Item' is ambiguous. It is defined * at src/Test/Hspec/Core/Tree.hs:107:15 * at src/Test/Hspec/Core/Tree.hs:107:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Tree.hs:107:1 82% ( 19 / 23) in 'Test.Hspec.Core.Extension' Missing documentation for: Option (src/Test/Hspec/Core/Extension/Config/Type.hs:23) registerOptions (src/Test/Hspec/Core/Extension.hs:93) Config (src/Test/Hspec/Core/Config/Definition.hs:86) SpecTree (src/Test/Hspec/Core/Extension/Tree.hs:13) Warning: 'Config' is ambiguous. It is defined * at src/Test/Hspec/Core/Config/Definition.hs:86:15 * at src/Test/Hspec/Core/Config/Definition.hs:86:1 You may 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:86:1 Warning: 'Config' is ambiguous. It is defined * at src/Test/Hspec/Core/Config/Definition.hs:86:15 * at src/Test/Hspec/Core/Config/Definition.hs:86:1 You may 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:86:1 Warning: 'Summary' is ambiguous. It is defined * at src/Test/Hspec/Core/Runner/Result.hs:82:16 * at src/Test/Hspec/Core/Runner/Result.hs:82:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Runner/Result.hs:82:1 83% ( 36 / 43) in 'Test.Hspec.Core.Runner' Missing documentation for: evaluateResult (src/Test/Hspec/Core/Runner.hs:223) 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:86) ColorMode (src/Test/Hspec/Core/Config/Definition.hs:80) UnicodeMode (src/Test/Hspec/Core/Config/Definition.hs:83) defaultConfig (src/Test/Hspec/Core/Config.hs:38) 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.16-EMTkoah0sOK3GPArQIwdUK Completed hspec-core-2.11.16 Configuring semigroupoids-6.0.2... Preprocessing library for semigroupoids-6.0.2.. Building library for semigroupoids-6.0.2.. [ 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.2.. Running Haddock on library for semigroupoids-6.0.2.. 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:424:26 * at src/Data/Functor/Bind/Class.hs:424:1 You may 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:424: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:553) returning (src/Data/Functor/Bind/Class.hs:550) Biapply (src/Data/Functor/Bind/Class.hs:772) 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:553) returning (src/Data/Functor/Bind/Class.hs:550) 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:772) <<$>> <<..>> (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.2-Aw3vcM0aRozGLezrTfaDrz Completed semigroupoids-6.0.2 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-4QaJQLFot8jLV6JKZ2e12v Completed tasty-1.5.3 Configuring nonce-1.0.7... Preprocessing library for nonce-1.0.7.. Building library for nonce-1.0.7.. [1 of 1] Compiling Crypto.Nonce ( src/Crypto/Nonce.hs, dist/build/Crypto/Nonce.o, dist/build/Crypto/Nonce.dyn_o ) Preprocessing library for nonce-1.0.7.. Running Haddock on library for nonce-1.0.7.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Crypto.Nonce ( src/Crypto/Nonce.hs, nothing ) Haddock coverage: 100% ( 8 / 8) in 'Crypto.Nonce' Documentation created: dist/doc/html/nonce/, dist/doc/html/nonce/nonce.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/nonce-1.0.7-2mZD3mR3ROb3sxT9LT7DGn Completed nonce-1.0.7 Configuring hspec-2.11.16... Preprocessing library for hspec-2.11.16.. Building library for hspec-2.11.16.. [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.16.. Running Haddock on library for hspec-2.11.16.. 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: 100% ( 2 / 2) in 'Test.Hspec.Formatters' 50% ( 1 / 2) in 'Test.Hspec.Runner' Missing documentation for: Module header 100% ( 54 / 54) in 'Test.Hspec' 90% ( 10 / 11) in 'Test.Hspec.QuickCheck' Missing documentation for: Module header Warning: Test.Hspec: could not find link destinations for: - Test.Hspec.Core.Example.D:R:ArgBool - Test.Hspec.Core.Example.D:R:ArgFUN - Test.Hspec.Core.Example.D:R:ArgFUN0 - Test.Hspec.Core.Example.D:R:ArgFUN1 - Test.Hspec.Core.Example.D:R:ArgIO - Test.Hspec.Core.Example.D:R:ArgResult Documentation created: dist/doc/html/hspec/, dist/doc/html/hspec/hspec.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-2.11.16-BkBfcW2L9XmFlQlzq05Ubh Completed hspec-2.11.16 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-FBpsMnhh7JpCEz2odNkFPx 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-FBpsMnhh7JpCEz2odNkFPx 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-CPYe46BaoTV28JcxzcRkIJ Completed th-lift-instances-0.1.20 Configuring quickcheck-instances-0.3.33... Preprocessing library for quickcheck-instances-0.3.33.. Building library for quickcheck-instances-0.3.33.. [ 1 of 26] Compiling Test.QuickCheck.Instances.Containers ( src/Test/QuickCheck/Instances/Containers.hs, dist/build/Test/QuickCheck/Instances/Containers.o, dist/build/Test/QuickCheck/Instances/Containers.dyn_o ) [ 2 of 26] Compiling Test.QuickCheck.Instances.CustomPrelude ( src/Test/QuickCheck/Instances/CustomPrelude.hs, dist/build/Test/QuickCheck/Instances/CustomPrelude.o, dist/build/Test/QuickCheck/Instances/CustomPrelude.dyn_o ) [ 3 of 26] Compiling Test.QuickCheck.Instances.CaseInsensitive ( src/Test/QuickCheck/Instances/CaseInsensitive.hs, dist/build/Test/QuickCheck/Instances/CaseInsensitive.o, dist/build/Test/QuickCheck/Instances/CaseInsensitive.dyn_o ) [ 4 of 26] Compiling Test.QuickCheck.Instances.ByteString ( src/Test/QuickCheck/Instances/ByteString.hs, dist/build/Test/QuickCheck/Instances/ByteString.o, dist/build/Test/QuickCheck/Instances/ByteString.dyn_o ) [ 5 of 26] Compiling Test.QuickCheck.Instances.Array ( src/Test/QuickCheck/Instances/Array.hs, dist/build/Test/QuickCheck/Instances/Array.o, dist/build/Test/QuickCheck/Instances/Array.dyn_o ) [ 6 of 26] Compiling Test.QuickCheck.Instances.DataFix ( src/Test/QuickCheck/Instances/DataFix.hs, dist/build/Test/QuickCheck/Instances/DataFix.o, dist/build/Test/QuickCheck/Instances/DataFix.dyn_o ) [ 7 of 26] Compiling Test.QuickCheck.Instances.Hashable ( src/Test/QuickCheck/Instances/Hashable.hs, dist/build/Test/QuickCheck/Instances/Hashable.o, dist/build/Test/QuickCheck/Instances/Hashable.dyn_o ) [ 8 of 26] Compiling Test.QuickCheck.Instances.Natural ( src/Test/QuickCheck/Instances/Natural.hs, dist/build/Test/QuickCheck/Instances/Natural.o, dist/build/Test/QuickCheck/Instances/Natural.dyn_o ) [ 9 of 26] Compiling Test.QuickCheck.Instances.OldTime ( src/Test/QuickCheck/Instances/OldTime.hs, dist/build/Test/QuickCheck/Instances/OldTime.o, dist/build/Test/QuickCheck/Instances/OldTime.dyn_o ) [10 of 26] Compiling Test.QuickCheck.Instances.Primitive ( src/Test/QuickCheck/Instances/Primitive.hs, dist/build/Test/QuickCheck/Instances/Primitive.o, dist/build/Test/QuickCheck/Instances/Primitive.dyn_o ) [11 of 26] Compiling Test.QuickCheck.Instances.Array.Byte ( src/Test/QuickCheck/Instances/Array/Byte.hs, dist/build/Test/QuickCheck/Instances/Array/Byte.o, dist/build/Test/QuickCheck/Instances/Array/Byte.dyn_o ) [12 of 26] Compiling Test.QuickCheck.Instances.Scientific ( src/Test/QuickCheck/Instances/Scientific.hs, dist/build/Test/QuickCheck/Instances/Scientific.o, dist/build/Test/QuickCheck/Instances/Scientific.dyn_o ) [13 of 26] Compiling Test.QuickCheck.Instances.Semigroup ( src/Test/QuickCheck/Instances/Semigroup.hs, dist/build/Test/QuickCheck/Instances/Semigroup.o, dist/build/Test/QuickCheck/Instances/Semigroup.dyn_o ) [14 of 26] Compiling Test.QuickCheck.Instances.Solo ( src/Test/QuickCheck/Instances/Solo.hs, dist/build/Test/QuickCheck/Instances/Solo.o, dist/build/Test/QuickCheck/Instances/Solo.dyn_o ) [15 of 26] Compiling Test.QuickCheck.Instances.Strict ( src/Test/QuickCheck/Instances/Strict.hs, dist/build/Test/QuickCheck/Instances/Strict.o, dist/build/Test/QuickCheck/Instances/Strict.dyn_o ) [16 of 26] Compiling Test.QuickCheck.Instances.Tagged ( src/Test/QuickCheck/Instances/Tagged.hs, dist/build/Test/QuickCheck/Instances/Tagged.o, dist/build/Test/QuickCheck/Instances/Tagged.dyn_o ) [17 of 26] Compiling Test.QuickCheck.Instances.Text ( src/Test/QuickCheck/Instances/Text.hs, dist/build/Test/QuickCheck/Instances/Text.o, dist/build/Test/QuickCheck/Instances/Text.dyn_o ) [18 of 26] Compiling Test.QuickCheck.Instances.Text.Short ( src/Test/QuickCheck/Instances/Text/Short.hs, dist/build/Test/QuickCheck/Instances/Text/Short.o, dist/build/Test/QuickCheck/Instances/Text/Short.dyn_o ) [19 of 26] Compiling Test.QuickCheck.Instances.These ( src/Test/QuickCheck/Instances/These.hs, dist/build/Test/QuickCheck/Instances/These.o, dist/build/Test/QuickCheck/Instances/These.dyn_o ) [20 of 26] Compiling Test.QuickCheck.Instances.Time ( src/Test/QuickCheck/Instances/Time.hs, dist/build/Test/QuickCheck/Instances/Time.o, dist/build/Test/QuickCheck/Instances/Time.dyn_o ) [21 of 26] Compiling Test.QuickCheck.Instances.Transformer ( src/Test/QuickCheck/Instances/Transformer.hs, dist/build/Test/QuickCheck/Instances/Transformer.o, dist/build/Test/QuickCheck/Instances/Transformer.dyn_o ) [22 of 26] Compiling Test.QuickCheck.Instances.UUID ( src/Test/QuickCheck/Instances/UUID.hs, dist/build/Test/QuickCheck/Instances/UUID.o, dist/build/Test/QuickCheck/Instances/UUID.dyn_o ) [23 of 26] Compiling Test.QuickCheck.Instances.UnorderedContainers ( src/Test/QuickCheck/Instances/UnorderedContainers.hs, dist/build/Test/QuickCheck/Instances/UnorderedContainers.o, dist/build/Test/QuickCheck/Instances/UnorderedContainers.dyn_o ) [24 of 26] Compiling Test.QuickCheck.Instances.Vector ( src/Test/QuickCheck/Instances/Vector.hs, dist/build/Test/QuickCheck/Instances/Vector.o, dist/build/Test/QuickCheck/Instances/Vector.dyn_o ) [25 of 26] Compiling Test.QuickCheck.Instances.Void ( src/Test/QuickCheck/Instances/Void.hs, dist/build/Test/QuickCheck/Instances/Void.o, dist/build/Test/QuickCheck/Instances/Void.dyn_o ) [26 of 26] Compiling Test.QuickCheck.Instances ( src/Test/QuickCheck/Instances.hs, dist/build/Test/QuickCheck/Instances.o, dist/build/Test/QuickCheck/Instances.dyn_o ) Preprocessing library for quickcheck-instances-0.3.33.. Running Haddock on library for quickcheck-instances-0.3.33.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 26] Compiling Test.QuickCheck.Instances.Containers ( src/Test/QuickCheck/Instances/Containers.hs, nothing ) [ 2 of 26] Compiling Test.QuickCheck.Instances.CustomPrelude ( src/Test/QuickCheck/Instances/CustomPrelude.hs, nothing ) [ 3 of 26] Compiling Test.QuickCheck.Instances.CaseInsensitive ( src/Test/QuickCheck/Instances/CaseInsensitive.hs, nothing ) [ 4 of 26] Compiling Test.QuickCheck.Instances.ByteString ( src/Test/QuickCheck/Instances/ByteString.hs, nothing ) [ 5 of 26] Compiling Test.QuickCheck.Instances.Array ( src/Test/QuickCheck/Instances/Array.hs, nothing ) [ 6 of 26] Compiling Test.QuickCheck.Instances.DataFix ( src/Test/QuickCheck/Instances/DataFix.hs, nothing ) [ 7 of 26] Compiling Test.QuickCheck.Instances.Hashable ( src/Test/QuickCheck/Instances/Hashable.hs, nothing ) [ 8 of 26] Compiling Test.QuickCheck.Instances.Natural ( src/Test/QuickCheck/Instances/Natural.hs, nothing ) [ 9 of 26] Compiling Test.QuickCheck.Instances.OldTime ( src/Test/QuickCheck/Instances/OldTime.hs, nothing ) [10 of 26] Compiling Test.QuickCheck.Instances.Primitive ( src/Test/QuickCheck/Instances/Primitive.hs, nothing ) [11 of 26] Compiling Test.QuickCheck.Instances.Array.Byte ( src/Test/QuickCheck/Instances/Array/Byte.hs, nothing ) [12 of 26] Compiling Test.QuickCheck.Instances.Scientific ( src/Test/QuickCheck/Instances/Scientific.hs, nothing ) [13 of 26] Compiling Test.QuickCheck.Instances.Semigroup ( src/Test/QuickCheck/Instances/Semigroup.hs, nothing ) [14 of 26] Compiling Test.QuickCheck.Instances.Solo ( src/Test/QuickCheck/Instances/Solo.hs, nothing ) [15 of 26] Compiling Test.QuickCheck.Instances.Strict ( src/Test/QuickCheck/Instances/Strict.hs, nothing ) [16 of 26] Compiling Test.QuickCheck.Instances.Tagged ( src/Test/QuickCheck/Instances/Tagged.hs, nothing ) [17 of 26] Compiling Test.QuickCheck.Instances.Text ( src/Test/QuickCheck/Instances/Text.hs, nothing ) [18 of 26] Compiling Test.QuickCheck.Instances.Text.Short ( src/Test/QuickCheck/Instances/Text/Short.hs, nothing ) [19 of 26] Compiling Test.QuickCheck.Instances.These ( src/Test/QuickCheck/Instances/These.hs, nothing ) [20 of 26] Compiling Test.QuickCheck.Instances.Time ( src/Test/QuickCheck/Instances/Time.hs, nothing ) [21 of 26] Compiling Test.QuickCheck.Instances.Transformer ( src/Test/QuickCheck/Instances/Transformer.hs, nothing ) [22 of 26] Compiling Test.QuickCheck.Instances.UUID ( src/Test/QuickCheck/Instances/UUID.hs, nothing ) [23 of 26] Compiling Test.QuickCheck.Instances.UnorderedContainers ( src/Test/QuickCheck/Instances/UnorderedContainers.hs, nothing ) [24 of 26] Compiling Test.QuickCheck.Instances.Vector ( src/Test/QuickCheck/Instances/Vector.hs, nothing ) [25 of 26] Compiling Test.QuickCheck.Instances.Void ( src/Test/QuickCheck/Instances/Void.hs, nothing ) [26 of 26] Compiling Test.QuickCheck.Instances ( src/Test/QuickCheck/Instances.hs, nothing ) Haddock coverage: 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Containers' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.CaseInsensitive' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.ByteString' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Array' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.DataFix' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Hashable' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Natural' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.OldTime' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Primitive' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Array.Byte' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Scientific' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Semigroup' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Solo' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Strict' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Tagged' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Text' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Text.Short' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.These' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Time' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Transformer' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.UUID' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.UnorderedContainers' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Vector' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Void' Missing documentation for: Module header 100% ( 1 / 1) in 'Test.QuickCheck.Instances' Warning: Test.QuickCheck.Instances.Vector: could not find link destinations for: - Data.Vector.Vector - Data.Vector.Primitive.Vector - Data.Vector.Storable.Vector - Data.Vector.Unboxed.Base.Unbox - Data.Vector.Unboxed.Base.Vector - Data.Vector.Strict.Vector Documentation created: dist/doc/html/quickcheck-instances/, dist/doc/html/quickcheck-instances/quickcheck-instances.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/quickcheck-instances-0.3.33-327vQvptRXAGBaR4oNbM7k Completed quickcheck-instances-0.3.33 Configuring indexed-traversable-instances-0.1.2... Preprocessing library for indexed-traversable-instances-0.1.2.. Building library for indexed-traversable-instances-0.1.2.. [1 of 1] Compiling Data.Functor.WithIndex.Instances ( src/Data/Functor/WithIndex/Instances.hs, dist/build/Data/Functor/WithIndex/Instances.o, dist/build/Data/Functor/WithIndex/Instances.dyn_o ) Preprocessing library for indexed-traversable-instances-0.1.2.. Running Haddock on library for indexed-traversable-instances-0.1.2.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Data.Functor.WithIndex.Instances ( src/Data/Functor/WithIndex/Instances.hs, nothing ) Haddock coverage: 100% ( 1 / 1) in 'Data.Functor.WithIndex.Instances' Warning: Data.Functor.WithIndex.Instances: could not find link destinations for: - Data.Vector.Vector Documentation created: dist/doc/html/indexed-traversable-instances/, dist/doc/html/indexed-traversable-instances/indexed-traversable-instances.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/indexed-traversable-instances-0.1.2-INk5V7wnUw2BY7abQQLxlJ 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-1lpDq8XBSutAgdysMOmZxW 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-88NTUd9zjHT6bv9PXM3LIq 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-B4GHKOq14Nl5SKomzvlUa9 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-I6RHT4Wn1YkJNMm97zPALI 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-8sMh5bICn1G3LtROIF1sTl 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-8T7s4GdC2ns5jW5weJizv5 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-5SMb8I1lYk1IS0E6PMOjgh 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-DEgLa1bd5URI1Mkh05pagR Completed conduit-1.3.6.1 Configuring conduit-extra-1.3.8... Preprocessing library for conduit-extra-1.3.8.. Building library for conduit-extra-1.3.8.. [ 1 of 13] Compiling Data.Conduit.Attoparsec ( Data/Conduit/Attoparsec.hs, dist/build/Data/Conduit/Attoparsec.o, dist/build/Data/Conduit/Attoparsec.dyn_o ) [ 2 of 13] Compiling Data.Conduit.Binary ( Data/Conduit/Binary.hs, dist/build/Data/Conduit/Binary.o, dist/build/Data/Conduit/Binary.dyn_o ) [ 3 of 13] Compiling Data.Conduit.ByteString.Builder ( Data/Conduit/ByteString/Builder.hs, dist/build/Data/Conduit/ByteString/Builder.o, dist/build/Data/Conduit/ByteString/Builder.dyn_o ) [ 4 of 13] Compiling Data.Conduit.Filesystem ( Data/Conduit/Filesystem.hs, dist/build/Data/Conduit/Filesystem.o, dist/build/Data/Conduit/Filesystem.dyn_o ) [ 5 of 13] Compiling Data.Conduit.Foldl ( Data/Conduit/Foldl.hs, dist/build/Data/Conduit/Foldl.o, dist/build/Data/Conduit/Foldl.dyn_o ) [ 6 of 13] Compiling Data.Conduit.Lazy ( Data/Conduit/Lazy.hs, dist/build/Data/Conduit/Lazy.o, dist/build/Data/Conduit/Lazy.dyn_o ) [ 7 of 13] Compiling Data.Conduit.Network ( Data/Conduit/Network.hs, dist/build/Data/Conduit/Network.o, dist/build/Data/Conduit/Network.dyn_o ) [ 8 of 13] Compiling Data.Conduit.Network.UDP ( Data/Conduit/Network/UDP.hs, dist/build/Data/Conduit/Network/UDP.o, dist/build/Data/Conduit/Network/UDP.dyn_o ) [ 9 of 13] Compiling Data.Conduit.Network.Unix ( Data/Conduit/Network/Unix.hs, dist/build/Data/Conduit/Network/Unix.o, dist/build/Data/Conduit/Network/Unix.dyn_o ) [10 of 13] Compiling Data.Conduit.Process ( Data/Conduit/Process.hs, dist/build/Data/Conduit/Process.o, dist/build/Data/Conduit/Process.dyn_o ) Data/Conduit/Process.hs:48:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:48:32: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:49:20: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 49 | isStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> sinkHandle h, Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:50:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:50:22: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:50:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:51:20: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 51 | isStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> (sinkHandle h, liftIO $ hClose h), Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:66:24: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 66 | instance (MonadIO m, r ~ ()) => InputSource (BuilderInput o m r) where | ^ Data/Conduit/Process.hs:67:18: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 67 | isStdStream = (\(Just h) -> return $ BuilderInput $ sinkHandleBuilder h, Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:68:35: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where | ^ Data/Conduit/Process.hs:68:44: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where | ^ Data/Conduit/Process.hs:69:18: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 69 | isStdStream = (\(Just h) -> return (BuilderInput $ sinkHandleBuilder h, liftIO $ hClose h), Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:70:24: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 70 | instance (MonadIO m, r ~ ()) => InputSource (FlushInput o m r) where | ^ Data/Conduit/Process.hs:71:18: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 71 | isStdStream = (\(Just h) -> return $ FlushInput $ sinkHandleFlush h, Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:72:35: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where | ^ Data/Conduit/Process.hs:72:44: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where | ^ Data/Conduit/Process.hs:73:18: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 73 | isStdStream = (\(Just h) -> return (FlushInput $ sinkHandleFlush h, liftIO $ hClose h), Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:75:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:75:32: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:76:20: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 76 | osStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> sourceHandle h, Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:77:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:77:22: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:77:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:78:20: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 78 | osStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> (sourceHandle h, liftIO $ hClose h), Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [11 of 13] Compiling Data.Conduit.Process.Typed ( Data/Conduit/Process/Typed.hs, dist/build/Data/Conduit/Process/Typed.o, dist/build/Data/Conduit/Process/Typed.dyn_o ) [12 of 13] Compiling Data.Conduit.Text ( Data/Conduit/Text.hs, dist/build/Data/Conduit/Text.o, dist/build/Data/Conduit/Text.dyn_o ) [13 of 13] Compiling Data.Conduit.Zlib ( Data/Conduit/Zlib.hs, dist/build/Data/Conduit/Zlib.o, dist/build/Data/Conduit/Zlib.dyn_o ) Preprocessing library for conduit-extra-1.3.8.. Running Haddock on library for conduit-extra-1.3.8.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 13] Compiling Data.Conduit.Attoparsec ( Data/Conduit/Attoparsec.hs, nothing ) [ 2 of 13] Compiling Data.Conduit.Binary ( Data/Conduit/Binary.hs, nothing ) [ 3 of 13] Compiling Data.Conduit.ByteString.Builder ( Data/Conduit/ByteString/Builder.hs, nothing ) [ 4 of 13] Compiling Data.Conduit.Filesystem ( Data/Conduit/Filesystem.hs, nothing ) [ 5 of 13] Compiling Data.Conduit.Foldl ( Data/Conduit/Foldl.hs, nothing ) [ 6 of 13] Compiling Data.Conduit.Lazy ( Data/Conduit/Lazy.hs, nothing ) [ 7 of 13] Compiling Data.Conduit.Network ( Data/Conduit/Network.hs, nothing ) [ 8 of 13] Compiling Data.Conduit.Network.UDP ( Data/Conduit/Network/UDP.hs, nothing ) [ 9 of 13] Compiling Data.Conduit.Network.Unix ( Data/Conduit/Network/Unix.hs, nothing ) [10 of 13] Compiling Data.Conduit.Process ( Data/Conduit/Process.hs, nothing ) Data/Conduit/Process.hs:48:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:48:32: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:50:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:50:22: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:50:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:66:24: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 66 | instance (MonadIO m, r ~ ()) => InputSource (BuilderInput o m r) where | ^ Data/Conduit/Process.hs:68:35: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where | ^ Data/Conduit/Process.hs:68:44: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where | ^ Data/Conduit/Process.hs:70:24: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 70 | instance (MonadIO m, r ~ ()) => InputSource (FlushInput o m r) where | ^ Data/Conduit/Process.hs:72:35: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where | ^ Data/Conduit/Process.hs:72:44: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where | ^ Data/Conduit/Process.hs:75:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:75:32: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:77:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:77:22: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:77:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ [11 of 13] Compiling Data.Conduit.Process.Typed ( Data/Conduit/Process/Typed.hs, nothing ) [12 of 13] Compiling Data.Conduit.Text ( Data/Conduit/Text.hs, nothing ) [13 of 13] Compiling Data.Conduit.Zlib ( Data/Conduit/Zlib.hs, nothing ) Haddock coverage: Warning: 'ParseError' is ambiguous. It is defined * at Data/Conduit/Attoparsec.hs:44:19 * at Data/Conduit/Attoparsec.hs:44:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Conduit/Attoparsec.hs:44:1 84% ( 11 / 13) in 'Data.Conduit.Attoparsec' Missing documentation for: Position (Data/Conduit/Attoparsec.hs:53) PositionRange (Data/Conduit/Attoparsec.hs:64) 100% ( 45 / 45) in 'Data.Conduit.Binary' 100% ( 12 / 12) in 'Data.Conduit.ByteString.Builder' 100% ( 3 / 3) in 'Data.Conduit.Filesystem' 100% ( 3 / 3) in 'Data.Conduit.Foldl' 100% ( 3 / 3) in 'Data.Conduit.Lazy' 52% ( 18 / 34) in 'Data.Conduit.Network' Missing documentation for: Module header appSource (Data/Conduit/Network.hs:88) appSink (Data/Conduit/Network.hs:99) appSockAddr appLocalAddr serverSettings (Data/Conduit/Network.hs:82) runTCPServerWithHandle clientSettings (Data/Conduit/Network.hs:85) getPort getHost getAfterBind getNeedLocalAddr setPort setHost setAfterBind setNeedLocalAddr 90% ( 10 / 11) in 'Data.Conduit.Network.UDP' Missing documentation for: Module header 59% ( 13 / 22) in 'Data.Conduit.Network.Unix' Missing documentation for: Module header appSource (Data/Conduit/Network.hs:88) appSink (Data/Conduit/Network.hs:99) serverSettings (Data/Conduit/Network/Unix.hs:36) clientSettings (Data/Conduit/Network/Unix.hs:33) getPath getAfterBind setPath setAfterBind 100% ( 12 / 12) in 'Data.Conduit.Process' 100% ( 9 / 9) in 'Data.Conduit.Process.Typed' 100% ( 25 / 25) in 'Data.Conduit.Text' Warning: 'WindowBits' is ambiguous. It is defined * in Codec.Compression.Zlib.Stream * in Codec.Compression.Zlib.Stream You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Codec.Compression.Zlib.Stream 100% ( 14 / 14) in 'Data.Conduit.Zlib' Warning: Data.Conduit.Attoparsec: could not find link destinations for: - Data.Conduit.Attoparsec.parseA - Data.Conduit.Attoparsec.feedA - Data.Conduit.Attoparsec.empty - Data.Conduit.Attoparsec.isNull - Data.Conduit.Attoparsec.getLinesCols - Data.Conduit.Attoparsec.stripFromEnd Warning: Data.Conduit.Binary: could not find link destinations for: - Data.Conduit.Binary.SinkStorableInsufficientBytes Warning: Data.Conduit.ByteString.Builder: could not find link destinations for: - Data.Conduit.Combinators.Buffer Warning: Data.Conduit.Zlib: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_WindowBits Documentation created: dist/doc/html/conduit-extra/, dist/doc/html/conduit-extra/conduit-extra.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/conduit-extra-1.3.8-1RErtaUGzgD3vukc1peRi7 Completed conduit-extra-1.3.8 Configuring monad-logger-0.3.42... Preprocessing library for monad-logger-0.3.42.. Building library for monad-logger-0.3.42.. [1 of 3] Compiling Control.Monad.Logger ( Control/Monad/Logger.hs, dist/build/Control/Monad/Logger.o, dist/build/Control/Monad/Logger.dyn_o ) Control/Monad/Logger.hs:206:10: warning: [GHC-06201] [-Wmissing-methods] " No explicit implementation for Language.Haskell.TH.Syntax.liftTyped " In the instance declaration for Lift LogLevel | 206 | instance Lift LogLevel where | ^^^^^^^^^^^^^ Control/Monad/Logger.hs:228:104: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 228 | default monadLoggerLog :: (MonadLogger m', Trans.MonadTrans t, MonadLogger (t m'), ToLogStr msg, m ~ t m') | ^ Control/Monad/Logger.hs:243:68: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 243 | default askLoggerIO :: (Trans.MonadTrans t, MonadLoggerIO n, m ~ t n) | ^ [2 of 3] Compiling Control.Monad.Logger.CallStack ( Control/Monad/Logger/CallStack.hs, dist/build/Control/Monad/Logger/CallStack.o, dist/build/Control/Monad/Logger/CallStack.dyn_o ) [3 of 3] Compiling Paths_monad_logger ( dist/build/autogen/Paths_monad_logger.hs, dist/build/Paths_monad_logger.o, dist/build/Paths_monad_logger.dyn_o ) Preprocessing library for monad-logger-0.3.42.. Running Haddock on library for monad-logger-0.3.42.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Control.Monad.Logger ( Control/Monad/Logger.hs, nothing ) Control/Monad/Logger.hs:206:10: warning: [GHC-06201] [-Wmissing-methods] " No explicit implementation for Language.Haskell.TH.Syntax.liftTyped " In the instance declaration for Lift LogLevel | 206 | instance Lift LogLevel where | ^^^^^^^^^^^^^ Control/Monad/Logger.hs:228:104: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 228 | default monadLoggerLog :: (MonadLogger m', Trans.MonadTrans t, MonadLogger (t m'), ToLogStr msg, m ~ t m') | ^ Control/Monad/Logger.hs:243:68: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 243 | default askLoggerIO :: (Trans.MonadTrans t, MonadLoggerIO n, m ~ t n) | ^ [2 of 3] Compiling Control.Monad.Logger.CallStack ( Control/Monad/Logger/CallStack.hs, nothing ) [3 of 3] Compiling Paths_monad_logger ( dist/build/autogen/Paths_monad_logger.hs, nothing ) Haddock coverage: Warning: 'LoggingT' is ambiguous. It is defined * at Control/Monad/Logger.hs:583:24 * at Control/Monad/Logger.hs:583:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Logger.hs:583:1 Warning: 'NoLoggingT' is ambiguous. It is defined * at Control/Monad/Logger.hs:394:26 * at Control/Monad/Logger.hs:394:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Logger.hs:394:1 Warning: 'Loc' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax 80% ( 57 / 71) in 'Control.Monad.Logger' Missing documentation for: LogLevel (Control/Monad/Logger.hs:183) LogSource (Control/Monad/Logger.hs:186) logDebugN (Control/Monad/Logger.hs:935) logInfoN (Control/Monad/Logger.hs:938) logWarnN (Control/Monad/Logger.hs:941) logErrorN (Control/Monad/Logger.hs:944) logOtherN (Control/Monad/Logger.hs:947) logDebugNS (Control/Monad/Logger.hs:950) logInfoNS (Control/Monad/Logger.hs:953) logWarnNS (Control/Monad/Logger.hs:956) logErrorNS (Control/Monad/Logger.hs:959) logOtherNS (Control/Monad/Logger.hs:962) defaultLogStr (Control/Monad/Logger.hs:744) Loc 76% ( 45 / 59) in 'Control.Monad.Logger.CallStack' Missing documentation for: Loc LogLevel (Control/Monad/Logger.hs:183) LogSource (Control/Monad/Logger.hs:186) logDebugN (Control/Monad/Logger.hs:935) logInfoN (Control/Monad/Logger.hs:938) logWarnN (Control/Monad/Logger.hs:941) logErrorN (Control/Monad/Logger.hs:944) logOtherN (Control/Monad/Logger.hs:947) logDebugNS (Control/Monad/Logger.hs:950) logInfoNS (Control/Monad/Logger.hs:953) logWarnNS (Control/Monad/Logger.hs:956) logErrorNS (Control/Monad/Logger.hs:959) logOtherNS (Control/Monad/Logger.hs:962) defaultLogStr (Control/Monad/Logger.hs:744) Warning: Control.Monad.Logger: could not find link destinations for: - Language.Haskell.TH.Syntax.Rep_Loc - Control.Monad.Logger.DList - Control.Monad.Logger.D:R:StTNoLoggingTa - Control.Monad.Logger.D:R:StTWriterLoggingTa - Control.Monad.Logger.D:R:StTLoggingTa Warning: Control.Monad.Logger.CallStack: could not find link destinations for: - Language.Haskell.TH.Syntax.Rep_Loc - Control.Monad.Logger.DList - Control.Monad.Logger.D:R:StTNoLoggingTa - Control.Monad.Logger.D:R:StTWriterLoggingTa - Control.Monad.Logger.D:R:StTLoggingTa Documentation created: dist/doc/html/monad-logger/, dist/doc/html/monad-logger/monad-logger.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/monad-logger-0.3.42-1yhVrTN8cOnAr13tLpKrCS Completed monad-logger-0.3.42 Configuring persistent-2.17.1.0... Preprocessing library for persistent-2.17.1.0.. Building library for persistent-2.17.1.0.. [ 1 of 52] Compiling Database.Persist.Class.PersistConfig ( Database/Persist/Class/PersistConfig.hs, dist/build/Database/Persist/Class/PersistConfig.o, dist/build/Database/Persist/Class/PersistConfig.dyn_o ) [ 2 of 52] Compiling Database.Persist.Names ( Database/Persist/Names.hs, dist/build/Database/Persist/Names.o, dist/build/Database/Persist/Names.dyn_o ) [ 3 of 52] Compiling Database.Persist.PersistValue ( Database/Persist/PersistValue.hs, dist/build/Database/Persist/PersistValue.o, dist/build/Database/Persist/PersistValue.dyn_o ) [ 4 of 52] Compiling Database.Persist.Quasi.Internal.TypeParser ( Database/Persist/Quasi/Internal/TypeParser.hs, dist/build/Database/Persist/Quasi/Internal/TypeParser.o, dist/build/Database/Persist/Quasi/Internal/TypeParser.dyn_o ) [ 5 of 52] Compiling Database.Persist.SqlBackend.Internal.IsolationLevel ( Database/Persist/SqlBackend/Internal/IsolationLevel.hs, dist/build/Database/Persist/SqlBackend/Internal/IsolationLevel.o, dist/build/Database/Persist/SqlBackend/Internal/IsolationLevel.dyn_o ) [ 6 of 52] Compiling Database.Persist.SqlBackend.Internal.SqlPoolHooks ( Database/Persist/SqlBackend/Internal/SqlPoolHooks.hs, dist/build/Database/Persist/SqlBackend/Internal/SqlPoolHooks.o, dist/build/Database/Persist/SqlBackend/Internal/SqlPoolHooks.dyn_o ) [ 7 of 52] Compiling Database.Persist.Types.SourceSpan ( Database/Persist/Types/SourceSpan.hs, dist/build/Database/Persist/Types/SourceSpan.o, dist/build/Database/Persist/Types/SourceSpan.dyn_o ) [ 8 of 52] Compiling Database.Persist.Types.Base ( Database/Persist/Types/Base.hs, dist/build/Database/Persist/Types/Base.o, dist/build/Database/Persist/Types/Base.dyn_o ) [ 9 of 52] Compiling Database.Persist.SqlBackend.Internal.Statement ( Database/Persist/SqlBackend/Internal/Statement.hs, dist/build/Database/Persist/SqlBackend/Internal/Statement.o, dist/build/Database/Persist/SqlBackend/Internal/Statement.dyn_o ) Database/Persist/SqlBackend/Internal/Statement.hs:6:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Acquire is redundant except perhaps to import instances from Data.Acquire To import instances alone, use: import Data.Acquire() | 6 | import Data.Acquire | ^^^^^^^^^^^^^^^^^^^ [10 of 52] Compiling Database.Persist.SqlBackend.Internal.StatementCache ( Database/Persist/SqlBackend/Internal/StatementCache.hs, dist/build/Database/Persist/SqlBackend/Internal/StatementCache.o, dist/build/Database/Persist/SqlBackend/Internal/StatementCache.dyn_o ) [11 of 52] Compiling Database.Persist.SqlBackend.StatementCache ( Database/Persist/SqlBackend/StatementCache.hs, dist/build/Database/Persist/SqlBackend/StatementCache.o, dist/build/Database/Persist/SqlBackend/StatementCache.dyn_o ) [12 of 52] Compiling Database.Persist.SqlBackend.Internal.InsertSqlResult ( Database/Persist/SqlBackend/Internal/InsertSqlResult.hs, dist/build/Database/Persist/SqlBackend/Internal/InsertSqlResult.o, dist/build/Database/Persist/SqlBackend/Internal/InsertSqlResult.dyn_o ) [13 of 52] Compiling Database.Persist.SqlBackend.Internal.MkSqlBackend ( Database/Persist/SqlBackend/Internal/MkSqlBackend.hs, dist/build/Database/Persist/SqlBackend/Internal/MkSqlBackend.o, dist/build/Database/Persist/SqlBackend/Internal/MkSqlBackend.dyn_o ) [14 of 52] Compiling Database.Persist.FieldDef.Internal ( Database/Persist/FieldDef/Internal.hs, dist/build/Database/Persist/FieldDef/Internal.o, dist/build/Database/Persist/FieldDef/Internal.dyn_o ) [15 of 52] Compiling Database.Persist.FieldDef ( Database/Persist/FieldDef.hs, dist/build/Database/Persist/FieldDef.o, dist/build/Database/Persist/FieldDef.dyn_o ) [16 of 52] Compiling Database.Persist.EntityDef.Internal ( Database/Persist/EntityDef/Internal.hs, dist/build/Database/Persist/EntityDef/Internal.o, dist/build/Database/Persist/EntityDef/Internal.dyn_o ) [17 of 52] Compiling Database.Persist.EntityDef ( Database/Persist/EntityDef.hs, dist/build/Database/Persist/EntityDef.o, dist/build/Database/Persist/EntityDef.dyn_o ) [18 of 52] Compiling Database.Persist.Class.PersistField ( Database/Persist/Class/PersistField.hs, dist/build/Database/Persist/Class/PersistField.o, dist/build/Database/Persist/Class/PersistField.dyn_o ) Database/Persist/Class/PersistField.hs:32:1: warning: [GHC-66111] [-Wunused-imports] The import of Numeric.Natural is redundant except perhaps to import instances from Numeric.Natural To import instances alone, use: import Numeric.Natural() | 32 | import Numeric.Natural (Natural) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [19 of 52] Compiling Database.Persist.Class.PersistEntity ( Database/Persist/Class/PersistEntity.hs, dist/build/Database/Persist/Class/PersistEntity.o, dist/build/Database/Persist/Class/PersistEntity.dyn_o ) Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] entityVal is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] entityKey is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] Entity is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:43:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor.Constant is redundant except perhaps to import instances from Data.Functor.Constant To import instances alone, use: import Data.Functor.Constant() | 43 | import Data.Functor.Constant | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:69:1: warning: [GHC-66111] [-Wunused-imports] The import of GHC.Records is redundant except perhaps to import instances from GHC.Records To import instances alone, use: import GHC.Records() | 69 | import GHC.Records | ^^^^^^^^^^^^^^^^^^ [20 of 52] Compiling Database.Persist.Types ( Database/Persist/Types.hs, dist/build/Database/Persist/Types.o, dist/build/Database/Persist/Types.dyn_o ) [21 of 52] Compiling Database.Persist.Quasi.PersistSettings.Internal ( Database/Persist/Quasi/PersistSettings/Internal.hs, dist/build/Database/Persist/Quasi/PersistSettings/Internal.o, dist/build/Database/Persist/Quasi/PersistSettings/Internal.dyn_o ) Database/Persist/Quasi/PersistSettings/Internal.hs:3:1: warning: [GHC-38856] [-Wunused-imports] The import of isDigit, isLower, isSpace from module Data.Char is redundant | 3 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Quasi/PersistSettings/Internal.hs:9:1: warning: [GHC-66111] [-Wunused-imports] The import of Database.Persist.Types is redundant except perhaps to import instances from Database.Persist.Types To import instances alone, use: import Database.Persist.Types() | 9 | import Database.Persist.Types | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [22 of 52] Compiling Database.Persist.Quasi.PersistSettings ( Database/Persist/Quasi/PersistSettings.hs, dist/build/Database/Persist/Quasi/PersistSettings.o, dist/build/Database/Persist/Quasi/PersistSettings.dyn_o ) [23 of 52] Compiling Database.Persist.Class.PersistStore ( Database/Persist/Class/PersistStore.hs, dist/build/Database/Persist/Class/PersistStore.o, dist/build/Database/Persist/Class/PersistStore.dyn_o ) [24 of 52] Compiling Database.Persist.SqlBackend.Internal ( Database/Persist/SqlBackend/Internal.hs, dist/build/Database/Persist/SqlBackend/Internal.o, dist/build/Database/Persist/SqlBackend/Internal.dyn_o ) [25 of 52] Compiling Database.Persist.SqlBackend ( Database/Persist/SqlBackend.hs, dist/build/Database/Persist/SqlBackend.o, dist/build/Database/Persist/SqlBackend.dyn_o ) [26 of 52] Compiling Database.Persist.Class.PersistUnique ( Database/Persist/Class/PersistUnique.hs, dist/build/Database/Persist/Class/PersistUnique.o, dist/build/Database/Persist/Class/PersistUnique.dyn_o ) [27 of 52] Compiling Database.Persist.Class.PersistQuery ( Database/Persist/Class/PersistQuery.hs, dist/build/Database/Persist/Class/PersistQuery.o, dist/build/Database/Persist/Class/PersistQuery.dyn_o ) [28 of 52] Compiling Database.Persist.Class ( Database/Persist/Class.hs, dist/build/Database/Persist/Class.o, dist/build/Database/Persist/Class.dyn_o ) [29 of 52] Compiling Database.Persist.Sql.Types.Internal ( Database/Persist/Sql/Types/Internal.hs, dist/build/Database/Persist/Sql/Types/Internal.o, dist/build/Database/Persist/Sql/Types/Internal.dyn_o ) [30 of 52] Compiling Database.Persist.Sql.Types ( Database/Persist/Sql/Types.hs, dist/build/Database/Persist/Sql/Types.o, dist/build/Database/Persist/Sql/Types.dyn_o ) [31 of 52] Compiling Database.Persist.Sql.Internal ( Database/Persist/Sql/Internal.hs, dist/build/Database/Persist/Sql/Internal.o, dist/build/Database/Persist/Sql/Internal.dyn_o ) [32 of 52] Compiling Database.Persist ( Database/Persist.hs, dist/build/Database/Persist.o, dist/build/Database/Persist.dyn_o ) [33 of 52] Compiling Database.Persist.Sql.Util ( Database/Persist/Sql/Util.hs, dist/build/Database/Persist/Sql/Util.o, dist/build/Database/Persist/Sql/Util.dyn_o ) [34 of 52] Compiling Database.Persist.Sql.Class ( Database/Persist/Sql/Class.hs, dist/build/Database/Persist/Sql/Class.o, dist/build/Database/Persist/Sql/Class.dyn_o ) [35 of 52] Compiling Database.Persist.Sql.Raw ( Database/Persist/Sql/Raw.hs, dist/build/Database/Persist/Sql/Raw.o, dist/build/Database/Persist/Sql/Raw.dyn_o ) [36 of 52] Compiling Database.Persist.SqlBackend.SqlPoolHooks ( Database/Persist/SqlBackend/SqlPoolHooks.hs, dist/build/Database/Persist/SqlBackend/SqlPoolHooks.o, dist/build/Database/Persist/SqlBackend/SqlPoolHooks.dyn_o ) Database/Persist/SqlBackend/SqlPoolHooks.hs:87:1: warning: [GHC-40910] [-Wunused-top-binds] Defined but not used: modifyRunOnException | 87 | modifyRunOnException hooks f = hooks { runOnException = f $ runOnException hooks } | ^^^^^^^^^^^^^^^^^^^^ Database/Persist/SqlBackend/SqlPoolHooks.hs:90:1: warning: [GHC-40910] [-Wunused-top-binds] Defined but not used: setRunOnException | 90 | setRunOnException hooks f = hooks { runOnException = f } | ^^^^^^^^^^^^^^^^^ [37 of 52] Compiling Database.Persist.Sql.Run ( Database/Persist/Sql/Run.hs, dist/build/Database/Persist/Sql/Run.o, dist/build/Database/Persist/Sql/Run.dyn_o ) Database/Persist/Sql/Run.hs:148:13: warning: [GHC-68441] [-Wdeprecations] In the use of data constructor ReleaseException (imported from Data.Acquire, but defined in Data.Acquire.Internal): Deprecated: "Use `ReleaseExceptionWith`, which has the exception in the constructor. This pattern synonym hides the exception and can obscure problems." | 148 | ReleaseException -> do | ^^^^^^^^^^^^^^^^ Database/Persist/Sql/Run.hs:252:14: warning: [GHC-68441] [-Wdeprecations] In the use of createPool (imported from Data.Pool): Deprecated: "Use newPool instead" | 252 | liftIO $ createPool | ^^^^^^^^^^ [38 of 52] Compiling Database.Persist.Sql.Orphan.PersistStore ( Database/Persist/Sql/Orphan/PersistStore.hs, dist/build/Database/Persist/Sql/Orphan/PersistStore.o, dist/build/Database/Persist/Sql/Orphan/PersistStore.dyn_o ) [39 of 52] Compiling Database.Persist.Sql.Orphan.PersistUnique ( Database/Persist/Sql/Orphan/PersistUnique.hs, dist/build/Database/Persist/Sql/Orphan/PersistUnique.o, dist/build/Database/Persist/Sql/Orphan/PersistUnique.dyn_o ) Database/Persist/Sql/Orphan/PersistUnique.hs:47:42: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 47 | return $ head x | ^^^^ Database/Persist/Sql/Orphan/PersistUnique.hs:71:41: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 71 | let uKeys = persistUniqueKeys . head $ rsD | ^^^^ [40 of 52] Compiling Database.Persist.Sql.Orphan.PersistQuery ( Database/Persist/Sql/Orphan/PersistQuery.hs, dist/build/Database/Persist/Sql/Orphan/PersistQuery.o, dist/build/Database/Persist/Sql/Orphan/PersistQuery.dyn_o ) Database/Persist/Sql/Orphan/PersistQuery.hs:325:41: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 325 | let zs = tail (inits (toList $ compositeFields pdef)) | ^^^^ Database/Persist/Sql/Orphan/PersistQuery.hs:329:59: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 329 | in (wrapSql sqlcl, concat (tail (inits xs))) | ^^^^ [41 of 52] Compiling Database.Persist.Sql.Migration ( Database/Persist/Sql/Migration.hs, dist/build/Database/Persist/Sql/Migration.o, dist/build/Database/Persist/Sql/Migration.dyn_o ) [42 of 52] Compiling Database.Persist.ImplicitIdDef.Internal ( Database/Persist/ImplicitIdDef/Internal.hs, dist/build/Database/Persist/ImplicitIdDef/Internal.o, dist/build/Database/Persist/ImplicitIdDef/Internal.dyn_o ) Database/Persist/ImplicitIdDef/Internal.hs:205:13: warning: [GHC-53633] [-Woverlapping-patterns] Pattern match is redundant In a case alternative: Fun _ _ -> ... | 205 | Fun _ _ -> | ^^^^^^^^^^... [43 of 52] Compiling Database.Persist.ImplicitIdDef ( Database/Persist/ImplicitIdDef.hs, dist/build/Database/Persist/ImplicitIdDef.o, dist/build/Database/Persist/ImplicitIdDef.dyn_o ) [44 of 52] Compiling Database.Persist.Compatible.Types ( Database/Persist/Compatible/Types.hs, dist/build/Database/Persist/Compatible/Types.o, dist/build/Database/Persist/Compatible/Types.dyn_o ) [45 of 52] Compiling Database.Persist.Compatible.TH ( Database/Persist/Compatible/TH.hs, dist/build/Database/Persist/Compatible/TH.o, dist/build/Database/Persist/Compatible/TH.dyn_o ) [46 of 52] Compiling Database.Persist.Compatible ( Database/Persist/Compatible.hs, dist/build/Database/Persist/Compatible.o, dist/build/Database/Persist/Compatible.dyn_o ) [47 of 52] Compiling Database.Persist.Sql ( Database/Persist/Sql.hs, dist/build/Database/Persist/Sql.o, dist/build/Database/Persist/Sql.dyn_o ) [48 of 52] Compiling Database.Persist.Quasi.Internal.ModelParser ( Database/Persist/Quasi/Internal/ModelParser.hs, dist/build/Database/Persist/Quasi/Internal/ModelParser.o, dist/build/Database/Persist/Quasi/Internal/ModelParser.dyn_o ) Database/Persist/Quasi/Internal/ModelParser.hs:44:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor.Identity is redundant except perhaps to import instances from Data.Functor.Identity To import instances alone, use: import Data.Functor.Identity() | 44 | import Data.Functor.Identity | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:146:12: warning: [GHC-63397] [-Wname-shadowing] This binding for either shadows the existing binding imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50 (and originally defined in Data.Either) | 146 | ((_is, either), warnings) = runWriter wm | ^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:235:22: warning: [GHC-40910] [-Wunused-local-binds] Defined but not used: pairs | 235 | (pairs, _) = attachSourcePos errorOffset [err] posState | ^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:772:37: warning: [GHC-63397] [-Wname-shadowing] This binding for extraBlockLines shadows the existing binding defined at Database/Persist/Quasi/Internal/ModelParser.hs:656:7 | 772 | mkExtraBlockMember dcb (header, extraBlockLines) = | ^^^^^^^^^^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:779:20: warning: [GHC-63397] [-Wname-shadowing] This binding for lines shadows the existing binding imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50 (and originally defined in base-4.19.2.0:Data.OldList) | 779 | ensureNonEmpty lines = case NEL.nonEmpty lines of | ^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:808:5: warning: [GHC-63397] [-Wname-shadowing] This binding for tokens shadows the existing binding imported from Text.Megaparsec at Database/Persist/Quasi/Internal/ModelParser.hs:60:1-22 (and originally defined in megaparsec-9.7.0:Text.Megaparsec.Class) | 808 | tokens <- some $ L.lexeme spaceConsumer (some contentChar) | ^^^^^^ [49 of 52] Compiling Database.Persist.Quasi.Internal ( Database/Persist/Quasi/Internal.hs, dist/build/Database/Persist/Quasi/Internal.o, dist/build/Database/Persist/Quasi/Internal.dyn_o ) Database/Persist/Quasi/Internal.hs:54:55: warning: [GHC-38856] [-Wunused-imports] The import of toLower from module Data.Char is redundant | 54 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower) | ^^^^^^^ [50 of 52] Compiling Database.Persist.Quasi ( Database/Persist/Quasi.hs, dist/build/Database/Persist/Quasi.o, dist/build/Database/Persist/Quasi.dyn_o ) [51 of 52] Compiling Database.Persist.TH.Internal ( Database/Persist/TH/Internal.hs, dist/build/Database/Persist/TH/Internal.o, dist/build/Database/Persist/TH/Internal.dyn_o ) Database/Persist/TH/Internal.hs:152:1: warning: [GHC-66111] [-Wunused-imports] The import of Database.Persist.Quasi.PersistSettings is redundant except perhaps to import instances from Database.Persist.Quasi.PersistSettings To import instances alone, use: import Database.Persist.Quasi.PersistSettings() | 152 | import Database.Persist.Quasi.PersistSettings | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/TH/Internal.hs:2758:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 2758 | expr <- [e|head . persistUniqueKeys|] | ^^^^ [52 of 52] Compiling Database.Persist.TH ( Database/Persist/TH.hs, dist/build/Database/Persist/TH.o, dist/build/Database/Persist/TH.dyn_o ) Preprocessing library for persistent-2.17.1.0.. Running Haddock on library for persistent-2.17.1.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 52] Compiling Database.Persist.Class.PersistConfig ( Database/Persist/Class/PersistConfig.hs, /tmp/ghc1431826_0/ghc_22.o, /tmp/ghc1431826_0/ghc_22.dyn_o ) [ 2 of 52] Compiling Database.Persist.Names ( Database/Persist/Names.hs, /tmp/ghc1431826_0/ghc_48.o, /tmp/ghc1431826_0/ghc_48.dyn_o ) [ 3 of 52] Compiling Database.Persist.PersistValue ( Database/Persist/PersistValue.hs, /tmp/ghc1431826_0/ghc_50.o, /tmp/ghc1431826_0/ghc_50.dyn_o ) [ 4 of 52] Compiling Database.Persist.Quasi.Internal.TypeParser ( Database/Persist/Quasi/Internal/TypeParser.hs, /tmp/ghc1431826_0/ghc_58.o, /tmp/ghc1431826_0/ghc_58.dyn_o ) [ 5 of 52] Compiling Database.Persist.SqlBackend.Internal.IsolationLevel ( Database/Persist/SqlBackend/Internal/IsolationLevel.hs, /tmp/ghc1431826_0/ghc_92.o, /tmp/ghc1431826_0/ghc_92.dyn_o ) [ 6 of 52] Compiling Database.Persist.SqlBackend.Internal.SqlPoolHooks ( Database/Persist/SqlBackend/Internal/SqlPoolHooks.hs, /tmp/ghc1431826_0/ghc_96.o, /tmp/ghc1431826_0/ghc_96.dyn_o ) [ 7 of 52] Compiling Database.Persist.Types.SourceSpan ( Database/Persist/Types/SourceSpan.hs, /tmp/ghc1431826_0/ghc_108.o, /tmp/ghc1431826_0/ghc_108.dyn_o ) [ 8 of 52] Compiling Database.Persist.Types.Base ( Database/Persist/Types/Base.hs, /tmp/ghc1431826_0/ghc_106.o, /tmp/ghc1431826_0/ghc_106.dyn_o ) [ 9 of 52] Compiling Database.Persist.SqlBackend.Internal.Statement ( Database/Persist/SqlBackend/Internal/Statement.hs, /tmp/ghc1431826_0/ghc_98.o, /tmp/ghc1431826_0/ghc_98.dyn_o ) Database/Persist/SqlBackend/Internal/Statement.hs:6:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Acquire is redundant except perhaps to import instances from Data.Acquire To import instances alone, use: import Data.Acquire() | 6 | import Data.Acquire | ^^^^^^^^^^^^^^^^^^^ [10 of 52] Compiling Database.Persist.SqlBackend.Internal.StatementCache ( Database/Persist/SqlBackend/Internal/StatementCache.hs, /tmp/ghc1431826_0/ghc_100.o, /tmp/ghc1431826_0/ghc_100.dyn_o ) [11 of 52] Compiling Database.Persist.SqlBackend.StatementCache ( Database/Persist/SqlBackend/StatementCache.hs, /tmp/ghc1431826_0/ghc_102.o, /tmp/ghc1431826_0/ghc_102.dyn_o ) [12 of 52] Compiling Database.Persist.SqlBackend.Internal.InsertSqlResult ( Database/Persist/SqlBackend/Internal/InsertSqlResult.hs, /tmp/ghc1431826_0/ghc_90.o, /tmp/ghc1431826_0/ghc_90.dyn_o ) [13 of 52] Compiling Database.Persist.SqlBackend.Internal.MkSqlBackend ( Database/Persist/SqlBackend/Internal/MkSqlBackend.hs, /tmp/ghc1431826_0/ghc_94.o, /tmp/ghc1431826_0/ghc_94.dyn_o ) [14 of 52] Compiling Database.Persist.FieldDef.Internal ( Database/Persist/FieldDef/Internal.hs, /tmp/ghc1431826_0/ghc_42.o, /tmp/ghc1431826_0/ghc_42.dyn_o ) [15 of 52] Compiling Database.Persist.FieldDef ( Database/Persist/FieldDef.hs, /tmp/ghc1431826_0/ghc_40.o, /tmp/ghc1431826_0/ghc_40.dyn_o ) [16 of 52] Compiling Database.Persist.EntityDef.Internal ( Database/Persist/EntityDef/Internal.hs, /tmp/ghc1431826_0/ghc_38.o, /tmp/ghc1431826_0/ghc_38.dyn_o ) [17 of 52] Compiling Database.Persist.EntityDef ( Database/Persist/EntityDef.hs, /tmp/ghc1431826_0/ghc_36.o, /tmp/ghc1431826_0/ghc_36.dyn_o ) [18 of 52] Compiling Database.Persist.Class.PersistField ( Database/Persist/Class/PersistField.hs, /tmp/ghc1431826_0/ghc_26.o, /tmp/ghc1431826_0/ghc_26.dyn_o ) Database/Persist/Class/PersistField.hs:32:1: warning: [GHC-66111] [-Wunused-imports] The import of Numeric.Natural is redundant except perhaps to import instances from Numeric.Natural To import instances alone, use: import Numeric.Natural() | 32 | import Numeric.Natural (Natural) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [19 of 52] Compiling Database.Persist.Class.PersistEntity ( Database/Persist/Class/PersistEntity.hs, /tmp/ghc1431826_0/ghc_24.o, /tmp/ghc1431826_0/ghc_24.dyn_o ) Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] entityVal is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] entityKey is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] Entity is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:43:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor.Constant is redundant except perhaps to import instances from Data.Functor.Constant To import instances alone, use: import Data.Functor.Constant() | 43 | import Data.Functor.Constant | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:69:1: warning: [GHC-66111] [-Wunused-imports] The import of GHC.Records is redundant except perhaps to import instances from GHC.Records To import instances alone, use: import GHC.Records() | 69 | import GHC.Records | ^^^^^^^^^^^^^^^^^^ [20 of 52] Compiling Database.Persist.Types ( Database/Persist/Types.hs, /tmp/ghc1431826_0/ghc_104.o, /tmp/ghc1431826_0/ghc_104.dyn_o ) [21 of 52] Compiling Database.Persist.Quasi.PersistSettings.Internal ( Database/Persist/Quasi/PersistSettings/Internal.hs, /tmp/ghc1431826_0/ghc_62.o, /tmp/ghc1431826_0/ghc_62.dyn_o ) Database/Persist/Quasi/PersistSettings/Internal.hs:3:1: warning: [GHC-38856] [-Wunused-imports] The import of isDigit, isLower, isSpace from module Data.Char is redundant | 3 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Quasi/PersistSettings/Internal.hs:9:1: warning: [GHC-66111] [-Wunused-imports] The import of Database.Persist.Types is redundant except perhaps to import instances from Database.Persist.Types To import instances alone, use: import Database.Persist.Types() | 9 | import Database.Persist.Types | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [22 of 52] Compiling Database.Persist.Quasi.PersistSettings ( Database/Persist/Quasi/PersistSettings.hs, /tmp/ghc1431826_0/ghc_60.o, /tmp/ghc1431826_0/ghc_60.dyn_o ) [23 of 52] Compiling Database.Persist.Class.PersistStore ( Database/Persist/Class/PersistStore.hs, /tmp/ghc1431826_0/ghc_30.o, /tmp/ghc1431826_0/ghc_30.dyn_o ) [24 of 52] Compiling Database.Persist.SqlBackend.Internal ( Database/Persist/SqlBackend/Internal.hs, /tmp/ghc1431826_0/ghc_88.o, /tmp/ghc1431826_0/ghc_88.dyn_o ) [25 of 52] Compiling Database.Persist.SqlBackend ( Database/Persist/SqlBackend.hs, nothing ) [26 of 52] Compiling Database.Persist.Class.PersistUnique ( Database/Persist/Class/PersistUnique.hs, /tmp/ghc1431826_0/ghc_32.o, /tmp/ghc1431826_0/ghc_32.dyn_o ) [27 of 52] Compiling Database.Persist.Class.PersistQuery ( Database/Persist/Class/PersistQuery.hs, /tmp/ghc1431826_0/ghc_28.o, /tmp/ghc1431826_0/ghc_28.dyn_o ) [28 of 52] Compiling Database.Persist.Class ( Database/Persist/Class.hs, /tmp/ghc1431826_0/ghc_20.o, /tmp/ghc1431826_0/ghc_20.dyn_o ) [29 of 52] Compiling Database.Persist.Sql.Types.Internal ( Database/Persist/Sql/Types/Internal.hs, /tmp/ghc1431826_0/ghc_84.o, /tmp/ghc1431826_0/ghc_84.dyn_o ) [30 of 52] Compiling Database.Persist.Sql.Types ( Database/Persist/Sql/Types.hs, /tmp/ghc1431826_0/ghc_82.o, /tmp/ghc1431826_0/ghc_82.dyn_o ) [31 of 52] Compiling Database.Persist.Sql.Internal ( Database/Persist/Sql/Internal.hs, /tmp/ghc1431826_0/ghc_68.o, /tmp/ghc1431826_0/ghc_68.dyn_o ) [32 of 52] Compiling Database.Persist ( Database/Persist.hs, /tmp/ghc1431826_0/ghc_18.o, /tmp/ghc1431826_0/ghc_18.dyn_o ) [33 of 52] Compiling Database.Persist.Sql.Util ( Database/Persist/Sql/Util.hs, /tmp/ghc1431826_0/ghc_86.o, /tmp/ghc1431826_0/ghc_86.dyn_o ) [34 of 52] Compiling Database.Persist.Sql.Class ( Database/Persist/Sql/Class.hs, /tmp/ghc1431826_0/ghc_66.o, /tmp/ghc1431826_0/ghc_66.dyn_o ) [35 of 52] Compiling Database.Persist.Sql.Raw ( Database/Persist/Sql/Raw.hs, /tmp/ghc1431826_0/ghc_78.o, /tmp/ghc1431826_0/ghc_78.dyn_o ) [36 of 52] Compiling Database.Persist.SqlBackend.SqlPoolHooks ( Database/Persist/SqlBackend/SqlPoolHooks.hs, nothing ) Database/Persist/SqlBackend/SqlPoolHooks.hs:87:1: warning: [GHC-40910] [-Wunused-top-binds] Defined but not used: modifyRunOnException | 87 | modifyRunOnException hooks f = hooks { runOnException = f $ runOnException hooks } | ^^^^^^^^^^^^^^^^^^^^ Database/Persist/SqlBackend/SqlPoolHooks.hs:90:1: warning: [GHC-40910] [-Wunused-top-binds] Defined but not used: setRunOnException | 90 | setRunOnException hooks f = hooks { runOnException = f } | ^^^^^^^^^^^^^^^^^ [37 of 52] Compiling Database.Persist.Sql.Run ( Database/Persist/Sql/Run.hs, /tmp/ghc1431826_0/ghc_80.o, /tmp/ghc1431826_0/ghc_80.dyn_o ) Database/Persist/Sql/Run.hs:148:13: warning: [GHC-68441] [-Wdeprecations] In the use of data constructor ReleaseException (imported from Data.Acquire, but defined in Data.Acquire.Internal): Deprecated: "Use `ReleaseExceptionWith`, which has the exception in the constructor. This pattern synonym hides the exception and can obscure problems." | 148 | ReleaseException -> do | ^^^^^^^^^^^^^^^^ Database/Persist/Sql/Run.hs:252:14: warning: [GHC-68441] [-Wdeprecations] In the use of createPool (imported from Data.Pool): Deprecated: "Use newPool instead" | 252 | liftIO $ createPool | ^^^^^^^^^^ [38 of 52] Compiling Database.Persist.Sql.Orphan.PersistStore ( Database/Persist/Sql/Orphan/PersistStore.hs, /tmp/ghc1431826_0/ghc_74.o, /tmp/ghc1431826_0/ghc_74.dyn_o ) [39 of 52] Compiling Database.Persist.Sql.Orphan.PersistUnique ( Database/Persist/Sql/Orphan/PersistUnique.hs, /tmp/ghc1431826_0/ghc_76.o, /tmp/ghc1431826_0/ghc_76.dyn_o ) Database/Persist/Sql/Orphan/PersistUnique.hs:47:42: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 47 | return $ head x | ^^^^ Database/Persist/Sql/Orphan/PersistUnique.hs:71:41: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 71 | let uKeys = persistUniqueKeys . head $ rsD | ^^^^ [40 of 52] Compiling Database.Persist.Sql.Orphan.PersistQuery ( Database/Persist/Sql/Orphan/PersistQuery.hs, /tmp/ghc1431826_0/ghc_72.o, /tmp/ghc1431826_0/ghc_72.dyn_o ) Database/Persist/Sql/Orphan/PersistQuery.hs:325:41: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 325 | let zs = tail (inits (toList $ compositeFields pdef)) | ^^^^ Database/Persist/Sql/Orphan/PersistQuery.hs:329:59: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 329 | in (wrapSql sqlcl, concat (tail (inits xs))) | ^^^^ [41 of 52] Compiling Database.Persist.Sql.Migration ( Database/Persist/Sql/Migration.hs, /tmp/ghc1431826_0/ghc_70.o, /tmp/ghc1431826_0/ghc_70.dyn_o ) [42 of 52] Compiling Database.Persist.ImplicitIdDef.Internal ( Database/Persist/ImplicitIdDef/Internal.hs, /tmp/ghc1431826_0/ghc_46.o, /tmp/ghc1431826_0/ghc_46.dyn_o ) [43 of 52] Compiling Database.Persist.ImplicitIdDef ( Database/Persist/ImplicitIdDef.hs, /tmp/ghc1431826_0/ghc_44.o, /tmp/ghc1431826_0/ghc_44.dyn_o ) [44 of 52] Compiling Database.Persist.Compatible.Types ( Database/Persist/Compatible/Types.hs, /tmp/ghc1431826_0/ghc_34.o, /tmp/ghc1431826_0/ghc_34.dyn_o ) [45 of 52] Compiling Database.Persist.Compatible.TH ( Database/Persist/Compatible/TH.hs, nothing ) [46 of 52] Compiling Database.Persist.Compatible ( Database/Persist/Compatible.hs, nothing ) [47 of 52] Compiling Database.Persist.Sql ( Database/Persist/Sql.hs, /tmp/ghc1431826_0/ghc_64.o, /tmp/ghc1431826_0/ghc_64.dyn_o ) [48 of 52] Compiling Database.Persist.Quasi.Internal.ModelParser ( Database/Persist/Quasi/Internal/ModelParser.hs, /tmp/ghc1431826_0/ghc_56.o, /tmp/ghc1431826_0/ghc_56.dyn_o ) Database/Persist/Quasi/Internal/ModelParser.hs:44:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor.Identity is redundant except perhaps to import instances from Data.Functor.Identity To import instances alone, use: import Data.Functor.Identity() | 44 | import Data.Functor.Identity | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:146:12: warning: [GHC-63397] [-Wname-shadowing] This binding for either shadows the existing binding imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50 (and originally defined in Data.Either) | 146 | ((_is, either), warnings) = runWriter wm | ^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:235:22: warning: [GHC-40910] [-Wunused-local-binds] Defined but not used: pairs | 235 | (pairs, _) = attachSourcePos errorOffset [err] posState | ^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:772:37: warning: [GHC-63397] [-Wname-shadowing] This binding for extraBlockLines shadows the existing binding defined at Database/Persist/Quasi/Internal/ModelParser.hs:656:7 | 772 | mkExtraBlockMember dcb (header, extraBlockLines) = | ^^^^^^^^^^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:779:20: warning: [GHC-63397] [-Wname-shadowing] This binding for lines shadows the existing binding imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50 (and originally defined in base-4.19.2.0:Data.OldList) | 779 | ensureNonEmpty lines = case NEL.nonEmpty lines of | ^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:808:5: warning: [GHC-63397] [-Wname-shadowing] This binding for tokens shadows the existing binding imported from Text.Megaparsec at Database/Persist/Quasi/Internal/ModelParser.hs:60:1-22 (and originally defined in megaparsec-9.7.0:Text.Megaparsec.Class) | 808 | tokens <- some $ L.lexeme spaceConsumer (some contentChar) | ^^^^^^ [49 of 52] Compiling Database.Persist.Quasi.Internal ( Database/Persist/Quasi/Internal.hs, /tmp/ghc1431826_0/ghc_54.o, /tmp/ghc1431826_0/ghc_54.dyn_o ) Database/Persist/Quasi/Internal.hs:54:55: warning: [GHC-38856] [-Wunused-imports] The import of toLower from module Data.Char is redundant | 54 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower) | ^^^^^^^ [50 of 52] Compiling Database.Persist.Quasi ( Database/Persist/Quasi.hs, /tmp/ghc1431826_0/ghc_52.o, /tmp/ghc1431826_0/ghc_52.dyn_o ) [51 of 52] Compiling Database.Persist.TH.Internal ( Database/Persist/TH/Internal.hs, nothing ) Database/Persist/TH/Internal.hs:152:1: warning: [GHC-66111] [-Wunused-imports] The import of Database.Persist.Quasi.PersistSettings is redundant except perhaps to import instances from Database.Persist.Quasi.PersistSettings To import instances alone, use: import Database.Persist.Quasi.PersistSettings() | 152 | import Database.Persist.Quasi.PersistSettings | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/TH/Internal.hs:2758:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 2758 | expr <- [e|head . persistUniqueKeys|] | ^^^^ [52 of 52] Compiling Database.Persist.TH ( Database/Persist/TH.hs, nothing ) Haddock coverage: 50% ( 1 / 2) in 'Database.Persist.Class.PersistConfig' Missing documentation for: Module header Warning: 'ConstraintNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:71:28 * at Database/Persist/Names.hs:71:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:71:1 Warning: 'ConstraintNameDB' is ambiguous. It is defined * at Database/Persist/Names.hs:60:28 * at Database/Persist/Names.hs:60:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:60:1 Warning: 'EntityNameDB' is ambiguous. It is defined * at Database/Persist/Names.hs:50:24 * at Database/Persist/Names.hs:50:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:50:1 Warning: 'EntityNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:43:24 * at Database/Persist/Names.hs:43:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:43:1 Warning: 'FieldNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:36:23 * at Database/Persist/Names.hs:36:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:36:1 Warning: 'FieldNameDB' is ambiguous. It is defined * at Database/Persist/Names.hs:25:23 * at Database/Persist/Names.hs:25:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:25:1 100% ( 8 / 8) in 'Database.Persist.Names' Warning: 'PersistField' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 75% ( 3 / 4) in 'Database.Persist.PersistValue' Missing documentation for: fromPersistValueText (Database/Persist/PersistValue.hs:190) 83% ( 5 / 6) in 'Database.Persist.Quasi.Internal.TypeParser' Missing documentation for: Module header 33% ( 1 / 3) in 'Database.Persist.SqlBackend.Internal.IsolationLevel' Missing documentation for: Module header makeIsolationLevelStatement (Database/Persist/SqlBackend/Internal/IsolationLevel.hs:14) 50% ( 1 / 2) in 'Database.Persist.SqlBackend.Internal.SqlPoolHooks' Missing documentation for: Module header 50% ( 1 / 2) in 'Database.Persist.Types.SourceSpan' Missing documentation for: Module header Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:684:17 * at Database/Persist/Types/Base.hs:684:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:684:1 Warning: 'Field' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FieldNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:36:23 * at Database/Persist/Names.hs:36:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:36:1 Warning: 'PersistField' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Key' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mkPersist' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'PersistFieldSql' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:131:18 * at Database/Persist/Types/Base.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:131:1 Warning: 'nullable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'MigrationOnly' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SafeToRemove' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FieldCascade' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:590:21 * at Database/Persist/Types/Base.hs:590:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:590:1 Warning: Database.Persist.Types.Base: Could not find documentation for exported module: Database.Persist.Types.Base Warning: 'Statement' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal/Statement.hs:12:18 * at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 50% ( 1 / 2) in 'Database.Persist.SqlBackend.Internal.Statement' Missing documentation for: Module header Warning: 'StatementCacheKey' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal/StatementCache.hs:17:29 * at Database/Persist/SqlBackend/Internal/StatementCache.hs:17:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal/StatementCache.hs:17:1 50% ( 2 / 4) in 'Database.Persist.SqlBackend.Internal.StatementCache' Missing documentation for: Module header StatementCacheKey (Database/Persist/SqlBackend/Internal/StatementCache.hs:17) 71% ( 5 / 7) in 'Database.Persist.SqlBackend.StatementCache' Missing documentation for: Module header StatementCacheKey (Database/Persist/SqlBackend/Internal/StatementCache.hs:17) 0% ( 0 / 2) in 'Database.Persist.SqlBackend.Internal.InsertSqlResult' Missing documentation for: Module header InsertSqlResult (Database/Persist/SqlBackend/Internal/InsertSqlResult.hs:6) Warning: 'SqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mkSqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:131:18 * at Database/Persist/Types/Base.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:131:1 Warning: 'Statement' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal/Statement.hs:12:18 * at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 33% ( 1 / 3) in 'Database.Persist.SqlBackend.Internal.MkSqlBackend' Missing documentation for: Module header LogFunc (Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:79) 87% ( 7 / 8) in 'Database.Persist.FieldDef.Internal' Missing documentation for: isFieldNotGenerated (Database/Persist/Types/Base.hs:455) Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:684:17 * at Database/Persist/Types/Base.hs:684:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:684:1 Warning: 'FieldCascade' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:590:21 * at Database/Persist/Types/Base.hs:590:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:590:1 94% ( 17 / 18) in 'Database.Persist.FieldDef' Missing documentation for: isFieldNotGenerated (Database/Persist/Types/Base.hs:455) Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:131:18 * at Database/Persist/Types/Base.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:131:1 75% ( 6 / 8) in 'Database.Persist.EntityDef.Internal' Missing documentation for: entityPrimary (Database/Persist/Types/Base.hs:199) toEmbedEntityDef (Database/Persist/Types/Base.hs:501) Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:131:18 * at Database/Persist/Types/Base.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:131:1 Warning: 'UniqueDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:544:18 * at Database/Persist/Types/Base.hs:544:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:544:1 Warning: 'Unique' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Entity' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SafeToRemove' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'MigrationOnly' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Source' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 90% ( 27 / 30) in 'Database.Persist.EntityDef' Missing documentation for: getEntityComments (Database/Persist/EntityDef.hs:102) getEntityExtra (Database/Persist/EntityDef.hs:93) entityPrimary (Database/Persist/Types/Base.hs:199) Warning: 'Text' is ambiguous. It is defined * in GHC.TypeError * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Text.Internal 75% ( 3 / 4) in 'Database.Persist.Class.PersistField' Missing documentation for: Module header Warning: 'mkPersist' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insertKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Entity' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:339:5 * at Database/Persist/Class/PersistEntity.hs:338:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:338:1 Warning: 'select' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'updateWhere' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'deleteWhere' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:131:18 * at Database/Persist/Types/Base.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:131:1 Warning: 'derivePersistField' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 85% ( 23 / 27) in 'Database.Persist.Class.PersistEntity' Missing documentation for: Module header BackendSpecificUpdate (Database/Persist/Class/PersistEntity.hs:247) BackendSpecificFilter (Database/Persist/Class/PersistEntity.hs:276) SafeToInsertErrorMessage (Database/Persist/Class/PersistEntity.hs:580) Warning: 'Text' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:684:17 * at Database/Persist/Types/Base.hs:684:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:684:1 77% ( 42 / 54) in 'Database.Persist.Types' Missing documentation for: BackendSpecificUpdate (Database/Persist/Class/PersistEntity.hs:247) BackendSpecificFilter (Database/Persist/Class/PersistEntity.hs:276) PersistFilter (Database/Persist/Types/Base.hs:658) PersistUpdate (Database/Persist/Types/Base.hs:676) ForeignDef (Database/Persist/Types/Base.hs:562) IsNullable (Database/Persist/Types/Base.hs:108) fieldAttrsContainsNullable (Database/Persist/Types/Base.hs:114) CompositeDef (Database/Persist/Types/Base.hs:552) Attr (Database/Persist/Types/Base.hs:251) ExtraLine (Database/Persist/Types/Base.hs:249) PersistException (Database/Persist/Types/Base.hs:631) UpdateException (Database/Persist/Types/Base.hs:662) Warning: 'PersistSettings' is ambiguous. It is defined * at Database/Persist/Quasi/PersistSettings/Internal.hs:19:24 * at Database/Persist/Quasi/PersistSettings/Internal.hs:19:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/PersistSettings/Internal.hs:19:1 69% ( 16 / 23) in 'Database.Persist.Quasi.PersistSettings.Internal' Missing documentation for: Module header PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19) defaultPersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:49) upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58) lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59) warningPos (Database/Persist/Quasi/PersistSettings/Internal.hs:86) toFKNameInfixed (Database/Persist/Quasi/PersistSettings/Internal.hs:108) 73% ( 17 / 23) in 'Database.Persist.Quasi.PersistSettings' Missing documentation for: Module header PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19) defaultPersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:49) upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58) lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59) warningPos (Database/Persist/Quasi/PersistSettings/Internal.hs:86) Warning: 'John' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Entity' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:339:5 * at Database/Persist/Class/PersistEntity.hs:338:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:338:1 Warning: 'upsertBy' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'toSqlKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'fromSqlKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'IsSqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SqlReadBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 73% ( 14 / 19) in 'Database.Persist.Class.PersistStore' Missing documentation for: Module header liftPersist (Database/Persist/Class/PersistStore.hs:132) PersistCore (Database/Persist/Class/PersistStore.hs:152) PersistStoreRead (Database/Persist/Class/PersistStore.hs:155) PersistStoreWrite (Database/Persist/Class/PersistStore.hs:214) Warning: 'SqlBackend' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal.hs:36:19 * at Database/Persist/SqlBackend/Internal.hs:36:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal.hs:36:1 Warning: 'Pool' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ConnectionPool' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'runSqlConn' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'runSqlPool' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'defaultRepsertMany' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:131:18 * at Database/Persist/Types/Base.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:131:1 Warning: 'Statement' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal/Statement.hs:12:18 * at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 Warning: 'defaultPutMany' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'connInsertSql' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal.hs:40:7 * at Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:28:7 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:28:7 40% ( 2 / 5) in 'Database.Persist.SqlBackend.Internal' Missing documentation for: Module header SqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:144) emptySqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:149) Warning: 'SqlBackend' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal.hs:36:19 * at Database/Persist/SqlBackend/Internal.hs:36:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal.hs:36:1 Warning: 'FieldNameDB' is ambiguous. It is defined * at Database/Persist/Names.hs:25:23 * at Database/Persist/Names.hs:25:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:25:1 Warning: 'ReaderT' is ambiguous. It is defined * in Control.Monad.Trans.Reader * in Control.Monad.Trans.Reader You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Reader Warning: 'SqlPersistT' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 92% ( 26 / 28) in 'Database.Persist.SqlBackend' Missing documentation for: SqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:144) emptySqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:149) Warning: 'TypeError' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'UniqueDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:544:18 * at Database/Persist/Types/Base.hs:544:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:544:1 95% ( 19 / 20) in 'Database.Persist.Class.PersistUnique' Missing documentation for: Module header Warning: 'Entity' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:339:5 * at Database/Persist/Class/PersistEntity.hs:338:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:338:1 Warning: 'SqlPersistT' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 85% ( 6 / 7) in 'Database.Persist.Class.PersistQuery' Missing documentation for: Module header 94% ( 64 / 68) in 'Database.Persist.Class' Missing documentation for: PersistStoreRead (Database/Persist/Class/PersistStore.hs:155) PersistStoreWrite (Database/Persist/Class/PersistStore.hs:214) liftPersist (Database/Persist/Class/PersistStore.hs:132) PersistCore (Database/Persist/Class/PersistStore.hs:152) 80% ( 16 / 20) in 'Database.Persist.Sql.Types.Internal' Missing documentation for: LogFunc (Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:79) InsertSqlResult (Database/Persist/SqlBackend/Internal/InsertSqlResult.hs:6) makeIsolationLevelStatement (Database/Persist/SqlBackend/Internal/IsolationLevel.hs:14) SqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:144) Warning: 'rawSql' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'PersistField' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ConnectionPoolConfig' is ambiguous. It is defined * at Database/Persist/Sql/Types.hs:68:29 * at Database/Persist/Sql/Types.hs:68:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Sql/Types.hs:68:1 Warning: Database.Persist.Sql.Types: Could not find documentation for exported module: Database.Persist.Sql.Types Warning: 'ConstraintNameDB' is ambiguous. It is defined * at Database/Persist/Names.hs:60:28 * at Database/Persist/Names.hs:60:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:60:1 Warning: 'BackendSpecificOverrides' is ambiguous. It is defined * at Database/Persist/Sql/Internal.hs:36:33 * at Database/Persist/Sql/Internal.hs:36:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Sql/Internal.hs:36:1 Warning: 'Filter' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:290:22 * at Database/Persist/Class/PersistEntity.hs:290:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:290:1 Warning: 'Update' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:259:22 * at Database/Persist/Class/PersistEntity.hs:259:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:259:1 Warning: 'share' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mkPersist' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'sqlSettings' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mkMigrate' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'persistLowerCase' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 38 / 38) in 'Database.Persist' Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:684:17 * at Database/Persist/Types/Base.hs:684:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:684:1 Warning: 'Update' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:259:22 * at Database/Persist/Class/PersistEntity.hs:259:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:259:1 Warning: 'escape' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 26% ( 5 / 19) in 'Database.Persist.Sql.Util' Missing documentation for: Module header parseEntityValues (Database/Persist/Sql/Util.hs:168) keyAndEntityColumnNames (Database/Persist/Sql/Util.hs:58) entityColumnCount (Database/Persist/Sql/Util.hs:62) isIdField (Database/Persist/Sql/Util.hs:201) dbIdColumns (Database/Persist/Sql/Util.hs:155) dbIdColumnsEsc (Database/Persist/Sql/Util.hs:158) dbColumns (Database/Persist/Sql/Util.hs:161) updatePersistValue (Database/Persist/Sql/Util.hs:209) mkUpdateText (Database/Persist/Sql/Util.hs:217) mkUpdateText' (Database/Persist/Sql/Util.hs:221) commaSeparated (Database/Persist/Sql/Util.hs:214) parenWrapped (Database/Persist/Sql/Util.hs:234) parseExistsResult (Database/Persist/Sql/Util.hs:278) Warning: 'PersistLiteralEncoded' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'PersistFieldSQL' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityWithPrefix' is ambiguous. It is defined * at Database/Persist/Sql/Class.hs:143:7 * at Database/Persist/Sql/Class.hs:142:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Sql/Class.hs:142:1 Warning: 'Entity' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:339:5 * at Database/Persist/Class/PersistEntity.hs:338:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:338:1 Warning: 'rawSql' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Entity' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:339:5 * at Database/Persist/Class/PersistEntity.hs:338:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:338:1 Warning: 'Single' is ambiguous. It is defined * at Database/Persist/Sql/Types.hs:138:20 * at Database/Persist/Sql/Types.hs:138:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Sql/Types.hs:138:1 15% ( 2 / 13) in 'Database.Persist.SqlBackend.SqlPoolHooks' Missing documentation for: Module header getAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:54) modifyAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:57) setAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:60) getRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:64) modifyRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:67) setRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:70) getRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:74) modifyRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:77) setRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:80) getRunOnException (Database/Persist/SqlBackend/SqlPoolHooks.hs:84) Warning: 'Conduit' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Filter' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:290:22 * at Database/Persist/Class/PersistEntity.hs:290:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:290:1 Warning: 'WriterT' is ambiguous. It is defined * in Control.Monad.Trans.Writer.Lazy * in Control.Monad.Trans.Writer.Lazy You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Writer.Lazy Warning: 'ReaderT' is ambiguous. It is defined * in Control.Monad.Trans.Reader * in Control.Monad.Trans.Reader You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Reader Warning: 'SqlBackend' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal.hs:36:19 * at Database/Persist/SqlBackend/Internal.hs:36:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal.hs:36:1 Warning: 'PersistUnsafeMigrationException' is ambiguous. It is defined * at Database/Persist/Sql/Migration.hs:289:5 * at Database/Persist/Sql/Migration.hs:288:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Sql/Migration.hs:288:1 Warning: 'rawExecute_' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 96% ( 25 / 26) in 'Database.Persist.Sql.Migration' Missing documentation for: Sql (Database/Persist/Sql/Migration.hs:77) Warning: 'PersistSettings' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'BackendKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ImplicitIdDef' is ambiguous. It is defined * at Database/Persist/ImplicitIdDef/Internal.hs:93:22 * at Database/Persist/ImplicitIdDef/Internal.hs:93:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/ImplicitIdDef/Internal.hs:93:1 Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'toPersistValue' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'fromPersistValue' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'setImplicitIdDef' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'MkPersistSettings' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'MkPersistBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mpsGeneric' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mpsBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:43:24 * at Database/Persist/Names.hs:43:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:43:1 Warning: 'FieldTyp' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insertKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insert' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'series_name' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 6 / 6) in 'Database.Persist.ImplicitIdDef.Internal' Warning: 'ImplicitIdDef' is ambiguous. It is defined * at Database/Persist/ImplicitIdDef/Internal.hs:93:22 * at Database/Persist/ImplicitIdDef/Internal.hs:93:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/ImplicitIdDef/Internal.hs:93:1 100% ( 11 / 11) in 'Database.Persist.ImplicitIdDef' Warning: 'SqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Compatible' is ambiguous. It is defined * at Database/Persist/Compatible/Types.hs:56:26 * at Database/Persist/Compatible/Types.hs:56:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Compatible/Types.hs:56:1 75% ( 3 / 4) in 'Database.Persist.Compatible' Missing documentation for: Module header 75% ( 71 / 94) in 'Database.Persist.Sql' Missing documentation for: close' (Database/Persist/Sql/Run.hs:322) runSqlConn (Database/Persist/Sql/Run.hs:180) runSqlPersistM (Database/Persist/Sql/Run.hs:192) runSqlPersistMPool (Database/Persist/Sql/Run.hs:197) liftSqlPersistMPool (Database/Persist/Sql/Run.hs:202) withSqlPool (Database/Persist/Sql/Run.hs:210) createSqlPool (Database/Persist/Sql/Run.hs:232) BackendKey BackendKey (Database/Persist/Class/PersistStore.hs:153) withRawQuery (Database/Persist/Sql/Orphan/PersistStore.hs:62) toSqlKey (Database/Persist/Sql/Orphan/PersistStore.hs:67) fromSqlKey (Database/Persist/Sql/Orphan/PersistStore.hs:70) rawQuery (Database/Persist/Sql/Raw.hs:26) rawQueryRes (Database/Persist/Sql/Raw.hs:37) getStmtConn (Database/Persist/Sql/Raw.hs:77) defaultAttribute (Database/Persist/Sql/Internal.hs:73) Column (Database/Persist/Sql/Types.hs:22) LogFunc (Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:79) InsertSqlResult (Database/Persist/SqlBackend/Internal/InsertSqlResult.hs:6) ConnectionPool (Database/Persist/Sql/Types.hs:63) SqlPersistT (Database/Persist/Sql/Types.hs:59) PersistentSqlException (Database/Persist/Sql/Types.hs:54) SqlPersistM (Database/Persist/Sql/Types.hs:61) Warning: 'SourceSpan' is ambiguous. It is defined * at Database/Persist/Types/SourceSpan.hs:17:19 * at Database/Persist/Types/SourceSpan.hs:17:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/SourceSpan.hs:17:1 50% ( 12 / 24) in 'Database.Persist.Quasi.Internal.ModelParser' Missing documentation for: Module header attribute (Database/Persist/Quasi/Internal/ModelParser.hs:345) Directive (Database/Persist/Quasi/Internal/ModelParser.hs:679) EntityField (Database/Persist/Quasi/Internal/ModelParser.hs:669) entityField (Database/Persist/Quasi/Internal/ModelParser.hs:818) entityFieldContent (Database/Persist/Quasi/Internal/ModelParser.hs:308) FieldName (Database/Persist/Quasi/Internal/ModelParser.hs:663) fieldName (Database/Persist/Quasi/Internal/ModelParser.hs:565) ParsedEntityDef (Database/Persist/Quasi/Internal/ModelParser.hs:581) parseSource (Database/Persist/Quasi/Internal/ModelParser.hs:979) toCumulativeParseResult (Database/Persist/Quasi/Internal/ModelParser.hs:125) initialExtraState (Database/Persist/Quasi/Internal/ModelParser.hs:74) Warning: 'FieldNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:36:23 * at Database/Persist/Names.hs:36:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:36:1 Warning: 'ForeignDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:562:19 * at Database/Persist/Types/Base.hs:562:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:562:1 Warning: 'mpsImplicitIdDef' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'MkPersistSettings' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insert' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insertKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FieldCascade' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:590:21 * at Database/Persist/Types/Base.hs:590:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:590:1 Warning: 'Type' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityField' is ambiguous. It is defined * at Database/Persist/Quasi/Internal/ModelParser.hs:669:20 * at Database/Persist/Quasi/Internal/ModelParser.hs:669:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal/ModelParser.hs:669:1 Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:131:18 * at Database/Persist/Types/Base.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:131:1 Warning: 'UnboundEntityDef' is ambiguous. It is defined * at Database/Persist/Quasi/Internal.hs:260:7 * at Database/Persist/Quasi/Internal.hs:259:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:259:1 Warning: 'UnboundFieldDef' is ambiguous. It is defined * at Database/Persist/Quasi/Internal.hs:336:7 * at Database/Persist/Quasi/Internal.hs:335:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:335:1 Warning: 'CompositeDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:552:21 * at Database/Persist/Types/Base.hs:552:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:552:1 Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:684:17 * at Database/Persist/Types/Base.hs:684:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:684:1 Warning: 'UnboundIdDef' is ambiguous. It is defined * at Database/Persist/Quasi/Internal.hs:236:21 * at Database/Persist/Quasi/Internal.hs:236:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:236:1 Warning: 'EntityNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:43:24 * at Database/Persist/Names.hs:43:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:43:1 Warning: 'MigrationOnly' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SafeToRemove' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 69% ( 23 / 33) in 'Database.Persist.Quasi.Internal' Missing documentation for: PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19) upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58) lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59) sourceLocFromTHLoc (Database/Persist/Quasi/Internal.hs:180) parseFieldType (Database/Persist/Quasi/Internal.hs:80) takeColsEx (Database/Persist/Quasi/Internal.hs:689) getSqlNameOr (Database/Persist/Quasi/Internal.hs:748) isUnboundFieldNullable (Database/Persist/Quasi/Internal.hs:436) mkAutoIdField' (Database/Persist/Quasi/Internal.hs:666) FieldTypeLit (Database/Persist/Types/Base.hs:449) Warning: 'Int64' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insertKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insert' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'entityAttrs' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'fieldAttrs' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'entityDef' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Proxy' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'entityFields' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Restrict' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Cascade' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SetNull' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SetDefault' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mpsEntityHaddocks' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 85% ( 17 / 20) in 'Database.Persist.Quasi' Missing documentation for: PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19) upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58) lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59) Warning: 'EntityJSON' is ambiguous. It is defined * at Database/Persist/TH/Internal.hs:1292:19 * at Database/Persist/TH/Internal.hs:1292:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/TH/Internal.hs:1292:1 Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:131:18 * at Database/Persist/Types/Base.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:131:1 Warning: 'UnboundEntityDef' is ambiguous. It is defined * at Database/Persist/Quasi/Internal.hs:260:7 * at Database/Persist/Quasi/Internal.hs:259:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:259:1 Warning: 'EmbedEntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:474:23 * at Database/Persist/Types/Base.hs:474:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:474:1 Warning: 'QuasiQuoter' is ambiguous. It is defined * in Language.Haskell.TH.Quote * in Language.Haskell.TH.Quote You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Quote Warning: 'ImplicitIdDef' is ambiguous. It is defined * at Database/Persist/ImplicitIdDef/Internal.hs:93:22 * at Database/Persist/ImplicitIdDef/Internal.hs:93:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/ImplicitIdDef/Internal.hs:93:1 Warning: 'MkPersistSettings' is ambiguous. It is defined * at Database/Persist/TH/Internal.hs:1113:26 * at Database/Persist/TH/Internal.hs:1113:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/TH/Internal.hs:1113:1 Warning: 'SqlPersist' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'UnboundFieldDef' is ambiguous. It is defined * at Database/Persist/Quasi/Internal.hs:336:7 * at Database/Persist/Quasi/Internal.hs:335:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:335:1 Warning: 'Name' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax Warning: 'customerName' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:684:17 * at Database/Persist/Types/Base.hs:684:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:684:1 Warning: '_customerName' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'User' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 95% ( 45 / 47) in 'Database.Persist.TH.Internal' Missing documentation for: EntityJSON (Database/Persist/TH/Internal.hs:1292) lensPTH (Database/Persist/TH/Internal.hs:1852) 97% ( 38 / 39) in 'Database.Persist.TH' Missing documentation for: EntityJSON (Database/Persist/TH/Internal.hs:1292) Warning: Database.Persist.Class.PersistConfig: could not find link destinations for: - Database.Persist.Class.PersistConfig.D:R:PersistConfigBackendEither - Database.Persist.Class.PersistConfig.D:R:PersistConfigPoolEither Warning: Database.Persist.Class.PersistField: could not find link destinations for: - Data.Vector.Vector Warning: Database.Persist.Class.PersistEntity: could not find link destinations for: - Database.Persist.Class.PersistEntity.EntityErrorMessage - Database.Persist.Class.PersistEntity.FunctionErrorMessage - Database.Persist.Class.PersistEntity.Rep_Entity Warning: Database.Persist.Types: could not find link destinations for: - Database.Persist.Types.Base.SelfEmbed - Database.Persist.Class.PersistEntity.EntityErrorMessage - Database.Persist.Class.PersistEntity.Rep_Entity Warning: Database.Persist.Class.PersistStore: could not find link destinations for: - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Compatible.Types.CompatibleKey - Database.Persist.Compatible.Types.unCompatibleKey - Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0 - Database.Persist.Compatible.Types.D:R:BaseBackendCompatible Warning: Database.Persist.SqlBackend.Internal: could not find link destinations for: - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend Warning: Database.Persist.SqlBackend: could not find link destinations for: - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend Warning: Database.Persist.Class: could not find link destinations for: - Data.Vector.Vector - Database.Persist.Class.PersistConfig.D:R:PersistConfigBackendEither - Database.Persist.Class.PersistConfig.D:R:PersistConfigPoolEither - Database.Persist.Class.PersistEntity.EntityErrorMessage - Database.Persist.Class.PersistEntity.FunctionErrorMessage - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Compatible.Types.CompatibleKey - Database.Persist.Compatible.Types.unCompatibleKey - Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0 - Database.Persist.Compatible.Types.D:R:BaseBackendCompatible Warning: Database.Persist.Sql.Types.Internal: could not find link destinations for: - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlReadBackend - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend - Database.Persist.Compatible.Types.D:R:BaseBackendCompatible Warning: Database.Persist.Compatible: could not find link destinations for: - Database.Persist.Compatible.Types.CompatibleKey - Database.Persist.Compatible.Types.unCompatibleKey - Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0 - Database.Persist.Compatible.Types.D:R:BaseBackendCompatible Warning: Database.Persist.Sql: could not find link destinations for: - Data.Vector.Vector - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlReadBackend - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend - Database.Persist.Compatible.Types.CompatibleKey - Database.Persist.Compatible.Types.unCompatibleKey - Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0 Warning: Database.Persist.Quasi.Internal.ModelParser: could not find link destinations for: - Database.Persist.Quasi.Internal.ModelParser.Member - Database.Persist.Quasi.Internal.ModelParser.DirectiveName - Database.Persist.Quasi.Internal.ModelParser.FieldStrictness - Database.Persist.Quasi.Internal.ModelParser.DocCommentBlock - Database.Persist.Quasi.Internal.ModelParser.InternalParseResult - Database.Persist.Quasi.Internal.ModelParser.EntityParseError - Database.Persist.Quasi.Internal.ModelParser.Parser - Database.Persist.Quasi.Internal.ModelParser.ExtraState Warning: Database.Persist.Quasi.Internal: could not find link destinations for: - Database.Persist.Quasi.Internal.ModelParser.EntityParseError Warning: Database.Persist.TH.Internal: could not find link destinations for: - Database.Persist.TH.Internal.Lens Documentation created: dist/doc/html/persistent/, dist/doc/html/persistent/persistent.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg Completed persistent-2.17.1.0 Configuring persistent-test-2.13.2.1... Preprocessing library for persistent-test-2.13.2.1.. Building library for persistent-test-2.13.2.1.. [ 1 of 41] Compiling Init ( src/Init.hs, dist/build/Init.o, dist/build/Init.dyn_o ) src/Init.hs:168:31: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Database.Persist.TH, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 168 | persistSettings = sqlSettings{mpsGeneric = True} | ^^^^^^^^^^ [ 2 of 41] Compiling HtmlTest ( src/HtmlTest.hs, dist/build/HtmlTest.o, dist/build/HtmlTest.dyn_o ) src/HtmlTest.hs:18:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 18 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "htmlMigrate"] | ^^^^^^^^^^ [ 3 of 41] Compiling GeneratedColumnTestSQL ( src/GeneratedColumnTestSQL.hs, dist/build/GeneratedColumnTestSQL.o, dist/build/GeneratedColumnTestSQL.dyn_o ) [ 4 of 41] Compiling ForeignKey ( src/ForeignKey.hs, dist/build/ForeignKey.o, dist/build/ForeignKey.dyn_o ) src/ForeignKey.hs:19:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 19 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"] | ^^^^^^^^^^ [ 5 of 41] Compiling EquivalentTypeTest ( src/EquivalentTypeTest.hs, dist/build/EquivalentTypeTest.o, dist/build/EquivalentTypeTest.dyn_o ) [ 6 of 41] Compiling EntityEmbedTest ( src/EntityEmbedTest.hs, dist/build/EntityEmbedTest.o, dist/build/EntityEmbedTest.dyn_o ) src/EntityEmbedTest.hs:11:21: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | persistSettings{mpsGeneric = True} | ^^^^^^^^^^ [ 7 of 41] Compiling EmptyEntityTest ( src/EmptyEntityTest.hs, dist/build/EmptyEntityTest.o, dist/build/EmptyEntityTest.dyn_o ) src/EmptyEntityTest.hs:14:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 14 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"] | ^^^^^^^^^^ [ 8 of 41] Compiling EmbedTest ( src/EmbedTest.hs, dist/build/EmbedTest.o, dist/build/EmbedTest.dyn_o ) src/EmbedTest.hs:33:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 33 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedMigrate"] | ^^^^^^^^^^ [ 9 of 41] Compiling EmbedOrderTest ( src/EmbedOrderTest.hs, dist/build/EmbedOrderTest.o, dist/build/EmbedOrderTest.dyn_o ) src/EmbedOrderTest.hs:16:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 16 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedOrderMigrate"] | ^^^^^^^^^^ [10 of 41] Compiling DataTypeTest ( src/DataTypeTest.hs, dist/build/DataTypeTest.o, dist/build/DataTypeTest.dyn_o ) [11 of 41] Compiling CustomPrimaryKeyReferenceTest ( src/CustomPrimaryKeyReferenceTest.hs, dist/build/CustomPrimaryKeyReferenceTest.o, dist/build/CustomPrimaryKeyReferenceTest.dyn_o ) src/CustomPrimaryKeyReferenceTest.hs:13:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [12 of 41] Compiling CustomPersistField ( src/CustomPersistField.hs, dist/build/CustomPersistField.o, dist/build/CustomPersistField.dyn_o ) [13 of 41] Compiling CustomPersistFieldTest ( src/CustomPersistFieldTest.hs, dist/build/CustomPersistFieldTest.o, dist/build/CustomPersistFieldTest.dyn_o ) src/CustomPersistFieldTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "customFieldMigrate"] | ^^^^^^^^^^ [14 of 41] Compiling CompositeTest ( src/CompositeTest.hs, dist/build/CompositeTest.o, dist/build/CompositeTest.dyn_o ) src/CompositeTest.hs:17:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 17 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"] | ^^^^^^^^^^ [15 of 41] Compiling LargeNumberTest ( src/LargeNumberTest.hs, dist/build/LargeNumberTest.o, dist/build/LargeNumberTest.dyn_o ) src/LargeNumberTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "numberMigrate"] | ^^^^^^^^^^ [16 of 41] Compiling LongIdentifierTest ( src/LongIdentifierTest.hs, dist/build/LongIdentifierTest.o, dist/build/LongIdentifierTest.dyn_o ) [17 of 41] Compiling MaxLenTest ( src/MaxLenTest.hs, dist/build/MaxLenTest.o, dist/build/MaxLenTest.dyn_o ) src/MaxLenTest.hs:12:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 12 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maxlenMigrate"] | ^^^^^^^^^^ [18 of 41] Compiling MaybeFieldDefsTest ( src/MaybeFieldDefsTest.hs, dist/build/MaybeFieldDefsTest.o, dist/build/MaybeFieldDefsTest.dyn_o ) src/MaybeFieldDefsTest.hs:13:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maybeFieldDefMigrate"] | ^^^^^^^^^^ [19 of 41] Compiling MigrationColumnLengthTest ( src/MigrationColumnLengthTest.hs, dist/build/MigrationColumnLengthTest.o, dist/build/MigrationColumnLengthTest.dyn_o ) [20 of 41] Compiling MigrationIdempotencyTest ( src/MigrationIdempotencyTest.hs, dist/build/MigrationIdempotencyTest.o, dist/build/MigrationIdempotencyTest.dyn_o ) [21 of 41] Compiling MigrationOnlyTest ( src/MigrationOnlyTest.hs, dist/build/MigrationOnlyTest.o, dist/build/MigrationOnlyTest.dyn_o ) src/MigrationOnlyTest.hs:15:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 15 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll1"] | ^^^^^^^^^^ src/MigrationOnlyTest.hs:25:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 25 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll2"] | ^^^^^^^^^^ [22 of 41] Compiling MigrationTest ( src/MigrationTest.hs, dist/build/MigrationTest.o, dist/build/MigrationTest.dyn_o ) [23 of 41] Compiling PersistTestPetCollarType ( src/PersistTestPetCollarType.hs, dist/build/PersistTestPetCollarType.o, dist/build/PersistTestPetCollarType.dyn_o ) [24 of 41] Compiling PersistTestPetType ( src/PersistTestPetType.hs, dist/build/PersistTestPetType.o, dist/build/PersistTestPetType.dyn_o ) [25 of 41] Compiling PersistUniqueTest ( src/PersistUniqueTest.hs, dist/build/PersistUniqueTest.o, dist/build/PersistUniqueTest.dyn_o ) src/PersistUniqueTest.hs:11:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [26 of 41] Compiling PersistentTestModelsImports ( src/PersistentTestModelsImports.hs, dist/build/PersistentTestModelsImports.o, dist/build/PersistentTestModelsImports.dyn_o ) [27 of 41] Compiling PersistentTestModels ( src/PersistentTestModels.hs, dist/build/PersistentTestModels.o, dist/build/PersistentTestModels.dyn_o ) src/PersistentTestModels.hs:(28,23)-(128,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistUpperCase "\n\ \\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ Person json\n\ \ name Text\n\ \ age Int some=\"ignored -- \\\" attribute\"\n\ \ color Text Maybe -- this is a comment sql=foobarbaz\n\ \ PersonNameKey name -- this is a comment sql=foobarbaz\n\ \ deriving Show Eq\n\ \ Person1\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ name Text\n\ \ age Int\n\ \ deriving Show Eq\n\ \ PersonMaybeAge\n\ \ name Text\n\ \ age Int Maybe\n\ \ PersonMay json\n\ \ name Text Maybe\n\ \ color Text Maybe\n\ \ deriving Show Eq\n\ \ Pet\n\ \ ownerId PersonId\n\ \ name Text\n\ \ -- deriving Show Eq\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ type PetType\n\ \ MaybeOwnedPet\n\ \ ownerId PersonId Maybe\n\ \ name Text\n\ \ type PetType\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ NeedsPet\n\ \ petKey PetId\n\ \ OutdoorPet\n\ \ ownerId PersonId\n\ \ collar PetCollar\n\ \ type PetType\n\ \\n\ \ -- From the scaffold\n\ \ UserPT\n\ \ ident Text\n\ \ password Text Maybe\n\ \ UniqueUserPT ident\n\ \ EmailPT\n\ \ email Text\n\ \ user UserPTId Maybe\n\ \ verkey Text Maybe\n\ \ UniqueEmailPT email\n\ \\n\ \ Upsert\n\ \ email Text\n\ \ attr Text\n\ \ extra Text\n\ \ age Int\n\ \ UniqueUpsert email\n\ \ deriving Eq Show\n\ \\n\ \ UpsertBy\n\ \ email Text\n\ \ city Text\n\ \ attr Text\n\ \ UniqueUpsertBy email\n\ \ UniqueUpsertByCity city\n\ \ deriving Eq Show\n\ \\n\ \ Strict\n\ \ !yes Int\n\ \ ~no Int\n\ \ def Int\n\ \\n\ \ DudeWeirdColumns\n\ \ name Text\n\ \ foo Int Maybe MigrationOnly\n\ \ bar Double SafeToRemove\n\ \ UniqueName name\n\ \ deriving Eq Show\n\ \\n\ \ -- | This is a doc comment for a relationship.\n\ \ -- Only the first line requires a pipe.\n\ \ -- | Pipes are optional on subsequent lines.\n\ \ Relationship\n\ \ -- | Fields should be documentable.\n\ \ name String\n\ \ parent RelationshipId Maybe\n\ \\n\ \ MutA\n\ \ mutB MutBId\n\ \\n\ \ MutB\n\ \ mutA MutAId\n\ \\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) (FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) [] False (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMigrationOnly, FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrSafeToRemove] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing (Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))), Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))] src/PersistentTestModels.hs:(26,1)-(128,2): Splicing declarations share [mkPersist persistSettings {mpsGeneric = True}, mkMigrate "testMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) (FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) [] False (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMigrationOnly, FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrSafeToRemove] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing (Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))), Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))]) ======> instance PersistStore backend => PersistField (PersonGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age", "color"] instance PersistStore backend => PersistFieldSql (PersonGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (Person1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age"] instance PersistStore backend => PersistFieldSql (Person1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PersonMaybeAgeGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age"] instance PersistStore backend => PersistFieldSql (PersonMaybeAgeGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PersonMayGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "color"] instance PersistStore backend => PersistFieldSql (PersonMayGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "name", "type"] instance PersistStore backend => PersistFieldSql (PetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MaybeOwnedPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "name", "type"] instance PersistStore backend => PersistFieldSql (MaybeOwnedPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NeedsPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["petKey"] instance PersistStore backend => PersistFieldSql (NeedsPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (OutdoorPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "collar", "type"] instance PersistStore backend => PersistFieldSql (OutdoorPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UserPTGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ident", "password"] instance PersistStore backend => PersistFieldSql (UserPTGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (EmailPTGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "user", "verkey"] instance PersistStore backend => PersistFieldSql (EmailPTGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UpsertGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "attr", "extra", "age"] instance PersistStore backend => PersistFieldSql (UpsertGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UpsertByGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "city", "attr"] instance PersistStore backend => PersistFieldSql (UpsertByGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (StrictGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["yes", "no", "def"] instance PersistStore backend => PersistFieldSql (StrictGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (DudeWeirdColumnsGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name"] instance PersistStore backend => PersistFieldSql (DudeWeirdColumnsGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (RelationshipGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "parent"] instance PersistStore backend => PersistFieldSql (RelationshipGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MutAGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["mutB"] instance PersistStore backend => PersistFieldSql (MutAGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MutBGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["mutA"] instance PersistStore backend => PersistFieldSql (MutBGeneric backend) where sqlType _ = SqlString type Person = PersonGeneric SqlBackend data PersonGeneric backend = Person {personName :: !Text, personAge :: !Int, personColor :: !(Maybe Text)} deriving stock (Show, Eq) type PersonId = Key Person instance PersistStore backend => PersistEntity (PersonGeneric backend) where type PersistEntityBackend (PersonGeneric backend) = backend data Unique (PersonGeneric backend) = PersonNameKey Text newtype Key (PersonGeneric backend) = PersonKey {unPersonKey :: (BackendKey backend)} data EntityField (PersonGeneric backend) typ = (typ ~ Key (PersonGeneric backend)) => PersonId | (typ ~ Text) => PersonName | (typ ~ Int) => PersonAge | (typ ~ Maybe Text) => PersonColor keyToValues = ((: []) . (toPersistValue . (\ PersonKey {unPersonKey = x} -> x))) keyFromValues = (fmap PersonKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jjT = ((Entity <$> fromField_a5jjT PersonId) <*> (((pure Person <*> fromField_a5jjT PersonName) <*> fromField_a5jjT PersonAge) <*> fromField_a5jjT PersonColor)) tabulateEntityApply fromField_a5jjS = ((Entity <$> fromField_a5jjS PersonId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((Person <$> fromField_a5jjS PersonName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jjS PersonAge) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jjS PersonColor)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Person x_a5jjs x_a5jjt x_a5jju) = [toPersistValue x_a5jjs, toPersistValue x_a5jjt, toPersistValue x_a5jju] fromPersistValues [x1_a5jjw, x2_a5jjx, x3_a5jjy] = 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_a5jjw <*> (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_a5jjx <*> (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_a5jjy fromPersistValues x_a5jjv = (Left $ mappend (Data.Text.unpackCStringLen# "Person: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a5jjv)) 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_a5jjz) = [toPersistValue x_a5jjz] persistUniqueKeys (Person _name_a5jjA _age_a5jjB _color_a5jjC) = [PersonNameKey _name_a5jjA] 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_a5jjE) key_a5jjF -> Entity key_a5jjF value_a5jjE) fieldLens PersonName = Database.Persist.TH.Internal.lensPTH ((\ Person {personName = x} -> x) . entityVal) (\ (Entity key_a5jjG value_a5jjH) x_a5jjI -> Entity key_a5jjG (case value_a5jjH of Person {personAge = personAge_a5jjK, personColor = personColor_a5jjL} -> Person {personName = x_a5jjI, personAge = personAge, personColor = personColor})) fieldLens PersonAge = Database.Persist.TH.Internal.lensPTH ((\ Person {personAge = x} -> x) . entityVal) (\ (Entity key_a5jjG value_a5jjH) x_a5jjI -> Entity key_a5jjG (case value_a5jjH of Person {personName = personName_a5jjM, personColor = personColor_a5jjO} -> Person {personName = personName, personAge = x_a5jjI, personColor = personColor})) fieldLens PersonColor = Database.Persist.TH.Internal.lensPTH ((\ Person {personColor = x} -> x) . entityVal) (\ (Entity key_a5jjG value_a5jjH) x_a5jjI -> Entity key_a5jjG (case value_a5jjH of Person {personName = personName_a5jjP, personAge = personAge_a5jjQ} -> Person {personName = personName, personAge = personAge, personColor = x_a5jjI})) 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_a5jkc = ((Entity <$> fromField_a5jkc Person1Id) <*> ((pure Person1 <*> fromField_a5jkc Person1Name) <*> fromField_a5jkc Person1Age)) tabulateEntityApply fromField_a5jkb = ((Entity <$> fromField_a5jkb Person1Id) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((Person1 <$> fromField_a5jkb Person1Name) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jkb Person1Age)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Person1 x_a5jjU x_a5jjV) = [toPersistValue x_a5jjU, toPersistValue x_a5jjV] fromPersistValues [x1_a5jjX, x2_a5jjY] = 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_a5jjX <*> (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_a5jjY fromPersistValues x_a5jjW = (Left $ mappend (Data.Text.unpackCStringLen# "Person1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 38#)) (Data.Text.Internal.pack $ show x_a5jjW)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Person1 _name_a5jjZ _age_a5jk0) = [] 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_a5jk2) key_a5jk3 -> Entity key_a5jk3 value_a5jk2) fieldLens Person1Name = Database.Persist.TH.Internal.lensPTH ((\ Person1 {person1Name = x} -> x) . entityVal) (\ (Entity key_a5jk4 value_a5jk5) x_a5jk6 -> Entity key_a5jk4 (case value_a5jk5 of Person1 {person1Age = person1Age_a5jk8} -> Person1 {person1Name = x_a5jk6, person1Age = person1Age})) fieldLens Person1Age = Database.Persist.TH.Internal.lensPTH ((\ Person1 {person1Age = x} -> x) . entityVal) (\ (Entity key_a5jk4 value_a5jk5) x_a5jk6 -> Entity key_a5jk4 (case value_a5jk5 of Person1 {person1Name = person1Name_a5jk9} -> Person1 {person1Name = person1Name, person1Age = x_a5jk6})) 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_a5jkv = ((Entity <$> fromField_a5jkv PersonMaybeAgeId) <*> ((pure PersonMaybeAge <*> fromField_a5jkv PersonMaybeAgeName) <*> fromField_a5jkv PersonMaybeAgeAge)) tabulateEntityApply fromField_a5jku = ((Entity <$> fromField_a5jku PersonMaybeAgeId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((PersonMaybeAge <$> fromField_a5jku PersonMaybeAgeName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jku PersonMaybeAgeAge)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (PersonMaybeAge x_a5jkd x_a5jke) = [toPersistValue x_a5jkd, toPersistValue x_a5jke] fromPersistValues [x1_a5jkg, x2_a5jkh] = 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_a5jkg <*> (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_a5jkh fromPersistValues x_a5jkf = (Left $ mappend (Data.Text.unpackCStringLen# "PersonMaybeAge: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 45#)) (Data.Text.Internal.pack $ show x_a5jkf)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (PersonMaybeAge _name_a5jki _age_a5jkj) = [] 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_a5jkl) key_a5jkm -> Entity key_a5jkm value_a5jkl) fieldLens PersonMaybeAgeName = Database.Persist.TH.Internal.lensPTH ((\ PersonMaybeAge {personMaybeAgeName = x} -> x) . entityVal) (\ (Entity key_a5jkn value_a5jko) x_a5jkp -> Entity key_a5jkn (case value_a5jko of PersonMaybeAge {personMaybeAgeAge = personMaybeAgeAge_a5jkr} -> PersonMaybeAge {personMaybeAgeName = x_a5jkp, personMaybeAgeAge = personMaybeAgeAge})) fieldLens PersonMaybeAgeAge = Database.Persist.TH.Internal.lensPTH ((\ PersonMaybeAge {personMaybeAgeAge = x} -> x) . entityVal) (\ (Entity key_a5jkn value_a5jko) x_a5jkp -> Entity key_a5jkn (case value_a5jko of PersonMaybeAge {personMaybeAgeName = personMaybeAgeName_a5jks} -> PersonMaybeAge {personMaybeAgeName = personMaybeAgeName, personMaybeAgeAge = x_a5jkp})) 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_a5jkO = ((Entity <$> fromField_a5jkO PersonMayId) <*> ((pure PersonMay <*> fromField_a5jkO PersonMayName) <*> fromField_a5jkO PersonMayColor)) tabulateEntityApply fromField_a5jkN = ((Entity <$> fromField_a5jkN PersonMayId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((PersonMay <$> fromField_a5jkN PersonMayName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jkN PersonMayColor)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (PersonMay x_a5jkw x_a5jkx) = [toPersistValue x_a5jkw, toPersistValue x_a5jkx] fromPersistValues [x1_a5jkz, x2_a5jkA] = 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_a5jkz <*> (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_a5jkA fromPersistValues x_a5jky = (Left $ mappend (Data.Text.unpackCStringLen# "PersonMay: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a5jky)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (PersonMay _name_a5jkB _color_a5jkC) = [] 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_a5jkE) key_a5jkF -> Entity key_a5jkF value_a5jkE) fieldLens PersonMayName = Database.Persist.TH.Internal.lensPTH ((\ PersonMay {personMayName = x} -> x) . entityVal) (\ (Entity key_a5jkG value_a5jkH) x_a5jkI -> Entity key_a5jkG (case value_a5jkH of PersonMay {personMayColor = personMayColor_a5jkK} -> PersonMay {personMayName = x_a5jkI, personMayColor = personMayColor})) fieldLens PersonMayColor = Database.Persist.TH.Internal.lensPTH ((\ PersonMay {personMayColor = x} -> x) . entityVal) (\ (Entity key_a5jkG value_a5jkH) x_a5jkI -> Entity key_a5jkG (case value_a5jkH of PersonMay {personMayName = personMayName_a5jkL} -> PersonMay {personMayName = personMayName, personMayColor = x_a5jkI})) 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_a5jlf = ((Entity <$> fromField_a5jlf PetId) <*> (((pure Pet <*> fromField_a5jlf PetOwnerId) <*> fromField_a5jlf PetName) <*> fromField_a5jlf PetType)) tabulateEntityApply fromField_a5jle = ((Entity <$> fromField_a5jle PetId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((Pet <$> fromField_a5jle PetOwnerId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jle PetName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jle PetType)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Pet x_a5jkP x_a5jkQ x_a5jkR) = [toPersistValue x_a5jkP, toPersistValue x_a5jkQ, toPersistValue x_a5jkR] fromPersistValues [x1_a5jkT, x2_a5jkU, x3_a5jkV] = 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_a5jkT <*> (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_a5jkU <*> (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_a5jkV fromPersistValues x_a5jkS = (Left $ mappend (Data.Text.unpackCStringLen# "Pet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 34#)) (Data.Text.Internal.pack $ show x_a5jkS)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Pet _ownerId_a5jkW _name_a5jkX _type_a5jkY) = [] 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_a5jl0) key_a5jl1 -> Entity key_a5jl1 value_a5jl0) fieldLens PetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ Pet {petOwnerId = x} -> x) . entityVal) (\ (Entity key_a5jl2 value_a5jl3) x_a5jl4 -> Entity key_a5jl2 (case value_a5jl3 of Pet {petName = petName_a5jl6, petType = petType_a5jl7} -> Pet {petOwnerId = x_a5jl4, petName = petName, petType = petType})) fieldLens PetName = Database.Persist.TH.Internal.lensPTH ((\ Pet {petName = x} -> x) . entityVal) (\ (Entity key_a5jl2 value_a5jl3) x_a5jl4 -> Entity key_a5jl2 (case value_a5jl3 of Pet {petOwnerId = petOwnerId_a5jl8, petType = petType_a5jla} -> Pet {petOwnerId = petOwnerId, petName = x_a5jl4, petType = petType})) fieldLens PetType = Database.Persist.TH.Internal.lensPTH ((\ Pet {petType = x} -> x) . entityVal) (\ (Entity key_a5jl2 value_a5jl3) x_a5jl4 -> Entity key_a5jl2 (case value_a5jl3 of Pet {petOwnerId = petOwnerId_a5jlb, petName = petName_a5jlc} -> Pet {petOwnerId = petOwnerId, petName = petName, petType = x_a5jl4})) 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_a5jlG = ((Entity <$> fromField_a5jlG MaybeOwnedPetId) <*> (((pure MaybeOwnedPet <*> fromField_a5jlG MaybeOwnedPetOwnerId) <*> fromField_a5jlG MaybeOwnedPetName) <*> fromField_a5jlG MaybeOwnedPetType)) tabulateEntityApply fromField_a5jlF = ((Entity <$> fromField_a5jlF MaybeOwnedPetId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((MaybeOwnedPet <$> fromField_a5jlF MaybeOwnedPetOwnerId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jlF MaybeOwnedPetName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jlF MaybeOwnedPetType)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MaybeOwnedPet x_a5jlg x_a5jlh x_a5jli) = [toPersistValue x_a5jlg, toPersistValue x_a5jlh, toPersistValue x_a5jli] fromPersistValues [x1_a5jlk, x2_a5jll, x3_a5jlm] = 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_a5jlk <*> (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_a5jll <*> (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_a5jlm fromPersistValues x_a5jlj = (Left $ mappend (Data.Text.unpackCStringLen# "MaybeOwnedPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a5jlj)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MaybeOwnedPet _ownerId_a5jln _name_a5jlo _type_a5jlp) = [] 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_a5jlr) key_a5jls -> Entity key_a5jls value_a5jlr) fieldLens MaybeOwnedPetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetOwnerId = x} -> x) . entityVal) (\ (Entity key_a5jlt value_a5jlu) x_a5jlv -> Entity key_a5jlt (case value_a5jlu of MaybeOwnedPet {maybeOwnedPetName = maybeOwnedPetName_a5jlx, maybeOwnedPetType = maybeOwnedPetType_a5jly} -> MaybeOwnedPet {maybeOwnedPetOwnerId = x_a5jlv, maybeOwnedPetName = maybeOwnedPetName, maybeOwnedPetType = maybeOwnedPetType})) fieldLens MaybeOwnedPetName = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetName = x} -> x) . entityVal) (\ (Entity key_a5jlt value_a5jlu) x_a5jlv -> Entity key_a5jlt (case value_a5jlu of MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a5jlz, maybeOwnedPetType = maybeOwnedPetType_a5jlB} -> MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId, maybeOwnedPetName = x_a5jlv, maybeOwnedPetType = maybeOwnedPetType})) fieldLens MaybeOwnedPetType = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetType = x} -> x) . entityVal) (\ (Entity key_a5jlt value_a5jlu) x_a5jlv -> Entity key_a5jlt (case value_a5jlu of MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a5jlC, maybeOwnedPetName = maybeOwnedPetName_a5jlD} -> MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId, maybeOwnedPetName = maybeOwnedPetName, maybeOwnedPetType = x_a5jlv})) 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_a5jlT = ((Entity <$> fromField_a5jlT NeedsPetId) <*> (pure NeedsPet <*> fromField_a5jlT NeedsPetPetKey)) tabulateEntityApply fromField_a5jlS = ((Entity <$> fromField_a5jlS NeedsPetId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (NeedsPet <$> fromField_a5jlS NeedsPetPetKey)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)), fieldSqlType = sqlType (Proxy :: Proxy PetId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NeedsPet x_a5jlH) = [toPersistValue x_a5jlH] fromPersistValues [x1_a5jlJ] = 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_a5jlJ fromPersistValues x_a5jlI = (Left $ mappend (Data.Text.unpackCStringLen# "NeedsPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 39#)) (Data.Text.Internal.pack $ show x_a5jlI)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NeedsPet _petKey_a5jlK) = [] 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_a5jlM) key_a5jlN -> Entity key_a5jlN value_a5jlM) fieldLens NeedsPetPetKey = Database.Persist.TH.Internal.lensPTH ((\ NeedsPet {needsPetPetKey = x} -> x) . entityVal) (\ (Entity key_a5jlO value_a5jlP) x_a5jlQ -> Entity key_a5jlO (case value_a5jlP of NeedsPet {} -> NeedsPet {needsPetPetKey = x_a5jlQ})) 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_a5jmk = ((Entity <$> fromField_a5jmk OutdoorPetId) <*> (((pure OutdoorPet <*> fromField_a5jmk OutdoorPetOwnerId) <*> fromField_a5jmk OutdoorPetCollar) <*> fromField_a5jmk OutdoorPetType)) tabulateEntityApply fromField_a5jmj = ((Entity <$> fromField_a5jmj OutdoorPetId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((OutdoorPet <$> fromField_a5jmj OutdoorPetOwnerId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jmj OutdoorPetCollar) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jmj OutdoorPetType)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#)), fieldSqlType = sqlType (Proxy :: Proxy PetCollar), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (OutdoorPet x_a5jlU x_a5jlV x_a5jlW) = [toPersistValue x_a5jlU, toPersistValue x_a5jlV, toPersistValue x_a5jlW] fromPersistValues [x1_a5jlY, x2_a5jlZ, x3_a5jm0] = 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_a5jlY <*> (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_a5jlZ <*> (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_a5jm0 fromPersistValues x_a5jlX = (Left $ mappend (Data.Text.unpackCStringLen# "OutdoorPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 41#)) (Data.Text.Internal.pack $ show x_a5jlX)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (OutdoorPet _ownerId_a5jm1 _collar_a5jm2 _type_a5jm3) = [] 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_a5jm5) key_a5jm6 -> Entity key_a5jm6 value_a5jm5) fieldLens OutdoorPetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetOwnerId = x} -> x) . entityVal) (\ (Entity key_a5jm7 value_a5jm8) x_a5jm9 -> Entity key_a5jm7 (case value_a5jm8 of OutdoorPet {outdoorPetCollar = outdoorPetCollar_a5jmb, outdoorPetType = outdoorPetType_a5jmc} -> OutdoorPet {outdoorPetOwnerId = x_a5jm9, outdoorPetCollar = outdoorPetCollar, outdoorPetType = outdoorPetType})) fieldLens OutdoorPetCollar = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetCollar = x} -> x) . entityVal) (\ (Entity key_a5jm7 value_a5jm8) x_a5jm9 -> Entity key_a5jm7 (case value_a5jm8 of OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a5jmd, outdoorPetType = outdoorPetType_a5jmf} -> OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = x_a5jm9, outdoorPetType = outdoorPetType})) fieldLens OutdoorPetType = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetType = x} -> x) . entityVal) (\ (Entity key_a5jm7 value_a5jm8) x_a5jm9 -> Entity key_a5jm7 (case value_a5jm8 of OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a5jmg, outdoorPetCollar = outdoorPetCollar_a5jmh} -> OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = outdoorPetCollar, outdoorPetType = x_a5jm9})) 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_a5jmE = ((Entity <$> fromField_a5jmE UserPTId) <*> ((pure UserPT <*> fromField_a5jmE UserPTIdent) <*> fromField_a5jmE UserPTPassword)) tabulateEntityApply fromField_a5jmD = ((Entity <$> fromField_a5jmD UserPTId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((UserPT <$> fromField_a5jmD UserPTIdent) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jmD UserPTPassword)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UserPT x_a5jml x_a5jmm) = [toPersistValue x_a5jml, toPersistValue x_a5jmm] fromPersistValues [x1_a5jmo, x2_a5jmp] = 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_a5jmo <*> (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_a5jmp fromPersistValues x_a5jmn = (Left $ mappend (Data.Text.unpackCStringLen# "UserPT: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a5jmn)) 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_a5jmq) = [toPersistValue x_a5jmq] persistUniqueKeys (UserPT _ident_a5jmr _password_a5jms) = [UniqueUserPT _ident_a5jmr] 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_a5jmu) key_a5jmv -> Entity key_a5jmv value_a5jmu) fieldLens UserPTIdent = Database.Persist.TH.Internal.lensPTH ((\ UserPT {userPTIdent = x} -> x) . entityVal) (\ (Entity key_a5jmw value_a5jmx) x_a5jmy -> Entity key_a5jmw (case value_a5jmx of UserPT {userPTPassword = userPTPassword_a5jmA} -> UserPT {userPTIdent = x_a5jmy, userPTPassword = userPTPassword})) fieldLens UserPTPassword = Database.Persist.TH.Internal.lensPTH ((\ UserPT {userPTPassword = x} -> x) . entityVal) (\ (Entity key_a5jmw value_a5jmx) x_a5jmy -> Entity key_a5jmw (case value_a5jmx of UserPT {userPTIdent = userPTIdent_a5jmB} -> UserPT {userPTIdent = userPTIdent, userPTPassword = x_a5jmy})) 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_a5jn6 = ((Entity <$> fromField_a5jn6 EmailPTId) <*> (((pure EmailPT <*> fromField_a5jn6 EmailPTEmail) <*> fromField_a5jn6 EmailPTUser) <*> fromField_a5jn6 EmailPTVerkey)) tabulateEntityApply fromField_a5jn5 = ((Entity <$> fromField_a5jn5 EmailPTId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((EmailPT <$> fromField_a5jn5 EmailPTEmail) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jn5 EmailPTUser) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jn5 EmailPTVerkey)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy UserPTId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (EmailPT x_a5jmF x_a5jmG x_a5jmH) = [toPersistValue x_a5jmF, toPersistValue x_a5jmG, toPersistValue x_a5jmH] fromPersistValues [x1_a5jmJ, x2_a5jmK, x3_a5jmL] = 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_a5jmJ <*> (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_a5jmK <*> (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_a5jmL fromPersistValues x_a5jmI = (Left $ mappend (Data.Text.unpackCStringLen# "EmailPT: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 38#)) (Data.Text.Internal.pack $ show x_a5jmI)) 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_a5jmM) = [toPersistValue x_a5jmM] persistUniqueKeys (EmailPT _email_a5jmN _user_a5jmO _verkey_a5jmP) = [UniqueEmailPT _email_a5jmN] 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_a5jmR) key_a5jmS -> Entity key_a5jmS value_a5jmR) fieldLens EmailPTEmail = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTEmail = x} -> x) . entityVal) (\ (Entity key_a5jmT value_a5jmU) x_a5jmV -> Entity key_a5jmT (case value_a5jmU of EmailPT {emailPTUser = emailPTUser_a5jmX, emailPTVerkey = emailPTVerkey_a5jmY} -> EmailPT {emailPTEmail = x_a5jmV, emailPTUser = emailPTUser, emailPTVerkey = emailPTVerkey})) fieldLens EmailPTUser = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTUser = x} -> x) . entityVal) (\ (Entity key_a5jmT value_a5jmU) x_a5jmV -> Entity key_a5jmT (case value_a5jmU of EmailPT {emailPTEmail = emailPTEmail_a5jmZ, emailPTVerkey = emailPTVerkey_a5jn1} -> EmailPT {emailPTEmail = emailPTEmail, emailPTUser = x_a5jmV, emailPTVerkey = emailPTVerkey})) fieldLens EmailPTVerkey = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTVerkey = x} -> x) . entityVal) (\ (Entity key_a5jmT value_a5jmU) x_a5jmV -> Entity key_a5jmT (case value_a5jmU of EmailPT {emailPTEmail = emailPTEmail_a5jn2, emailPTUser = emailPTUser_a5jn3} -> EmailPT {emailPTEmail = emailPTEmail, emailPTUser = emailPTUser, emailPTVerkey = x_a5jmV})) 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_a5jnI = ((Entity <$> fromField_a5jnI UpsertId) <*> ((((pure Upsert <*> fromField_a5jnI UpsertEmail) <*> fromField_a5jnI UpsertAttr) <*> fromField_a5jnI UpsertExtra) <*> fromField_a5jnI UpsertAge)) tabulateEntityApply fromField_a5jnH = ((Entity <$> fromField_a5jnH UpsertId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((((Upsert <$> fromField_a5jnH UpsertEmail) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jnH UpsertAttr) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jnH UpsertExtra) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jnH UpsertAge)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Upsert x_a5jn7 x_a5jn8 x_a5jn9 x_a5jna) = [toPersistValue x_a5jn7, toPersistValue x_a5jn8, toPersistValue x_a5jn9, toPersistValue x_a5jna] fromPersistValues [x1_a5jnc, x2_a5jnd, x3_a5jne, x4_a5jnf] = 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_a5jnc <*> (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_a5jnd <*> (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_a5jne <*> (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_a5jnf fromPersistValues x_a5jnb = (Left $ mappend (Data.Text.unpackCStringLen# "Upsert: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a5jnb)) 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_a5jng) = [toPersistValue x_a5jng] persistUniqueKeys (Upsert _email_a5jnh _attr_a5jni _extra_a5jnj _age_a5jnk) = [UniqueUpsert _email_a5jnh] 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_a5jnm) key_a5jnn -> Entity key_a5jnn value_a5jnm) fieldLens UpsertEmail = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertEmail = x} -> x) . entityVal) (\ (Entity key_a5jno value_a5jnp) x_a5jnq -> Entity key_a5jno (case value_a5jnp of Upsert {upsertAttr = upsertAttr_a5jns, upsertExtra = upsertExtra_a5jnt, upsertAge = upsertAge_a5jnu} -> Upsert {upsertEmail = x_a5jnq, upsertAttr = upsertAttr, upsertExtra = upsertExtra, upsertAge = upsertAge})) fieldLens UpsertAttr = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertAttr = x} -> x) . entityVal) (\ (Entity key_a5jno value_a5jnp) x_a5jnq -> Entity key_a5jno (case value_a5jnp of Upsert {upsertEmail = upsertEmail_a5jnv, upsertExtra = upsertExtra_a5jnx, upsertAge = upsertAge_a5jny} -> Upsert {upsertEmail = upsertEmail, upsertAttr = x_a5jnq, upsertExtra = upsertExtra, upsertAge = upsertAge})) fieldLens UpsertExtra = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertExtra = x} -> x) . entityVal) (\ (Entity key_a5jno value_a5jnp) x_a5jnq -> Entity key_a5jno (case value_a5jnp of Upsert {upsertEmail = upsertEmail_a5jnz, upsertAttr = upsertAttr_a5jnA, upsertAge = upsertAge_a5jnC} -> Upsert {upsertEmail = upsertEmail, upsertAttr = upsertAttr, upsertExtra = x_a5jnq, upsertAge = upsertAge})) fieldLens UpsertAge = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertAge = x} -> x) . entityVal) (\ (Entity key_a5jno value_a5jnp) x_a5jnq -> Entity key_a5jno (case value_a5jnp of Upsert {upsertEmail = upsertEmail_a5jnD, upsertAttr = upsertAttr_a5jnE, upsertExtra = upsertExtra_a5jnF} -> Upsert {upsertEmail = upsertEmail, upsertAttr = upsertAttr, upsertExtra = upsertExtra, upsertAge = x_a5jnq})) 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_a5job = ((Entity <$> fromField_a5job UpsertById) <*> (((pure UpsertBy <*> fromField_a5job UpsertByEmail) <*> fromField_a5job UpsertByCity) <*> fromField_a5job UpsertByAttr)) tabulateEntityApply fromField_a5joa = ((Entity <$> fromField_a5joa UpsertById) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((UpsertBy <$> fromField_a5joa UpsertByEmail) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5joa UpsertByCity) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5joa UpsertByAttr)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UpsertBy x_a5jnJ x_a5jnK x_a5jnL) = [toPersistValue x_a5jnJ, toPersistValue x_a5jnK, toPersistValue x_a5jnL] fromPersistValues [x1_a5jnN, x2_a5jnO, x3_a5jnP] = 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_a5jnN <*> (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_a5jnO <*> (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_a5jnP fromPersistValues x_a5jnM = (Left $ mappend (Data.Text.unpackCStringLen# "UpsertBy: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 39#)) (Data.Text.Internal.pack $ show x_a5jnM)) 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_a5jnQ) = [toPersistValue x_a5jnQ] persistUniqueToValues (UniqueUpsertByCity x_a5jnR) = [toPersistValue x_a5jnR] persistUniqueKeys (UpsertBy _email_a5jnS _city_a5jnT _attr_a5jnU) = [UniqueUpsertBy _email_a5jnS, UniqueUpsertByCity _city_a5jnT] 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_a5jnW) key_a5jnX -> Entity key_a5jnX value_a5jnW) fieldLens UpsertByEmail = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByEmail = x} -> x) . entityVal) (\ (Entity key_a5jnY value_a5jnZ) x_a5jo0 -> Entity key_a5jnY (case value_a5jnZ of UpsertBy {upsertByCity = upsertByCity_a5jo2, upsertByAttr = upsertByAttr_a5jo3} -> UpsertBy {upsertByEmail = x_a5jo0, upsertByCity = upsertByCity, upsertByAttr = upsertByAttr})) fieldLens UpsertByCity = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByCity = x} -> x) . entityVal) (\ (Entity key_a5jnY value_a5jnZ) x_a5jo0 -> Entity key_a5jnY (case value_a5jnZ of UpsertBy {upsertByEmail = upsertByEmail_a5jo4, upsertByAttr = upsertByAttr_a5jo6} -> UpsertBy {upsertByEmail = upsertByEmail, upsertByCity = x_a5jo0, upsertByAttr = upsertByAttr})) fieldLens UpsertByAttr = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByAttr = x} -> x) . entityVal) (\ (Entity key_a5jnY value_a5jnZ) x_a5jo0 -> Entity key_a5jnY (case value_a5jnZ of UpsertBy {upsertByEmail = upsertByEmail_a5jo7, upsertByCity = upsertByCity_a5jo8} -> UpsertBy {upsertByEmail = upsertByEmail, upsertByCity = upsertByCity, upsertByAttr = x_a5jo0})) 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_a5joC = ((Entity <$> fromField_a5joC StrictId) <*> (((pure Strict <*> fromField_a5joC StrictYes) <*> fromField_a5joC StrictNo) <*> fromField_a5joC StrictDef)) tabulateEntityApply fromField_a5joB = ((Entity <$> fromField_a5joB StrictId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((Strict <$> fromField_a5joB StrictYes) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5joB StrictNo) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5joB StrictDef)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = False, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Strict x_a5joc x_a5jod x_a5joe) = [toPersistValue x_a5joc, toPersistValue x_a5jod, toPersistValue x_a5joe] fromPersistValues [x1_a5jog, x2_a5joh, x3_a5joi] = 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_a5jog <*> (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_a5joh <*> (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_a5joi fromPersistValues x_a5jof = (Left $ mappend (Data.Text.unpackCStringLen# "Strict: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a5jof)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Strict _yes_a5joj _no_a5jok _def_a5jol) = [] 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_a5jon) key_a5joo -> Entity key_a5joo value_a5jon) fieldLens StrictYes = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictYes = x} -> x) . entityVal) (\ (Entity key_a5jop value_a5joq) x_a5jor -> Entity key_a5jop (case value_a5joq of Strict {strictNo = strictNo_a5jot, strictDef = strictDef_a5jou} -> Strict {strictYes = x_a5jor, strictNo = strictNo, strictDef = strictDef})) fieldLens StrictNo = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictNo = x} -> x) . entityVal) (\ (Entity key_a5jop value_a5joq) x_a5jor -> Entity key_a5jop (case value_a5joq of Strict {strictYes = strictYes_a5jov, strictDef = strictDef_a5jox} -> Strict {strictYes = strictYes, strictNo = x_a5jor, strictDef = strictDef})) fieldLens StrictDef = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictDef = x} -> x) . entityVal) (\ (Entity key_a5jop value_a5joq) x_a5jor -> Entity key_a5jop (case value_a5joq of Strict {strictYes = strictYes_a5joy, strictNo = strictNo_a5joz} -> Strict {strictYes = strictYes, strictNo = strictNo, strictDef = x_a5jor})) 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_a5joQ = ((Entity <$> fromField_a5joQ DudeWeirdColumnsId) <*> (pure DudeWeirdColumns <*> fromField_a5joQ DudeWeirdColumnsName)) tabulateEntityApply fromField_a5joP = ((Entity <$> fromField_a5joP DudeWeirdColumnsId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (DudeWeirdColumns <$> fromField_a5joP DudeWeirdColumnsName)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrMigrationOnly, FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy Double), fieldAttrs = [FieldAttrSafeToRemove], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (DudeWeirdColumns x_a5joD) = [toPersistValue x_a5joD] fromPersistValues [x1_a5joF] = 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_a5joF fromPersistValues x_a5joE = (Left $ mappend (Data.Text.unpackCStringLen# "DudeWeirdColumns: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 47#)) (Data.Text.Internal.pack $ show x_a5joE)) 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_a5joG) = [toPersistValue x_a5joG] persistUniqueKeys (DudeWeirdColumns _name_a5joH) = [UniqueName _name_a5joH] 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_a5joJ) key_a5joK -> Entity key_a5joK value_a5joJ) fieldLens DudeWeirdColumnsName = Database.Persist.TH.Internal.lensPTH ((\ DudeWeirdColumns {dudeWeirdColumnsName = x} -> x) . entityVal) (\ (Entity key_a5joL value_a5joM) x_a5joN -> Entity key_a5joL (case value_a5joM of DudeWeirdColumns {} -> DudeWeirdColumns {dudeWeirdColumnsName = x_a5joN})) 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_a5jp9 = ((Entity <$> fromField_a5jp9 RelationshipId) <*> ((pure Relationship <*> fromField_a5jp9 RelationshipName) <*> fromField_a5jp9 RelationshipParent)) tabulateEntityApply fromField_a5jp8 = ((Entity <$> fromField_a5jp8 RelationshipId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((Relationship <$> fromField_a5jp8 RelationshipName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5jp8 RelationshipParent)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#)), fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#)), fieldSqlType = sqlType (Proxy :: Proxy RelationshipId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Relationship x_a5joR x_a5joS) = [toPersistValue x_a5joR, toPersistValue x_a5joS] fromPersistValues [x1_a5joU, x2_a5joV] = 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_a5joU <*> (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_a5joV fromPersistValues x_a5joT = (Left $ mappend (Data.Text.unpackCStringLen# "Relationship: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 43#)) (Data.Text.Internal.pack $ show x_a5joT)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Relationship _name_a5joW _parent_a5joX) = [] 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_a5joZ) key_a5jp0 -> Entity key_a5jp0 value_a5joZ) fieldLens RelationshipName = Database.Persist.TH.Internal.lensPTH ((\ Relationship {relationshipName = x} -> x) . entityVal) (\ (Entity key_a5jp1 value_a5jp2) x_a5jp3 -> Entity key_a5jp1 (case value_a5jp2 of Relationship {relationshipParent = relationshipParent_a5jp5} -> Relationship {relationshipName = x_a5jp3, relationshipParent = relationshipParent})) fieldLens RelationshipParent = Database.Persist.TH.Internal.lensPTH ((\ Relationship {relationshipParent = x} -> x) . entityVal) (\ (Entity key_a5jp1 value_a5jp2) x_a5jp3 -> Entity key_a5jp1 (case value_a5jp2 of Relationship {relationshipName = relationshipName_a5jp6} -> Relationship {relationshipName = relationshipName, relationshipParent = x_a5jp3})) 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_a5jpm = ((Entity <$> fromField_a5jpm MutAId) <*> (pure MutA <*> fromField_a5jpm MutAMutB)) tabulateEntityApply fromField_a5jpl = ((Entity <$> fromField_a5jpl MutAId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (MutA <$> fromField_a5jpl MutAMutB)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy MutBId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MutA x_a5jpa) = [toPersistValue x_a5jpa] fromPersistValues [x1_a5jpc] = 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_a5jpc fromPersistValues x_a5jpb = (Left $ mappend (Data.Text.unpackCStringLen# "MutA: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a5jpb)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MutA _mutB_a5jpd) = [] 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_a5jpf) key_a5jpg -> Entity key_a5jpg value_a5jpf) fieldLens MutAMutB = Database.Persist.TH.Internal.lensPTH ((\ MutA {mutAMutB = x} -> x) . entityVal) (\ (Entity key_a5jph value_a5jpi) x_a5jpj -> Entity key_a5jph (case value_a5jpi of MutA {} -> MutA {mutAMutB = x_a5jpj})) 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_a5jpz = ((Entity <$> fromField_a5jpz MutBId) <*> (pure MutB <*> fromField_a5jpz MutBMutA)) tabulateEntityApply fromField_a5jpy = ((Entity <$> fromField_a5jpy MutBId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (MutB <$> fromField_a5jpy MutBMutA)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy MutAId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MutB x_a5jpn) = [toPersistValue x_a5jpn] fromPersistValues [x1_a5jpp] = 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_a5jpp fromPersistValues x_a5jpo = (Left $ mappend (Data.Text.unpackCStringLen# "MutB: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a5jpo)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MutB _mutA_a5jpq) = [] 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_a5jps) key_a5jpt -> Entity key_a5jpt value_a5jps) fieldLens MutBMutA = Database.Persist.TH.Internal.lensPTH ((\ MutB {mutBMutA = x} -> x) . entityVal) (\ (Entity key_a5jpu value_a5jpv) x_a5jpw -> Entity key_a5jpu (case value_a5jpv of MutB {} -> MutB {mutBMutA = x_a5jpw})) 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_a5jpB age_a5jpC color_a5jpD) = object [(Data.Aeson.Key.fromString "name" .= name_a5jpB), (Data.Aeson.Key.fromString "age" .= age_a5jpC), (Data.Aeson.Key.fromString "color" .= color_a5jpD)] instance PersistStore backend => FromJSON (PersonGeneric backend) where parseJSON = withObject "Person" (\ obj_a5jpA -> (((pure Person <*> (obj_a5jpA .: Data.Aeson.Key.fromString "name")) <*> (obj_a5jpA .: Data.Aeson.Key.fromString "age")) <*> (obj_a5jpA .:? 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_a5jpF color_a5jpG) = object [(Data.Aeson.Key.fromString "name" .= name_a5jpF), (Data.Aeson.Key.fromString "color" .= color_a5jpG)] instance PersistStore backend => FromJSON (PersonMayGeneric backend) where parseJSON = withObject "PersonMay" (\ obj_a5jpE -> ((pure PersonMay <*> (obj_a5jpE .:? Data.Aeson.Key.fromString "name")) <*> (obj_a5jpE .:? Data.Aeson.Key.fromString "color"))) instance PersistStore backend => ToJSON (Entity (PersonMayGeneric backend)) where toJSON = entityIdToJSON instance PersistStore backend => FromJSON (Entity (PersonMayGeneric backend)) where parseJSON = entityIdFromJSON instance PersistStoreWrite backend => OnlyOneUniqueKey (PersonGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (PersonGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (Person1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (Person1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PersonMaybeAgeGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PersonMaybeAgeGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PersonMayGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PersonMayGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MaybeOwnedPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MaybeOwnedPetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NeedsPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NeedsPetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (OutdoorPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (OutdoorPetGeneric backend) where requireUniquesP _ = error "impossible" instance PersistStoreWrite backend => OnlyOneUniqueKey (UserPTGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (UserPTGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance PersistStoreWrite backend => OnlyOneUniqueKey (EmailPTGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (EmailPTGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance PersistStoreWrite backend => OnlyOneUniqueKey (UpsertGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (UpsertGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (MultipleUniqueKeysError (UpsertByGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (UpsertByGeneric backend) where onlyUniqueP _ = error "impossible" instance PersistStoreWrite backend => AtLeastOneUniqueKey (UpsertByGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (StrictGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (StrictGeneric backend) where requireUniquesP _ = error "impossible" instance PersistStoreWrite backend => OnlyOneUniqueKey (DudeWeirdColumnsGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (DudeWeirdColumnsGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (RelationshipGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (RelationshipGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MutAGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MutAGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MutBGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MutBGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (PersonGeneric backend) (Key (PersonGeneric backend)) where symbolToField = PersonId instance SymbolToField "name" (PersonGeneric backend) Text where symbolToField = PersonName instance SymbolToField "age" (PersonGeneric backend) Int where symbolToField = PersonAge instance SymbolToField "color" (PersonGeneric backend) (Maybe Text) where symbolToField = PersonColor instance SymbolToField "id" (Person1Generic backend) (Key (Person1Generic backend)) where symbolToField = Person1Id instance SymbolToField "name" (Person1Generic backend) Text where symbolToField = Person1Name instance SymbolToField "age" (Person1Generic backend) Int where symbolToField = Person1Age instance SymbolToField "id" (PersonMaybeAgeGeneric backend) (Key (PersonMaybeAgeGeneric backend)) where symbolToField = PersonMaybeAgeId instance SymbolToField "name" (PersonMaybeAgeGeneric backend) Text where symbolToField = PersonMaybeAgeName instance SymbolToField "age" (PersonMaybeAgeGeneric backend) (Maybe Int) where symbolToField = PersonMaybeAgeAge instance SymbolToField "id" (PersonMayGeneric backend) (Key (PersonMayGeneric backend)) where symbolToField = PersonMayId instance SymbolToField "name" (PersonMayGeneric backend) (Maybe Text) where symbolToField = PersonMayName instance SymbolToField "color" (PersonMayGeneric backend) (Maybe Text) where symbolToField = PersonMayColor instance SymbolToField "id" (PetGeneric backend) (Key (PetGeneric backend)) where symbolToField = PetId instance SymbolToField "ownerId" (PetGeneric backend) (Key (PersonGeneric backend)) where symbolToField = PetOwnerId instance SymbolToField "name" (PetGeneric backend) Text where symbolToField = PetName instance SymbolToField "type" (PetGeneric backend) PetType where symbolToField = PetType instance SymbolToField "id" (MaybeOwnedPetGeneric backend) (Key (MaybeOwnedPetGeneric backend)) where symbolToField = MaybeOwnedPetId instance SymbolToField "ownerId" (MaybeOwnedPetGeneric backend) (Maybe (Key (PersonGeneric backend))) where symbolToField = MaybeOwnedPetOwnerId instance SymbolToField "name" (MaybeOwnedPetGeneric backend) Text where symbolToField = MaybeOwnedPetName instance SymbolToField "type" (MaybeOwnedPetGeneric backend) PetType where symbolToField = MaybeOwnedPetType instance SymbolToField "id" (NeedsPetGeneric backend) (Key (NeedsPetGeneric backend)) where symbolToField = NeedsPetId instance SymbolToField "petKey" (NeedsPetGeneric backend) (Key (PetGeneric backend)) where symbolToField = NeedsPetPetKey instance SymbolToField "id" (OutdoorPetGeneric backend) (Key (OutdoorPetGeneric backend)) where symbolToField = OutdoorPetId instance SymbolToField "ownerId" (OutdoorPetGeneric backend) (Key (PersonGeneric backend)) where symbolToField = OutdoorPetOwnerId instance SymbolToField "collar" (OutdoorPetGeneric backend) PetCollar where symbolToField = OutdoorPetCollar instance SymbolToField "type" (OutdoorPetGeneric backend) PetType where symbolToField = OutdoorPetType instance SymbolToField "id" (UserPTGeneric backend) (Key (UserPTGeneric backend)) where symbolToField = UserPTId instance SymbolToField "ident" (UserPTGeneric backend) Text where symbolToField = UserPTIdent instance SymbolToField "password" (UserPTGeneric backend) (Maybe Text) where symbolToField = UserPTPassword instance SymbolToField "id" (EmailPTGeneric backend) (Key (EmailPTGeneric backend)) where symbolToField = EmailPTId instance SymbolToField "email" (EmailPTGeneric backend) Text where symbolToField = EmailPTEmail instance SymbolToField "user" (EmailPTGeneric backend) (Maybe (Key (UserPTGeneric backend))) where symbolToField = EmailPTUser instance SymbolToField "verkey" (EmailPTGeneric backend) (Maybe Text) where symbolToField = EmailPTVerkey instance SymbolToField "id" (UpsertGeneric backend) (Key (UpsertGeneric backend)) where symbolToField = UpsertId instance SymbolToField "email" (UpsertGeneric backend) Text where symbolToField = UpsertEmail instance SymbolToField "attr" (UpsertGeneric backend) Text where symbolToField = UpsertAttr instance SymbolToField "extra" (UpsertGeneric backend) Text where symbolToField = UpsertExtra instance SymbolToField "age" (UpsertGeneric backend) Int where symbolToField = UpsertAge instance SymbolToField "id" (UpsertByGeneric backend) (Key (UpsertByGeneric backend)) where symbolToField = UpsertById instance SymbolToField "email" (UpsertByGeneric backend) Text where symbolToField = UpsertByEmail instance SymbolToField "city" (UpsertByGeneric backend) Text where symbolToField = UpsertByCity instance SymbolToField "attr" (UpsertByGeneric backend) Text where symbolToField = UpsertByAttr instance SymbolToField "id" (StrictGeneric backend) (Key (StrictGeneric backend)) where symbolToField = StrictId instance SymbolToField "yes" (StrictGeneric backend) Int where symbolToField = StrictYes instance SymbolToField "no" (StrictGeneric backend) Int where symbolToField = StrictNo instance SymbolToField "def" (StrictGeneric backend) Int where symbolToField = StrictDef instance SymbolToField "id" (DudeWeirdColumnsGeneric backend) (Key (DudeWeirdColumnsGeneric backend)) where symbolToField = DudeWeirdColumnsId instance SymbolToField "name" (DudeWeirdColumnsGeneric backend) Text where symbolToField = DudeWeirdColumnsName instance SymbolToField "id" (RelationshipGeneric backend) (Key (RelationshipGeneric backend)) where symbolToField = RelationshipId instance SymbolToField "name" (RelationshipGeneric backend) String where symbolToField = RelationshipName instance SymbolToField "parent" (RelationshipGeneric backend) (Maybe (Key (RelationshipGeneric backend))) where symbolToField = RelationshipParent instance SymbolToField "id" (MutAGeneric backend) (Key (MutAGeneric backend)) where symbolToField = MutAId instance SymbolToField "mutB" (MutAGeneric backend) (Key (MutBGeneric backend)) where symbolToField = MutAMutB instance SymbolToField "id" (MutBGeneric backend) (Key (MutBGeneric backend)) where symbolToField = MutBId instance SymbolToField "mutA" (MutBGeneric backend) (Key (MutAGeneric backend)) where symbolToField = MutBMutA instance PersistStoreWrite backend => SafeToInsert (PersonGeneric backend) instance PersistStoreWrite backend => SafeToInsert (Person1Generic backend) instance PersistStoreWrite backend => SafeToInsert (PersonMaybeAgeGeneric backend) instance PersistStoreWrite backend => SafeToInsert (PersonMayGeneric backend) instance PersistStoreWrite backend => SafeToInsert (PetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MaybeOwnedPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (NeedsPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (OutdoorPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UserPTGeneric backend) instance PersistStoreWrite backend => SafeToInsert (EmailPTGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UpsertGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UpsertByGeneric backend) instance PersistStoreWrite backend => SafeToInsert (StrictGeneric backend) instance PersistStoreWrite backend => SafeToInsert (DudeWeirdColumnsGeneric backend) instance PersistStoreWrite backend => SafeToInsert (RelationshipGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MutAGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MutBGeneric backend) entityDefListFortestMigrate :: [EntityDef] entityDefListFortestMigrate = [entityDef (Proxy :: Proxy Person), entityDef (Proxy :: Proxy Person1), entityDef (Proxy :: Proxy PersonMaybeAge), entityDef (Proxy :: Proxy PersonMay), entityDef (Proxy :: Proxy Pet), entityDef (Proxy :: Proxy MaybeOwnedPet), entityDef (Proxy :: Proxy NeedsPet), entityDef (Proxy :: Proxy OutdoorPet), entityDef (Proxy :: Proxy UserPT), entityDef (Proxy :: Proxy EmailPT), entityDef (Proxy :: Proxy Upsert), entityDef (Proxy :: Proxy UpsertBy), entityDef (Proxy :: Proxy Strict), entityDef (Proxy :: Proxy DudeWeirdColumns), entityDef (Proxy :: Proxy Relationship), entityDef (Proxy :: Proxy MutA), entityDef (Proxy :: Proxy MutB)] testMigrate :: Migration testMigrate = migrateModels entityDefListFortestMigrate src/PersistentTestModels.hs:(147,23)-(158,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \NoPrefix1\n\ \ someFieldName Int\n\ \NoPrefix2\n\ \ someOtherFieldName Int\n\ \ unprefixedRef NoPrefix1Id\n\ \+NoPrefixSum\n\ \ unprefixedLeft Int\n\ \ unprefixedRight String\n\ \ deriving Show Eq\n\ \\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))] src/PersistentTestModels.hs:(137,1)-(158,2): Splicing declarations share [mkPersist persistSettings {mpsPrefixFields = False, mpsFieldLabelModifier = \ _ _ -> "", mpsConstraintLabelModifier = \ _ _ -> "", mpsGeneric = True}, mkMigrate "noPrefixMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))]) ======> instance PersistStore backend => PersistField (NoPrefix1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["someFieldName"] instance PersistStore backend => PersistFieldSql (NoPrefix1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NoPrefix2Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["someOtherFieldName", "unprefixedRef"] instance PersistStore backend => PersistFieldSql (NoPrefix2Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NoPrefixSumGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["unprefixedLeft", "unprefixedRight"] instance PersistStore backend => PersistFieldSql (NoPrefixSumGeneric backend) where sqlType _ = SqlString type NoPrefix1 = NoPrefix1Generic SqlBackend data NoPrefix1Generic backend = NoPrefix1 {someFieldName :: !Int} type NoPrefix1Id = Key NoPrefix1 instance PersistStore backend => PersistEntity (NoPrefix1Generic backend) where type PersistEntityBackend (NoPrefix1Generic backend) = backend data Unique (NoPrefix1Generic backend) newtype Key (NoPrefix1Generic backend) = NoPrefix1Key {unNoPrefix1Key :: (BackendKey backend)} data EntityField (NoPrefix1Generic backend) typ = (typ ~ Key (NoPrefix1Generic backend)) => NoPrefix1Id | (typ ~ Int) => SomeFieldName keyToValues = ((: []) . (toPersistValue . (\ NoPrefix1Key {unNoPrefix1Key = x} -> x))) keyFromValues = (fmap NoPrefix1Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5wSE = ((Entity <$> fromField_a5wSE NoPrefix1Id) <*> (pure NoPrefix1 <*> fromField_a5wSE SomeFieldName)) tabulateEntityApply fromField_a5wSD = ((Entity <$> fromField_a5wSD NoPrefix1Id) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (NoPrefix1 <$> fromField_a5wSD SomeFieldName)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NoPrefix1 x_a5wSs) = [toPersistValue x_a5wSs] fromPersistValues [x1_a5wSu] = 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_a5wSu fromPersistValues x_a5wSt = (Left $ mappend (Data.Text.unpackCStringLen# "NoPrefix1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a5wSt)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NoPrefix1 _someFieldName_a5wSv) = [] 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_a5wSx) key_a5wSy -> Entity key_a5wSy value_a5wSx) fieldLens SomeFieldName = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix1 {someFieldName = x} -> x) . entityVal) (\ (Entity key_a5wSz value_a5wSA) x_a5wSB -> Entity key_a5wSz (case value_a5wSA of NoPrefix1 {} -> NoPrefix1 {someFieldName = x_a5wSB})) 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_a5wSX = ((Entity <$> fromField_a5wSX NoPrefix2Id) <*> ((pure NoPrefix2 <*> fromField_a5wSX SomeOtherFieldName) <*> fromField_a5wSX UnprefixedRef)) tabulateEntityApply fromField_a5wSW = ((Entity <$> fromField_a5wSW NoPrefix2Id) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((NoPrefix2 <$> fromField_a5wSW SomeOtherFieldName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5wSW UnprefixedRef)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)), fieldSqlType = sqlType (Proxy :: Proxy NoPrefix1Id), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NoPrefix2 x_a5wSF x_a5wSG) = [toPersistValue x_a5wSF, toPersistValue x_a5wSG] fromPersistValues [x1_a5wSI, x2_a5wSJ] = 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_a5wSI <*> (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_a5wSJ fromPersistValues x_a5wSH = (Left $ mappend (Data.Text.unpackCStringLen# "NoPrefix2: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a5wSH)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NoPrefix2 _someOtherFieldName_a5wSK _unprefixedRef_a5wSL) = [] 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_a5wSN) key_a5wSO -> Entity key_a5wSO value_a5wSN) fieldLens SomeOtherFieldName = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix2 {someOtherFieldName = x} -> x) . entityVal) (\ (Entity key_a5wSP value_a5wSQ) x_a5wSR -> Entity key_a5wSP (case value_a5wSQ of NoPrefix2 {unprefixedRef = unprefixedRef_a5wST} -> NoPrefix2 {someOtherFieldName = x_a5wSR, unprefixedRef = unprefixedRef})) fieldLens UnprefixedRef = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix2 {unprefixedRef = x} -> x) . entityVal) (\ (Entity key_a5wSP value_a5wSQ) x_a5wSR -> Entity key_a5wSP (case value_a5wSQ of NoPrefix2 {someOtherFieldName = someOtherFieldName_a5wSU} -> NoPrefix2 {someOtherFieldName = someOtherFieldName, unprefixedRef = x_a5wSR})) 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_a5wT9 = error "tabulateEntityA does not make sense for sum type" tabulateEntityApply fromField_a5wT8 = error "tabulateEntityApply does not make sense for sum type" entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UnprefixedLeftSum x_a5wSY) = [toPersistValue x_a5wSY, PersistNull] toPersistFields (UnprefixedRightSum x_a5wSZ) = [PersistNull, toPersistValue x_a5wSZ] fromPersistValues [x_a5wT0, PersistNull] | Database.Persist.TH.Internal.isNotNull x_a5wT0 = (UnprefixedLeftSum `fmap` fromPersistValue x_a5wT0) fromPersistValues [PersistNull, x_a5wT1] | Database.Persist.TH.Internal.isNotNull x_a5wT1 = (UnprefixedRightSum `fmap` fromPersistValue x_a5wT1) 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_a5wT3) key_a5wT4 -> Entity key_a5wT4 value_a5wT3) fieldLens UnprefixedLeft = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a5wT6) -> case value_a5wT6 of UnprefixedLeftSum x_a5wT7 -> x_a5wT7 _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a5wT5 _) x_a5wT7 -> Entity key_a5wT5 (UnprefixedLeftSum x_a5wT7)) fieldLens UnprefixedRight = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a5wT6) -> case value_a5wT6 of UnprefixedRightSum x_a5wT7 -> x_a5wT7 _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a5wT5 _) x_a5wT7 -> Entity key_a5wT5 (UnprefixedRightSum x_a5wT7)) deriving stock instance Show (BackendKey backend) => Show (Key (NoPrefixSumGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (NoPrefixSumGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (NoPrefixSumGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (NoPrefixSumGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (NoPrefixSumGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (NoPrefixSumGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (NoPrefixSumGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (NoPrefixSumGeneric backend)) instance PersistStore backend => ToBackendKey backend (NoPrefixSumGeneric backend) where toBackendKey = \ NoPrefixSumKey {unNoPrefixSumKey = x} -> x fromBackendKey = NoPrefixSumKey instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefix1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefix1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefix2Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefix2Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefixSumGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefixSumGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (NoPrefix1Generic backend) (Key (NoPrefix1Generic backend)) where symbolToField = NoPrefix1Id instance SymbolToField "someFieldName" (NoPrefix1Generic backend) Int where symbolToField = SomeFieldName instance SymbolToField "id" (NoPrefix2Generic backend) (Key (NoPrefix2Generic backend)) where symbolToField = NoPrefix2Id instance SymbolToField "someOtherFieldName" (NoPrefix2Generic backend) Int where symbolToField = SomeOtherFieldName instance SymbolToField "unprefixedRef" (NoPrefix2Generic backend) (Key (NoPrefix1Generic backend)) where symbolToField = UnprefixedRef instance SymbolToField "id" (NoPrefixSumGeneric backend) (Key (NoPrefixSumGeneric backend)) where symbolToField = NoPrefixSumId instance SymbolToField "unprefixedLeft" (NoPrefixSumGeneric backend) Int where symbolToField = UnprefixedLeft instance SymbolToField "unprefixedRight" (NoPrefixSumGeneric backend) String where symbolToField = UnprefixedRight instance PersistStoreWrite backend => SafeToInsert (NoPrefix1Generic backend) instance PersistStoreWrite backend => SafeToInsert (NoPrefix2Generic backend) instance PersistStoreWrite backend => SafeToInsert (NoPrefixSumGeneric backend) entityDefListFornoPrefixMigrate :: [EntityDef] entityDefListFornoPrefixMigrate = [entityDef (Proxy :: Proxy NoPrefix1), entityDef (Proxy :: Proxy NoPrefix2), entityDef (Proxy :: Proxy NoPrefixSum)] noPrefixMigrate :: Migration noPrefixMigrate = migrateModels entityDefListFornoPrefixMigrate src/PersistentTestModels.hs:(182,23)-(192,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \CustomPrefix1\n\ \ customFieldName Int\n\ \CustomPrefix2\n\ \ otherCustomFieldName Int\n\ \ customPrefixedRef CustomPrefix1Id\n\ \+CustomPrefixSum\n\ \ customPrefixedLeft Int\n\ \ customPrefixedRight String\n\ \ deriving Show Eq\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) (FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))] src/PersistentTestModels.hs:(166,1)-(192,2): Splicing declarations share [mkPersist persistSettings {mpsFieldLabelModifier = \ entity_a5z2H field_a5z2I -> case entity_a5z2H of "CustomPrefix1" -> append "_cp1" field_a5z2I "CustomPrefix2" -> append "_cp2" field_a5z2I _ -> error "should not be called", mpsConstraintLabelModifier = \ entity_a5z2J field_a5z2K -> case entity_a5z2J of "CustomPrefix1" -> append "CP1" field_a5z2K "CustomPrefix2" -> append "CP2" field_a5z2K "CustomPrefixSum" -> append "CP" field_a5z2K _ -> error "should not be called", mpsGeneric = True}, mkMigrate "customPrefixMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) (FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))]) ======> instance PersistStore backend => PersistField (CustomPrefix1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["customFieldName"] instance PersistStore backend => PersistFieldSql (CustomPrefix1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (CustomPrefix2Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["otherCustomFieldName", "customPrefixedRef"] instance PersistStore backend => PersistFieldSql (CustomPrefix2Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (CustomPrefixSumGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["customPrefixedLeft", "customPrefixedRight"] instance PersistStore backend => PersistFieldSql (CustomPrefixSumGeneric backend) where sqlType _ = SqlString type CustomPrefix1 = CustomPrefix1Generic SqlBackend data CustomPrefix1Generic backend = CustomPrefix1 {_cp1CustomFieldName :: !Int} type CustomPrefix1Id = Key CustomPrefix1 instance PersistStore backend => PersistEntity (CustomPrefix1Generic backend) where type PersistEntityBackend (CustomPrefix1Generic backend) = backend data Unique (CustomPrefix1Generic backend) newtype Key (CustomPrefix1Generic backend) = CustomPrefix1Key {unCustomPrefix1Key :: (BackendKey backend)} data EntityField (CustomPrefix1Generic backend) typ = (typ ~ Key (CustomPrefix1Generic backend)) => CustomPrefix1Id | (typ ~ Int) => CP1CustomFieldName keyToValues = ((: []) . (toPersistValue . (\ CustomPrefix1Key {unCustomPrefix1Key = x} -> x))) keyFromValues = (fmap CustomPrefix1Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5zmd = ((Entity <$> fromField_a5zmd CustomPrefix1Id) <*> (pure CustomPrefix1 <*> fromField_a5zmd CP1CustomFieldName)) tabulateEntityApply fromField_a5zmc = ((Entity <$> fromField_a5zmc CustomPrefix1Id) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (CustomPrefix1 <$> fromField_a5zmc CP1CustomFieldName)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CustomPrefix1 x_a5zm1) = [toPersistValue x_a5zm1] fromPersistValues [x1_a5zm3] = 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_a5zm3 fromPersistValues x_a5zm2 = (Left $ mappend (Data.Text.unpackCStringLen# "CustomPrefix1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a5zm2)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (CustomPrefix1 _customFieldName_a5zm4) = [] 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_a5zm6) key_a5zm7 -> Entity key_a5zm7 value_a5zm6) fieldLens CP1CustomFieldName = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix1 {_cp1CustomFieldName = x} -> x) . entityVal) (\ (Entity key_a5zm8 value_a5zm9) x_a5zma -> Entity key_a5zm8 (case value_a5zm9 of CustomPrefix1 {} -> CustomPrefix1 {_cp1CustomFieldName = x_a5zma})) 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_a5zmw = ((Entity <$> fromField_a5zmw CustomPrefix2Id) <*> ((pure CustomPrefix2 <*> fromField_a5zmw CP2OtherCustomFieldName) <*> fromField_a5zmw CP2CustomPrefixedRef)) tabulateEntityApply fromField_a5zmv = ((Entity <$> fromField_a5zmv CustomPrefix2Id) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((CustomPrefix2 <$> fromField_a5zmv CP2OtherCustomFieldName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5zmv CP2CustomPrefixedRef)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)), fieldSqlType = sqlType (Proxy :: Proxy CustomPrefix1Id), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CustomPrefix2 x_a5zme x_a5zmf) = [toPersistValue x_a5zme, toPersistValue x_a5zmf] fromPersistValues [x1_a5zmh, x2_a5zmi] = 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_a5zmh <*> (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_a5zmi fromPersistValues x_a5zmg = (Left $ mappend (Data.Text.unpackCStringLen# "CustomPrefix2: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a5zmg)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (CustomPrefix2 _otherCustomFieldName_a5zmj _customPrefixedRef_a5zmk) = [] 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_a5zmm) key_a5zmn -> Entity key_a5zmn value_a5zmm) fieldLens CP2OtherCustomFieldName = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix2 {_cp2OtherCustomFieldName = x} -> x) . entityVal) (\ (Entity key_a5zmo value_a5zmp) x_a5zmq -> Entity key_a5zmo (case value_a5zmp of CustomPrefix2 {_cp2CustomPrefixedRef = _cp2CustomPrefixedRef_a5zms} -> CustomPrefix2 {_cp2OtherCustomFieldName = x_a5zmq, _cp2CustomPrefixedRef = _cp2CustomPrefixedRef})) fieldLens CP2CustomPrefixedRef = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix2 {_cp2CustomPrefixedRef = x} -> x) . entityVal) (\ (Entity key_a5zmo value_a5zmp) x_a5zmq -> Entity key_a5zmo (case value_a5zmp of CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName_a5zmt} -> CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName, _cp2CustomPrefixedRef = x_a5zmq})) 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_a5zmI = error "tabulateEntityA does not make sense for sum type" tabulateEntityApply fromField_a5zmH = error "tabulateEntityApply does not make sense for sum type" entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CPCustomPrefixedLeftSum x_a5zmx) = [toPersistValue x_a5zmx, PersistNull] toPersistFields (CPCustomPrefixedRightSum x_a5zmy) = [PersistNull, toPersistValue x_a5zmy] fromPersistValues [x_a5zmz, PersistNull] | Database.Persist.TH.Internal.isNotNull x_a5zmz = (CPCustomPrefixedLeftSum `fmap` fromPersistValue x_a5zmz) fromPersistValues [PersistNull, x_a5zmA] | Database.Persist.TH.Internal.isNotNull x_a5zmA = (CPCustomPrefixedRightSum `fmap` fromPersistValue x_a5zmA) 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_a5zmC) key_a5zmD -> Entity key_a5zmD value_a5zmC) fieldLens CPCustomPrefixedLeft = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a5zmF) -> case value_a5zmF of CPCustomPrefixedLeftSum x_a5zmG -> x_a5zmG _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a5zmE _) x_a5zmG -> Entity key_a5zmE (CPCustomPrefixedLeftSum x_a5zmG)) fieldLens CPCustomPrefixedRight = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a5zmF) -> case value_a5zmF of CPCustomPrefixedRightSum x_a5zmG -> x_a5zmG _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a5zmE _) x_a5zmG -> Entity key_a5zmE (CPCustomPrefixedRightSum x_a5zmG)) deriving stock instance Show (BackendKey backend) => Show (Key (CustomPrefixSumGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (CustomPrefixSumGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (CustomPrefixSumGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (CustomPrefixSumGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (CustomPrefixSumGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (CustomPrefixSumGeneric backend)) instance PersistStore backend => ToBackendKey backend (CustomPrefixSumGeneric backend) where toBackendKey = \ CustomPrefixSumKey {unCustomPrefixSumKey = x} -> x fromBackendKey = CustomPrefixSumKey instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefix1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefix1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefix2Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefix2Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefixSumGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefixSumGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (CustomPrefix1Generic backend) (Key (CustomPrefix1Generic backend)) where symbolToField = CustomPrefix1Id instance SymbolToField "customFieldName" (CustomPrefix1Generic backend) Int where symbolToField = CP1CustomFieldName instance SymbolToField "id" (CustomPrefix2Generic backend) (Key (CustomPrefix2Generic backend)) where symbolToField = CustomPrefix2Id instance SymbolToField "otherCustomFieldName" (CustomPrefix2Generic backend) Int where symbolToField = CP2OtherCustomFieldName instance SymbolToField "customPrefixedRef" (CustomPrefix2Generic backend) (Key (CustomPrefix1Generic backend)) where symbolToField = CP2CustomPrefixedRef instance SymbolToField "id" (CustomPrefixSumGeneric backend) (Key (CustomPrefixSumGeneric backend)) where symbolToField = CustomPrefixSumId instance SymbolToField "customPrefixedLeft" (CustomPrefixSumGeneric backend) Int where symbolToField = CPCustomPrefixedLeft instance SymbolToField "customPrefixedRight" (CustomPrefixSumGeneric backend) String where symbolToField = CPCustomPrefixedRight instance PersistStoreWrite backend => SafeToInsert (CustomPrefix1Generic backend) instance PersistStoreWrite backend => SafeToInsert (CustomPrefix2Generic backend) instance PersistStoreWrite backend => SafeToInsert (CustomPrefixSumGeneric backend) entityDefListForcustomPrefixMigrate :: [EntityDef] entityDefListForcustomPrefixMigrate = [entityDef (Proxy :: Proxy CustomPrefix1), entityDef (Proxy :: Proxy CustomPrefix2), entityDef (Proxy :: Proxy CustomPrefixSum)] customPrefixMigrate :: Migration customPrefixMigrate = migrateModels entityDefListForcustomPrefixMigrate src/PersistentTestModels.hs:(206,23)-(213,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \\n\ \Tree sql=trees\n\ \ name String\n\ \ parent String Maybe\n\ \ Primary name\n\ \ Foreign Tree fkparent parent\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [Database.Persist.Quasi.Internal.UnboundForeignDef (Database.Persist.Quasi.Internal.FieldListImpliedId (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)) NEL.:| [])) (ForeignDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#))) (ConstraintNameHS (Data.Text.unpackCStringLen# "fkparent"# (ghc-prim:GHC.Types.I# 8#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "treefkparent"# (ghc-prim:GHC.Types.I# 12#))) (FieldCascade Nothing Nothing) [] [] False True)] (Database.Persist.Quasi.Internal.NaturalKey (Database.Persist.Quasi.Internal.UnboundCompositeDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)) NEL.:| []) [])) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))] src/PersistentTestModels.hs:(202,1)-(213,2): Splicing declarations share [mkPersist persistSettings {mpsPrefixFields = False, mpsGeneric = False}, mkMigrate "treeMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [Database.Persist.Quasi.Internal.UnboundForeignDef (Database.Persist.Quasi.Internal.FieldListImpliedId (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)) NEL.:| [])) (ForeignDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#))) (ConstraintNameHS (Data.Text.unpackCStringLen# "fkparent"# (ghc-prim:GHC.Types.I# 8#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "treefkparent"# (ghc-prim:GHC.Types.I# 12#))) (FieldCascade Nothing Nothing) [] [] False True)] (Database.Persist.Quasi.Internal.NaturalKey (Database.Persist.Quasi.Internal.UnboundCompositeDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)) NEL.:| []) [])) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))]) ======> instance PersistField Tree where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "parent"] instance PersistFieldSql Tree where sqlType _ = SqlString data Tree = Tree {name :: !String, parent :: !(Maybe String)} fkparent :: Tree -> Maybe (Key Tree) fkparent record_mkForeignKeysComposite_a5BGe = fmap TreeKey (ghc-prim:GHC.Prim.coerce (parent record_mkForeignKeysComposite_a5BGe)) 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_a5BGf = [toPersistValue ((\ TreeKey {unTreeKey = x} -> x) record_a5BGf)] keyFromValues [x1_a5BGh] = 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_a5BGh keyFromValues x_a5BGg = (Left $ mappend (Data.Text.unpackCStringLen# "Tree: keyFromValues failed on: "# (ghc-prim:GHC.Types.I# 31#)) (Data.Text.Internal.pack $ show x_a5BGg)) keyFromRecordM = Just (\ Tree {name = name_a5BGr} -> TreeKey name_a5BGr) tabulateEntityA fromField_a5BGt = ((Entity <$> fromField_a5BGt TreeId) <*> ((pure Tree <*> fromField_a5BGt Name) <*> fromField_a5BGt Parent)) tabulateEntityApply fromField_a5BGs = ((Entity <$> fromField_a5BGs TreeId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((Tree <$> fromField_a5BGs Name) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a5BGs Parent)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdNaturalKey CompositeDef {compositeFields = NEL.fromList [Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Tree) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))], compositeAttrs = []}, persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg: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_a5BG6 x_a5BG7) = [toPersistValue x_a5BG6, toPersistValue x_a5BG7] fromPersistValues [x1_a5BG9, x2_a5BGa] = 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_a5BG9 <*> (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_a5BGa fromPersistValues x_a5BG8 = (Left $ mappend (Data.Text.unpackCStringLen# "Tree: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a5BG8)) 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_a5BGb) = [toPersistValue x_a5BGb] persistUniqueKeys (Tree _name_a5BGc _parent_a5BGd) = [TreePrimaryKey _name_a5BGc] 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_a5BGi) key_a5BGj -> Entity key_a5BGj value_a5BGi) fieldLens Name = Database.Persist.TH.Internal.lensPTH ((\ Tree {name = x} -> x) . entityVal) (\ (Entity key_a5BGk value_a5BGl) x_a5BGm -> Entity key_a5BGk (case value_a5BGl of Tree {parent = parent_a5BGo} -> Tree {name = x_a5BGm, parent = parent})) fieldLens Parent = Database.Persist.TH.Internal.lensPTH ((\ Tree {parent = x} -> x) . entityVal) (\ (Entity key_a5BGk value_a5BGl) x_a5BGm -> Entity key_a5BGk (case value_a5BGl of Tree {name = name_a5BGp} -> Tree {name = name, parent = x_a5BGm})) instance OnlyOneUniqueKey Tree where onlyUniqueP = (head . persistUniqueKeys) instance AtLeastOneUniqueKey Tree where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance SymbolToField "id" Tree (Key Tree) where symbolToField = TreeId instance SymbolToField "name" Tree String where symbolToField = Name instance SymbolToField "parent" Tree (Maybe String) where symbolToField = Parent instance SafeToInsert Tree entityDefListFortreeMigrate :: [EntityDef] entityDefListFortreeMigrate = [entityDef (Proxy :: Proxy Tree)] treeMigrate :: Migration treeMigrate = migrateModels entityDefListFortreeMigrate src/PersistentTestModels.hs:27:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 27 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "testMigrate"] | ^^^^^^^^^^ src/PersistentTestModels.hs:137:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 137 | share | ^^^^^... src/PersistentTestModels.hs:143:15: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 143 | , mpsGeneric = True | ^^^^^^^^^^ src/PersistentTestModels.hs:166:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 166 | share | ^^^^^... src/PersistentTestModels.hs:178:15: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 178 | , mpsGeneric = True | ^^^^^^^^^^ src/PersistentTestModels.hs:203:58: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 203 | [ mkPersist persistSettings{mpsPrefixFields = False, mpsGeneric = False} | ^^^^^^^^^^ src/PersistentTestModels.hs:223:10: warning: [GHC-06201] [-Wmissing-methods] " No explicit implementation for tabulateEntityA and tabulateEntityApply " In the instance declaration for PersistEntity (ReverseFieldOrder a) | 223 | instance (PersistEntity a) => PersistEntity (ReverseFieldOrder a) where | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/PersistentTestModels.hs:228:54: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 228 | keyFromValues = fmap RFOKey . fromPersistValue . head | ^^^^ [28 of 41] Compiling PersistentTest ( src/PersistentTest.hs, dist/build/PersistentTest.o, dist/build/PersistentTest.dyn_o ) [29 of 41] Compiling MpsNoPrefixTest ( src/MpsNoPrefixTest.hs, dist/build/MpsNoPrefixTest.o, dist/build/MpsNoPrefixTest.dyn_o ) [30 of 41] Compiling MpsCustomPrefixTest ( src/MpsCustomPrefixTest.hs, dist/build/MpsCustomPrefixTest.o, dist/build/MpsCustomPrefixTest.dyn_o ) [31 of 41] Compiling PrimaryTest ( src/PrimaryTest.hs, dist/build/PrimaryTest.o, dist/build/PrimaryTest.dyn_o ) src/PrimaryTest.hs:12:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 12 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [32 of 41] Compiling RawSqlTest ( src/RawSqlTest.hs, dist/build/RawSqlTest.o, dist/build/RawSqlTest.dyn_o ) [33 of 41] Compiling ReadWriteTest ( src/ReadWriteTest.hs, dist/build/ReadWriteTest.o, dist/build/ReadWriteTest.dyn_o ) [34 of 41] Compiling Recursive ( src/Recursive.hs, dist/build/Recursive.o, dist/build/Recursive.dyn_o ) src/Recursive.hs:10:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 10 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "recursiveMigrate"] | ^^^^^^^^^^ [35 of 41] Compiling RenameTest ( src/RenameTest.hs, dist/build/RenameTest.o, dist/build/RenameTest.dyn_o ) src/RenameTest.hs:19:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 19 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"] | ^^^^^^^^^^ [36 of 41] Compiling SumTypeTest ( src/SumTypeTest.hs, dist/build/SumTypeTest.o, dist/build/SumTypeTest.dyn_o ) src/SumTypeTest.hs:13:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 13 | share | ^^^^^... src/SumTypeTest.hs:14:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 14 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "sumTypeMigrate"] | ^^^^^^^^^^ [37 of 41] Compiling TransactionLevelTest ( src/TransactionLevelTest.hs, dist/build/TransactionLevelTest.o, dist/build/TransactionLevelTest.dyn_o ) [38 of 41] Compiling TreeTest ( src/TreeTest.hs, dist/build/TreeTest.o, dist/build/TreeTest.dyn_o ) src/TreeTest.hs:13:33: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [ mkPersist persistSettings{mpsGeneric = False} | ^^^^^^^^^^ [39 of 41] Compiling TypeLitFieldDefsTest ( src/TypeLitFieldDefsTest.hs, dist/build/TypeLitFieldDefsTest.o, dist/build/TypeLitFieldDefsTest.dyn_o ) src/TypeLitFieldDefsTest.hs:34:29: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 34 | [ mkPersist sqlSettings{mpsGeneric = True} | ^^^^^^^^^^ [40 of 41] Compiling UniqueTest ( src/UniqueTest.hs, dist/build/UniqueTest.o, dist/build/UniqueTest.dyn_o ) [41 of 41] Compiling UpsertTest ( src/UpsertTest.hs, dist/build/UpsertTest.o, dist/build/UpsertTest.dyn_o ) Preprocessing library for persistent-test-2.13.2.1.. Running Haddock on library for persistent-test-2.13.2.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 41] Compiling Init ( src/Init.hs, /tmp/ghc1493546_0/ghc_10.o, /tmp/ghc1493546_0/ghc_10.dyn_o ) src/Init.hs:168:31: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Database.Persist.TH, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 168 | persistSettings = sqlSettings{mpsGeneric = True} | ^^^^^^^^^^ [ 2 of 41] Compiling HtmlTest ( src/HtmlTest.hs, nothing ) src/HtmlTest.hs:18:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 18 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "htmlMigrate"] | ^^^^^^^^^^ [ 3 of 41] Compiling GeneratedColumnTestSQL ( src/GeneratedColumnTestSQL.hs, nothing ) [ 4 of 41] Compiling ForeignKey ( src/ForeignKey.hs, nothing ) src/ForeignKey.hs:19:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 19 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"] | ^^^^^^^^^^ [ 5 of 41] Compiling EquivalentTypeTest ( src/EquivalentTypeTest.hs, nothing ) [ 6 of 41] Compiling EntityEmbedTest ( src/EntityEmbedTest.hs, /tmp/ghc1493546_0/ghc_8.o, /tmp/ghc1493546_0/ghc_8.dyn_o ) src/EntityEmbedTest.hs:11:21: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | persistSettings{mpsGeneric = True} | ^^^^^^^^^^ [ 7 of 41] Compiling EmptyEntityTest ( src/EmptyEntityTest.hs, nothing ) src/EmptyEntityTest.hs:14:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 14 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"] | ^^^^^^^^^^ [ 8 of 41] Compiling EmbedTest ( src/EmbedTest.hs, nothing ) src/EmbedTest.hs:33:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 33 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedMigrate"] | ^^^^^^^^^^ [ 9 of 41] Compiling EmbedOrderTest ( src/EmbedOrderTest.hs, nothing ) src/EmbedOrderTest.hs:16:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 16 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedOrderMigrate"] | ^^^^^^^^^^ [10 of 41] Compiling DataTypeTest ( src/DataTypeTest.hs, nothing ) [11 of 41] Compiling CustomPrimaryKeyReferenceTest ( src/CustomPrimaryKeyReferenceTest.hs, nothing ) src/CustomPrimaryKeyReferenceTest.hs:13:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [12 of 41] Compiling CustomPersistField ( src/CustomPersistField.hs, /tmp/ghc1493546_0/ghc_6.o, /tmp/ghc1493546_0/ghc_6.dyn_o ) [13 of 41] Compiling CustomPersistFieldTest ( src/CustomPersistFieldTest.hs, nothing ) src/CustomPersistFieldTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "customFieldMigrate"] | ^^^^^^^^^^ [14 of 41] Compiling CompositeTest ( src/CompositeTest.hs, nothing ) src/CompositeTest.hs:17:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 17 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"] | ^^^^^^^^^^ [15 of 41] Compiling LargeNumberTest ( src/LargeNumberTest.hs, nothing ) src/LargeNumberTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "numberMigrate"] | ^^^^^^^^^^ [16 of 41] Compiling LongIdentifierTest ( src/LongIdentifierTest.hs, nothing ) [17 of 41] Compiling MaxLenTest ( src/MaxLenTest.hs, nothing ) src/MaxLenTest.hs:12:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 12 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maxlenMigrate"] | ^^^^^^^^^^ [18 of 41] Compiling MaybeFieldDefsTest ( src/MaybeFieldDefsTest.hs, nothing ) src/MaybeFieldDefsTest.hs:13:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maybeFieldDefMigrate"] | ^^^^^^^^^^ [19 of 41] Compiling MigrationColumnLengthTest ( src/MigrationColumnLengthTest.hs, nothing ) [20 of 41] Compiling MigrationIdempotencyTest ( src/MigrationIdempotencyTest.hs, nothing ) [21 of 41] Compiling MigrationOnlyTest ( src/MigrationOnlyTest.hs, nothing ) src/MigrationOnlyTest.hs:15:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 15 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll1"] | ^^^^^^^^^^ src/MigrationOnlyTest.hs:25:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 25 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll2"] | ^^^^^^^^^^ [22 of 41] Compiling MigrationTest ( src/MigrationTest.hs, nothing ) [23 of 41] Compiling PersistTestPetCollarType ( src/PersistTestPetCollarType.hs, /tmp/ghc1493546_0/ghc_12.o, /tmp/ghc1493546_0/ghc_12.dyn_o ) [24 of 41] Compiling PersistTestPetType ( src/PersistTestPetType.hs, /tmp/ghc1493546_0/ghc_14.o, /tmp/ghc1493546_0/ghc_14.dyn_o ) [25 of 41] Compiling PersistUniqueTest ( src/PersistUniqueTest.hs, nothing ) src/PersistUniqueTest.hs:11:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [26 of 41] Compiling PersistentTestModelsImports ( src/PersistentTestModelsImports.hs, /tmp/ghc1493546_0/ghc_18.o, /tmp/ghc1493546_0/ghc_18.dyn_o ) [27 of 41] Compiling PersistentTestModels ( src/PersistentTestModels.hs, /tmp/ghc1493546_0/ghc_16.o, /tmp/ghc1493546_0/ghc_16.dyn_o ) src/PersistentTestModels.hs:(28,23)-(128,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistUpperCase "\n\ \\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ Person json\n\ \ name Text\n\ \ age Int some=\"ignored -- \\\" attribute\"\n\ \ color Text Maybe -- this is a comment sql=foobarbaz\n\ \ PersonNameKey name -- this is a comment sql=foobarbaz\n\ \ deriving Show Eq\n\ \ Person1\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ name Text\n\ \ age Int\n\ \ deriving Show Eq\n\ \ PersonMaybeAge\n\ \ name Text\n\ \ age Int Maybe\n\ \ PersonMay json\n\ \ name Text Maybe\n\ \ color Text Maybe\n\ \ deriving Show Eq\n\ \ Pet\n\ \ ownerId PersonId\n\ \ name Text\n\ \ -- deriving Show Eq\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ type PetType\n\ \ MaybeOwnedPet\n\ \ ownerId PersonId Maybe\n\ \ name Text\n\ \ type PetType\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ NeedsPet\n\ \ petKey PetId\n\ \ OutdoorPet\n\ \ ownerId PersonId\n\ \ collar PetCollar\n\ \ type PetType\n\ \\n\ \ -- From the scaffold\n\ \ UserPT\n\ \ ident Text\n\ \ password Text Maybe\n\ \ UniqueUserPT ident\n\ \ EmailPT\n\ \ email Text\n\ \ user UserPTId Maybe\n\ \ verkey Text Maybe\n\ \ UniqueEmailPT email\n\ \\n\ \ Upsert\n\ \ email Text\n\ \ attr Text\n\ \ extra Text\n\ \ age Int\n\ \ UniqueUpsert email\n\ \ deriving Eq Show\n\ \\n\ \ UpsertBy\n\ \ email Text\n\ \ city Text\n\ \ attr Text\n\ \ UniqueUpsertBy email\n\ \ UniqueUpsertByCity city\n\ \ deriving Eq Show\n\ \\n\ \ Strict\n\ \ !yes Int\n\ \ ~no Int\n\ \ def Int\n\ \\n\ \ DudeWeirdColumns\n\ \ name Text\n\ \ foo Int Maybe MigrationOnly\n\ \ bar Double SafeToRemove\n\ \ UniqueName name\n\ \ deriving Eq Show\n\ \\n\ \ -- | This is a doc comment for a relationship.\n\ \ -- Only the first line requires a pipe.\n\ \ -- | Pipes are optional on subsequent lines.\n\ \ Relationship\n\ \ -- | Fields should be documentable.\n\ \ name String\n\ \ parent RelationshipId Maybe\n\ \\n\ \ MutA\n\ \ mutB MutBId\n\ \\n\ \ MutB\n\ \ mutA MutAId\n\ \\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) (FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) [] False (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMigrationOnly, FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrSafeToRemove] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing (Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))), Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))] src/PersistentTestModels.hs:(26,1)-(128,2): Splicing declarations share [mkPersist persistSettings {mpsGeneric = True}, mkMigrate "testMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) (FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) [] False (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMigrationOnly, FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrSafeToRemove] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing (Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))), Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))]) ======> instance PersistStore backend => PersistField (PersonGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age", "color"] instance PersistStore backend => PersistFieldSql (PersonGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (Person1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age"] instance PersistStore backend => PersistFieldSql (Person1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PersonMaybeAgeGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age"] instance PersistStore backend => PersistFieldSql (PersonMaybeAgeGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PersonMayGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "color"] instance PersistStore backend => PersistFieldSql (PersonMayGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "name", "type"] instance PersistStore backend => PersistFieldSql (PetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MaybeOwnedPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "name", "type"] instance PersistStore backend => PersistFieldSql (MaybeOwnedPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NeedsPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["petKey"] instance PersistStore backend => PersistFieldSql (NeedsPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (OutdoorPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "collar", "type"] instance PersistStore backend => PersistFieldSql (OutdoorPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UserPTGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ident", "password"] instance PersistStore backend => PersistFieldSql (UserPTGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (EmailPTGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "user", "verkey"] instance PersistStore backend => PersistFieldSql (EmailPTGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UpsertGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "attr", "extra", "age"] instance PersistStore backend => PersistFieldSql (UpsertGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UpsertByGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "city", "attr"] instance PersistStore backend => PersistFieldSql (UpsertByGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (StrictGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["yes", "no", "def"] instance PersistStore backend => PersistFieldSql (StrictGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (DudeWeirdColumnsGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name"] instance PersistStore backend => PersistFieldSql (DudeWeirdColumnsGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (RelationshipGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "parent"] instance PersistStore backend => PersistFieldSql (RelationshipGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MutAGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["mutB"] instance PersistStore backend => PersistFieldSql (MutAGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MutBGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["mutA"] instance PersistStore backend => PersistFieldSql (MutBGeneric backend) where sqlType _ = SqlString type Person = PersonGeneric SqlBackend data PersonGeneric backend = Person {personName :: !Text, personAge :: !Int, personColor :: !(Maybe Text)} deriving stock (Show, Eq) type PersonId = Key Person instance PersistStore backend => PersistEntity (PersonGeneric backend) where type PersistEntityBackend (PersonGeneric backend) = backend data Unique (PersonGeneric backend) = PersonNameKey Text newtype Key (PersonGeneric backend) = PersonKey {unPersonKey :: (BackendKey backend)} data EntityField (PersonGeneric backend) typ = (typ ~ Key (PersonGeneric backend)) => PersonId | (typ ~ Text) => PersonName | (typ ~ Int) => PersonAge | (typ ~ Maybe Text) => PersonColor keyToValues = ((: []) . (toPersistValue . (\ PersonKey {unPersonKey = x} -> x))) keyFromValues = (fmap PersonKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GEP = ((Entity <$> fromField_a1GEP PersonId) <*> (((pure Person <*> fromField_a1GEP PersonName) <*> fromField_a1GEP PersonAge) <*> fromField_a1GEP PersonColor)) tabulateEntityApply fromField_a1GEO = ((Entity <$> fromField_a1GEO PersonId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((Person <$> fromField_a1GEO PersonName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GEO PersonAge) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GEO PersonColor)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Person x_a1GEo x_a1GEp x_a1GEq) = [toPersistValue x_a1GEo, toPersistValue x_a1GEp, toPersistValue x_a1GEq] fromPersistValues [x1_a1GEs, x2_a1GEt, x3_a1GEu] = 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_a1GEs <*> (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_a1GEt <*> (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_a1GEu fromPersistValues x_a1GEr = (Left $ mappend (Data.Text.unpackCStringLen# "Person: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a1GEr)) 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_a1GEv) = [toPersistValue x_a1GEv] persistUniqueKeys (Person _name_a1GEw _age_a1GEx _color_a1GEy) = [PersonNameKey _name_a1GEw] 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_a1GEA) key_a1GEB -> Entity key_a1GEB value_a1GEA) fieldLens PersonName = Database.Persist.TH.Internal.lensPTH ((\ Person {personName = x} -> x) . entityVal) (\ (Entity key_a1GEC value_a1GED) x_a1GEE -> Entity key_a1GEC (case value_a1GED of Person {personAge = personAge_a1GEG, personColor = personColor_a1GEH} -> Person {personName = x_a1GEE, personAge = personAge, personColor = personColor})) fieldLens PersonAge = Database.Persist.TH.Internal.lensPTH ((\ Person {personAge = x} -> x) . entityVal) (\ (Entity key_a1GEC value_a1GED) x_a1GEE -> Entity key_a1GEC (case value_a1GED of Person {personName = personName_a1GEI, personColor = personColor_a1GEK} -> Person {personName = personName, personAge = x_a1GEE, personColor = personColor})) fieldLens PersonColor = Database.Persist.TH.Internal.lensPTH ((\ Person {personColor = x} -> x) . entityVal) (\ (Entity key_a1GEC value_a1GED) x_a1GEE -> Entity key_a1GEC (case value_a1GED of Person {personName = personName_a1GEL, personAge = personAge_a1GEM} -> Person {personName = personName, personAge = personAge, personColor = x_a1GEE})) 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_a1GF8 = ((Entity <$> fromField_a1GF8 Person1Id) <*> ((pure Person1 <*> fromField_a1GF8 Person1Name) <*> fromField_a1GF8 Person1Age)) tabulateEntityApply fromField_a1GF7 = ((Entity <$> fromField_a1GF7 Person1Id) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((Person1 <$> fromField_a1GF7 Person1Name) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GF7 Person1Age)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Person1 x_a1GEQ x_a1GER) = [toPersistValue x_a1GEQ, toPersistValue x_a1GER] fromPersistValues [x1_a1GET, x2_a1GEU] = 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_a1GET <*> (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_a1GEU fromPersistValues x_a1GES = (Left $ mappend (Data.Text.unpackCStringLen# "Person1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 38#)) (Data.Text.Internal.pack $ show x_a1GES)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Person1 _name_a1GEV _age_a1GEW) = [] 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_a1GEY) key_a1GEZ -> Entity key_a1GEZ value_a1GEY) fieldLens Person1Name = Database.Persist.TH.Internal.lensPTH ((\ Person1 {person1Name = x} -> x) . entityVal) (\ (Entity key_a1GF0 value_a1GF1) x_a1GF2 -> Entity key_a1GF0 (case value_a1GF1 of Person1 {person1Age = person1Age_a1GF4} -> Person1 {person1Name = x_a1GF2, person1Age = person1Age})) fieldLens Person1Age = Database.Persist.TH.Internal.lensPTH ((\ Person1 {person1Age = x} -> x) . entityVal) (\ (Entity key_a1GF0 value_a1GF1) x_a1GF2 -> Entity key_a1GF0 (case value_a1GF1 of Person1 {person1Name = person1Name_a1GF5} -> Person1 {person1Name = person1Name, person1Age = x_a1GF2})) 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_a1GFr = ((Entity <$> fromField_a1GFr PersonMaybeAgeId) <*> ((pure PersonMaybeAge <*> fromField_a1GFr PersonMaybeAgeName) <*> fromField_a1GFr PersonMaybeAgeAge)) tabulateEntityApply fromField_a1GFq = ((Entity <$> fromField_a1GFq PersonMaybeAgeId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((PersonMaybeAge <$> fromField_a1GFq PersonMaybeAgeName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GFq PersonMaybeAgeAge)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (PersonMaybeAge x_a1GF9 x_a1GFa) = [toPersistValue x_a1GF9, toPersistValue x_a1GFa] fromPersistValues [x1_a1GFc, x2_a1GFd] = 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_a1GFc <*> (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_a1GFd fromPersistValues x_a1GFb = (Left $ mappend (Data.Text.unpackCStringLen# "PersonMaybeAge: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 45#)) (Data.Text.Internal.pack $ show x_a1GFb)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (PersonMaybeAge _name_a1GFe _age_a1GFf) = [] 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_a1GFh) key_a1GFi -> Entity key_a1GFi value_a1GFh) fieldLens PersonMaybeAgeName = Database.Persist.TH.Internal.lensPTH ((\ PersonMaybeAge {personMaybeAgeName = x} -> x) . entityVal) (\ (Entity key_a1GFj value_a1GFk) x_a1GFl -> Entity key_a1GFj (case value_a1GFk of PersonMaybeAge {personMaybeAgeAge = personMaybeAgeAge_a1GFn} -> PersonMaybeAge {personMaybeAgeName = x_a1GFl, personMaybeAgeAge = personMaybeAgeAge})) fieldLens PersonMaybeAgeAge = Database.Persist.TH.Internal.lensPTH ((\ PersonMaybeAge {personMaybeAgeAge = x} -> x) . entityVal) (\ (Entity key_a1GFj value_a1GFk) x_a1GFl -> Entity key_a1GFj (case value_a1GFk of PersonMaybeAge {personMaybeAgeName = personMaybeAgeName_a1GFo} -> PersonMaybeAge {personMaybeAgeName = personMaybeAgeName, personMaybeAgeAge = x_a1GFl})) 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_a1GFK = ((Entity <$> fromField_a1GFK PersonMayId) <*> ((pure PersonMay <*> fromField_a1GFK PersonMayName) <*> fromField_a1GFK PersonMayColor)) tabulateEntityApply fromField_a1GFJ = ((Entity <$> fromField_a1GFJ PersonMayId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((PersonMay <$> fromField_a1GFJ PersonMayName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GFJ PersonMayColor)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (PersonMay x_a1GFs x_a1GFt) = [toPersistValue x_a1GFs, toPersistValue x_a1GFt] fromPersistValues [x1_a1GFv, x2_a1GFw] = 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_a1GFv <*> (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_a1GFw fromPersistValues x_a1GFu = (Left $ mappend (Data.Text.unpackCStringLen# "PersonMay: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a1GFu)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (PersonMay _name_a1GFx _color_a1GFy) = [] 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_a1GFA) key_a1GFB -> Entity key_a1GFB value_a1GFA) fieldLens PersonMayName = Database.Persist.TH.Internal.lensPTH ((\ PersonMay {personMayName = x} -> x) . entityVal) (\ (Entity key_a1GFC value_a1GFD) x_a1GFE -> Entity key_a1GFC (case value_a1GFD of PersonMay {personMayColor = personMayColor_a1GFG} -> PersonMay {personMayName = x_a1GFE, personMayColor = personMayColor})) fieldLens PersonMayColor = Database.Persist.TH.Internal.lensPTH ((\ PersonMay {personMayColor = x} -> x) . entityVal) (\ (Entity key_a1GFC value_a1GFD) x_a1GFE -> Entity key_a1GFC (case value_a1GFD of PersonMay {personMayName = personMayName_a1GFH} -> PersonMay {personMayName = personMayName, personMayColor = x_a1GFE})) 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_a1GGb = ((Entity <$> fromField_a1GGb PetId) <*> (((pure Pet <*> fromField_a1GGb PetOwnerId) <*> fromField_a1GGb PetName) <*> fromField_a1GGb PetType)) tabulateEntityApply fromField_a1GGa = ((Entity <$> fromField_a1GGa PetId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((Pet <$> fromField_a1GGa PetOwnerId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GGa PetName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GGa PetType)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Pet x_a1GFL x_a1GFM x_a1GFN) = [toPersistValue x_a1GFL, toPersistValue x_a1GFM, toPersistValue x_a1GFN] fromPersistValues [x1_a1GFP, x2_a1GFQ, x3_a1GFR] = 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_a1GFP <*> (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_a1GFQ <*> (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_a1GFR fromPersistValues x_a1GFO = (Left $ mappend (Data.Text.unpackCStringLen# "Pet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 34#)) (Data.Text.Internal.pack $ show x_a1GFO)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Pet _ownerId_a1GFS _name_a1GFT _type_a1GFU) = [] 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_a1GFW) key_a1GFX -> Entity key_a1GFX value_a1GFW) fieldLens PetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ Pet {petOwnerId = x} -> x) . entityVal) (\ (Entity key_a1GFY value_a1GFZ) x_a1GG0 -> Entity key_a1GFY (case value_a1GFZ of Pet {petName = petName_a1GG2, petType = petType_a1GG3} -> Pet {petOwnerId = x_a1GG0, petName = petName, petType = petType})) fieldLens PetName = Database.Persist.TH.Internal.lensPTH ((\ Pet {petName = x} -> x) . entityVal) (\ (Entity key_a1GFY value_a1GFZ) x_a1GG0 -> Entity key_a1GFY (case value_a1GFZ of Pet {petOwnerId = petOwnerId_a1GG4, petType = petType_a1GG6} -> Pet {petOwnerId = petOwnerId, petName = x_a1GG0, petType = petType})) fieldLens PetType = Database.Persist.TH.Internal.lensPTH ((\ Pet {petType = x} -> x) . entityVal) (\ (Entity key_a1GFY value_a1GFZ) x_a1GG0 -> Entity key_a1GFY (case value_a1GFZ of Pet {petOwnerId = petOwnerId_a1GG7, petName = petName_a1GG8} -> Pet {petOwnerId = petOwnerId, petName = petName, petType = x_a1GG0})) 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_a1GGC = ((Entity <$> fromField_a1GGC MaybeOwnedPetId) <*> (((pure MaybeOwnedPet <*> fromField_a1GGC MaybeOwnedPetOwnerId) <*> fromField_a1GGC MaybeOwnedPetName) <*> fromField_a1GGC MaybeOwnedPetType)) tabulateEntityApply fromField_a1GGB = ((Entity <$> fromField_a1GGB MaybeOwnedPetId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((MaybeOwnedPet <$> fromField_a1GGB MaybeOwnedPetOwnerId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GGB MaybeOwnedPetName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GGB MaybeOwnedPetType)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MaybeOwnedPet x_a1GGc x_a1GGd x_a1GGe) = [toPersistValue x_a1GGc, toPersistValue x_a1GGd, toPersistValue x_a1GGe] fromPersistValues [x1_a1GGg, x2_a1GGh, x3_a1GGi] = 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_a1GGg <*> (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_a1GGh <*> (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_a1GGi fromPersistValues x_a1GGf = (Left $ mappend (Data.Text.unpackCStringLen# "MaybeOwnedPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a1GGf)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MaybeOwnedPet _ownerId_a1GGj _name_a1GGk _type_a1GGl) = [] 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_a1GGn) key_a1GGo -> Entity key_a1GGo value_a1GGn) fieldLens MaybeOwnedPetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetOwnerId = x} -> x) . entityVal) (\ (Entity key_a1GGp value_a1GGq) x_a1GGr -> Entity key_a1GGp (case value_a1GGq of MaybeOwnedPet {maybeOwnedPetName = maybeOwnedPetName_a1GGt, maybeOwnedPetType = maybeOwnedPetType_a1GGu} -> MaybeOwnedPet {maybeOwnedPetOwnerId = x_a1GGr, maybeOwnedPetName = maybeOwnedPetName, maybeOwnedPetType = maybeOwnedPetType})) fieldLens MaybeOwnedPetName = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetName = x} -> x) . entityVal) (\ (Entity key_a1GGp value_a1GGq) x_a1GGr -> Entity key_a1GGp (case value_a1GGq of MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a1GGv, maybeOwnedPetType = maybeOwnedPetType_a1GGx} -> MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId, maybeOwnedPetName = x_a1GGr, maybeOwnedPetType = maybeOwnedPetType})) fieldLens MaybeOwnedPetType = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetType = x} -> x) . entityVal) (\ (Entity key_a1GGp value_a1GGq) x_a1GGr -> Entity key_a1GGp (case value_a1GGq of MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a1GGy, maybeOwnedPetName = maybeOwnedPetName_a1GGz} -> MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId, maybeOwnedPetName = maybeOwnedPetName, maybeOwnedPetType = x_a1GGr})) 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_a1GGP = ((Entity <$> fromField_a1GGP NeedsPetId) <*> (pure NeedsPet <*> fromField_a1GGP NeedsPetPetKey)) tabulateEntityApply fromField_a1GGO = ((Entity <$> fromField_a1GGO NeedsPetId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (NeedsPet <$> fromField_a1GGO NeedsPetPetKey)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)), fieldSqlType = sqlType (Proxy :: Proxy PetId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NeedsPet x_a1GGD) = [toPersistValue x_a1GGD] fromPersistValues [x1_a1GGF] = 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_a1GGF fromPersistValues x_a1GGE = (Left $ mappend (Data.Text.unpackCStringLen# "NeedsPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 39#)) (Data.Text.Internal.pack $ show x_a1GGE)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NeedsPet _petKey_a1GGG) = [] 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_a1GGI) key_a1GGJ -> Entity key_a1GGJ value_a1GGI) fieldLens NeedsPetPetKey = Database.Persist.TH.Internal.lensPTH ((\ NeedsPet {needsPetPetKey = x} -> x) . entityVal) (\ (Entity key_a1GGK value_a1GGL) x_a1GGM -> Entity key_a1GGK (case value_a1GGL of NeedsPet {} -> NeedsPet {needsPetPetKey = x_a1GGM})) 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_a1GHg = ((Entity <$> fromField_a1GHg OutdoorPetId) <*> (((pure OutdoorPet <*> fromField_a1GHg OutdoorPetOwnerId) <*> fromField_a1GHg OutdoorPetCollar) <*> fromField_a1GHg OutdoorPetType)) tabulateEntityApply fromField_a1GHf = ((Entity <$> fromField_a1GHf OutdoorPetId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((OutdoorPet <$> fromField_a1GHf OutdoorPetOwnerId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GHf OutdoorPetCollar) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GHf OutdoorPetType)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#)), fieldSqlType = sqlType (Proxy :: Proxy PetCollar), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (OutdoorPet x_a1GGQ x_a1GGR x_a1GGS) = [toPersistValue x_a1GGQ, toPersistValue x_a1GGR, toPersistValue x_a1GGS] fromPersistValues [x1_a1GGU, x2_a1GGV, x3_a1GGW] = 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_a1GGU <*> (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_a1GGV <*> (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_a1GGW fromPersistValues x_a1GGT = (Left $ mappend (Data.Text.unpackCStringLen# "OutdoorPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 41#)) (Data.Text.Internal.pack $ show x_a1GGT)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (OutdoorPet _ownerId_a1GGX _collar_a1GGY _type_a1GGZ) = [] 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_a1GH1) key_a1GH2 -> Entity key_a1GH2 value_a1GH1) fieldLens OutdoorPetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetOwnerId = x} -> x) . entityVal) (\ (Entity key_a1GH3 value_a1GH4) x_a1GH5 -> Entity key_a1GH3 (case value_a1GH4 of OutdoorPet {outdoorPetCollar = outdoorPetCollar_a1GH7, outdoorPetType = outdoorPetType_a1GH8} -> OutdoorPet {outdoorPetOwnerId = x_a1GH5, outdoorPetCollar = outdoorPetCollar, outdoorPetType = outdoorPetType})) fieldLens OutdoorPetCollar = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetCollar = x} -> x) . entityVal) (\ (Entity key_a1GH3 value_a1GH4) x_a1GH5 -> Entity key_a1GH3 (case value_a1GH4 of OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a1GH9, outdoorPetType = outdoorPetType_a1GHb} -> OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = x_a1GH5, outdoorPetType = outdoorPetType})) fieldLens OutdoorPetType = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetType = x} -> x) . entityVal) (\ (Entity key_a1GH3 value_a1GH4) x_a1GH5 -> Entity key_a1GH3 (case value_a1GH4 of OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a1GHc, outdoorPetCollar = outdoorPetCollar_a1GHd} -> OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = outdoorPetCollar, outdoorPetType = x_a1GH5})) 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_a1GHA = ((Entity <$> fromField_a1GHA UserPTId) <*> ((pure UserPT <*> fromField_a1GHA UserPTIdent) <*> fromField_a1GHA UserPTPassword)) tabulateEntityApply fromField_a1GHz = ((Entity <$> fromField_a1GHz UserPTId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((UserPT <$> fromField_a1GHz UserPTIdent) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GHz UserPTPassword)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UserPT x_a1GHh x_a1GHi) = [toPersistValue x_a1GHh, toPersistValue x_a1GHi] fromPersistValues [x1_a1GHk, x2_a1GHl] = 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_a1GHk <*> (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_a1GHl fromPersistValues x_a1GHj = (Left $ mappend (Data.Text.unpackCStringLen# "UserPT: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a1GHj)) 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_a1GHm) = [toPersistValue x_a1GHm] persistUniqueKeys (UserPT _ident_a1GHn _password_a1GHo) = [UniqueUserPT _ident_a1GHn] 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_a1GHq) key_a1GHr -> Entity key_a1GHr value_a1GHq) fieldLens UserPTIdent = Database.Persist.TH.Internal.lensPTH ((\ UserPT {userPTIdent = x} -> x) . entityVal) (\ (Entity key_a1GHs value_a1GHt) x_a1GHu -> Entity key_a1GHs (case value_a1GHt of UserPT {userPTPassword = userPTPassword_a1GHw} -> UserPT {userPTIdent = x_a1GHu, userPTPassword = userPTPassword})) fieldLens UserPTPassword = Database.Persist.TH.Internal.lensPTH ((\ UserPT {userPTPassword = x} -> x) . entityVal) (\ (Entity key_a1GHs value_a1GHt) x_a1GHu -> Entity key_a1GHs (case value_a1GHt of UserPT {userPTIdent = userPTIdent_a1GHx} -> UserPT {userPTIdent = userPTIdent, userPTPassword = x_a1GHu})) 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_a1GI2 = ((Entity <$> fromField_a1GI2 EmailPTId) <*> (((pure EmailPT <*> fromField_a1GI2 EmailPTEmail) <*> fromField_a1GI2 EmailPTUser) <*> fromField_a1GI2 EmailPTVerkey)) tabulateEntityApply fromField_a1GI1 = ((Entity <$> fromField_a1GI1 EmailPTId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((EmailPT <$> fromField_a1GI1 EmailPTEmail) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GI1 EmailPTUser) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GI1 EmailPTVerkey)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy UserPTId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (EmailPT x_a1GHB x_a1GHC x_a1GHD) = [toPersistValue x_a1GHB, toPersistValue x_a1GHC, toPersistValue x_a1GHD] fromPersistValues [x1_a1GHF, x2_a1GHG, x3_a1GHH] = 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_a1GHF <*> (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_a1GHG <*> (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_a1GHH fromPersistValues x_a1GHE = (Left $ mappend (Data.Text.unpackCStringLen# "EmailPT: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 38#)) (Data.Text.Internal.pack $ show x_a1GHE)) 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_a1GHI) = [toPersistValue x_a1GHI] persistUniqueKeys (EmailPT _email_a1GHJ _user_a1GHK _verkey_a1GHL) = [UniqueEmailPT _email_a1GHJ] 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_a1GHN) key_a1GHO -> Entity key_a1GHO value_a1GHN) fieldLens EmailPTEmail = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTEmail = x} -> x) . entityVal) (\ (Entity key_a1GHP value_a1GHQ) x_a1GHR -> Entity key_a1GHP (case value_a1GHQ of EmailPT {emailPTUser = emailPTUser_a1GHT, emailPTVerkey = emailPTVerkey_a1GHU} -> EmailPT {emailPTEmail = x_a1GHR, emailPTUser = emailPTUser, emailPTVerkey = emailPTVerkey})) fieldLens EmailPTUser = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTUser = x} -> x) . entityVal) (\ (Entity key_a1GHP value_a1GHQ) x_a1GHR -> Entity key_a1GHP (case value_a1GHQ of EmailPT {emailPTEmail = emailPTEmail_a1GHV, emailPTVerkey = emailPTVerkey_a1GHX} -> EmailPT {emailPTEmail = emailPTEmail, emailPTUser = x_a1GHR, emailPTVerkey = emailPTVerkey})) fieldLens EmailPTVerkey = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTVerkey = x} -> x) . entityVal) (\ (Entity key_a1GHP value_a1GHQ) x_a1GHR -> Entity key_a1GHP (case value_a1GHQ of EmailPT {emailPTEmail = emailPTEmail_a1GHY, emailPTUser = emailPTUser_a1GHZ} -> EmailPT {emailPTEmail = emailPTEmail, emailPTUser = emailPTUser, emailPTVerkey = x_a1GHR})) 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_a1GIE = ((Entity <$> fromField_a1GIE UpsertId) <*> ((((pure Upsert <*> fromField_a1GIE UpsertEmail) <*> fromField_a1GIE UpsertAttr) <*> fromField_a1GIE UpsertExtra) <*> fromField_a1GIE UpsertAge)) tabulateEntityApply fromField_a1GID = ((Entity <$> fromField_a1GID UpsertId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((((Upsert <$> fromField_a1GID UpsertEmail) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GID UpsertAttr) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GID UpsertExtra) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GID UpsertAge)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Upsert x_a1GI3 x_a1GI4 x_a1GI5 x_a1GI6) = [toPersistValue x_a1GI3, toPersistValue x_a1GI4, toPersistValue x_a1GI5, toPersistValue x_a1GI6] fromPersistValues [x1_a1GI8, x2_a1GI9, x3_a1GIa, x4_a1GIb] = 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_a1GI8 <*> (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_a1GI9 <*> (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_a1GIa <*> (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_a1GIb fromPersistValues x_a1GI7 = (Left $ mappend (Data.Text.unpackCStringLen# "Upsert: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a1GI7)) 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_a1GIc) = [toPersistValue x_a1GIc] persistUniqueKeys (Upsert _email_a1GId _attr_a1GIe _extra_a1GIf _age_a1GIg) = [UniqueUpsert _email_a1GId] 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_a1GIi) key_a1GIj -> Entity key_a1GIj value_a1GIi) fieldLens UpsertEmail = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertEmail = x} -> x) . entityVal) (\ (Entity key_a1GIk value_a1GIl) x_a1GIm -> Entity key_a1GIk (case value_a1GIl of Upsert {upsertAttr = upsertAttr_a1GIo, upsertExtra = upsertExtra_a1GIp, upsertAge = upsertAge_a1GIq} -> Upsert {upsertEmail = x_a1GIm, upsertAttr = upsertAttr, upsertExtra = upsertExtra, upsertAge = upsertAge})) fieldLens UpsertAttr = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertAttr = x} -> x) . entityVal) (\ (Entity key_a1GIk value_a1GIl) x_a1GIm -> Entity key_a1GIk (case value_a1GIl of Upsert {upsertEmail = upsertEmail_a1GIr, upsertExtra = upsertExtra_a1GIt, upsertAge = upsertAge_a1GIu} -> Upsert {upsertEmail = upsertEmail, upsertAttr = x_a1GIm, upsertExtra = upsertExtra, upsertAge = upsertAge})) fieldLens UpsertExtra = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertExtra = x} -> x) . entityVal) (\ (Entity key_a1GIk value_a1GIl) x_a1GIm -> Entity key_a1GIk (case value_a1GIl of Upsert {upsertEmail = upsertEmail_a1GIv, upsertAttr = upsertAttr_a1GIw, upsertAge = upsertAge_a1GIy} -> Upsert {upsertEmail = upsertEmail, upsertAttr = upsertAttr, upsertExtra = x_a1GIm, upsertAge = upsertAge})) fieldLens UpsertAge = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertAge = x} -> x) . entityVal) (\ (Entity key_a1GIk value_a1GIl) x_a1GIm -> Entity key_a1GIk (case value_a1GIl of Upsert {upsertEmail = upsertEmail_a1GIz, upsertAttr = upsertAttr_a1GIA, upsertExtra = upsertExtra_a1GIB} -> Upsert {upsertEmail = upsertEmail, upsertAttr = upsertAttr, upsertExtra = upsertExtra, upsertAge = x_a1GIm})) 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_a1GJ7 = ((Entity <$> fromField_a1GJ7 UpsertById) <*> (((pure UpsertBy <*> fromField_a1GJ7 UpsertByEmail) <*> fromField_a1GJ7 UpsertByCity) <*> fromField_a1GJ7 UpsertByAttr)) tabulateEntityApply fromField_a1GJ6 = ((Entity <$> fromField_a1GJ6 UpsertById) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((UpsertBy <$> fromField_a1GJ6 UpsertByEmail) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GJ6 UpsertByCity) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GJ6 UpsertByAttr)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UpsertBy x_a1GIF x_a1GIG x_a1GIH) = [toPersistValue x_a1GIF, toPersistValue x_a1GIG, toPersistValue x_a1GIH] fromPersistValues [x1_a1GIJ, x2_a1GIK, x3_a1GIL] = 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_a1GIJ <*> (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_a1GIK <*> (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_a1GIL fromPersistValues x_a1GII = (Left $ mappend (Data.Text.unpackCStringLen# "UpsertBy: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 39#)) (Data.Text.Internal.pack $ show x_a1GII)) 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_a1GIM) = [toPersistValue x_a1GIM] persistUniqueToValues (UniqueUpsertByCity x_a1GIN) = [toPersistValue x_a1GIN] persistUniqueKeys (UpsertBy _email_a1GIO _city_a1GIP _attr_a1GIQ) = [UniqueUpsertBy _email_a1GIO, UniqueUpsertByCity _city_a1GIP] 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_a1GIS) key_a1GIT -> Entity key_a1GIT value_a1GIS) fieldLens UpsertByEmail = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByEmail = x} -> x) . entityVal) (\ (Entity key_a1GIU value_a1GIV) x_a1GIW -> Entity key_a1GIU (case value_a1GIV of UpsertBy {upsertByCity = upsertByCity_a1GIY, upsertByAttr = upsertByAttr_a1GIZ} -> UpsertBy {upsertByEmail = x_a1GIW, upsertByCity = upsertByCity, upsertByAttr = upsertByAttr})) fieldLens UpsertByCity = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByCity = x} -> x) . entityVal) (\ (Entity key_a1GIU value_a1GIV) x_a1GIW -> Entity key_a1GIU (case value_a1GIV of UpsertBy {upsertByEmail = upsertByEmail_a1GJ0, upsertByAttr = upsertByAttr_a1GJ2} -> UpsertBy {upsertByEmail = upsertByEmail, upsertByCity = x_a1GIW, upsertByAttr = upsertByAttr})) fieldLens UpsertByAttr = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByAttr = x} -> x) . entityVal) (\ (Entity key_a1GIU value_a1GIV) x_a1GIW -> Entity key_a1GIU (case value_a1GIV of UpsertBy {upsertByEmail = upsertByEmail_a1GJ3, upsertByCity = upsertByCity_a1GJ4} -> UpsertBy {upsertByEmail = upsertByEmail, upsertByCity = upsertByCity, upsertByAttr = x_a1GIW})) 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_a1GJy = ((Entity <$> fromField_a1GJy StrictId) <*> (((pure Strict <*> fromField_a1GJy StrictYes) <*> fromField_a1GJy StrictNo) <*> fromField_a1GJy StrictDef)) tabulateEntityApply fromField_a1GJx = ((Entity <$> fromField_a1GJx StrictId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (((Strict <$> fromField_a1GJx StrictYes) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GJx StrictNo) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GJx StrictDef)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = False, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Strict x_a1GJ8 x_a1GJ9 x_a1GJa) = [toPersistValue x_a1GJ8, toPersistValue x_a1GJ9, toPersistValue x_a1GJa] fromPersistValues [x1_a1GJc, x2_a1GJd, x3_a1GJe] = 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_a1GJc <*> (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_a1GJd <*> (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_a1GJe fromPersistValues x_a1GJb = (Left $ mappend (Data.Text.unpackCStringLen# "Strict: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a1GJb)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Strict _yes_a1GJf _no_a1GJg _def_a1GJh) = [] 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_a1GJj) key_a1GJk -> Entity key_a1GJk value_a1GJj) fieldLens StrictYes = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictYes = x} -> x) . entityVal) (\ (Entity key_a1GJl value_a1GJm) x_a1GJn -> Entity key_a1GJl (case value_a1GJm of Strict {strictNo = strictNo_a1GJp, strictDef = strictDef_a1GJq} -> Strict {strictYes = x_a1GJn, strictNo = strictNo, strictDef = strictDef})) fieldLens StrictNo = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictNo = x} -> x) . entityVal) (\ (Entity key_a1GJl value_a1GJm) x_a1GJn -> Entity key_a1GJl (case value_a1GJm of Strict {strictYes = strictYes_a1GJr, strictDef = strictDef_a1GJt} -> Strict {strictYes = strictYes, strictNo = x_a1GJn, strictDef = strictDef})) fieldLens StrictDef = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictDef = x} -> x) . entityVal) (\ (Entity key_a1GJl value_a1GJm) x_a1GJn -> Entity key_a1GJl (case value_a1GJm of Strict {strictYes = strictYes_a1GJu, strictNo = strictNo_a1GJv} -> Strict {strictYes = strictYes, strictNo = strictNo, strictDef = x_a1GJn})) 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_a1GJM = ((Entity <$> fromField_a1GJM DudeWeirdColumnsId) <*> (pure DudeWeirdColumns <*> fromField_a1GJM DudeWeirdColumnsName)) tabulateEntityApply fromField_a1GJL = ((Entity <$> fromField_a1GJL DudeWeirdColumnsId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (DudeWeirdColumns <$> fromField_a1GJL DudeWeirdColumnsName)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrMigrationOnly, FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy Double), fieldAttrs = [FieldAttrSafeToRemove], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (DudeWeirdColumns x_a1GJz) = [toPersistValue x_a1GJz] fromPersistValues [x1_a1GJB] = 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_a1GJB fromPersistValues x_a1GJA = (Left $ mappend (Data.Text.unpackCStringLen# "DudeWeirdColumns: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 47#)) (Data.Text.Internal.pack $ show x_a1GJA)) 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_a1GJC) = [toPersistValue x_a1GJC] persistUniqueKeys (DudeWeirdColumns _name_a1GJD) = [UniqueName _name_a1GJD] 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_a1GJF) key_a1GJG -> Entity key_a1GJG value_a1GJF) fieldLens DudeWeirdColumnsName = Database.Persist.TH.Internal.lensPTH ((\ DudeWeirdColumns {dudeWeirdColumnsName = x} -> x) . entityVal) (\ (Entity key_a1GJH value_a1GJI) x_a1GJJ -> Entity key_a1GJH (case value_a1GJI of DudeWeirdColumns {} -> DudeWeirdColumns {dudeWeirdColumnsName = x_a1GJJ})) 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_a1GK5 = ((Entity <$> fromField_a1GK5 RelationshipId) <*> ((pure Relationship <*> fromField_a1GK5 RelationshipName) <*> fromField_a1GK5 RelationshipParent)) tabulateEntityApply fromField_a1GK4 = ((Entity <$> fromField_a1GK4 RelationshipId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((Relationship <$> fromField_a1GK4 RelationshipName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1GK4 RelationshipParent)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#)), fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#)), fieldSqlType = sqlType (Proxy :: Proxy RelationshipId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Relationship x_a1GJN x_a1GJO) = [toPersistValue x_a1GJN, toPersistValue x_a1GJO] fromPersistValues [x1_a1GJQ, x2_a1GJR] = 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_a1GJQ <*> (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_a1GJR fromPersistValues x_a1GJP = (Left $ mappend (Data.Text.unpackCStringLen# "Relationship: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 43#)) (Data.Text.Internal.pack $ show x_a1GJP)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Relationship _name_a1GJS _parent_a1GJT) = [] 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_a1GJV) key_a1GJW -> Entity key_a1GJW value_a1GJV) fieldLens RelationshipName = Database.Persist.TH.Internal.lensPTH ((\ Relationship {relationshipName = x} -> x) . entityVal) (\ (Entity key_a1GJX value_a1GJY) x_a1GJZ -> Entity key_a1GJX (case value_a1GJY of Relationship {relationshipParent = relationshipParent_a1GK1} -> Relationship {relationshipName = x_a1GJZ, relationshipParent = relationshipParent})) fieldLens RelationshipParent = Database.Persist.TH.Internal.lensPTH ((\ Relationship {relationshipParent = x} -> x) . entityVal) (\ (Entity key_a1GJX value_a1GJY) x_a1GJZ -> Entity key_a1GJX (case value_a1GJY of Relationship {relationshipName = relationshipName_a1GK2} -> Relationship {relationshipName = relationshipName, relationshipParent = x_a1GJZ})) 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_a1GKi = ((Entity <$> fromField_a1GKi MutAId) <*> (pure MutA <*> fromField_a1GKi MutAMutB)) tabulateEntityApply fromField_a1GKh = ((Entity <$> fromField_a1GKh MutAId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (MutA <$> fromField_a1GKh MutAMutB)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy MutBId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MutA x_a1GK6) = [toPersistValue x_a1GK6] fromPersistValues [x1_a1GK8] = 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_a1GK8 fromPersistValues x_a1GK7 = (Left $ mappend (Data.Text.unpackCStringLen# "MutA: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a1GK7)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MutA _mutB_a1GK9) = [] 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_a1GKb) key_a1GKc -> Entity key_a1GKc value_a1GKb) fieldLens MutAMutB = Database.Persist.TH.Internal.lensPTH ((\ MutA {mutAMutB = x} -> x) . entityVal) (\ (Entity key_a1GKd value_a1GKe) x_a1GKf -> Entity key_a1GKd (case value_a1GKe of MutA {} -> MutA {mutAMutB = x_a1GKf})) 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_a1GKv = ((Entity <$> fromField_a1GKv MutBId) <*> (pure MutB <*> fromField_a1GKv MutBMutA)) tabulateEntityApply fromField_a1GKu = ((Entity <$> fromField_a1GKu MutBId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (MutB <$> fromField_a1GKu MutBMutA)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy MutAId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MutB x_a1GKj) = [toPersistValue x_a1GKj] fromPersistValues [x1_a1GKl] = 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_a1GKl fromPersistValues x_a1GKk = (Left $ mappend (Data.Text.unpackCStringLen# "MutB: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a1GKk)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MutB _mutA_a1GKm) = [] 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_a1GKo) key_a1GKp -> Entity key_a1GKp value_a1GKo) fieldLens MutBMutA = Database.Persist.TH.Internal.lensPTH ((\ MutB {mutBMutA = x} -> x) . entityVal) (\ (Entity key_a1GKq value_a1GKr) x_a1GKs -> Entity key_a1GKq (case value_a1GKr of MutB {} -> MutB {mutBMutA = x_a1GKs})) 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_a1GKx age_a1GKy color_a1GKz) = object [(Data.Aeson.Key.fromString "name" .= name_a1GKx), (Data.Aeson.Key.fromString "age" .= age_a1GKy), (Data.Aeson.Key.fromString "color" .= color_a1GKz)] instance PersistStore backend => FromJSON (PersonGeneric backend) where parseJSON = withObject "Person" (\ obj_a1GKw -> (((pure Person <*> (obj_a1GKw .: Data.Aeson.Key.fromString "name")) <*> (obj_a1GKw .: Data.Aeson.Key.fromString "age")) <*> (obj_a1GKw .:? 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_a1GKB color_a1GKC) = object [(Data.Aeson.Key.fromString "name" .= name_a1GKB), (Data.Aeson.Key.fromString "color" .= color_a1GKC)] instance PersistStore backend => FromJSON (PersonMayGeneric backend) where parseJSON = withObject "PersonMay" (\ obj_a1GKA -> ((pure PersonMay <*> (obj_a1GKA .:? Data.Aeson.Key.fromString "name")) <*> (obj_a1GKA .:? Data.Aeson.Key.fromString "color"))) instance PersistStore backend => ToJSON (Entity (PersonMayGeneric backend)) where toJSON = entityIdToJSON instance PersistStore backend => FromJSON (Entity (PersonMayGeneric backend)) where parseJSON = entityIdFromJSON instance PersistStoreWrite backend => OnlyOneUniqueKey (PersonGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (PersonGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (Person1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (Person1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PersonMaybeAgeGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PersonMaybeAgeGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PersonMayGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PersonMayGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MaybeOwnedPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MaybeOwnedPetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NeedsPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NeedsPetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (OutdoorPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (OutdoorPetGeneric backend) where requireUniquesP _ = error "impossible" instance PersistStoreWrite backend => OnlyOneUniqueKey (UserPTGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (UserPTGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance PersistStoreWrite backend => OnlyOneUniqueKey (EmailPTGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (EmailPTGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance PersistStoreWrite backend => OnlyOneUniqueKey (UpsertGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (UpsertGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (MultipleUniqueKeysError (UpsertByGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (UpsertByGeneric backend) where onlyUniqueP _ = error "impossible" instance PersistStoreWrite backend => AtLeastOneUniqueKey (UpsertByGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (StrictGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (StrictGeneric backend) where requireUniquesP _ = error "impossible" instance PersistStoreWrite backend => OnlyOneUniqueKey (DudeWeirdColumnsGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (DudeWeirdColumnsGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (RelationshipGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (RelationshipGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MutAGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MutAGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MutBGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MutBGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (PersonGeneric backend) (Key (PersonGeneric backend)) where symbolToField = PersonId instance SymbolToField "name" (PersonGeneric backend) Text where symbolToField = PersonName instance SymbolToField "age" (PersonGeneric backend) Int where symbolToField = PersonAge instance SymbolToField "color" (PersonGeneric backend) (Maybe Text) where symbolToField = PersonColor instance SymbolToField "id" (Person1Generic backend) (Key (Person1Generic backend)) where symbolToField = Person1Id instance SymbolToField "name" (Person1Generic backend) Text where symbolToField = Person1Name instance SymbolToField "age" (Person1Generic backend) Int where symbolToField = Person1Age instance SymbolToField "id" (PersonMaybeAgeGeneric backend) (Key (PersonMaybeAgeGeneric backend)) where symbolToField = PersonMaybeAgeId instance SymbolToField "name" (PersonMaybeAgeGeneric backend) Text where symbolToField = PersonMaybeAgeName instance SymbolToField "age" (PersonMaybeAgeGeneric backend) (Maybe Int) where symbolToField = PersonMaybeAgeAge instance SymbolToField "id" (PersonMayGeneric backend) (Key (PersonMayGeneric backend)) where symbolToField = PersonMayId instance SymbolToField "name" (PersonMayGeneric backend) (Maybe Text) where symbolToField = PersonMayName instance SymbolToField "color" (PersonMayGeneric backend) (Maybe Text) where symbolToField = PersonMayColor instance SymbolToField "id" (PetGeneric backend) (Key (PetGeneric backend)) where symbolToField = PetId instance SymbolToField "ownerId" (PetGeneric backend) (Key (PersonGeneric backend)) where symbolToField = PetOwnerId instance SymbolToField "name" (PetGeneric backend) Text where symbolToField = PetName instance SymbolToField "type" (PetGeneric backend) PetType where symbolToField = PetType instance SymbolToField "id" (MaybeOwnedPetGeneric backend) (Key (MaybeOwnedPetGeneric backend)) where symbolToField = MaybeOwnedPetId instance SymbolToField "ownerId" (MaybeOwnedPetGeneric backend) (Maybe (Key (PersonGeneric backend))) where symbolToField = MaybeOwnedPetOwnerId instance SymbolToField "name" (MaybeOwnedPetGeneric backend) Text where symbolToField = MaybeOwnedPetName instance SymbolToField "type" (MaybeOwnedPetGeneric backend) PetType where symbolToField = MaybeOwnedPetType instance SymbolToField "id" (NeedsPetGeneric backend) (Key (NeedsPetGeneric backend)) where symbolToField = NeedsPetId instance SymbolToField "petKey" (NeedsPetGeneric backend) (Key (PetGeneric backend)) where symbolToField = NeedsPetPetKey instance SymbolToField "id" (OutdoorPetGeneric backend) (Key (OutdoorPetGeneric backend)) where symbolToField = OutdoorPetId instance SymbolToField "ownerId" (OutdoorPetGeneric backend) (Key (PersonGeneric backend)) where symbolToField = OutdoorPetOwnerId instance SymbolToField "collar" (OutdoorPetGeneric backend) PetCollar where symbolToField = OutdoorPetCollar instance SymbolToField "type" (OutdoorPetGeneric backend) PetType where symbolToField = OutdoorPetType instance SymbolToField "id" (UserPTGeneric backend) (Key (UserPTGeneric backend)) where symbolToField = UserPTId instance SymbolToField "ident" (UserPTGeneric backend) Text where symbolToField = UserPTIdent instance SymbolToField "password" (UserPTGeneric backend) (Maybe Text) where symbolToField = UserPTPassword instance SymbolToField "id" (EmailPTGeneric backend) (Key (EmailPTGeneric backend)) where symbolToField = EmailPTId instance SymbolToField "email" (EmailPTGeneric backend) Text where symbolToField = EmailPTEmail instance SymbolToField "user" (EmailPTGeneric backend) (Maybe (Key (UserPTGeneric backend))) where symbolToField = EmailPTUser instance SymbolToField "verkey" (EmailPTGeneric backend) (Maybe Text) where symbolToField = EmailPTVerkey instance SymbolToField "id" (UpsertGeneric backend) (Key (UpsertGeneric backend)) where symbolToField = UpsertId instance SymbolToField "email" (UpsertGeneric backend) Text where symbolToField = UpsertEmail instance SymbolToField "attr" (UpsertGeneric backend) Text where symbolToField = UpsertAttr instance SymbolToField "extra" (UpsertGeneric backend) Text where symbolToField = UpsertExtra instance SymbolToField "age" (UpsertGeneric backend) Int where symbolToField = UpsertAge instance SymbolToField "id" (UpsertByGeneric backend) (Key (UpsertByGeneric backend)) where symbolToField = UpsertById instance SymbolToField "email" (UpsertByGeneric backend) Text where symbolToField = UpsertByEmail instance SymbolToField "city" (UpsertByGeneric backend) Text where symbolToField = UpsertByCity instance SymbolToField "attr" (UpsertByGeneric backend) Text where symbolToField = UpsertByAttr instance SymbolToField "id" (StrictGeneric backend) (Key (StrictGeneric backend)) where symbolToField = StrictId instance SymbolToField "yes" (StrictGeneric backend) Int where symbolToField = StrictYes instance SymbolToField "no" (StrictGeneric backend) Int where symbolToField = StrictNo instance SymbolToField "def" (StrictGeneric backend) Int where symbolToField = StrictDef instance SymbolToField "id" (DudeWeirdColumnsGeneric backend) (Key (DudeWeirdColumnsGeneric backend)) where symbolToField = DudeWeirdColumnsId instance SymbolToField "name" (DudeWeirdColumnsGeneric backend) Text where symbolToField = DudeWeirdColumnsName instance SymbolToField "id" (RelationshipGeneric backend) (Key (RelationshipGeneric backend)) where symbolToField = RelationshipId instance SymbolToField "name" (RelationshipGeneric backend) String where symbolToField = RelationshipName instance SymbolToField "parent" (RelationshipGeneric backend) (Maybe (Key (RelationshipGeneric backend))) where symbolToField = RelationshipParent instance SymbolToField "id" (MutAGeneric backend) (Key (MutAGeneric backend)) where symbolToField = MutAId instance SymbolToField "mutB" (MutAGeneric backend) (Key (MutBGeneric backend)) where symbolToField = MutAMutB instance SymbolToField "id" (MutBGeneric backend) (Key (MutBGeneric backend)) where symbolToField = MutBId instance SymbolToField "mutA" (MutBGeneric backend) (Key (MutAGeneric backend)) where symbolToField = MutBMutA instance PersistStoreWrite backend => SafeToInsert (PersonGeneric backend) instance PersistStoreWrite backend => SafeToInsert (Person1Generic backend) instance PersistStoreWrite backend => SafeToInsert (PersonMaybeAgeGeneric backend) instance PersistStoreWrite backend => SafeToInsert (PersonMayGeneric backend) instance PersistStoreWrite backend => SafeToInsert (PetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MaybeOwnedPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (NeedsPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (OutdoorPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UserPTGeneric backend) instance PersistStoreWrite backend => SafeToInsert (EmailPTGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UpsertGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UpsertByGeneric backend) instance PersistStoreWrite backend => SafeToInsert (StrictGeneric backend) instance PersistStoreWrite backend => SafeToInsert (DudeWeirdColumnsGeneric backend) instance PersistStoreWrite backend => SafeToInsert (RelationshipGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MutAGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MutBGeneric backend) entityDefListFortestMigrate :: [EntityDef] entityDefListFortestMigrate = [entityDef (Proxy :: Proxy Person), entityDef (Proxy :: Proxy Person1), entityDef (Proxy :: Proxy PersonMaybeAge), entityDef (Proxy :: Proxy PersonMay), entityDef (Proxy :: Proxy Pet), entityDef (Proxy :: Proxy MaybeOwnedPet), entityDef (Proxy :: Proxy NeedsPet), entityDef (Proxy :: Proxy OutdoorPet), entityDef (Proxy :: Proxy UserPT), entityDef (Proxy :: Proxy EmailPT), entityDef (Proxy :: Proxy Upsert), entityDef (Proxy :: Proxy UpsertBy), entityDef (Proxy :: Proxy Strict), entityDef (Proxy :: Proxy DudeWeirdColumns), entityDef (Proxy :: Proxy Relationship), entityDef (Proxy :: Proxy MutA), entityDef (Proxy :: Proxy MutB)] testMigrate :: Migration testMigrate = migrateModels entityDefListFortestMigrate src/PersistentTestModels.hs:(147,23)-(158,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \NoPrefix1\n\ \ someFieldName Int\n\ \NoPrefix2\n\ \ someOtherFieldName Int\n\ \ unprefixedRef NoPrefix1Id\n\ \+NoPrefixSum\n\ \ unprefixedLeft Int\n\ \ unprefixedRight String\n\ \ deriving Show Eq\n\ \\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))] src/PersistentTestModels.hs:(137,1)-(158,2): Splicing declarations share [mkPersist persistSettings {mpsPrefixFields = False, mpsFieldLabelModifier = \ _ _ -> "", mpsConstraintLabelModifier = \ _ _ -> "", mpsGeneric = True}, mkMigrate "noPrefixMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))]) ======> instance PersistStore backend => PersistField (NoPrefix1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["someFieldName"] instance PersistStore backend => PersistFieldSql (NoPrefix1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NoPrefix2Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["someOtherFieldName", "unprefixedRef"] instance PersistStore backend => PersistFieldSql (NoPrefix2Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NoPrefixSumGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["unprefixedLeft", "unprefixedRight"] instance PersistStore backend => PersistFieldSql (NoPrefixSumGeneric backend) where sqlType _ = SqlString type NoPrefix1 = NoPrefix1Generic SqlBackend data NoPrefix1Generic backend = NoPrefix1 {someFieldName :: !Int} type NoPrefix1Id = Key NoPrefix1 instance PersistStore backend => PersistEntity (NoPrefix1Generic backend) where type PersistEntityBackend (NoPrefix1Generic backend) = backend data Unique (NoPrefix1Generic backend) newtype Key (NoPrefix1Generic backend) = NoPrefix1Key {unNoPrefix1Key :: (BackendKey backend)} data EntityField (NoPrefix1Generic backend) typ = (typ ~ Key (NoPrefix1Generic backend)) => NoPrefix1Id | (typ ~ Int) => SomeFieldName keyToValues = ((: []) . (toPersistValue . (\ NoPrefix1Key {unNoPrefix1Key = x} -> x))) keyFromValues = (fmap NoPrefix1Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1UdA = ((Entity <$> fromField_a1UdA NoPrefix1Id) <*> (pure NoPrefix1 <*> fromField_a1UdA SomeFieldName)) tabulateEntityApply fromField_a1Udz = ((Entity <$> fromField_a1Udz NoPrefix1Id) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (NoPrefix1 <$> fromField_a1Udz SomeFieldName)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NoPrefix1 x_a1Udo) = [toPersistValue x_a1Udo] fromPersistValues [x1_a1Udq] = 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_a1Udq fromPersistValues x_a1Udp = (Left $ mappend (Data.Text.unpackCStringLen# "NoPrefix1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a1Udp)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NoPrefix1 _someFieldName_a1Udr) = [] 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_a1Udt) key_a1Udu -> Entity key_a1Udu value_a1Udt) fieldLens SomeFieldName = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix1 {someFieldName = x} -> x) . entityVal) (\ (Entity key_a1Udv value_a1Udw) x_a1Udx -> Entity key_a1Udv (case value_a1Udw of NoPrefix1 {} -> NoPrefix1 {someFieldName = x_a1Udx})) 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_a1UdT = ((Entity <$> fromField_a1UdT NoPrefix2Id) <*> ((pure NoPrefix2 <*> fromField_a1UdT SomeOtherFieldName) <*> fromField_a1UdT UnprefixedRef)) tabulateEntityApply fromField_a1UdS = ((Entity <$> fromField_a1UdS NoPrefix2Id) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((NoPrefix2 <$> fromField_a1UdS SomeOtherFieldName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1UdS UnprefixedRef)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)), fieldSqlType = sqlType (Proxy :: Proxy NoPrefix1Id), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NoPrefix2 x_a1UdB x_a1UdC) = [toPersistValue x_a1UdB, toPersistValue x_a1UdC] fromPersistValues [x1_a1UdE, x2_a1UdF] = 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_a1UdE <*> (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_a1UdF fromPersistValues x_a1UdD = (Left $ mappend (Data.Text.unpackCStringLen# "NoPrefix2: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a1UdD)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NoPrefix2 _someOtherFieldName_a1UdG _unprefixedRef_a1UdH) = [] 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_a1UdJ) key_a1UdK -> Entity key_a1UdK value_a1UdJ) fieldLens SomeOtherFieldName = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix2 {someOtherFieldName = x} -> x) . entityVal) (\ (Entity key_a1UdL value_a1UdM) x_a1UdN -> Entity key_a1UdL (case value_a1UdM of NoPrefix2 {unprefixedRef = unprefixedRef_a1UdP} -> NoPrefix2 {someOtherFieldName = x_a1UdN, unprefixedRef = unprefixedRef})) fieldLens UnprefixedRef = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix2 {unprefixedRef = x} -> x) . entityVal) (\ (Entity key_a1UdL value_a1UdM) x_a1UdN -> Entity key_a1UdL (case value_a1UdM of NoPrefix2 {someOtherFieldName = someOtherFieldName_a1UdQ} -> NoPrefix2 {someOtherFieldName = someOtherFieldName, unprefixedRef = x_a1UdN})) 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_a1Ue5 = error "tabulateEntityA does not make sense for sum type" tabulateEntityApply fromField_a1Ue4 = error "tabulateEntityApply does not make sense for sum type" entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UnprefixedLeftSum x_a1UdU) = [toPersistValue x_a1UdU, PersistNull] toPersistFields (UnprefixedRightSum x_a1UdV) = [PersistNull, toPersistValue x_a1UdV] fromPersistValues [x_a1UdW, PersistNull] | Database.Persist.TH.Internal.isNotNull x_a1UdW = (UnprefixedLeftSum `fmap` fromPersistValue x_a1UdW) fromPersistValues [PersistNull, x_a1UdX] | Database.Persist.TH.Internal.isNotNull x_a1UdX = (UnprefixedRightSum `fmap` fromPersistValue x_a1UdX) 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_a1UdZ) key_a1Ue0 -> Entity key_a1Ue0 value_a1UdZ) fieldLens UnprefixedLeft = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a1Ue2) -> case value_a1Ue2 of UnprefixedLeftSum x_a1Ue3 -> x_a1Ue3 _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a1Ue1 _) x_a1Ue3 -> Entity key_a1Ue1 (UnprefixedLeftSum x_a1Ue3)) fieldLens UnprefixedRight = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a1Ue2) -> case value_a1Ue2 of UnprefixedRightSum x_a1Ue3 -> x_a1Ue3 _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a1Ue1 _) x_a1Ue3 -> Entity key_a1Ue1 (UnprefixedRightSum x_a1Ue3)) deriving stock instance Show (BackendKey backend) => Show (Key (NoPrefixSumGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (NoPrefixSumGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (NoPrefixSumGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (NoPrefixSumGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (NoPrefixSumGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (NoPrefixSumGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (NoPrefixSumGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (NoPrefixSumGeneric backend)) instance PersistStore backend => ToBackendKey backend (NoPrefixSumGeneric backend) where toBackendKey = \ NoPrefixSumKey {unNoPrefixSumKey = x} -> x fromBackendKey = NoPrefixSumKey instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefix1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefix1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefix2Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefix2Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefixSumGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefixSumGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (NoPrefix1Generic backend) (Key (NoPrefix1Generic backend)) where symbolToField = NoPrefix1Id instance SymbolToField "someFieldName" (NoPrefix1Generic backend) Int where symbolToField = SomeFieldName instance SymbolToField "id" (NoPrefix2Generic backend) (Key (NoPrefix2Generic backend)) where symbolToField = NoPrefix2Id instance SymbolToField "someOtherFieldName" (NoPrefix2Generic backend) Int where symbolToField = SomeOtherFieldName instance SymbolToField "unprefixedRef" (NoPrefix2Generic backend) (Key (NoPrefix1Generic backend)) where symbolToField = UnprefixedRef instance SymbolToField "id" (NoPrefixSumGeneric backend) (Key (NoPrefixSumGeneric backend)) where symbolToField = NoPrefixSumId instance SymbolToField "unprefixedLeft" (NoPrefixSumGeneric backend) Int where symbolToField = UnprefixedLeft instance SymbolToField "unprefixedRight" (NoPrefixSumGeneric backend) String where symbolToField = UnprefixedRight instance PersistStoreWrite backend => SafeToInsert (NoPrefix1Generic backend) instance PersistStoreWrite backend => SafeToInsert (NoPrefix2Generic backend) instance PersistStoreWrite backend => SafeToInsert (NoPrefixSumGeneric backend) entityDefListFornoPrefixMigrate :: [EntityDef] entityDefListFornoPrefixMigrate = [entityDef (Proxy :: Proxy NoPrefix1), entityDef (Proxy :: Proxy NoPrefix2), entityDef (Proxy :: Proxy NoPrefixSum)] noPrefixMigrate :: Migration noPrefixMigrate = migrateModels entityDefListFornoPrefixMigrate src/PersistentTestModels.hs:(182,23)-(192,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \CustomPrefix1\n\ \ customFieldName Int\n\ \CustomPrefix2\n\ \ otherCustomFieldName Int\n\ \ customPrefixedRef CustomPrefix1Id\n\ \+CustomPrefixSum\n\ \ customPrefixedLeft Int\n\ \ customPrefixedRight String\n\ \ deriving Show Eq\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) (FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))] src/PersistentTestModels.hs:(166,1)-(192,2): Splicing declarations share [mkPersist persistSettings {mpsFieldLabelModifier = \ entity_a1WnD field_a1WnE -> case entity_a1WnD of "CustomPrefix1" -> append "_cp1" field_a1WnE "CustomPrefix2" -> append "_cp2" field_a1WnE _ -> error "should not be called", mpsConstraintLabelModifier = \ entity_a1WnF field_a1WnG -> case entity_a1WnF of "CustomPrefix1" -> append "CP1" field_a1WnG "CustomPrefix2" -> append "CP2" field_a1WnG "CustomPrefixSum" -> append "CP" field_a1WnG _ -> error "should not be called", mpsGeneric = True}, mkMigrate "customPrefixMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) (FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))]) ======> instance PersistStore backend => PersistField (CustomPrefix1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["customFieldName"] instance PersistStore backend => PersistFieldSql (CustomPrefix1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (CustomPrefix2Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["otherCustomFieldName", "customPrefixedRef"] instance PersistStore backend => PersistFieldSql (CustomPrefix2Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (CustomPrefixSumGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["customPrefixedLeft", "customPrefixedRight"] instance PersistStore backend => PersistFieldSql (CustomPrefixSumGeneric backend) where sqlType _ = SqlString type CustomPrefix1 = CustomPrefix1Generic SqlBackend data CustomPrefix1Generic backend = CustomPrefix1 {_cp1CustomFieldName :: !Int} type CustomPrefix1Id = Key CustomPrefix1 instance PersistStore backend => PersistEntity (CustomPrefix1Generic backend) where type PersistEntityBackend (CustomPrefix1Generic backend) = backend data Unique (CustomPrefix1Generic backend) newtype Key (CustomPrefix1Generic backend) = CustomPrefix1Key {unCustomPrefix1Key :: (BackendKey backend)} data EntityField (CustomPrefix1Generic backend) typ = (typ ~ Key (CustomPrefix1Generic backend)) => CustomPrefix1Id | (typ ~ Int) => CP1CustomFieldName keyToValues = ((: []) . (toPersistValue . (\ CustomPrefix1Key {unCustomPrefix1Key = x} -> x))) keyFromValues = (fmap CustomPrefix1Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1WH9 = ((Entity <$> fromField_a1WH9 CustomPrefix1Id) <*> (pure CustomPrefix1 <*> fromField_a1WH9 CP1CustomFieldName)) tabulateEntityApply fromField_a1WH8 = ((Entity <$> fromField_a1WH8 CustomPrefix1Id) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> (CustomPrefix1 <$> fromField_a1WH8 CP1CustomFieldName)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CustomPrefix1 x_a1WGX) = [toPersistValue x_a1WGX] fromPersistValues [x1_a1WGZ] = 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_a1WGZ fromPersistValues x_a1WGY = (Left $ mappend (Data.Text.unpackCStringLen# "CustomPrefix1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a1WGY)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (CustomPrefix1 _customFieldName_a1WH0) = [] 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_a1WH2) key_a1WH3 -> Entity key_a1WH3 value_a1WH2) fieldLens CP1CustomFieldName = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix1 {_cp1CustomFieldName = x} -> x) . entityVal) (\ (Entity key_a1WH4 value_a1WH5) x_a1WH6 -> Entity key_a1WH4 (case value_a1WH5 of CustomPrefix1 {} -> CustomPrefix1 {_cp1CustomFieldName = x_a1WH6})) 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_a1WHs = ((Entity <$> fromField_a1WHs CustomPrefix2Id) <*> ((pure CustomPrefix2 <*> fromField_a1WHs CP2OtherCustomFieldName) <*> fromField_a1WHs CP2CustomPrefixedRef)) tabulateEntityApply fromField_a1WHr = ((Entity <$> fromField_a1WHr CustomPrefix2Id) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((CustomPrefix2 <$> fromField_a1WHr CP2OtherCustomFieldName) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1WHr CP2CustomPrefixedRef)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)), fieldSqlType = sqlType (Proxy :: Proxy CustomPrefix1Id), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CustomPrefix2 x_a1WHa x_a1WHb) = [toPersistValue x_a1WHa, toPersistValue x_a1WHb] fromPersistValues [x1_a1WHd, x2_a1WHe] = 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_a1WHd <*> (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_a1WHe fromPersistValues x_a1WHc = (Left $ mappend (Data.Text.unpackCStringLen# "CustomPrefix2: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a1WHc)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (CustomPrefix2 _otherCustomFieldName_a1WHf _customPrefixedRef_a1WHg) = [] 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_a1WHi) key_a1WHj -> Entity key_a1WHj value_a1WHi) fieldLens CP2OtherCustomFieldName = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix2 {_cp2OtherCustomFieldName = x} -> x) . entityVal) (\ (Entity key_a1WHk value_a1WHl) x_a1WHm -> Entity key_a1WHk (case value_a1WHl of CustomPrefix2 {_cp2CustomPrefixedRef = _cp2CustomPrefixedRef_a1WHo} -> CustomPrefix2 {_cp2OtherCustomFieldName = x_a1WHm, _cp2CustomPrefixedRef = _cp2CustomPrefixedRef})) fieldLens CP2CustomPrefixedRef = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix2 {_cp2CustomPrefixedRef = x} -> x) . entityVal) (\ (Entity key_a1WHk value_a1WHl) x_a1WHm -> Entity key_a1WHk (case value_a1WHl of CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName_a1WHp} -> CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName, _cp2CustomPrefixedRef = x_a1WHm})) 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_a1WHE = error "tabulateEntityA does not make sense for sum type" tabulateEntityApply fromField_a1WHD = error "tabulateEntityApply does not make sense for sum type" entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CPCustomPrefixedLeftSum x_a1WHt) = [toPersistValue x_a1WHt, PersistNull] toPersistFields (CPCustomPrefixedRightSum x_a1WHu) = [PersistNull, toPersistValue x_a1WHu] fromPersistValues [x_a1WHv, PersistNull] | Database.Persist.TH.Internal.isNotNull x_a1WHv = (CPCustomPrefixedLeftSum `fmap` fromPersistValue x_a1WHv) fromPersistValues [PersistNull, x_a1WHw] | Database.Persist.TH.Internal.isNotNull x_a1WHw = (CPCustomPrefixedRightSum `fmap` fromPersistValue x_a1WHw) 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_a1WHy) key_a1WHz -> Entity key_a1WHz value_a1WHy) fieldLens CPCustomPrefixedLeft = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a1WHB) -> case value_a1WHB of CPCustomPrefixedLeftSum x_a1WHC -> x_a1WHC _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a1WHA _) x_a1WHC -> Entity key_a1WHA (CPCustomPrefixedLeftSum x_a1WHC)) fieldLens CPCustomPrefixedRight = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a1WHB) -> case value_a1WHB of CPCustomPrefixedRightSum x_a1WHC -> x_a1WHC _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a1WHA _) x_a1WHC -> Entity key_a1WHA (CPCustomPrefixedRightSum x_a1WHC)) deriving stock instance Show (BackendKey backend) => Show (Key (CustomPrefixSumGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (CustomPrefixSumGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (CustomPrefixSumGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (CustomPrefixSumGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (CustomPrefixSumGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (CustomPrefixSumGeneric backend)) instance PersistStore backend => ToBackendKey backend (CustomPrefixSumGeneric backend) where toBackendKey = \ CustomPrefixSumKey {unCustomPrefixSumKey = x} -> x fromBackendKey = CustomPrefixSumKey instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefix1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefix1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefix2Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefix2Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefixSumGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefixSumGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (CustomPrefix1Generic backend) (Key (CustomPrefix1Generic backend)) where symbolToField = CustomPrefix1Id instance SymbolToField "customFieldName" (CustomPrefix1Generic backend) Int where symbolToField = CP1CustomFieldName instance SymbolToField "id" (CustomPrefix2Generic backend) (Key (CustomPrefix2Generic backend)) where symbolToField = CustomPrefix2Id instance SymbolToField "otherCustomFieldName" (CustomPrefix2Generic backend) Int where symbolToField = CP2OtherCustomFieldName instance SymbolToField "customPrefixedRef" (CustomPrefix2Generic backend) (Key (CustomPrefix1Generic backend)) where symbolToField = CP2CustomPrefixedRef instance SymbolToField "id" (CustomPrefixSumGeneric backend) (Key (CustomPrefixSumGeneric backend)) where symbolToField = CustomPrefixSumId instance SymbolToField "customPrefixedLeft" (CustomPrefixSumGeneric backend) Int where symbolToField = CPCustomPrefixedLeft instance SymbolToField "customPrefixedRight" (CustomPrefixSumGeneric backend) String where symbolToField = CPCustomPrefixedRight instance PersistStoreWrite backend => SafeToInsert (CustomPrefix1Generic backend) instance PersistStoreWrite backend => SafeToInsert (CustomPrefix2Generic backend) instance PersistStoreWrite backend => SafeToInsert (CustomPrefixSumGeneric backend) entityDefListForcustomPrefixMigrate :: [EntityDef] entityDefListForcustomPrefixMigrate = [entityDef (Proxy :: Proxy CustomPrefix1), entityDef (Proxy :: Proxy CustomPrefix2), entityDef (Proxy :: Proxy CustomPrefixSum)] customPrefixMigrate :: Migration customPrefixMigrate = migrateModels entityDefListForcustomPrefixMigrate src/PersistentTestModels.hs:(206,23)-(213,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \\n\ \Tree sql=trees\n\ \ name String\n\ \ parent String Maybe\n\ \ Primary name\n\ \ Foreign Tree fkparent parent\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [Database.Persist.Quasi.Internal.UnboundForeignDef (Database.Persist.Quasi.Internal.FieldListImpliedId (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)) NEL.:| [])) (ForeignDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#))) (ConstraintNameHS (Data.Text.unpackCStringLen# "fkparent"# (ghc-prim:GHC.Types.I# 8#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "treefkparent"# (ghc-prim:GHC.Types.I# 12#))) (FieldCascade Nothing Nothing) [] [] False True)] (Database.Persist.Quasi.Internal.NaturalKey (Database.Persist.Quasi.Internal.UnboundCompositeDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)) NEL.:| []) [])) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))] src/PersistentTestModels.hs:(202,1)-(213,2): Splicing declarations share [mkPersist persistSettings {mpsPrefixFields = False, mpsGeneric = False}, mkMigrate "treeMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [Database.Persist.Quasi.Internal.UnboundForeignDef (Database.Persist.Quasi.Internal.FieldListImpliedId (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)) NEL.:| [])) (ForeignDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#))) (ConstraintNameHS (Data.Text.unpackCStringLen# "fkparent"# (ghc-prim:GHC.Types.I# 8#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "treefkparent"# (ghc-prim:GHC.Types.I# 12#))) (FieldCascade Nothing Nothing) [] [] False True)] (Database.Persist.Quasi.Internal.NaturalKey (Database.Persist.Quasi.Internal.UnboundCompositeDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)) NEL.:| []) [])) (persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))]) ======> instance PersistField Tree where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "parent"] instance PersistFieldSql Tree where sqlType _ = SqlString data Tree = Tree {name :: !String, parent :: !(Maybe String)} fkparent :: Tree -> Maybe (Key Tree) fkparent record_mkForeignKeysComposite_a1Z1a = fmap TreeKey (ghc-prim:GHC.Prim.coerce (parent record_mkForeignKeysComposite_a1Z1a)) 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_a1Z1b = [toPersistValue ((\ TreeKey {unTreeKey = x} -> x) record_a1Z1b)] keyFromValues [x1_a1Z1d] = 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_a1Z1d keyFromValues x_a1Z1c = (Left $ mappend (Data.Text.unpackCStringLen# "Tree: keyFromValues failed on: "# (ghc-prim:GHC.Types.I# 31#)) (Data.Text.Internal.pack $ show x_a1Z1c)) keyFromRecordM = Just (\ Tree {name = name_a1Z1n} -> TreeKey name_a1Z1n) tabulateEntityA fromField_a1Z1p = ((Entity <$> fromField_a1Z1p TreeId) <*> ((pure Tree <*> fromField_a1Z1p Name) <*> fromField_a1Z1p Parent)) tabulateEntityApply fromField_a1Z1o = ((Entity <$> fromField_a1Z1o TreeId) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> ((Tree <$> fromField_a1Z1o Name) semigroupoids-6.0.2-Aw3vcM0aRozGLezrTfaDrz:Data.Functor.Bind.Class.<.> fromField_a1Z1o Parent)) entityDef _ = persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3)) {persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg:Database.Persist.Types.Base.entityId = EntityIdNaturalKey CompositeDef {compositeFields = NEL.fromList [Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Tree) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))], compositeAttrs = []}, persistent-2.17.1.0-Aa74ORaBoDdLW33MAmKitg: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_a1Z12 x_a1Z13) = [toPersistValue x_a1Z12, toPersistValue x_a1Z13] fromPersistValues [x1_a1Z15, x2_a1Z16] = 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_a1Z15 <*> (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_a1Z16 fromPersistValues x_a1Z14 = (Left $ mappend (Data.Text.unpackCStringLen# "Tree: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a1Z14)) 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_a1Z17) = [toPersistValue x_a1Z17] persistUniqueKeys (Tree _name_a1Z18 _parent_a1Z19) = [TreePrimaryKey _name_a1Z18] 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_a1Z1e) key_a1Z1f -> Entity key_a1Z1f value_a1Z1e) fieldLens Name = Database.Persist.TH.Internal.lensPTH ((\ Tree {name = x} -> x) . entityVal) (\ (Entity key_a1Z1g value_a1Z1h) x_a1Z1i -> Entity key_a1Z1g (case value_a1Z1h of Tree {parent = parent_a1Z1k} -> Tree {name = x_a1Z1i, parent = parent})) fieldLens Parent = Database.Persist.TH.Internal.lensPTH ((\ Tree {parent = x} -> x) . entityVal) (\ (Entity key_a1Z1g value_a1Z1h) x_a1Z1i -> Entity key_a1Z1g (case value_a1Z1h of Tree {name = name_a1Z1l} -> Tree {name = name, parent = x_a1Z1i})) instance OnlyOneUniqueKey Tree where onlyUniqueP = (head . persistUniqueKeys) instance AtLeastOneUniqueKey Tree where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance SymbolToField "id" Tree (Key Tree) where symbolToField = TreeId instance SymbolToField "name" Tree String where symbolToField = Name instance SymbolToField "parent" Tree (Maybe String) where symbolToField = Parent instance SafeToInsert Tree entityDefListFortreeMigrate :: [EntityDef] entityDefListFortreeMigrate = [entityDef (Proxy :: Proxy Tree)] treeMigrate :: Migration treeMigrate = migrateModels entityDefListFortreeMigrate src/PersistentTestModels.hs:27:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 27 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "testMigrate"] | ^^^^^^^^^^ src/PersistentTestModels.hs:137:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 137 | share | ^^^^^... src/PersistentTestModels.hs:143:15: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 143 | , mpsGeneric = True | ^^^^^^^^^^ src/PersistentTestModels.hs:166:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 166 | share | ^^^^^... src/PersistentTestModels.hs:178:15: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 178 | , mpsGeneric = True | ^^^^^^^^^^ src/PersistentTestModels.hs:203:58: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 203 | [ mkPersist persistSettings{mpsPrefixFields = False, mpsGeneric = False} | ^^^^^^^^^^ src/PersistentTestModels.hs:223:10: warning: [GHC-06201] [-Wmissing-methods] " No explicit implementation for tabulateEntityA and tabulateEntityApply " In the instance declaration for PersistEntity (ReverseFieldOrder a) | 223 | instance (PersistEntity a) => PersistEntity (ReverseFieldOrder a) where | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/PersistentTestModels.hs:228:54: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 228 | keyFromValues = fmap RFOKey . fromPersistValue . head | ^^^^ [28 of 41] Compiling PersistentTest ( src/PersistentTest.hs, nothing ) [29 of 41] Compiling MpsNoPrefixTest ( src/MpsNoPrefixTest.hs, nothing ) [30 of 41] Compiling MpsCustomPrefixTest ( src/MpsCustomPrefixTest.hs, nothing ) [31 of 41] Compiling PrimaryTest ( src/PrimaryTest.hs, nothing ) src/PrimaryTest.hs:12:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 12 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [32 of 41] Compiling RawSqlTest ( src/RawSqlTest.hs, nothing ) [33 of 41] Compiling ReadWriteTest ( src/ReadWriteTest.hs, nothing ) [34 of 41] Compiling Recursive ( src/Recursive.hs, nothing ) src/Recursive.hs:10:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 10 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "recursiveMigrate"] | ^^^^^^^^^^ [35 of 41] Compiling RenameTest ( src/RenameTest.hs, nothing ) src/RenameTest.hs:19:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 19 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"] | ^^^^^^^^^^ [36 of 41] Compiling SumTypeTest ( src/SumTypeTest.hs, nothing ) src/SumTypeTest.hs:13:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 13 | share | ^^^^^... src/SumTypeTest.hs:14:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 14 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "sumTypeMigrate"] | ^^^^^^^^^^ [37 of 41] Compiling TransactionLevelTest ( src/TransactionLevelTest.hs, nothing ) [38 of 41] Compiling TreeTest ( src/TreeTest.hs, nothing ) src/TreeTest.hs:13:33: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [ mkPersist persistSettings{mpsGeneric = False} | ^^^^^^^^^^ [39 of 41] Compiling TypeLitFieldDefsTest ( src/TypeLitFieldDefsTest.hs, nothing ) src/TypeLitFieldDefsTest.hs:34:29: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 34 | [ mkPersist sqlSettings{mpsGeneric = True} | ^^^^^^^^^^ [40 of 41] Compiling UniqueTest ( src/UniqueTest.hs, nothing ) [41 of 41] Compiling UpsertTest ( src/UpsertTest.hs, nothing ) Haddock coverage: 62% ( 34 / 54) in 'Init' Missing documentation for: @/= (src/Init.hs:130) @== (src/Init.hs:133) ==@ (src/Init.hs:134) asIO (src/Init.hs:126) assertNotEqual (src/Init.hs:141) assertNotEmpty (src/Init.hs:155) assertEmpty (src/Init.hs:152) isTravis (src/Init.hs:158) persistSettings (src/Init.hs:168) BackendKey GenerateKey (src/Init.hs:180) RunDb (src/Init.hs:256) Runner (src/Init.hs:240) truncateTimeOfDay (src/Init.hs:209) truncateToMicro (src/Init.hs:214) truncateUTCTime (src/Init.hs:221) arbText (src/Init.hs:230) changeBackend (src/Init.hs:264) UUID (src/Init.hs:290) sqlSettingsUuid (src/Init.hs:310) 0% ( 0 / 4) in 'HtmlTest' Missing documentation for: Module header specsWith (src/HtmlTest.hs:34) cleanDB (src/HtmlTest.hs:26) htmlMigrate (src/HtmlTest.hs:17) 0% ( 0 / 2) in 'GeneratedColumnTestSQL' Missing documentation for: Module header specsWith (src/GeneratedColumnTestSQL.hs:34) 0% ( 0 / 44) in 'ForeignKey' Missing documentation for: Module header Chain3Id (src/ForeignKey.hs:18) Chain3 (src/ForeignKey.hs:18) Chain2Id (src/ForeignKey.hs:18) Chain2 (src/ForeignKey.hs:18) ChainId (src/ForeignKey.hs:18) Chain (src/ForeignKey.hs:18) BExplicitId (src/ForeignKey.hs:18) BExplicit (src/ForeignKey.hs:18) BCompositeId (src/ForeignKey.hs:18) BComposite (src/ForeignKey.hs:18) ACompositeId (src/ForeignKey.hs:18) AComposite (src/ForeignKey.hs:18) BId (src/ForeignKey.hs:18) B (src/ForeignKey.hs:18) AId (src/ForeignKey.hs:18) A (src/ForeignKey.hs:18) SelfReferencedId (src/ForeignKey.hs:18) SelfReferenced (src/ForeignKey.hs:18) ChildCompositeId (src/ForeignKey.hs:18) ChildComposite (src/ForeignKey.hs:18) ParentCompositeId (src/ForeignKey.hs:18) ParentComposite (src/ForeignKey.hs:18) ChildImplicitId (src/ForeignKey.hs:18) ChildImplicit (src/ForeignKey.hs:18) ParentImplicitId (src/ForeignKey.hs:18) ParentImplicit (src/ForeignKey.hs:18) ChildId (src/ForeignKey.hs:18) Child (src/ForeignKey.hs:18) ParentId (src/ForeignKey.hs:18) Parent (src/ForeignKey.hs:18) SimpleCascadeId (src/ForeignKey.hs:18) SimpleCascade (src/ForeignKey.hs:18) SimpleCascadeChildId (src/ForeignKey.hs:18) SimpleCascadeChild (src/ForeignKey.hs:18) childFkparent (src/ForeignKey.hs:18) childImplicitFkparent (src/ForeignKey.hs:18) childCompositeFkparent (src/ForeignKey.hs:18) selfReferencedFkparent (src/ForeignKey.hs:18) entityDefListForcompositeMigrate (src/ForeignKey.hs:18) compositeMigrate (src/ForeignKey.hs:18) specsWith (src/ForeignKey.hs:111) cleanDB (src/ForeignKey.hs:237) del (src/ForeignKey.hs:262) 0% ( 0 / 2) in 'EquivalentTypeTest' Missing documentation for: Module header specsWith (src/EquivalentTypeTest.hs:30) 0% ( 0 / 5) in 'EntityEmbedTest' Missing documentation for: Module header ARecordId (src/EntityEmbedTest.hs:10) ARecordGeneric (src/EntityEmbedTest.hs:10) ARecord (src/EntityEmbedTest.hs:10) AnEntity (src/EntityEmbedTest.hs:18) 0% ( 0 / 4) in 'EmptyEntityTest' Missing documentation for: Module header specsWith (src/EmptyEntityTest.hs:32) migration (src/EmptyEntityTest.hs:13) cleanDB (src/EmptyEntityTest.hs:25) 0% ( 0 / 4) in 'EmbedTest' Missing documentation for: Module header specsWith (src/EmbedTest.hs:164) cleanDB (src/EmbedTest.hs:144) embedMigrate (src/EmbedTest.hs:32) 0% ( 0 / 4) in 'EmbedOrderTest' Missing documentation for: Module header specsWith (src/EmbedOrderTest.hs:34) embedOrderMigrate (src/EmbedOrderTest.hs:15) cleanDB (src/EmbedOrderTest.hs:29) 0% ( 0 / 5) in 'DataTypeTest' Missing documentation for: Module header specsWith (src/DataTypeTest.hs:118) dataTypeMigrate (src/DataTypeTest.hs:39) roundTime (src/DataTypeTest.hs:66) roundUTCTime (src/DataTypeTest.hs:69) 0% ( 0 / 9) in 'CustomPrimaryKeyReferenceTest' Missing documentation for: Module header TweetUrlId (src/CustomPrimaryKeyReferenceTest.hs:12) TweetUrl (src/CustomPrimaryKeyReferenceTest.hs:12) TweetId (src/CustomPrimaryKeyReferenceTest.hs:12) Tweet (src/CustomPrimaryKeyReferenceTest.hs:12) entityDefListFormigration (src/CustomPrimaryKeyReferenceTest.hs:12) migration (src/CustomPrimaryKeyReferenceTest.hs:12) cleanDB (src/CustomPrimaryKeyReferenceTest.hs:32) specsWith (src/CustomPrimaryKeyReferenceTest.hs:37) 0% ( 0 / 2) in 'CustomPersistField' Missing documentation for: Module header Markdown (src/CustomPersistField.hs:14) 0% ( 0 / 3) in 'CustomPersistFieldTest' Missing documentation for: Module header specsWith (src/CustomPersistFieldTest.hs:19) customFieldMigrate (src/CustomPersistFieldTest.hs:10) 0% ( 0 / 22) in 'CompositeTest' Missing documentation for: Module header PrimaryCompositeWithOtherNullableFieldsId (src/CompositeTest.hs:16) PrimaryCompositeWithOtherNullableFields (src/CompositeTest.hs:16) CitizenAddressId (src/CompositeTest.hs:16) CitizenAddress (src/CompositeTest.hs:16) AddressId (src/CompositeTest.hs:16) Address (src/CompositeTest.hs:16) CitizenId (src/CompositeTest.hs:16) Citizen (src/CompositeTest.hs:16) TestChildId (src/CompositeTest.hs:16) TestChild (src/CompositeTest.hs:16) TestParentId (src/CompositeTest.hs:16) TestParent (src/CompositeTest.hs:16) testChildFkparent (src/CompositeTest.hs:16) entityDefListForcompositeMigrate (src/CompositeTest.hs:16) compositeMigrate (src/CompositeTest.hs:16) cleanDB (src/CompositeTest.hs:59) specsWith (src/CompositeTest.hs:67) matchK (src/CompositeTest.hs:273) matchK2 (src/CompositeTest.hs:280) matchParentK (src/CompositeTest.hs:283) matchCitizenAddressK (src/CompositeTest.hs:289) 0% ( 0 / 8) in 'LargeNumberTest' Missing documentation for: Module header NumberId (src/LargeNumberTest.hs:10) NumberGeneric (src/LargeNumberTest.hs:10) Number (src/LargeNumberTest.hs:10) entityDefListFornumberMigrate (src/LargeNumberTest.hs:10) numberMigrate (src/LargeNumberTest.hs:10) cleanDB (src/LargeNumberTest.hs:24) specsWith (src/LargeNumberTest.hs:28) 0% ( 0 / 8) in 'LongIdentifierTest' Missing documentation for: Module header TableAnExtremelyFantasticallySuperLongNameChildId (src/LongIdentifierTest.hs:23) TableAnExtremelyFantasticallySuperLongNameChild (src/LongIdentifierTest.hs:23) TableAnExtremelyFantasticallySuperLongNameParentId (src/LongIdentifierTest.hs:23) TableAnExtremelyFantasticallySuperLongNameParent (src/LongIdentifierTest.hs:23) entityDefListFormigration (src/LongIdentifierTest.hs:23) migration (src/LongIdentifierTest.hs:23) specsWith (src/LongIdentifierTest.hs:33) 0% ( 0 / 3) in 'MaxLenTest' Missing documentation for: Module header specsWith (src/MaxLenTest.hs:31) maxlenMigrate (src/MaxLenTest.hs:11) 0% ( 0 / 3) in 'MaybeFieldDefsTest' Missing documentation for: Module header specsWith (src/MaybeFieldDefsTest.hs:22) maybeFieldDefMigrate (src/MaybeFieldDefsTest.hs:12) 0% ( 0 / 6) in 'MigrationColumnLengthTest' Missing documentation for: Module header VaryingLengthsId (src/MigrationColumnLengthTest.hs:11) VaryingLengths (src/MigrationColumnLengthTest.hs:11) entityDefListFormigration (src/MigrationColumnLengthTest.hs:11) migration (src/MigrationColumnLengthTest.hs:11) specsWith (src/MigrationColumnLengthTest.hs:20) 0% ( 0 / 6) in 'MigrationIdempotencyTest' Missing documentation for: Module header IdempotencyId (src/MigrationIdempotencyTest.hs:13) Idempotency (src/MigrationIdempotencyTest.hs:13) entityDefListFormigration (src/MigrationIdempotencyTest.hs:13) migration (src/MigrationIdempotencyTest.hs:13) specsWith (src/MigrationIdempotencyTest.hs:29) 0% ( 0 / 4) in 'MigrationOnlyTest' Missing documentation for: Module header specsWith (src/MigrationOnlyTest.hs:47) migrateAll1 (src/MigrationOnlyTest.hs:14) migrateAll2 (src/MigrationOnlyTest.hs:24) 0% ( 0 / 16) in 'MigrationTest' Missing documentation for: Module header CustomSqlIdId (src/MigrationTest.hs:12) CustomSqlId (src/MigrationTest.hs:12) SourceId (src/MigrationTest.hs:12) Source (src/MigrationTest.hs:12) TargetId (src/MigrationTest.hs:12) Target (src/MigrationTest.hs:12) entityDefListFormigrationMigrate (src/MigrationTest.hs:12) migrationMigrate (src/MigrationTest.hs:12) Source1Id (src/MigrationTest.hs:30) Source1 (src/MigrationTest.hs:30) Target1Id (src/MigrationTest.hs:30) Target1 (src/MigrationTest.hs:30) entityDefListFormigrationAddCol (src/MigrationTest.hs:30) migrationAddCol (src/MigrationTest.hs:30) specsWith (src/MigrationTest.hs:46) 0% ( 0 / 2) in 'PersistTestPetCollarType' Missing documentation for: Module header PetCollar (src/PersistTestPetCollarType.hs:11) 0% ( 0 / 2) in 'PersistTestPetType' Missing documentation for: Module header PetType (src/PersistTestPetType.hs:5) 0% ( 0 / 12) in 'PersistUniqueTest' Missing documentation for: Module header OnlyPrimaryKeyId (src/PersistUniqueTest.hs:10) OnlyPrimaryKey (src/PersistUniqueTest.hs:10) BaId (src/PersistUniqueTest.hs:10) Ba (src/PersistUniqueTest.hs:10) FoId (src/PersistUniqueTest.hs:10) Fo (src/PersistUniqueTest.hs:10) entityDefListFormigration (src/PersistUniqueTest.hs:10) migration (src/PersistUniqueTest.hs:10) shouldCompile (src/PersistUniqueTest.hs:43) cleanDB (src/PersistUniqueTest.hs:48) specsWith (src/PersistUniqueTest.hs:52) 33% ( 1 / 3) in 'PersistentTestModelsImports' Missing documentation for: UserId (src/PersistentTestModelsImports.hs:9) User (src/PersistentTestModelsImports.hs:9) 1% ( 1 / 83) in 'PersistentTestModels' Missing documentation for: Module header MutBId (src/PersistentTestModels.hs:26) MutBGeneric (src/PersistentTestModels.hs:26) MutB (src/PersistentTestModels.hs:26) MutAId (src/PersistentTestModels.hs:26) MutAGeneric (src/PersistentTestModels.hs:26) MutA (src/PersistentTestModels.hs:26) RelationshipId (src/PersistentTestModels.hs:26) RelationshipGeneric (src/PersistentTestModels.hs:26) Relationship (src/PersistentTestModels.hs:26) DudeWeirdColumnsId (src/PersistentTestModels.hs:26) DudeWeirdColumnsGeneric (src/PersistentTestModels.hs:26) DudeWeirdColumns (src/PersistentTestModels.hs:26) StrictId (src/PersistentTestModels.hs:26) StrictGeneric (src/PersistentTestModels.hs:26) Strict (src/PersistentTestModels.hs:26) UpsertById (src/PersistentTestModels.hs:26) UpsertByGeneric (src/PersistentTestModels.hs:26) UpsertBy (src/PersistentTestModels.hs:26) UpsertId (src/PersistentTestModels.hs:26) UpsertGeneric (src/PersistentTestModels.hs:26) Upsert (src/PersistentTestModels.hs:26) EmailPTId (src/PersistentTestModels.hs:26) EmailPTGeneric (src/PersistentTestModels.hs:26) EmailPT (src/PersistentTestModels.hs:26) UserPTId (src/PersistentTestModels.hs:26) UserPTGeneric (src/PersistentTestModels.hs:26) UserPT (src/PersistentTestModels.hs:26) OutdoorPetId (src/PersistentTestModels.hs:26) OutdoorPetGeneric (src/PersistentTestModels.hs:26) OutdoorPet (src/PersistentTestModels.hs:26) NeedsPetId (src/PersistentTestModels.hs:26) NeedsPetGeneric (src/PersistentTestModels.hs:26) NeedsPet (src/PersistentTestModels.hs:26) MaybeOwnedPetId (src/PersistentTestModels.hs:26) MaybeOwnedPetGeneric (src/PersistentTestModels.hs:26) MaybeOwnedPet (src/PersistentTestModels.hs:26) PetId (src/PersistentTestModels.hs:26) PetGeneric (src/PersistentTestModels.hs:26) Pet (src/PersistentTestModels.hs:26) PersonMayId (src/PersistentTestModels.hs:26) PersonMayGeneric (src/PersistentTestModels.hs:26) PersonMay (src/PersistentTestModels.hs:26) PersonMaybeAgeId (src/PersistentTestModels.hs:26) PersonMaybeAgeGeneric (src/PersistentTestModels.hs:26) PersonMaybeAge (src/PersistentTestModels.hs:26) Person1Id (src/PersistentTestModels.hs:26) Person1Generic (src/PersistentTestModels.hs:26) Person1 (src/PersistentTestModels.hs:26) PersonId (src/PersistentTestModels.hs:26) PersonGeneric (src/PersistentTestModels.hs:26) Person (src/PersistentTestModels.hs:26) entityDefListFortestMigrate (src/PersistentTestModels.hs:26) testMigrate (src/PersistentTestModels.hs:26) NoPrefixSumId (src/PersistentTestModels.hs:137) NoPrefixSumGeneric (src/PersistentTestModels.hs:137) NoPrefixSum (src/PersistentTestModels.hs:137) NoPrefix2Id (src/PersistentTestModels.hs:137) NoPrefix2Generic (src/PersistentTestModels.hs:137) NoPrefix2 (src/PersistentTestModels.hs:137) NoPrefix1Id (src/PersistentTestModels.hs:137) NoPrefix1Generic (src/PersistentTestModels.hs:137) NoPrefix1 (src/PersistentTestModels.hs:137) entityDefListFornoPrefixMigrate (src/PersistentTestModels.hs:137) noPrefixMigrate (src/PersistentTestModels.hs:137) CustomPrefixSumId (src/PersistentTestModels.hs:166) CustomPrefixSumGeneric (src/PersistentTestModels.hs:166) CustomPrefixSum (src/PersistentTestModels.hs:166) CustomPrefix2Id (src/PersistentTestModels.hs:166) CustomPrefix2Generic (src/PersistentTestModels.hs:166) CustomPrefix2 (src/PersistentTestModels.hs:166) CustomPrefix1Id (src/PersistentTestModels.hs:166) CustomPrefix1Generic (src/PersistentTestModels.hs:166) CustomPrefix1 (src/PersistentTestModels.hs:166) entityDefListForcustomPrefixMigrate (src/PersistentTestModels.hs:166) customPrefixMigrate (src/PersistentTestModels.hs:166) TreeId (src/PersistentTestModels.hs:202) Tree (src/PersistentTestModels.hs:202) fkparent (src/PersistentTestModels.hs:202) entityDefListFortreeMigrate (src/PersistentTestModels.hs:202) treeMigrate (src/PersistentTestModels.hs:202) cleanDB (src/PersistentTestModels.hs:253) Warning: PersistentTest: Could not find documentation for exported module: PersistentTest 0% ( 0 / 15) in 'PersistentTest' Missing documentation for: Module header specsWith (src/PersistentTest.hs:107) catchPersistException (src/PersistentTest.hs:37) set (src/PersistentTest.hs:80) filterOrSpecs (src/PersistentTest.hs:48) _polymorphic (src/PersistentTest.hs:70) ASetter (src/PersistentTest.hs:77) Getting (src/PersistentTest.hs:82) view (src/PersistentTest.hs:85) safeToRemoveSpec (src/PersistentTest.hs:89) cleanDB (src/PersistentTestModels.hs:253) testMigrate (src/PersistentTestModels.hs:26) noPrefixMigrate (src/PersistentTestModels.hs:137) customPrefixMigrate (src/PersistentTestModels.hs:166) treeMigrate (src/PersistentTestModels.hs:202) 0% ( 0 / 2) in 'MpsNoPrefixTest' Missing documentation for: Module header specsWith (src/MpsNoPrefixTest.hs:7) 0% ( 0 / 2) in 'MpsCustomPrefixTest' Missing documentation for: Module header specsWith (src/MpsCustomPrefixTest.hs:7) 0% ( 0 / 14) in 'PrimaryTest' Missing documentation for: Module header CompositePrimaryId (src/PrimaryTest.hs:11) CompositePrimary (src/PrimaryTest.hs:11) TreesId (src/PrimaryTest.hs:11) Trees (src/PrimaryTest.hs:11) BarId (src/PrimaryTest.hs:11) Bar (src/PrimaryTest.hs:11) FooId (src/PrimaryTest.hs:11) Foo (src/PrimaryTest.hs:11) treesFkparent (src/PrimaryTest.hs:11) entityDefListFormigration (src/PrimaryTest.hs:11) migration (src/PrimaryTest.hs:11) cleanDB (src/PrimaryTest.hs:36) specsWith (src/PrimaryTest.hs:41) 0% ( 0 / 4) in 'RawSqlTest' Missing documentation for: Module header specsWith (src/RawSqlTest.hs:19) getEscape (src/RawSqlTest.hs:250) caseCommitRollback (src/RawSqlTest.hs:253) 0% ( 0 / 2) in 'ReadWriteTest' Missing documentation for: Module header specsWith (src/ReadWriteTest.hs:9) 0% ( 0 / 4) in 'Recursive' Missing documentation for: Module header specsWith (src/Recursive.hs:37) recursiveMigrate (src/Recursive.hs:9) cleanup (src/Recursive.hs:26) 0% ( 0 / 21) in 'RenameTest' Missing documentation for: Module header TextId (src/RenameTest.hs:15) ForeignIdTableId (src/RenameTest.hs:18) ForeignIdTableGeneric (src/RenameTest.hs:18) ForeignIdTable (src/RenameTest.hs:18) RefTableId (src/RenameTest.hs:18) RefTableGeneric (src/RenameTest.hs:18) RefTable (src/RenameTest.hs:18) LowerCaseTableId (src/RenameTest.hs:18) LowerCaseTableGeneric (src/RenameTest.hs:18) LowerCaseTable (src/RenameTest.hs:18) IdTableId (src/RenameTest.hs:18) IdTableGeneric (src/RenameTest.hs:18) IdTable (src/RenameTest.hs:18) KeyTableId (src/RenameTest.hs:18) KeyTableGeneric (src/RenameTest.hs:18) KeyTable (src/RenameTest.hs:18) entityDefListFormigration (src/RenameTest.hs:18) migration (src/RenameTest.hs:18) cleanDB (src/RenameTest.hs:65) specsWith (src/RenameTest.hs:80) 0% ( 0 / 3) in 'SumTypeTest' Missing documentation for: Module header specsWith (src/SumTypeTest.hs:42) sumTypeMigrate (src/SumTypeTest.hs:13) 0% ( 0 / 6) in 'TransactionLevelTest' Missing documentation for: Module header WombatId (src/TransactionLevelTest.hs:9) Wombat (src/TransactionLevelTest.hs:9) entityDefListFormigration (src/TransactionLevelTest.hs:9) migration (src/TransactionLevelTest.hs:9) specsWith (src/TransactionLevelTest.hs:21) 0% ( 0 / 8) in 'TreeTest' Missing documentation for: Module header TreeId (src/TreeTest.hs:12) Tree (src/TreeTest.hs:12) treeFkparent (src/TreeTest.hs:12) entityDefListFortreeMigrate (src/TreeTest.hs:12) treeMigrate (src/TreeTest.hs:12) cleanDB (src/TreeTest.hs:27) specsWith (src/TreeTest.hs:31) 0% ( 0 / 3) in 'TypeLitFieldDefsTest' Missing documentation for: Module header specsWith (src/TypeLitFieldDefsTest.hs:62) typeLitFieldDefsMigrate (src/TypeLitFieldDefsTest.hs:33) 0% ( 0 / 11) in 'UniqueTest' Missing documentation for: Module header TestCheckmarkId (src/UniqueTest.hs:9) TestCheckmark (src/UniqueTest.hs:9) TestNullId (src/UniqueTest.hs:9) TestNull (src/UniqueTest.hs:9) TestNonNullId (src/UniqueTest.hs:9) TestNonNull (src/UniqueTest.hs:9) entityDefListForuniqueMigrate (src/UniqueTest.hs:9) uniqueMigrate (src/UniqueTest.hs:9) cleanDB (src/UniqueTest.hs:33) specsWith (src/UniqueTest.hs:38) 50% ( 2 / 4) in 'UpsertTest' Missing documentation for: Module header specsWith (src/UpsertTest.hs:29) Warning: Init: could not find link destinations for: - Data.Vector.Vector - GHC.Generics.Rep1_Proxy - GHC.Generics.Rep_Proxy - Text.ParserCombinators.ReadP.P - Data.Vector.Strict.Vector - Data.Vector.Primitive.Vector - Data.Vector.Unboxed.Base.Unbox - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0 - Data.Vector.Generic.Base.Vector - Data.Vector.Unboxed.Base.MV_Int32 - Data.Vector.Unboxed.Base.MV_Int64 - Data.Vector.Generic.Base.Mutable - Data.Vector.Generic.Base.basicLength - Data.Vector.Generic.Base.basicUnsafeCopy - Data.Vector.Generic.Base.basicUnsafeFreeze - Data.Vector.Generic.Base.basicUnsafeIndexM - Data.Vector.Generic.Base.basicUnsafeSlice - Data.Vector.Generic.Base.basicUnsafeThaw - Data.Vector.Generic.Base.elemseq - Data.Vector.Generic.Mutable.Base.MVector - Data.Vector.Generic.Mutable.Base.basicUnsafeWrite - Data.Vector.Primitive.Mutable.MVector - Data.Vector.Unboxed.Base.V_Int32 - Data.Vector.Unboxed.Base.V_Int64 - Data.Vector.Unboxed.Base.D:R:MVectorsInt320 - Data.Vector.Unboxed.Base.D:R:MVectorsInt640 - Data.Vector.Unboxed.Base.D:R:VectorInt320 - Data.Vector.Unboxed.Base.D:R:VectorInt640 - Data.ByteString.Internal.Type.D:R:ItemByteString - Data.Attoparsec.Internal.Types.D:R:ChunkElemByteString - Data.Attoparsec.Internal.Types.D:R:ChunkElemText - Data.Attoparsec.ByteString.Buffer.Buffer - Data.Attoparsec.Text.Buffer.Buffer - Data.Sequences.D:R:IndexByteString0 - Data.Sequences.D:R:IndexText0 - Text.Megaparsec.Stream.D:R:TokenByteString0 - Text.Megaparsec.Stream.D:R:TokenNoShareInput0 - Text.Megaparsec.Stream.D:R:TokenNoShareInput2 - Text.Megaparsec.Stream.D:R:TokenShareInput0 - Text.Megaparsec.Stream.D:R:TokenShareInput2 - Text.Megaparsec.Stream.D:R:TokenText0 - Text.Megaparsec.Stream.D:R:TokensByteString0 - Text.Megaparsec.Stream.D:R:TokensNoShareInput0 - Text.Megaparsec.Stream.D:R:TokensNoShareInput2 - Text.Megaparsec.Stream.D:R:TokensShareInput0 - Text.Megaparsec.Stream.D:R:TokensShareInput2 - Text.Megaparsec.Stream.D:R:TokensText0 - Database.Persist.Quasi.Internal.ModelParser.Parser - Data.Vector.Generic.Mutable.Base.basicClear - Data.Vector.Generic.Mutable.Base.basicInitialize - Data.Vector.Generic.Mutable.Base.basicLength - Data.Vector.Generic.Mutable.Base.basicOverlaps - Data.Vector.Generic.Mutable.Base.basicSet - Data.Vector.Generic.Mutable.Base.basicUnsafeCopy - Data.Vector.Generic.Mutable.Base.basicUnsafeGrow - Data.Vector.Generic.Mutable.Base.basicUnsafeMove - Data.Vector.Generic.Mutable.Base.basicUnsafeNew - Data.Vector.Generic.Mutable.Base.basicUnsafeRead - Data.Vector.Generic.Mutable.Base.basicUnsafeReplicate - Data.Vector.Generic.Mutable.Base.basicUnsafeSlice Warning: ForeignKey: could not find link destinations for: - ForeignKey.Chain3Key - ForeignKey.unChain3Key - ForeignKey.Chain3Id - ForeignKey.Chain3Name - ForeignKey.Chain3Previous - ForeignKey.Chain2Key - ForeignKey.unChain2Key - ForeignKey.Chain2Id - ForeignKey.Chain2Name - ForeignKey.Chain2Previous - ForeignKey.ChainKey - ForeignKey.unChainKey - ForeignKey.ChainId - ForeignKey.ChainName - ForeignKey.ChainPrevious - ForeignKey.BExplicitKey - ForeignKey.unBExplicitKey - ForeignKey.BExplicitId - ForeignKey.BExplicitBa - ForeignKey.BCompositeKey - ForeignKey.unBCompositeKey - ForeignKey.BCompositeId - ForeignKey.BCompositeBa - ForeignKey.BCompositeBb - ForeignKey.U2 - ForeignKey.ACompositeKey - ForeignKey.unACompositeKey - ForeignKey.ACompositeId - ForeignKey.ACompositeAa - ForeignKey.ACompositeAb - ForeignKey.BKey - ForeignKey.unBKey - ForeignKey.BId - ForeignKey.BBa - ForeignKey.BBb - ForeignKey.U1 - ForeignKey.AKey - ForeignKey.unAKey - ForeignKey.AId - ForeignKey.AAa - ForeignKey.AAb - ForeignKey.SelfReferencedPrimaryKey - ForeignKey.SelfReferencedKey - ForeignKey.unSelfReferencedKey - ForeignKey.SelfReferencedId - ForeignKey.SelfReferencedName - ForeignKey.SelfReferencedPname - ForeignKey.ChildCompositeKey - ForeignKey.unChildCompositeKey - ForeignKey.ChildCompositeId - ForeignKey.ChildCompositePname - ForeignKey.ChildCompositePlastName - ForeignKey.ParentCompositePrimaryKey - ForeignKey.ParentCompositeKey - ForeignKey.parentCompositeKeylastName - ForeignKey.parentCompositeKeyname - ForeignKey.ParentCompositeId - ForeignKey.ParentCompositeName - ForeignKey.ParentCompositeLastName - ForeignKey.ChildImplicitKey - ForeignKey.unChildImplicitKey - ForeignKey.ChildImplicitId - ForeignKey.ChildImplicitPname - ForeignKey.ChildImplicitParentId - ForeignKey.ParentImplicitKey - ForeignKey.unParentImplicitKey - ForeignKey.ParentImplicitId - ForeignKey.ParentImplicitName - ForeignKey.ChildKey - ForeignKey.unChildKey - ForeignKey.ChildId - ForeignKey.ChildPname - ForeignKey.ParentPrimaryKey - ForeignKey.ParentKey - ForeignKey.unParentKey - ForeignKey.ParentId - ForeignKey.ParentName - ForeignKey.SimpleCascadeKey - ForeignKey.unSimpleCascadeKey - ForeignKey.SimpleCascadeId - ForeignKey.SimpleCascadeName - ForeignKey.SimpleCascadeChildKey - ForeignKey.unSimpleCascadeChildKey - ForeignKey.SimpleCascadeChildId - ForeignKey.SimpleCascadeChildRef - ForeignKey.D:R:UniqueSimpleCascade0 - ForeignKey.D:R:KeySimpleCascade0 - ForeignKey.D:R:EntityFieldSimpleCascadetyp0 - ForeignKey.D:R:PersistEntityBackendSimpleCascade - ForeignKey.D:R:UniqueSimpleCascadeChild0 - ForeignKey.D:R:KeySimpleCascadeChild0 - ForeignKey.D:R:EntityFieldSimpleCascadeChildtyp0 - ForeignKey.D:R:PersistEntityBackendSimpleCascadeChild - ForeignKey.D:R:UniqueParent0 - ForeignKey.D:R:KeyParent0 - ForeignKey.D:R:EntityFieldParenttyp0 - ForeignKey.D:R:PersistEntityBackendParent - ForeignKey.D:R:UniqueChild0 - ForeignKey.D:R:KeyChild0 - ForeignKey.D:R:EntityFieldChildtyp0 - ForeignKey.D:R:PersistEntityBackendChild - ForeignKey.D:R:UniqueParentImplicit0 - ForeignKey.D:R:KeyParentImplicit0 - ForeignKey.D:R:EntityFieldParentImplicittyp0 - ForeignKey.D:R:PersistEntityBackendParentImplicit - ForeignKey.D:R:UniqueChildImplicit0 - ForeignKey.D:R:KeyChildImplicit0 - ForeignKey.D:R:EntityFieldChildImplicittyp0 - ForeignKey.D:R:PersistEntityBackendChildImplicit - ForeignKey.D:R:UniqueParentComposite0 - ForeignKey.D:R:KeyParentComposite0 - ForeignKey.D:R:EntityFieldParentCompositetyp0 - ForeignKey.D:R:PersistEntityBackendParentComposite - ForeignKey.D:R:UniqueChildComposite0 - ForeignKey.D:R:KeyChildComposite0 - ForeignKey.D:R:EntityFieldChildCompositetyp0 - ForeignKey.D:R:PersistEntityBackendChildComposite - ForeignKey.D:R:UniqueSelfReferenced0 - ForeignKey.D:R:KeySelfReferenced0 - ForeignKey.D:R:EntityFieldSelfReferencedtyp0 - ForeignKey.D:R:PersistEntityBackendSelfReferenced - ForeignKey.D:R:UniqueA0 - ForeignKey.D:R:KeyA0 - ForeignKey.D:R:EntityFieldAtyp0 - ForeignKey.D:R:PersistEntityBackendA - ForeignKey.D:R:UniqueB0 - ForeignKey.D:R:KeyB0 - ForeignKey.D:R:EntityFieldBtyp0 - ForeignKey.D:R:PersistEntityBackendB - ForeignKey.D:R:UniqueAComposite0 - ForeignKey.D:R:KeyAComposite0 - ForeignKey.D:R:EntityFieldACompositetyp0 - ForeignKey.D:R:PersistEntityBackendAComposite - ForeignKey.D:R:UniqueBComposite0 - ForeignKey.D:R:KeyBComposite0 - ForeignKey.D:R:EntityFieldBCompositetyp0 - ForeignKey.D:R:PersistEntityBackendBComposite - ForeignKey.D:R:UniqueBExplicit0 - ForeignKey.D:R:KeyBExplicit0 - ForeignKey.D:R:EntityFieldBExplicittyp0 - ForeignKey.D:R:PersistEntityBackendBExplicit - ForeignKey.D:R:UniqueChain0 - ForeignKey.D:R:KeyChain0 - ForeignKey.D:R:EntityFieldChaintyp0 - ForeignKey.D:R:PersistEntityBackendChain - ForeignKey.D:R:UniqueChain20 - ForeignKey.D:R:KeyChain20 - ForeignKey.D:R:EntityFieldChain2typ0 - ForeignKey.D:R:PersistEntityBackendChain2 - ForeignKey.D:R:UniqueChain30 - ForeignKey.D:R:KeyChain30 - ForeignKey.D:R:EntityFieldChain3typ0 - ForeignKey.D:R:PersistEntityBackendChain3 - ForeignKey.Rep_R:KeyParentComposite Warning: EntityEmbedTest: could not find link destinations for: - EntityEmbedTest.ARecordKey - EntityEmbedTest.unARecordKey - EntityEmbedTest.ARecordId - EntityEmbedTest.ARecordName - EntityEmbedTest.D:R:UniqueARecordGeneric0 - EntityEmbedTest.D:R:KeyARecordGeneric0 - EntityEmbedTest.D:R:EntityFieldARecordGenerictyp0 - EntityEmbedTest.D:R:PersistEntityBackendARecordGeneric Warning: EmbedTest: could not find link destinations for: - EmbedTest.HasMap Warning: CustomPrimaryKeyReferenceTest: could not find link destinations for: - CustomPrimaryKeyReferenceTest.UniqueTweetIdTweetUrl - CustomPrimaryKeyReferenceTest.TweetUrlKey - CustomPrimaryKeyReferenceTest.unTweetUrlKey - CustomPrimaryKeyReferenceTest.TweetUrlId - CustomPrimaryKeyReferenceTest.TweetUrlTweetId - CustomPrimaryKeyReferenceTest.TweetUrlTweetUrl - CustomPrimaryKeyReferenceTest.TweetUrlFinalUrl - CustomPrimaryKeyReferenceTest.TweetPrimaryKey - CustomPrimaryKeyReferenceTest.UniqueTweetId - CustomPrimaryKeyReferenceTest.TweetKey - CustomPrimaryKeyReferenceTest.unTweetKey - CustomPrimaryKeyReferenceTest.TweetId - CustomPrimaryKeyReferenceTest.TweetTweetId - CustomPrimaryKeyReferenceTest.TweetStatusText - CustomPrimaryKeyReferenceTest.D:R:UniqueTweet0 - CustomPrimaryKeyReferenceTest.D:R:KeyTweet0 - CustomPrimaryKeyReferenceTest.D:R:EntityFieldTweettyp0 - CustomPrimaryKeyReferenceTest.D:R:PersistEntityBackendTweet - CustomPrimaryKeyReferenceTest.D:R:UniqueTweetUrl0 - CustomPrimaryKeyReferenceTest.D:R:KeyTweetUrl0 - CustomPrimaryKeyReferenceTest.D:R:EntityFieldTweetUrltyp0 - CustomPrimaryKeyReferenceTest.D:R:PersistEntityBackendTweetUrl Warning: CompositeTest: could not find link destinations for: - CompositeTest.PrimaryCompositeWithOtherNullableFieldsPrimaryKey - CompositeTest.PrimaryCompositeWithOtherNullableFieldsKey - CompositeTest.primaryCompositeWithOtherNullableFieldsKeybar - CompositeTest.primaryCompositeWithOtherNullableFieldsKeyfoo - CompositeTest.PrimaryCompositeWithOtherNullableFieldsId - CompositeTest.PrimaryCompositeWithOtherNullableFieldsFoo - CompositeTest.PrimaryCompositeWithOtherNullableFieldsBar - CompositeTest.PrimaryCompositeWithOtherNullableFieldsBaz - CompositeTest.CitizenAddressPrimaryKey - CompositeTest.CitizenAddressKey - CompositeTest.citizenAddressKeyaddress - CompositeTest.citizenAddressKeycitizen - CompositeTest.CitizenAddressId - CompositeTest.CitizenAddressCitizen - CompositeTest.CitizenAddressAddress - CompositeTest.AddressKey - CompositeTest.unAddressKey - CompositeTest.AddressId - CompositeTest.AddressAddress - CompositeTest.AddressCountry - CompositeTest.CitizenKey - CompositeTest.unCitizenKey - CompositeTest.CitizenId - CompositeTest.CitizenName - CompositeTest.CitizenAge - CompositeTest.TestChildKey - CompositeTest.unTestChildKey - CompositeTest.TestChildId - CompositeTest.TestChildName - CompositeTest.TestChildName2 - CompositeTest.TestChildAge - CompositeTest.TestChildExtra4 - CompositeTest.TestParentPrimaryKey - CompositeTest.TestParentKey - CompositeTest.testParentKeyage - CompositeTest.testParentKeyname2 - CompositeTest.testParentKeyname - CompositeTest.TestParentId - CompositeTest.TestParentName - CompositeTest.TestParentName2 - CompositeTest.TestParentAge - CompositeTest.TestParentExtra44 - CompositeTest.D:R:UniqueTestParent0 - CompositeTest.D:R:KeyTestParent0 - CompositeTest.D:R:EntityFieldTestParenttyp0 - CompositeTest.D:R:PersistEntityBackendTestParent - CompositeTest.D:R:UniqueTestChild0 - CompositeTest.D:R:KeyTestChild0 - CompositeTest.D:R:EntityFieldTestChildtyp0 - CompositeTest.D:R:PersistEntityBackendTestChild - CompositeTest.D:R:UniqueCitizen0 - CompositeTest.D:R:KeyCitizen0 - CompositeTest.D:R:EntityFieldCitizentyp0 - CompositeTest.D:R:PersistEntityBackendCitizen - CompositeTest.D:R:UniqueAddress0 - CompositeTest.D:R:KeyAddress0 - CompositeTest.D:R:EntityFieldAddresstyp0 - CompositeTest.D:R:PersistEntityBackendAddress - CompositeTest.D:R:UniqueCitizenAddress0 - CompositeTest.D:R:KeyCitizenAddress0 - CompositeTest.D:R:EntityFieldCitizenAddresstyp0 - CompositeTest.D:R:PersistEntityBackendCitizenAddress - CompositeTest.D:R:UniquePrimaryCompositeWithOtherNullableFields0 - CompositeTest.D:R:KeyPrimaryCompositeWithOtherNullableFields0 - CompositeTest.D:R:EntityFieldPrimaryCompositeWithOtherNullableFieldstyp0 - CompositeTest.D:R:PersistEntityBackendPrimaryCompositeWithOtherNullableFields - CompositeTest.Rep_R:KeyPrimaryCompositeWithOtherNullableFields - CompositeTest.Rep_R:KeyCitizenAddress - CompositeTest.Rep_R:KeyTestParent Warning: LargeNumberTest: could not find link destinations for: - LargeNumberTest.NumberKey - LargeNumberTest.unNumberKey - LargeNumberTest.NumberId - LargeNumberTest.NumberIntx - LargeNumberTest.NumberInt32 - LargeNumberTest.NumberWord32 - LargeNumberTest.NumberInt64 - LargeNumberTest.NumberWord64 - LargeNumberTest.D:R:UniqueNumberGeneric0 - LargeNumberTest.D:R:KeyNumberGeneric0 - LargeNumberTest.D:R:EntityFieldNumberGenerictyp0 - LargeNumberTest.D:R:PersistEntityBackendNumberGeneric Warning: LongIdentifierTest: could not find link destinations for: - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameChildKey - LongIdentifierTest.unTableAnExtremelyFantasticallySuperLongNameChildKey - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameChildId - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameChildColumnAnExtremelyFantasticallySuperLongNameParentId - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameParentKey - LongIdentifierTest.unTableAnExtremelyFantasticallySuperLongNameParentKey - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameParentId - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameParentField1 - LongIdentifierTest.D:R:UniqueTableAnExtremelyFantasticallySuperLongNameParent0 - LongIdentifierTest.D:R:KeyTableAnExtremelyFantasticallySuperLongNameParent0 - LongIdentifierTest.D:R:EntityFieldTableAnExtremelyFantasticallySuperLongNameParenttyp0 - LongIdentifierTest.D:R:PersistEntityBackendTableAnExtremelyFantasticallySuperLongNameParent - LongIdentifierTest.D:R:UniqueTableAnExtremelyFantasticallySuperLongNameChild0 - LongIdentifierTest.D:R:KeyTableAnExtremelyFantasticallySuperLongNameChild0 - LongIdentifierTest.D:R:EntityFieldTableAnExtremelyFantasticallySuperLongNameChildtyp0 - LongIdentifierTest.D:R:PersistEntityBackendTableAnExtremelyFantasticallySuperLongNameChild Warning: MigrationColumnLengthTest: could not find link destinations for: - MigrationColumnLengthTest.VaryingLengthsKey - MigrationColumnLengthTest.unVaryingLengthsKey - MigrationColumnLengthTest.VaryingLengthsId - MigrationColumnLengthTest.VaryingLengthsField1 - MigrationColumnLengthTest.VaryingLengthsField2 - MigrationColumnLengthTest.D:R:UniqueVaryingLengths0 - MigrationColumnLengthTest.D:R:KeyVaryingLengths0 - MigrationColumnLengthTest.D:R:EntityFieldVaryingLengthstyp0 - MigrationColumnLengthTest.D:R:PersistEntityBackendVaryingLengths Warning: MigrationIdempotencyTest: could not find link destinations for: - MigrationIdempotencyTest.IdempotencyKey - MigrationIdempotencyTest.unIdempotencyKey - MigrationIdempotencyTest.IdempotencyId - MigrationIdempotencyTest.IdempotencyField1 - MigrationIdempotencyTest.IdempotencyField2 - MigrationIdempotencyTest.IdempotencyField3 - MigrationIdempotencyTest.IdempotencyField4 - MigrationIdempotencyTest.IdempotencyField5 - MigrationIdempotencyTest.IdempotencyField6 - MigrationIdempotencyTest.IdempotencyField7 - MigrationIdempotencyTest.IdempotencyField8 - MigrationIdempotencyTest.IdempotencyField9 - MigrationIdempotencyTest.D:R:UniqueIdempotency0 - MigrationIdempotencyTest.D:R:KeyIdempotency0 - MigrationIdempotencyTest.D:R:EntityFieldIdempotencytyp0 - MigrationIdempotencyTest.D:R:PersistEntityBackendIdempotency Warning: MigrationTest: could not find link destinations for: - MigrationTest.CustomSqlIdPrimaryKey - MigrationTest.CustomSqlIdKey - MigrationTest.unCustomSqlIdKey - MigrationTest.CustomSqlIdId - MigrationTest.CustomSqlIdPk - MigrationTest.SourceKey - MigrationTest.unSourceKey - MigrationTest.SourceId - MigrationTest.SourceField3 - MigrationTest.SourceField4 - MigrationTest.UniqueTarget - MigrationTest.TargetKey - MigrationTest.unTargetKey - MigrationTest.TargetId - MigrationTest.TargetField1 - MigrationTest.TargetField2 - MigrationTest.D:R:UniqueTarget0 - MigrationTest.D:R:KeyTarget0 - MigrationTest.D:R:EntityFieldTargettyp0 - MigrationTest.D:R:PersistEntityBackendTarget - MigrationTest.D:R:UniqueSource0 - MigrationTest.D:R:KeySource0 - MigrationTest.D:R:EntityFieldSourcetyp0 - MigrationTest.D:R:PersistEntityBackendSource - MigrationTest.D:R:UniqueCustomSqlId0 - MigrationTest.D:R:KeyCustomSqlId0 - MigrationTest.D:R:EntityFieldCustomSqlIdtyp0 - MigrationTest.D:R:PersistEntityBackendCustomSqlId - MigrationTest.Source1Key - MigrationTest.unSource1Key - MigrationTest.Source1Id - MigrationTest.Source1Field3 - MigrationTest.Source1Extra - MigrationTest.Source1Field4 - MigrationTest.UniqueTarget1 - MigrationTest.Target1Key - MigrationTest.unTarget1Key - MigrationTest.Target1Id - MigrationTest.Target1Field1 - MigrationTest.Target1Field2 - MigrationTest.D:R:UniqueTarget10 - MigrationTest.D:R:KeyTarget10 - MigrationTest.D:R:EntityFieldTarget1typ0 - MigrationTest.D:R:PersistEntityBackendTarget1 - MigrationTest.D:R:UniqueSource10 - MigrationTest.D:R:KeySource10 - MigrationTest.D:R:EntityFieldSource1typ0 - MigrationTest.D:R:PersistEntityBackendSource1 Warning: PersistTestPetCollarType: could not find link destinations for: - PersistTestPetCollarType.Rep_PetCollar Warning: PersistUniqueTest: could not find link destinations for: - PersistUniqueTest.OnlyPrimaryKeyPrimaryKey - PersistUniqueTest.OnlyPrimaryKeyKey - PersistUniqueTest.unOnlyPrimaryKeyKey - PersistUniqueTest.OnlyPrimaryKeyId - PersistUniqueTest.OnlyPrimaryKeyFoo - PersistUniqueTest.OnlyPrimaryKeyName - PersistUniqueTest.UniqueBaz - PersistUniqueTest.BaKey - PersistUniqueTest.unBaKey - PersistUniqueTest.BaId - PersistUniqueTest.BaFoo - PersistUniqueTest.BaBaz - PersistUniqueTest.FoPrimaryKey - PersistUniqueTest.UniqueBar - PersistUniqueTest.FoKey - PersistUniqueTest.unFoKey - PersistUniqueTest.FoId - PersistUniqueTest.FoFoo - PersistUniqueTest.FoBar - PersistUniqueTest.D:R:UniqueFo0 - PersistUniqueTest.D:R:KeyFo0 - PersistUniqueTest.D:R:EntityFieldFotyp0 - PersistUniqueTest.D:R:PersistEntityBackendFo - PersistUniqueTest.D:R:UniqueBa0 - PersistUniqueTest.D:R:KeyBa0 - PersistUniqueTest.D:R:EntityFieldBatyp0 - PersistUniqueTest.D:R:PersistEntityBackendBa - PersistUniqueTest.D:R:UniqueOnlyPrimaryKey0 - PersistUniqueTest.D:R:KeyOnlyPrimaryKey0 - PersistUniqueTest.D:R:EntityFieldOnlyPrimaryKeytyp0 - PersistUniqueTest.D:R:PersistEntityBackendOnlyPrimaryKey Warning: PersistentTestModelsImports: could not find link destinations for: - PersistentTestModelsImports.UserKey - PersistentTestModelsImports.unUserKey - PersistentTestModelsImports.UserId - PersistentTestModelsImports.UserName - PersistentTestModelsImports.UserAge - PersistentTestModelsImports.D:R:UniqueUser0 - PersistentTestModelsImports.D:R:KeyUser0 - PersistentTestModelsImports.D:R:EntityFieldUsertyp0 - PersistentTestModelsImports.D:R:PersistEntityBackendUser Warning: PersistentTestModels: could not find link destinations for: - PersistentTestModels.MutBKey - PersistentTestModels.unMutBKey - PersistentTestModels.MutBId - PersistentTestModels.MutBMutA - PersistentTestModels.MutAKey - PersistentTestModels.unMutAKey - PersistentTestModels.MutAId - PersistentTestModels.MutAMutB - PersistentTestModels.RelationshipKey - PersistentTestModels.unRelationshipKey - PersistentTestModels.RelationshipId - PersistentTestModels.RelationshipName - PersistentTestModels.RelationshipParent - PersistentTestModels.UniqueName - PersistentTestModels.DudeWeirdColumnsKey - PersistentTestModels.unDudeWeirdColumnsKey - PersistentTestModels.DudeWeirdColumnsId - PersistentTestModels.DudeWeirdColumnsName - PersistentTestModels.StrictKey - PersistentTestModels.unStrictKey - PersistentTestModels.StrictId - PersistentTestModels.StrictYes - PersistentTestModels.StrictNo - PersistentTestModels.StrictDef - PersistentTestModels.UniqueUpsertBy - PersistentTestModels.UniqueUpsertByCity - PersistentTestModels.UpsertByKey - PersistentTestModels.unUpsertByKey - PersistentTestModels.UpsertById - PersistentTestModels.UpsertByEmail - PersistentTestModels.UpsertByCity - PersistentTestModels.UpsertByAttr - PersistentTestModels.UniqueUpsert - PersistentTestModels.UpsertKey - PersistentTestModels.unUpsertKey - PersistentTestModels.UpsertId - PersistentTestModels.UpsertEmail - PersistentTestModels.UpsertAttr - PersistentTestModels.UpsertExtra - PersistentTestModels.UpsertAge - PersistentTestModels.UniqueEmailPT - PersistentTestModels.EmailPTKey - PersistentTestModels.unEmailPTKey - PersistentTestModels.EmailPTId - PersistentTestModels.EmailPTEmail - PersistentTestModels.EmailPTUser - PersistentTestModels.EmailPTVerkey - PersistentTestModels.UniqueUserPT - PersistentTestModels.UserPTKey - PersistentTestModels.unUserPTKey - PersistentTestModels.UserPTId - PersistentTestModels.UserPTIdent - PersistentTestModels.UserPTPassword - PersistentTestModels.OutdoorPetKey - PersistentTestModels.unOutdoorPetKey - PersistentTestModels.OutdoorPetId - PersistentTestModels.OutdoorPetOwnerId - PersistentTestModels.OutdoorPetCollar - PersistentTestModels.OutdoorPetType - PersistentTestModels.NeedsPetKey - PersistentTestModels.unNeedsPetKey - PersistentTestModels.NeedsPetId - PersistentTestModels.NeedsPetPetKey - PersistentTestModels.MaybeOwnedPetKey - PersistentTestModels.unMaybeOwnedPetKey - PersistentTestModels.MaybeOwnedPetId - PersistentTestModels.MaybeOwnedPetOwnerId - PersistentTestModels.MaybeOwnedPetName - PersistentTestModels.MaybeOwnedPetType - PersistentTestModels.PetKey - PersistentTestModels.unPetKey - PersistentTestModels.PetId - PersistentTestModels.PetOwnerId - PersistentTestModels.PetName - PersistentTestModels.PetType - PersistentTestModels.PersonMayKey - PersistentTestModels.unPersonMayKey - PersistentTestModels.PersonMayId - PersistentTestModels.PersonMayName - PersistentTestModels.PersonMayColor - PersistentTestModels.PersonMaybeAgeKey - PersistentTestModels.unPersonMaybeAgeKey - PersistentTestModels.PersonMaybeAgeId - PersistentTestModels.PersonMaybeAgeName - PersistentTestModels.PersonMaybeAgeAge - PersistentTestModels.Person1Key - PersistentTestModels.unPerson1Key - PersistentTestModels.Person1Id - PersistentTestModels.Person1Name - PersistentTestModels.Person1Age - PersistentTestModels.PersonNameKey - PersistentTestModels.PersonKey - PersistentTestModels.unPersonKey - PersistentTestModels.PersonId - PersistentTestModels.PersonName - PersistentTestModels.PersonAge - PersistentTestModels.PersonColor - PersistentTestModels.D:R:UniquePersonGeneric0 - PersistentTestModels.D:R:KeyPersonGeneric0 - PersistentTestModels.D:R:EntityFieldPersonGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendPersonGeneric - PersistentTestModels.D:R:UniquePerson1Generic0 - PersistentTestModels.D:R:KeyPerson1Generic0 - PersistentTestModels.D:R:EntityFieldPerson1Generictyp0 - PersistentTestModels.D:R:PersistEntityBackendPerson1Generic - PersistentTestModels.D:R:UniquePersonMaybeAgeGeneric0 - PersistentTestModels.D:R:KeyPersonMaybeAgeGeneric0 - PersistentTestModels.D:R:EntityFieldPersonMaybeAgeGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendPersonMaybeAgeGeneric - PersistentTestModels.D:R:UniquePersonMayGeneric0 - PersistentTestModels.D:R:KeyPersonMayGeneric0 - PersistentTestModels.D:R:EntityFieldPersonMayGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendPersonMayGeneric - PersistentTestModels.D:R:UniquePetGeneric0 - PersistentTestModels.D:R:KeyPetGeneric0 - PersistentTestModels.D:R:EntityFieldPetGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendPetGeneric - PersistentTestModels.D:R:UniqueMaybeOwnedPetGeneric0 - PersistentTestModels.D:R:KeyMaybeOwnedPetGeneric0 - PersistentTestModels.D:R:EntityFieldMaybeOwnedPetGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendMaybeOwnedPetGeneric - PersistentTestModels.D:R:UniqueNeedsPetGeneric0 - PersistentTestModels.D:R:KeyNeedsPetGeneric0 - PersistentTestModels.D:R:EntityFieldNeedsPetGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendNeedsPetGeneric - PersistentTestModels.D:R:UniqueOutdoorPetGeneric0 - PersistentTestModels.D:R:KeyOutdoorPetGeneric0 - PersistentTestModels.D:R:EntityFieldOutdoorPetGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendOutdoorPetGeneric - PersistentTestModels.D:R:UniqueUserPTGeneric0 - PersistentTestModels.D:R:KeyUserPTGeneric0 - PersistentTestModels.D:R:EntityFieldUserPTGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendUserPTGeneric - PersistentTestModels.D:R:UniqueEmailPTGeneric0 - PersistentTestModels.D:R:KeyEmailPTGeneric0 - PersistentTestModels.D:R:EntityFieldEmailPTGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendEmailPTGeneric - PersistentTestModels.D:R:UniqueUpsertGeneric0 - PersistentTestModels.D:R:KeyUpsertGeneric0 - PersistentTestModels.D:R:EntityFieldUpsertGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendUpsertGeneric - PersistentTestModels.D:R:UniqueUpsertByGeneric0 - PersistentTestModels.D:R:KeyUpsertByGeneric0 - PersistentTestModels.D:R:EntityFieldUpsertByGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendUpsertByGeneric - PersistentTestModels.D:R:UniqueStrictGeneric0 - PersistentTestModels.D:R:KeyStrictGeneric0 - PersistentTestModels.D:R:EntityFieldStrictGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendStrictGeneric - PersistentTestModels.D:R:UniqueDudeWeirdColumnsGeneric0 - PersistentTestModels.D:R:KeyDudeWeirdColumnsGeneric0 - PersistentTestModels.D:R:EntityFieldDudeWeirdColumnsGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendDudeWeirdColumnsGeneric - PersistentTestModels.D:R:UniqueRelationshipGeneric0 - PersistentTestModels.D:R:KeyRelationshipGeneric0 - PersistentTestModels.D:R:EntityFieldRelationshipGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendRelationshipGeneric - PersistentTestModels.D:R:UniqueMutBGeneric0 - PersistentTestModels.D:R:KeyMutBGeneric0 - PersistentTestModels.D:R:EntityFieldMutBGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendMutBGeneric - PersistentTestModels.D:R:UniqueMutAGeneric0 - PersistentTestModels.D:R:KeyMutAGeneric0 - PersistentTestModels.D:R:EntityFieldMutAGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendMutAGeneric - PersistentTestModels.NoPrefixSumKey - PersistentTestModels.unNoPrefixSumKey - PersistentTestModels.NoPrefixSumId - PersistentTestModels.UnprefixedLeft - PersistentTestModels.UnprefixedRight - PersistentTestModels.NoPrefix2Key - PersistentTestModels.unNoPrefix2Key - PersistentTestModels.NoPrefix2Id - PersistentTestModels.SomeOtherFieldName - PersistentTestModels.UnprefixedRef - PersistentTestModels.NoPrefix1Key - PersistentTestModels.unNoPrefix1Key - PersistentTestModels.NoPrefix1Id - PersistentTestModels.SomeFieldName - PersistentTestModels.D:R:UniqueNoPrefix1Generic0 - PersistentTestModels.D:R:KeyNoPrefix1Generic0 - PersistentTestModels.D:R:EntityFieldNoPrefix1Generictyp0 - PersistentTestModels.D:R:PersistEntityBackendNoPrefix1Generic - PersistentTestModels.D:R:UniqueNoPrefix2Generic0 - PersistentTestModels.D:R:KeyNoPrefix2Generic0 - PersistentTestModels.D:R:EntityFieldNoPrefix2Generictyp0 - PersistentTestModels.D:R:PersistEntityBackendNoPrefix2Generic - PersistentTestModels.D:R:UniqueNoPrefixSumGeneric0 - PersistentTestModels.D:R:KeyNoPrefixSumGeneric0 - PersistentTestModels.D:R:EntityFieldNoPrefixSumGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendNoPrefixSumGeneric - PersistentTestModels.CustomPrefixSumKey - PersistentTestModels.unCustomPrefixSumKey - PersistentTestModels.CustomPrefixSumId - PersistentTestModels.CPCustomPrefixedLeft - PersistentTestModels.CPCustomPrefixedRight - PersistentTestModels.CustomPrefix2Key - PersistentTestModels.unCustomPrefix2Key - PersistentTestModels.CustomPrefix2Id - PersistentTestModels.CP2OtherCustomFieldName - PersistentTestModels.CP2CustomPrefixedRef - PersistentTestModels.CustomPrefix1Key - PersistentTestModels.unCustomPrefix1Key - PersistentTestModels.CustomPrefix1Id - PersistentTestModels.CP1CustomFieldName - PersistentTestModels.D:R:UniqueCustomPrefix1Generic0 - PersistentTestModels.D:R:KeyCustomPrefix1Generic0 - PersistentTestModels.D:R:EntityFieldCustomPrefix1Generictyp0 - PersistentTestModels.D:R:PersistEntityBackendCustomPrefix1Generic - PersistentTestModels.D:R:UniqueCustomPrefix2Generic0 - PersistentTestModels.D:R:KeyCustomPrefix2Generic0 - PersistentTestModels.D:R:EntityFieldCustomPrefix2Generictyp0 - PersistentTestModels.D:R:PersistEntityBackendCustomPrefix2Generic - PersistentTestModels.D:R:UniqueCustomPrefixSumGeneric0 - PersistentTestModels.D:R:KeyCustomPrefixSumGeneric0 - PersistentTestModels.D:R:EntityFieldCustomPrefixSumGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendCustomPrefixSumGeneric - PersistentTestModels.RFOKey - PersistentTestModels.unRFOKey - PersistentTestModels.EFRFO - PersistentTestModels.unEFRFO - PersistentTestModels.URFO - PersistentTestModels.unURFO - PersistentTestModels.TreePrimaryKey - PersistentTestModels.TreeKey - PersistentTestModels.unTreeKey - PersistentTestModels.TreeId - PersistentTestModels.Name - PersistentTestModels.Parent - PersistentTestModels.D:R:UniqueTree0 - PersistentTestModels.D:R:KeyTree0 - PersistentTestModels.D:R:EntityFieldTreetyp0 - PersistentTestModels.D:R:PersistEntityBackendTree - PersistentTestModels.D:R:KeyReverseFieldOrder0 - PersistentTestModels.D:R:EntityFieldReverseFieldOrderb0 - PersistentTestModels.D:R:UniqueReverseFieldOrder0 - PersistentTestModels.D:R:PersistEntityBackendReverseFieldOrder Warning: PrimaryTest: could not find link destinations for: - PrimaryTest.CompositePrimaryPrimaryKey - PrimaryTest.CompositePrimaryKey - PrimaryTest.compositePrimaryKeyage - PrimaryTest.compositePrimaryKeyname - PrimaryTest.CompositePrimaryId - PrimaryTest.CompositePrimaryName - PrimaryTest.CompositePrimaryAge - PrimaryTest.TreesPrimaryKey - PrimaryTest.TreesKey - PrimaryTest.unTreesKey - PrimaryTest.TreesId - PrimaryTest.TreesName - PrimaryTest.TreesParent - PrimaryTest.BarKey - PrimaryTest.unBarKey - PrimaryTest.BarId - PrimaryTest.BarQuux - PrimaryTest.FooPrimaryKey - PrimaryTest.FooKey - PrimaryTest.unFooKey - PrimaryTest.FooId - PrimaryTest.FooName - PrimaryTest.D:R:UniqueFoo0 - PrimaryTest.D:R:KeyFoo0 - PrimaryTest.D:R:EntityFieldFootyp0 - PrimaryTest.D:R:PersistEntityBackendFoo - PrimaryTest.D:R:UniqueBar0 - PrimaryTest.D:R:KeyBar0 - PrimaryTest.D:R:EntityFieldBartyp0 - PrimaryTest.D:R:PersistEntityBackendBar - PrimaryTest.D:R:UniqueTrees0 - PrimaryTest.D:R:KeyTrees0 - PrimaryTest.D:R:EntityFieldTreestyp0 - PrimaryTest.D:R:PersistEntityBackendTrees - PrimaryTest.D:R:UniqueCompositePrimary0 - PrimaryTest.D:R:KeyCompositePrimary0 - PrimaryTest.D:R:EntityFieldCompositePrimarytyp0 - PrimaryTest.D:R:PersistEntityBackendCompositePrimary - PrimaryTest.Rep_R:KeyCompositePrimary Warning: RenameTest: could not find link destinations for: - RenameTest.ForeignIdTableKey - RenameTest.unForeignIdTableKey - RenameTest.ForeignIdTableId - RenameTest.ForeignIdTableIdId - RenameTest.UniqueRefTable - RenameTest.RefTableKey - RenameTest.unRefTableKey - RenameTest.RefTableId - RenameTest.RefTableSomeVal - RenameTest.RefTableLct - RenameTest.RefTableText - RenameTest.LowerCaseTableKey - RenameTest.unLowerCaseTableKey - RenameTest.LowerCaseTableId - RenameTest.LowerCaseTableFullName - RenameTest.IdTableKey - RenameTest.unIdTableKey - RenameTest.IdTableId - RenameTest.IdTableName - RenameTest.IdTableKeyTableEmbed - RenameTest.KeyTableKey' - RenameTest.unKeyTableKey - RenameTest.KeyTableId - RenameTest.KeyTableKey - RenameTest.D:R:UniqueKeyTableGeneric0 - RenameTest.D:R:KeyKeyTableGeneric0 - RenameTest.D:R:EntityFieldKeyTableGenerictyp0 - RenameTest.D:R:PersistEntityBackendKeyTableGeneric - RenameTest.D:R:UniqueIdTableGeneric0 - RenameTest.D:R:KeyIdTableGeneric0 - RenameTest.D:R:EntityFieldIdTableGenerictyp0 - RenameTest.D:R:PersistEntityBackendIdTableGeneric - RenameTest.D:R:UniqueLowerCaseTableGeneric0 - RenameTest.D:R:KeyLowerCaseTableGeneric0 - RenameTest.D:R:EntityFieldLowerCaseTableGenerictyp0 - RenameTest.D:R:PersistEntityBackendLowerCaseTableGeneric - RenameTest.D:R:UniqueRefTableGeneric0 - RenameTest.D:R:KeyRefTableGeneric0 - RenameTest.D:R:EntityFieldRefTableGenerictyp0 - RenameTest.D:R:PersistEntityBackendRefTableGeneric - RenameTest.D:R:UniqueForeignIdTableGeneric0 - RenameTest.D:R:KeyForeignIdTableGeneric0 - RenameTest.D:R:EntityFieldForeignIdTableGenerictyp0 - RenameTest.D:R:PersistEntityBackendForeignIdTableGeneric Warning: TransactionLevelTest: could not find link destinations for: - TransactionLevelTest.WombatPrimaryKey - TransactionLevelTest.WombatKey - TransactionLevelTest.unWombatKey - TransactionLevelTest.WombatId - TransactionLevelTest.WombatName - TransactionLevelTest.D:R:UniqueWombat0 - TransactionLevelTest.D:R:KeyWombat0 - TransactionLevelTest.D:R:EntityFieldWombattyp0 - TransactionLevelTest.D:R:PersistEntityBackendWombat Warning: TreeTest: could not find link destinations for: - TreeTest.TreePrimaryKey - TreeTest.TreeKey - TreeTest.unTreeKey - TreeTest.TreeId - TreeTest.TreeName - TreeTest.TreeParent - TreeTest.D:R:UniqueTree0 - TreeTest.D:R:KeyTree0 - TreeTest.D:R:EntityFieldTreetyp0 - TreeTest.D:R:PersistEntityBackendTree Warning: UniqueTest: could not find link destinations for: - UniqueTest.UniqueTestCheckmark - UniqueTest.TestCheckmarkKey - UniqueTest.unTestCheckmarkKey - UniqueTest.TestCheckmarkId - UniqueTest.TestCheckmarkName - UniqueTest.TestCheckmarkValue - UniqueTest.TestCheckmarkActive - UniqueTest.UniqueTestNull - UniqueTest.TestNullKey - UniqueTest.unTestNullKey - UniqueTest.TestNullId - UniqueTest.TestNullFieldA - UniqueTest.TestNullFieldB - UniqueTest.UniqueTestNonNull - UniqueTest.TestNonNullKey - UniqueTest.unTestNonNullKey - UniqueTest.TestNonNullId - UniqueTest.TestNonNullFieldA - UniqueTest.D:R:UniqueTestNonNull0 - UniqueTest.D:R:KeyTestNonNull0 - UniqueTest.D:R:EntityFieldTestNonNulltyp0 - UniqueTest.D:R:PersistEntityBackendTestNonNull - UniqueTest.D:R:UniqueTestNull0 - UniqueTest.D:R:KeyTestNull0 - UniqueTest.D:R:EntityFieldTestNulltyp0 - UniqueTest.D:R:PersistEntityBackendTestNull - UniqueTest.D:R:UniqueTestCheckmark0 - UniqueTest.D:R:KeyTestCheckmark0 - UniqueTest.D:R:EntityFieldTestCheckmarktyp0 - UniqueTest.D:R:PersistEntityBackendTestCheckmark Documentation created: dist/doc/html/persistent-test/, dist/doc/html/persistent-test/persistent-test.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/persistent-test-2.13.2.1-HqsWM2i0sju6B56jf2lUNO Completed persistent-test-2.13.2.1 Downloading serversession-1.0.3 Downloaded serversession-1.0.3 Configuring serversession-1.0.3... Preprocessing library for serversession-1.0.3.. Building library for serversession-1.0.3.. [1 of 3] Compiling Web.ServerSession.Core.Internal ( src/Web/ServerSession/Core/Internal.hs, dist/build/Web/ServerSession/Core/Internal.o, dist/build/Web/ServerSession/Core/Internal.dyn_o ) [2 of 3] Compiling Web.ServerSession.Core ( src/Web/ServerSession/Core.hs, dist/build/Web/ServerSession/Core.o, dist/build/Web/ServerSession/Core.dyn_o ) [3 of 3] Compiling Web.ServerSession.Core.StorageTests ( src/Web/ServerSession/Core/StorageTests.hs, dist/build/Web/ServerSession/Core/StorageTests.o, dist/build/Web/ServerSession/Core/StorageTests.dyn_o ) src/Web/ServerSession/Core/StorageTests.hs:47: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 | 47 | :: forall m sto. (Monad m, Storage sto, SessionData sto ~ SessionMap) | ^ src/Web/ServerSession/Core/StorageTests.hs:97:13: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type Maybe AuthId not matched: Nothing | 97 | let Just authId = sessionAuthId master | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Web/ServerSession/Core/StorageTests.hs:136:12: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type StorageException sto not matched: SessionDoesNotExist _ | 136 | (\(SessionAlreadyExists s1' s3' :: StorageException sto) -> | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^... src/Web/ServerSession/Core/StorageTests.hs:160:12: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type StorageException sto not matched: SessionAlreadyExists _ _ | 160 | (\(SessionDoesNotExist s' :: StorageException sto) -> s == s') | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Preprocessing library for serversession-1.0.3.. Running Haddock on library for serversession-1.0.3.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Web.ServerSession.Core.Internal ( src/Web/ServerSession/Core/Internal.hs, nothing ) [2 of 3] Compiling Web.ServerSession.Core ( src/Web/ServerSession/Core.hs, nothing ) [3 of 3] Compiling Web.ServerSession.Core.StorageTests ( src/Web/ServerSession/Core/StorageTests.hs, nothing ) src/Web/ServerSession/Core/StorageTests.hs:47: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 | 47 | :: forall m sto. (Monad m, Storage sto, SessionData sto ~ SessionMap) | ^ Haddock coverage: Warning: 'setHTTPOnlyCookies' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'State' is ambiguous. It is defined * at src/Web/ServerSession/Core/Internal.hs:398:3 * at src/Web/ServerSession/Core/Internal.hs:397:1 You may 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/ServerSession/Core/Internal.hs:397:1 Warning: 'SaveSessionToken' is ambiguous. It is defined * at src/Web/ServerSession/Core/Internal.hs:639:3 * at src/Web/ServerSession/Core/Internal.hs:638:1 You may 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/ServerSession/Core/Internal.hs:638:1 Warning: 'Session' is ambiguous. It is defined * at src/Web/ServerSession/Core/Internal.hs:132:3 * at src/Web/ServerSession/Core/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 src/Web/ServerSession/Core/Internal.hs:131:1 Warning: 'forceInvalidate' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SessionMap' is ambiguous. It is defined * at src/Web/ServerSession/Core/Internal.hs:158:3 * at src/Web/ServerSession/Core/Internal.hs:157:1 You may 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/ServerSession/Core/Internal.hs:157:1 100% ( 34 / 34) in 'Web.ServerSession.Core.Internal' 100% ( 31 / 31) in 'Web.ServerSession.Core' Warning: 'SessionMap' is ambiguous. It is defined * at src/Web/ServerSession/Core/Internal.hs:158:3 * at src/Web/ServerSession/Core/Internal.hs:157:1 You may 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/ServerSession/Core/Internal.hs:157:1 100% ( 2 / 2) in 'Web.ServerSession.Core.StorageTests' Warning: Web.ServerSession.Core.Internal: could not find link destinations for: - Web.ServerSession.Core.Internal.D:R:DecomposedSessionMap Warning: Web.ServerSession.Core: could not find link destinations for: - Web.ServerSession.Core.Internal.D:R:DecomposedSessionMap Documentation created: dist/doc/html/serversession/, dist/doc/html/serversession/serversession.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/serversession-1.0.3-ClWbWa5YRutBrHwLn1PBjM Completed serversession-1.0.3 Downloading serversession-backend-persistent-2.0.4 Downloaded serversession-backend-persistent-2.0.4 Configuring serversession-backend-persistent-2.0.4... Preprocessing library for serversession-backend-persistent-2.0.4.. Building library for serversession-backend-persistent-2.0.4.. [1 of 3] Compiling Web.ServerSession.Backend.Persistent.Internal.Types ( src/Web/ServerSession/Backend/Persistent/Internal/Types.hs, dist/build/Web/ServerSession/Backend/Persistent/Internal/Types.o, dist/build/Web/ServerSession/Backend/Persistent/Internal/Types.dyn_o ) [2 of 3] Compiling Web.ServerSession.Backend.Persistent.Internal.Impl ( src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs, dist/build/Web/ServerSession/Backend/Persistent/Internal/Impl.o, dist/build/Web/ServerSession/Backend/Persistent/Internal/Impl.dyn_o ) src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs:68:10: warning: [GHC-06201] [-Wmissing-methods] " No explicit implementation for tabulateEntityA and tabulateEntityApply " In the instance declaration for PersistEntity (PersistentSession sess) | 68 | instance forall sess. P.PersistFieldSql (Decomposed sess) => P.PersistEntity (PersistentSession sess) where | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [3 of 3] Compiling Web.ServerSession.Backend.Persistent ( src/Web/ServerSession/Backend/Persistent.hs, dist/build/Web/ServerSession/Backend/Persistent.o, dist/build/Web/ServerSession/Backend/Persistent.dyn_o ) Preprocessing library for serversession-backend-persistent-2.0.4.. Running Haddock on library for serversession-backend-persistent-2.0.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Web.ServerSession.Backend.Persistent.Internal.Types ( src/Web/ServerSession/Backend/Persistent/Internal/Types.hs, /tmp/ghc1539241_0/ghc_6.o, /tmp/ghc1539241_0/ghc_6.dyn_o ) [2 of 3] Compiling Web.ServerSession.Backend.Persistent.Internal.Impl ( src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs, /tmp/ghc1539241_0/ghc_4.o, /tmp/ghc1539241_0/ghc_4.dyn_o ) src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs:68:10: warning: [GHC-06201] [-Wmissing-methods] " No explicit implementation for tabulateEntityA and tabulateEntityApply " In the instance declaration for PersistEntity (PersistentSession sess) | 68 | instance forall sess. P.PersistFieldSql (Decomposed sess) => P.PersistEntity (PersistentSession sess) where | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [3 of 3] Compiling Web.ServerSession.Backend.Persistent ( src/Web/ServerSession/Backend/Persistent.hs, nothing ) Haddock coverage: Warning: 'SessionMap' is ambiguous. It is defined * in Web.ServerSession.Core.Internal * in Web.ServerSession.Core.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 Web.ServerSession.Core.Internal 100% ( 6 / 6) in 'Web.ServerSession.Backend.Persistent.Internal.Types' Warning: 'Session' is ambiguous. It is defined * in Web.ServerSession.Core.Internal * in Web.ServerSession.Core.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 Web.ServerSession.Core.Internal Warning: 'SqlStorage' is ambiguous. It is defined * at src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs:333:3 * at src/Web/ServerSession/Backend/Persistent/Internal/Impl.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/Web/ServerSession/Backend/Persistent/Internal/Impl.hs:332:1 Warning: 'SessionMap' is ambiguous. It is defined * in Web.ServerSession.Core.Internal * in Web.ServerSession.Core.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 Web.ServerSession.Core.Internal Warning: 'PersistentSession' is ambiguous. It is defined * at src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs:50:3 * at src/Web/ServerSession/Backend/Persistent/Internal/Impl.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 src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs:49:1 83% ( 10 / 12) in 'Web.ServerSession.Backend.Persistent.Internal.Impl' Missing documentation for: PersistentSessionId (src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs:66) PersistentSessionBySessionMap (src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs:274) Warning: 'serverSessionDefs' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 71% ( 5 / 7) in 'Web.ServerSession.Backend.Persistent' Missing documentation for: PersistentSessionId (src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs:66) PersistentSessionBySessionMap (src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs:274) Warning: Web.ServerSession.Backend.Persistent.Internal.Impl: could not find link destinations for: - Web.ServerSession.Backend.Persistent.Internal.Impl.PersistentSessionKey' - Web.ServerSession.Backend.Persistent.Internal.Impl.unPersistentSessionKey - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:UniquePersistentSession0 - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:KeyPersistentSession0 - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:EntityFieldPersistentSessiontyp0 - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:PersistEntityBackendPersistentSession - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:SessionDataSqlStorage - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:TransactionMSqlStorage Warning: Web.ServerSession.Backend.Persistent: could not find link destinations for: - Web.ServerSession.Backend.Persistent.Internal.Impl.PersistentSessionKey' - Web.ServerSession.Backend.Persistent.Internal.Impl.unPersistentSessionKey - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:UniquePersistentSession0 - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:KeyPersistentSession0 - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:EntityFieldPersistentSessiontyp0 - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:PersistEntityBackendPersistentSession - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:SessionDataSqlStorage - Web.ServerSession.Backend.Persistent.Internal.Impl.D:R:TransactionMSqlStorage Documentation created: dist/doc/html/serversession-backend-persistent/, dist/doc/html/serversession-backend-persistent/serversession-backend-persistent.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/serversession-backend-persistent-2.0.4-815hOjKKgYL9DbrvQIkdPx Completed serversession-backend-persistent-2.0.4