Resolving dependencies... Configuring OneTuple-0.4.2... Preprocessing library for OneTuple-0.4.2.. Building library for OneTuple-0.4.2.. [1 of 3] Compiling Data.Tuple.Solo ( src/Data/Tuple/Solo.hs, dist/build/Data/Tuple/Solo.o, dist/build/Data/Tuple/Solo.dyn_o ) [2 of 3] Compiling Data.Tuple.OneTuple ( src/Data/Tuple/OneTuple.hs, dist/build/Data/Tuple/OneTuple.o, dist/build/Data/Tuple/OneTuple.dyn_o ) [3 of 3] Compiling Data.Tuple.Solo.TH ( src/Data/Tuple/Solo/TH.hs, dist/build/Data/Tuple/Solo/TH.o, dist/build/Data/Tuple/Solo/TH.dyn_o ) Preprocessing library for OneTuple-0.4.2.. Running Haddock on library for OneTuple-0.4.2.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Data.Tuple.Solo ( src/Data/Tuple/Solo.hs, nothing ) [2 of 3] Compiling Data.Tuple.OneTuple ( src/Data/Tuple/OneTuple.hs, nothing ) [3 of 3] Compiling Data.Tuple.Solo.TH ( src/Data/Tuple/Solo/TH.hs, nothing ) Haddock coverage: Warning: 'Solo' is ambiguous. It is defined * in GHC.Tuple * in GHC.Tuple.Prim You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Tuple.Prim 100% ( 3 / 3) in 'Data.Tuple.Solo' 25% ( 1 / 4) in 'Data.Tuple.OneTuple' Missing documentation for: OneTuple (src/Data/Tuple/OneTuple.hs:21) OneTuple (src/Data/Tuple/OneTuple.hs:30) only (src/Data/Tuple/OneTuple.hs:24) Warning: 'Solo' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 50% ( 1 / 2) in 'Data.Tuple.Solo.TH' Missing documentation for: tupE Warning: Data.Tuple.Solo: could not find link destinations for: - GHC.Generics.Rep1_Solo - GHC.Generics.Rep_Solo Documentation created: dist/doc/html/OneTuple/, dist/doc/html/OneTuple/OneTuple.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/OneTuple-0.4.2-ATtFINcmw7oK2Yohb9PBmz Completed OneTuple-0.4.2 Configuring StateVar-1.2.2... Preprocessing library for StateVar-1.2.2.. Building library for StateVar-1.2.2.. [1 of 1] Compiling Data.StateVar ( src/Data/StateVar.hs, dist/build/Data/StateVar.o, dist/build/Data/StateVar.dyn_o ) src/Data/StateVar.hs:220:33: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 220 | default ($~) :: (MonadIO m, a ~ b, HasGetter t a) => t -> (a -> b) -> m () | ^ src/Data/StateVar.hs:226:34: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 226 | default ($~!) :: (MonadIO m, a ~ b, HasGetter t a) => t -> (a -> b) -> m () | ^ src/Data/StateVar.hs:230:32: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 230 | defaultUpdate :: (MonadIO m, a ~ b, HasGetter t a, HasSetter t a) => t -> (a -> b) -> m () | ^ src/Data/StateVar.hs:235:38: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 235 | defaultUpdateStrict :: (MonadIO m, a ~ b, HasGetter t a, HasSetter t a) => t -> (a -> b) -> m () | ^ Preprocessing library for StateVar-1.2.2.. Running Haddock on library for StateVar-1.2.2.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Data.StateVar ( src/Data/StateVar.hs, nothing ) src/Data/StateVar.hs:220:33: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 220 | default ($~) :: (MonadIO m, a ~ b, HasGetter t a) => t -> (a -> b) -> m () | ^ src/Data/StateVar.hs:226:34: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 226 | default ($~!) :: (MonadIO m, a ~ b, HasGetter t a) => t -> (a -> b) -> m () | ^ src/Data/StateVar.hs:230:32: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 230 | defaultUpdate :: (MonadIO m, a ~ b, HasGetter t a, HasSetter t a) => t -> (a -> b) -> m () | ^ src/Data/StateVar.hs:235:38: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 235 | defaultUpdateStrict :: (MonadIO m, a ~ b, HasGetter t a, HasSetter t a) => t -> (a -> b) -> m () | ^ Haddock coverage: Warning: 'StateVar' is ambiguous. It is defined * at src/Data/StateVar.hs:125:19 * at src/Data/StateVar.hs:125:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/StateVar.hs:125:1 Warning: 'SettableStateVar' is ambiguous. It is defined * at src/Data/StateVar.hs:148:30 * at src/Data/StateVar.hs:148:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/StateVar.hs:148:1 100% ( 15 / 15) in 'Data.StateVar' Documentation created: dist/doc/html/StateVar/, dist/doc/html/StateVar/StateVar.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/StateVar-1.2.2-FkX29h2fwdP2Mo2NQELJhZ Completed StateVar-1.2.2 Configuring assoc-1.1.1... Preprocessing library for assoc-1.1.1.. Building library for assoc-1.1.1.. [1 of 2] Compiling Data.Bifunctor.Assoc ( src/Data/Bifunctor/Assoc.hs, dist/build/Data/Bifunctor/Assoc.o, dist/build/Data/Bifunctor/Assoc.dyn_o ) [2 of 2] Compiling Data.Bifunctor.Swap ( src/Data/Bifunctor/Swap.hs, dist/build/Data/Bifunctor/Swap.o, dist/build/Data/Bifunctor/Swap.dyn_o ) Preprocessing library for assoc-1.1.1.. Running Haddock on library for assoc-1.1.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Data.Bifunctor.Assoc ( src/Data/Bifunctor/Assoc.hs, nothing ) [2 of 2] Compiling Data.Bifunctor.Swap ( src/Data/Bifunctor/Swap.hs, nothing ) Haddock coverage: 50% ( 1 / 2) in 'Data.Bifunctor.Assoc' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Bifunctor.Swap' Missing documentation for: Module header Documentation created: dist/doc/html/assoc/, dist/doc/html/assoc/assoc.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/assoc-1.1.1-IR5FZLHpO7uKvKwb4BxhYj Completed assoc-1.1.1 Configuring auto-update-0.2.6... Preprocessing library for auto-update-0.2.6.. Building library for auto-update-0.2.6.. [1 of 9] Compiling Control.AutoUpdate.Types ( Control/AutoUpdate/Types.hs, dist/build/Control/AutoUpdate/Types.o, dist/build/Control/AutoUpdate/Types.dyn_o ) [2 of 9] Compiling Control.AutoUpdate.Thread ( Control/AutoUpdate/Thread.hs, dist/build/Control/AutoUpdate/Thread.o, dist/build/Control/AutoUpdate/Thread.dyn_o ) [3 of 9] Compiling Control.AutoUpdate.Event ( Control/AutoUpdate/Event.hs, dist/build/Control/AutoUpdate/Event.o, dist/build/Control/AutoUpdate/Event.dyn_o ) [4 of 9] Compiling Control.AutoUpdate.Internal ( Control/AutoUpdate/Internal.hs, dist/build/Control/AutoUpdate/Internal.o, dist/build/Control/AutoUpdate/Internal.dyn_o ) [5 of 9] Compiling Control.AutoUpdate ( Control/AutoUpdate.hs, dist/build/Control/AutoUpdate.o, dist/build/Control/AutoUpdate.dyn_o ) [6 of 9] Compiling Control.Debounce.Internal ( Control/Debounce/Internal.hs, dist/build/Control/Debounce/Internal.o, dist/build/Control/Debounce/Internal.dyn_o ) [7 of 9] Compiling Control.Debounce ( Control/Debounce.hs, dist/build/Control/Debounce.o, dist/build/Control/Debounce.dyn_o ) [8 of 9] Compiling Control.Reaper.Internal ( Control/Reaper/Internal.hs, dist/build/Control/Reaper/Internal.o, dist/build/Control/Reaper/Internal.dyn_o ) [9 of 9] Compiling Control.Reaper ( Control/Reaper.hs, dist/build/Control/Reaper.o, dist/build/Control/Reaper.dyn_o ) Preprocessing library for auto-update-0.2.6.. Running Haddock on library for auto-update-0.2.6.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 9] Compiling Control.AutoUpdate.Types ( Control/AutoUpdate/Types.hs, nothing ) [2 of 9] Compiling Control.AutoUpdate.Thread ( Control/AutoUpdate/Thread.hs, nothing ) [3 of 9] Compiling Control.AutoUpdate.Event ( Control/AutoUpdate/Event.hs, nothing ) [4 of 9] Compiling Control.AutoUpdate.Internal ( Control/AutoUpdate/Internal.hs, nothing ) [5 of 9] Compiling Control.AutoUpdate ( Control/AutoUpdate.hs, nothing ) [6 of 9] Compiling Control.Debounce.Internal ( Control/Debounce/Internal.hs, nothing ) [7 of 9] Compiling Control.Debounce ( Control/Debounce.hs, nothing ) [8 of 9] Compiling Control.Reaper.Internal ( Control/Reaper/Internal.hs, nothing ) [9 of 9] Compiling Control.Reaper ( Control/Reaper.hs, nothing ) Haddock coverage: Warning: 'threadDelay' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'UpdateSettings' is ambiguous. It is defined * at Control/AutoUpdate/Types.hs:13:25 * at Control/AutoUpdate/Types.hs:13:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/AutoUpdate/Types.hs:13:1 Warning: 'UpdateState' is ambiguous. It is defined * at Control/AutoUpdate/Event.hs:43:5 * at Control/AutoUpdate/Event.hs:42:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/AutoUpdate/Event.hs:42:1 60% ( 3 / 5) in 'Control.AutoUpdate.Internal' Missing documentation for: Module header UpdateState (Control/AutoUpdate/Event.hs:42) Warning: 'IORef' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'getCurrentTime' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 83% ( 10 / 12) in 'Control.AutoUpdate' Missing documentation for: mkAutoUpdate (Control/AutoUpdate.hs:58) mkAutoUpdateWithModify (Control/AutoUpdate.hs:65) Warning: 'defaultDebounceSettings' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 87% ( 7 / 8) in 'Control.Debounce.Internal' Missing documentation for: mkDebounceInternal (Control/Debounce/Internal.hs:167) Warning: 'debounceAction' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'debounceFreq' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'debounceEdge' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'DebounceSettings' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 16 / 16) in 'Control.Debounce' Warning: 'reaperEmpty' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'reaperAction' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'reaperNull' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 50% ( 1 / 2) in 'Control.Reaper.Internal' Missing documentation for: Module header Warning: 'Reaper' is ambiguous. It is defined * at Control/Reaper/Internal.hs:4:29 * at Control/Reaper/Internal.hs:4:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Reaper/Internal.hs:4:1 100% ( 24 / 24) in 'Control.Reaper' Documentation created: dist/doc/html/auto-update/, dist/doc/html/auto-update/auto-update.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/auto-update-0.2.6-Ehn22ADx6c0KLKy1In2HqR Completed auto-update-0.2.6 Configuring base-orphans-0.9.3... Preprocessing library for base-orphans-0.9.3.. Building library for base-orphans-0.9.3.. [1 of 2] Compiling Data.Orphans.Prelude ( src/Data/Orphans/Prelude.hs, dist/build/Data/Orphans/Prelude.o, dist/build/Data/Orphans/Prelude.dyn_o ) [2 of 2] Compiling Data.Orphans ( src/Data/Orphans.hs, dist/build/Data/Orphans.o, dist/build/Data/Orphans.dyn_o ) Preprocessing library for base-orphans-0.9.3.. Running Haddock on library for base-orphans-0.9.3.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Data.Orphans.Prelude ( src/Data/Orphans/Prelude.hs, nothing ) [2 of 2] Compiling Data.Orphans ( src/Data/Orphans.hs, nothing ) Haddock coverage: 100% ( 1 / 1) in 'Data.Orphans' Documentation created: dist/doc/html/base-orphans/, dist/doc/html/base-orphans/base-orphans.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/base-orphans-0.9.3-FO1MOLOK3e83158jMAOVc9 Completed base-orphans-0.9.3 Configuring base64-bytestring-1.2.1.0... Preprocessing library for base64-bytestring-1.2.1.0.. Building library for base64-bytestring-1.2.1.0.. [1 of 5] Compiling Data.ByteString.Base64.Internal ( Data/ByteString/Base64/Internal.hs, dist/build/Data/ByteString/Base64/Internal.o, dist/build/Data/ByteString/Base64/Internal.dyn_o ) [2 of 5] Compiling Data.ByteString.Base64 ( Data/ByteString/Base64.hs, dist/build/Data/ByteString/Base64.o, dist/build/Data/ByteString/Base64.dyn_o ) [3 of 5] Compiling Data.ByteString.Base64.Lazy ( Data/ByteString/Base64/Lazy.hs, dist/build/Data/ByteString/Base64/Lazy.o, dist/build/Data/ByteString/Base64/Lazy.dyn_o ) [4 of 5] Compiling Data.ByteString.Base64.URL ( Data/ByteString/Base64/URL.hs, dist/build/Data/ByteString/Base64/URL.o, dist/build/Data/ByteString/Base64/URL.dyn_o ) [5 of 5] Compiling Data.ByteString.Base64.URL.Lazy ( Data/ByteString/Base64/URL/Lazy.hs, dist/build/Data/ByteString/Base64/URL/Lazy.o, dist/build/Data/ByteString/Base64/URL/Lazy.dyn_o ) Preprocessing library for base64-bytestring-1.2.1.0.. Running Haddock on library for base64-bytestring-1.2.1.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling Data.ByteString.Base64.Internal ( Data/ByteString/Base64/Internal.hs, nothing ) [2 of 5] Compiling Data.ByteString.Base64 ( Data/ByteString/Base64.hs, nothing ) [3 of 5] Compiling Data.ByteString.Base64.Lazy ( Data/ByteString/Base64/Lazy.hs, nothing ) [4 of 5] Compiling Data.ByteString.Base64.URL ( Data/ByteString/Base64/URL.hs, nothing ) [5 of 5] Compiling Data.ByteString.Base64.URL.Lazy ( Data/ByteString/Base64/URL/Lazy.hs, nothing ) Haddock coverage: 100% ( 4 / 4) in 'Data.ByteString.Base64' 100% ( 4 / 4) in 'Data.ByteString.Base64.Lazy' 100% ( 7 / 7) in 'Data.ByteString.Base64.URL' 100% ( 7 / 7) in 'Data.ByteString.Base64.URL.Lazy' Documentation created: dist/doc/html/base64-bytestring/, dist/doc/html/base64-bytestring/base64-bytestring.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/base64-bytestring-1.2.1.0-AIN2dTo0IeiEPRnFKNxiRV Completed base64-bytestring-1.2.1.0 Configuring blaze-builder-0.4.4.1... Preprocessing library for blaze-builder-0.4.4.1.. Building library for blaze-builder-0.4.4.1.. [ 1 of 11] Compiling Blaze.ByteString.Builder.Internal.Write ( Blaze/ByteString/Builder/Internal/Write.hs, dist/build/Blaze/ByteString/Builder/Internal/Write.o, dist/build/Blaze/ByteString/Builder/Internal/Write.dyn_o ) [ 2 of 11] Compiling Blaze.ByteString.Builder.Compat.Write ( Blaze/ByteString/Builder/Compat/Write.hs, dist/build/Blaze/ByteString/Builder/Compat/Write.o, dist/build/Blaze/ByteString/Builder/Compat/Write.dyn_o ) [ 3 of 11] Compiling Blaze.ByteString.Builder.Int ( Blaze/ByteString/Builder/Int.hs, dist/build/Blaze/ByteString/Builder/Int.o, dist/build/Blaze/ByteString/Builder/Int.dyn_o ) [ 4 of 11] Compiling Blaze.ByteString.Builder.Html.Word ( Blaze/ByteString/Builder/Html/Word.hs, dist/build/Blaze/ByteString/Builder/Html/Word.o, dist/build/Blaze/ByteString/Builder/Html/Word.dyn_o ) [ 5 of 11] Compiling Blaze.ByteString.Builder.Char8 ( Blaze/ByteString/Builder/Char8.hs, dist/build/Blaze/ByteString/Builder/Char8.o, dist/build/Blaze/ByteString/Builder/Char8.dyn_o ) [ 6 of 11] Compiling Blaze.ByteString.Builder.Char.Utf8 ( Blaze/ByteString/Builder/Char/Utf8.hs, dist/build/Blaze/ByteString/Builder/Char/Utf8.o, dist/build/Blaze/ByteString/Builder/Char/Utf8.dyn_o ) [ 7 of 11] Compiling Blaze.ByteString.Builder.Html.Utf8 ( Blaze/ByteString/Builder/Html/Utf8.hs, dist/build/Blaze/ByteString/Builder/Html/Utf8.o, dist/build/Blaze/ByteString/Builder/Html/Utf8.dyn_o ) [ 8 of 11] Compiling Blaze.ByteString.Builder.ByteString ( Blaze/ByteString/Builder/ByteString.hs, dist/build/Blaze/ByteString/Builder/ByteString.o, dist/build/Blaze/ByteString/Builder/ByteString.dyn_o ) [ 9 of 11] Compiling Blaze.ByteString.Builder.HTTP ( Blaze/ByteString/Builder/HTTP.hs, dist/build/Blaze/ByteString/Builder/HTTP.o, dist/build/Blaze/ByteString/Builder/HTTP.dyn_o ) [10 of 11] Compiling Blaze.ByteString.Builder.Word ( Blaze/ByteString/Builder/Word.hs, dist/build/Blaze/ByteString/Builder/Word.o, dist/build/Blaze/ByteString/Builder/Word.dyn_o ) [11 of 11] Compiling Blaze.ByteString.Builder ( Blaze/ByteString/Builder.hs, dist/build/Blaze/ByteString/Builder.o, dist/build/Blaze/ByteString/Builder.dyn_o ) Preprocessing library for blaze-builder-0.4.4.1.. Running Haddock on library for blaze-builder-0.4.4.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 11] Compiling Blaze.ByteString.Builder.Internal.Write ( Blaze/ByteString/Builder/Internal/Write.hs, nothing ) [ 2 of 11] Compiling Blaze.ByteString.Builder.Compat.Write ( Blaze/ByteString/Builder/Compat/Write.hs, nothing ) [ 3 of 11] Compiling Blaze.ByteString.Builder.Int ( Blaze/ByteString/Builder/Int.hs, nothing ) [ 4 of 11] Compiling Blaze.ByteString.Builder.Html.Word ( Blaze/ByteString/Builder/Html/Word.hs, nothing ) [ 5 of 11] Compiling Blaze.ByteString.Builder.Char8 ( Blaze/ByteString/Builder/Char8.hs, nothing ) [ 6 of 11] Compiling Blaze.ByteString.Builder.Char.Utf8 ( Blaze/ByteString/Builder/Char/Utf8.hs, nothing ) [ 7 of 11] Compiling Blaze.ByteString.Builder.Html.Utf8 ( Blaze/ByteString/Builder/Html/Utf8.hs, nothing ) [ 8 of 11] Compiling Blaze.ByteString.Builder.ByteString ( Blaze/ByteString/Builder/ByteString.hs, nothing ) [ 9 of 11] Compiling Blaze.ByteString.Builder.HTTP ( Blaze/ByteString/Builder/HTTP.hs, nothing ) [10 of 11] Compiling Blaze.ByteString.Builder.Word ( Blaze/ByteString/Builder/Word.hs, nothing ) [11 of 11] Compiling Blaze.ByteString.Builder ( Blaze/ByteString/Builder.hs, nothing ) Haddock coverage: Warning: 'Poke' is ambiguous. It is defined * at Blaze/ByteString/Builder/Internal/Write.hs:77:5 * at Blaze/ByteString/Builder/Internal/Write.hs:76:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Blaze/ByteString/Builder/Internal/Write.hs:76:1 Warning: 'Write' is ambiguous. It is defined * at Blaze/ByteString/Builder/Internal/Write.hs:93:14 * at Blaze/ByteString/Builder/Internal/Write.hs:93:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Blaze/ByteString/Builder/Internal/Write.hs:93:1 96% ( 24 / 25) in 'Blaze.ByteString.Builder.Internal.Write' Missing documentation for: fromWriteSingleton (Blaze/ByteString/Builder/Internal/Write.hs:245) 50% ( 2 / 4) in 'Blaze.ByteString.Builder.Compat.Write' Missing documentation for: writePrimFixed (Blaze/ByteString/Builder/Compat/Write.hs:25) writePrimBounded (Blaze/ByteString/Builder/Compat/Write.hs:29) 100% ( 43 / 43) in 'Blaze.ByteString.Builder.Int' 88% ( 8 / 9) in 'Blaze.ByteString.Builder.Html.Word' Missing documentation for: wordHtmlEscaped (Blaze/ByteString/Builder/Html/Word.hs:40) Warning: 'bytestring' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 9 / 9) in 'Blaze.ByteString.Builder.Char8' 100% ( 9 / 9) in 'Blaze.ByteString.Builder.Char.Utf8' Warning: 'Builder' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 10 / 10) in 'Blaze.ByteString.Builder.Html.Utf8' 100% ( 12 / 12) in 'Blaze.ByteString.Builder.ByteString' 100% ( 4 / 4) in 'Blaze.ByteString.Builder.HTTP' 100% ( 43 / 43) in 'Blaze.ByteString.Builder.Word' Warning: 'fromString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'toLazyByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Write' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'fromWrite' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 91% ( 22 / 24) in 'Blaze.ByteString.Builder' Missing documentation for: toByteStringIOWith (Blaze/ByteString/Builder.hs:187) fromWriteSingleton (Blaze/ByteString/Builder/Internal/Write.hs:245) Documentation created: dist/doc/html/blaze-builder/, dist/doc/html/blaze-builder/blaze-builder.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/blaze-builder-0.4.4.1-8j2XeR06mxnJMf1nnbZvi2 Completed blaze-builder-0.4.4.1 Configuring call-stack-0.4.0... Preprocessing library for call-stack-0.4.0.. Building library for call-stack-0.4.0.. [1 of 3] Compiling Data.SrcLoc ( src/Data/SrcLoc.hs, dist/build/Data/SrcLoc.o, dist/build/Data/SrcLoc.dyn_o ) [2 of 3] Compiling Data.CallStack ( src/Data/CallStack.hs, dist/build/Data/CallStack.o, dist/build/Data/CallStack.dyn_o ) [3 of 3] Compiling Paths_call_stack ( dist/build/autogen/Paths_call_stack.hs, dist/build/Paths_call_stack.o, dist/build/Paths_call_stack.dyn_o ) Preprocessing library for call-stack-0.4.0.. Running Haddock on library for call-stack-0.4.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Data.SrcLoc ( src/Data/SrcLoc.hs, nothing ) [2 of 3] Compiling Data.CallStack ( src/Data/CallStack.hs, nothing ) [3 of 3] Compiling Paths_call_stack ( dist/build/autogen/Paths_call_stack.hs, nothing ) Haddock coverage: 33% ( 2 / 6) in 'Data.CallStack' Missing documentation for: Module header CallStack (src/Data/CallStack.hs:42) callStack (src/Data/CallStack.hs:45) callSite (src/Data/CallStack.hs:55) Warning: Data.CallStack: could not find link destinations for: - GHC.Generics.Rep_SrcLoc Documentation created: dist/doc/html/call-stack/, dist/doc/html/call-stack/call-stack.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/call-stack-0.4.0-6toa6qiMTfCIj9v12ifnhn Completed call-stack-0.4.0 Configuring character-ps-0.1... Preprocessing library for character-ps-0.1.. Building library for character-ps-0.1.. [1 of 3] Compiling Data.Char.Patterns ( src/Data/Char/Patterns.hs, dist/build/Data/Char/Patterns.o, dist/build/Data/Char/Patterns.dyn_o ) [2 of 3] Compiling Data.Word16.Patterns ( src/Data/Word16/Patterns.hs, dist/build/Data/Word16/Patterns.o, dist/build/Data/Word16/Patterns.dyn_o ) [3 of 3] Compiling Data.Word8.Patterns ( src/Data/Word8/Patterns.hs, dist/build/Data/Word8/Patterns.o, dist/build/Data/Word8/Patterns.dyn_o ) Preprocessing library for character-ps-0.1.. Running Haddock on library for character-ps-0.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Data.Char.Patterns ( src/Data/Char/Patterns.hs, nothing ) [2 of 3] Compiling Data.Word16.Patterns ( src/Data/Word16/Patterns.hs, nothing ) [3 of 3] Compiling Data.Word8.Patterns ( src/Data/Word8/Patterns.hs, nothing ) Haddock coverage: 100% (137 /137) in 'Data.Char.Patterns' 100% (137 /137) in 'Data.Word16.Patterns' 100% (137 /137) in 'Data.Word8.Patterns' Documentation created: dist/doc/html/character-ps/, dist/doc/html/character-ps/character-ps.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/character-ps-0.1-AUtJVqsxjke1Iwdfhhw7tZ Completed character-ps-0.1 Configuring colour-2.3.6... Preprocessing library for colour-2.3.6.. Building library for colour-2.3.6.. [ 1 of 14] Compiling Data.Colour.CIE.Chromaticity ( Data/Colour/CIE/Chromaticity.hs, dist/build/Data/Colour/CIE/Chromaticity.o, dist/build/Data/Colour/CIE/Chromaticity.dyn_o ) [ 2 of 14] Compiling Data.Colour.CIE.Illuminant ( Data/Colour/CIE/Illuminant.hs, dist/build/Data/Colour/CIE/Illuminant.o, dist/build/Data/Colour/CIE/Illuminant.dyn_o ) [ 3 of 14] Compiling Data.Colour.Chan ( Data/Colour/Chan.hs, dist/build/Data/Colour/Chan.o, dist/build/Data/Colour/Chan.dyn_o ) [ 4 of 14] Compiling Data.Colour.Internal ( Data/Colour/Internal.hs, dist/build/Data/Colour/Internal.o, dist/build/Data/Colour/Internal.dyn_o ) [ 5 of 14] Compiling Data.Colour.Matrix ( Data/Colour/Matrix.hs, dist/build/Data/Colour/Matrix.o, dist/build/Data/Colour/Matrix.dyn_o ) [ 6 of 14] Compiling Data.Colour.RGB ( Data/Colour/RGB.hs, dist/build/Data/Colour/RGB.o, dist/build/Data/Colour/RGB.dyn_o ) [ 7 of 14] Compiling Data.Colour.RGBSpace.HSL ( Data/Colour/RGBSpace/HSL.hs, dist/build/Data/Colour/RGBSpace/HSL.o, dist/build/Data/Colour/RGBSpace/HSL.dyn_o ) [ 8 of 14] Compiling Data.Colour.RGBSpace.HSV ( Data/Colour/RGBSpace/HSV.hs, dist/build/Data/Colour/RGBSpace/HSV.o, dist/build/Data/Colour/RGBSpace/HSV.dyn_o ) [ 9 of 14] Compiling Data.Colour.SRGB.Linear ( Data/Colour/SRGB/Linear.hs, dist/build/Data/Colour/SRGB/Linear.o, dist/build/Data/Colour/SRGB/Linear.dyn_o ) [10 of 14] Compiling Data.Colour.RGBSpace ( Data/Colour/RGBSpace.hs, dist/build/Data/Colour/RGBSpace.o, dist/build/Data/Colour/RGBSpace.dyn_o ) [11 of 14] Compiling Data.Colour.SRGB ( Data/Colour/SRGB.hs, dist/build/Data/Colour/SRGB.o, dist/build/Data/Colour/SRGB.dyn_o ) Data/Colour/SRGB.hs:117:8: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 117 | x' | head x == '#' = tail x | ^^^^ Data/Colour/SRGB.hs:117:24: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 117 | x' | head x == '#' = tail x | ^^^^ Data/Colour/SRGB.hs:127:50: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 127 | sRGB24read x | length rx /= 1 || not (null (snd (head rx))) = | ^^^^ Data/Colour/SRGB.hs:129:33: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 129 | | otherwise = fst (head rx) | ^^^^ [12 of 14] Compiling Data.Colour ( Data/Colour.hs, dist/build/Data/Colour.o, dist/build/Data/Colour.dyn_o ) [13 of 14] Compiling Data.Colour.Names ( Data/Colour/Names.hs, dist/build/Data/Colour/Names.o, dist/build/Data/Colour/Names.dyn_o ) [14 of 14] Compiling Data.Colour.CIE ( Data/Colour/CIE.hs, dist/build/Data/Colour/CIE.o, dist/build/Data/Colour/CIE.dyn_o ) Preprocessing library for colour-2.3.6.. Running Haddock on library for colour-2.3.6.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 14] Compiling Data.Colour.CIE.Chromaticity ( Data/Colour/CIE/Chromaticity.hs, nothing ) [ 2 of 14] Compiling Data.Colour.CIE.Illuminant ( Data/Colour/CIE/Illuminant.hs, nothing ) [ 3 of 14] Compiling Data.Colour.Chan ( Data/Colour/Chan.hs, nothing ) [ 4 of 14] Compiling Data.Colour.Internal ( Data/Colour/Internal.hs, nothing ) [ 5 of 14] Compiling Data.Colour.Matrix ( Data/Colour/Matrix.hs, nothing ) [ 6 of 14] Compiling Data.Colour.RGB ( Data/Colour/RGB.hs, nothing ) [ 7 of 14] Compiling Data.Colour.RGBSpace.HSL ( Data/Colour/RGBSpace/HSL.hs, nothing ) [ 8 of 14] Compiling Data.Colour.RGBSpace.HSV ( Data/Colour/RGBSpace/HSV.hs, nothing ) [ 9 of 14] Compiling Data.Colour.SRGB.Linear ( Data/Colour/SRGB/Linear.hs, nothing ) [10 of 14] Compiling Data.Colour.RGBSpace ( Data/Colour/RGBSpace.hs, nothing ) [11 of 14] Compiling Data.Colour.SRGB ( Data/Colour/SRGB.hs, nothing ) Data/Colour/SRGB.hs:117:8: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 117 | x' | head x == '#' = tail x | ^^^^ Data/Colour/SRGB.hs:117:24: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 117 | x' | head x == '#' = tail x | ^^^^ Data/Colour/SRGB.hs:127:50: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 127 | sRGB24read x | length rx /= 1 || not (null (snd (head rx))) = | ^^^^ Data/Colour/SRGB.hs:129:33: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 129 | | otherwise = fst (head rx) | ^^^^ [12 of 14] Compiling Data.Colour ( Data/Colour.hs, nothing ) [13 of 14] Compiling Data.Colour.Names ( Data/Colour/Names.hs, nothing ) [14 of 14] Compiling Data.Colour.CIE ( Data/Colour/CIE.hs, nothing ) Haddock coverage: 100% ( 21 / 21) in 'Data.Colour.CIE.Illuminant' Warning: 'RGBGamut' is ambiguous. It is defined * at Data/Colour/RGB.hs:54:17 * at Data/Colour/RGB.hs:54:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Colour/RGB.hs:54:1 Warning: 'RGB' is ambiguous. It is defined * at Data/Colour/RGB.hs:30:14 * at Data/Colour/RGB.hs:30:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Colour/RGB.hs:30:1 Warning: 'RGB' is ambiguous. It is defined * at Data/Colour/RGB.hs:30:14 * at Data/Colour/RGB.hs:30:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Colour/RGB.hs:30:1 85% ( 6 / 7) in 'Data.Colour.RGBSpace.HSL' Missing documentation for: Module header Warning: 'RGB' is ambiguous. It is defined * at Data/Colour/RGB.hs:30:14 * at Data/Colour/RGB.hs:30:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Colour/RGB.hs:30:1 85% ( 6 / 7) in 'Data.Colour.RGBSpace.HSV' Missing documentation for: Module header 100% ( 6 / 6) in 'Data.Colour.SRGB.Linear' Warning: 'RGBSpace' is ambiguous. It is defined * at Data/Colour/RGBSpace.hs:122:19 * at Data/Colour/RGBSpace.hs:122:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Colour/RGBSpace.hs:122:1 Warning: 'TransferFunction' is ambiguous. It is defined * at Data/Colour/RGBSpace.hs:92:27 * at Data/Colour/RGBSpace.hs:92:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Colour/RGBSpace.hs:92:1 Warning: 'RGB' is ambiguous. It is defined * at Data/Colour/RGB.hs:30:14 * at Data/Colour/RGB.hs:30:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Colour/RGB.hs:30:1 Warning: 'RGBGamut' is ambiguous. It is defined * at Data/Colour/RGB.hs:54:17 * at Data/Colour/RGB.hs:54:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Colour/RGB.hs:54:1 83% ( 20 / 24) in 'Data.Colour.RGBSpace' Missing documentation for: primaries whitePoint gamut transferFunction 100% ( 14 / 14) in 'Data.Colour.SRGB' 85% ( 17 / 20) in 'Data.Colour' Missing documentation for: black (Data/Colour/Internal.hs:53) AffineSpace (Data/Colour/Internal.hs:110) ColourOps (Data/Colour/Internal.hs:147) 0% ( 1 /149) in 'Data.Colour.Names' Missing documentation for: readColourName (Data/Colour/Names.hs:190) aliceblue (Data/Colour/Names.hs:341) antiquewhite (Data/Colour/Names.hs:344) aqua (Data/Colour/Names.hs:347) aquamarine (Data/Colour/Names.hs:350) azure (Data/Colour/Names.hs:353) beige (Data/Colour/Names.hs:356) bisque (Data/Colour/Names.hs:359) black (Data/Colour/Internal.hs:53) blanchedalmond (Data/Colour/Names.hs:364) blue (Data/Colour/Names.hs:367) blueviolet (Data/Colour/Names.hs:370) brown (Data/Colour/Names.hs:373) burlywood (Data/Colour/Names.hs:376) cadetblue (Data/Colour/Names.hs:379) chartreuse (Data/Colour/Names.hs:382) chocolate (Data/Colour/Names.hs:385) coral (Data/Colour/Names.hs:388) cornflowerblue (Data/Colour/Names.hs:391) cornsilk (Data/Colour/Names.hs:394) crimson (Data/Colour/Names.hs:397) cyan (Data/Colour/Names.hs:400) darkblue (Data/Colour/Names.hs:403) darkcyan (Data/Colour/Names.hs:406) darkgoldenrod (Data/Colour/Names.hs:409) darkgray (Data/Colour/Names.hs:412) darkgreen (Data/Colour/Names.hs:415) darkgrey (Data/Colour/Names.hs:418) darkkhaki (Data/Colour/Names.hs:421) darkmagenta (Data/Colour/Names.hs:424) darkolivegreen (Data/Colour/Names.hs:427) darkorange (Data/Colour/Names.hs:430) darkorchid (Data/Colour/Names.hs:433) darkred (Data/Colour/Names.hs:436) darksalmon (Data/Colour/Names.hs:439) darkseagreen (Data/Colour/Names.hs:442) darkslateblue (Data/Colour/Names.hs:445) darkslategray (Data/Colour/Names.hs:448) darkslategrey (Data/Colour/Names.hs:451) darkturquoise (Data/Colour/Names.hs:454) darkviolet (Data/Colour/Names.hs:457) deeppink (Data/Colour/Names.hs:460) deepskyblue (Data/Colour/Names.hs:463) dimgray (Data/Colour/Names.hs:466) dimgrey (Data/Colour/Names.hs:469) dodgerblue (Data/Colour/Names.hs:472) firebrick (Data/Colour/Names.hs:475) floralwhite (Data/Colour/Names.hs:478) forestgreen (Data/Colour/Names.hs:481) fuchsia (Data/Colour/Names.hs:484) gainsboro (Data/Colour/Names.hs:487) ghostwhite (Data/Colour/Names.hs:490) gold (Data/Colour/Names.hs:493) goldenrod (Data/Colour/Names.hs:496) gray (Data/Colour/Names.hs:499) grey (Data/Colour/Names.hs:502) green (Data/Colour/Names.hs:505) greenyellow (Data/Colour/Names.hs:508) honeydew (Data/Colour/Names.hs:511) hotpink (Data/Colour/Names.hs:514) indianred (Data/Colour/Names.hs:517) indigo (Data/Colour/Names.hs:520) ivory (Data/Colour/Names.hs:523) khaki (Data/Colour/Names.hs:526) lavender (Data/Colour/Names.hs:529) lavenderblush (Data/Colour/Names.hs:532) lawngreen (Data/Colour/Names.hs:535) lemonchiffon (Data/Colour/Names.hs:538) lightblue (Data/Colour/Names.hs:541) lightcoral (Data/Colour/Names.hs:544) lightcyan (Data/Colour/Names.hs:547) lightgoldenrodyellow (Data/Colour/Names.hs:550) lightgray (Data/Colour/Names.hs:553) lightgreen (Data/Colour/Names.hs:556) lightgrey (Data/Colour/Names.hs:559) lightpink (Data/Colour/Names.hs:562) lightsalmon (Data/Colour/Names.hs:565) lightseagreen (Data/Colour/Names.hs:568) lightskyblue (Data/Colour/Names.hs:571) lightslategray (Data/Colour/Names.hs:574) lightslategrey (Data/Colour/Names.hs:577) lightsteelblue (Data/Colour/Names.hs:580) lightyellow (Data/Colour/Names.hs:583) lime (Data/Colour/Names.hs:586) limegreen (Data/Colour/Names.hs:589) linen (Data/Colour/Names.hs:592) magenta (Data/Colour/Names.hs:595) maroon (Data/Colour/Names.hs:598) mediumaquamarine (Data/Colour/Names.hs:601) mediumblue (Data/Colour/Names.hs:604) mediumorchid (Data/Colour/Names.hs:607) mediumpurple (Data/Colour/Names.hs:610) mediumseagreen (Data/Colour/Names.hs:613) mediumslateblue (Data/Colour/Names.hs:616) mediumspringgreen (Data/Colour/Names.hs:619) mediumturquoise (Data/Colour/Names.hs:622) mediumvioletred (Data/Colour/Names.hs:625) midnightblue (Data/Colour/Names.hs:628) mintcream (Data/Colour/Names.hs:631) mistyrose (Data/Colour/Names.hs:634) moccasin (Data/Colour/Names.hs:637) navajowhite (Data/Colour/Names.hs:640) navy (Data/Colour/Names.hs:643) oldlace (Data/Colour/Names.hs:646) olive (Data/Colour/Names.hs:649) olivedrab (Data/Colour/Names.hs:652) orange (Data/Colour/Names.hs:655) orangered (Data/Colour/Names.hs:658) orchid (Data/Colour/Names.hs:661) palegoldenrod (Data/Colour/Names.hs:664) palegreen (Data/Colour/Names.hs:667) paleturquoise (Data/Colour/Names.hs:670) palevioletred (Data/Colour/Names.hs:673) papayawhip (Data/Colour/Names.hs:676) peachpuff (Data/Colour/Names.hs:679) peru (Data/Colour/Names.hs:682) pink (Data/Colour/Names.hs:685) plum (Data/Colour/Names.hs:688) powderblue (Data/Colour/Names.hs:691) purple (Data/Colour/Names.hs:694) red (Data/Colour/Names.hs:697) rosybrown (Data/Colour/Names.hs:700) royalblue (Data/Colour/Names.hs:703) saddlebrown (Data/Colour/Names.hs:706) salmon (Data/Colour/Names.hs:709) sandybrown (Data/Colour/Names.hs:712) seagreen (Data/Colour/Names.hs:715) seashell (Data/Colour/Names.hs:718) sienna (Data/Colour/Names.hs:721) silver (Data/Colour/Names.hs:724) skyblue (Data/Colour/Names.hs:727) slateblue (Data/Colour/Names.hs:730) slategray (Data/Colour/Names.hs:733) slategrey (Data/Colour/Names.hs:736) snow (Data/Colour/Names.hs:739) springgreen (Data/Colour/Names.hs:742) steelblue (Data/Colour/Names.hs:745) tan (Data/Colour/Names.hs:748) teal (Data/Colour/Names.hs:751) thistle (Data/Colour/Names.hs:754) tomato (Data/Colour/Names.hs:757) turquoise (Data/Colour/Names.hs:760) violet (Data/Colour/Names.hs:763) wheat (Data/Colour/Names.hs:766) white (Data/Colour/Names.hs:769) whitesmoke (Data/Colour/Names.hs:772) yellow (Data/Colour/Names.hs:775) yellowgreen (Data/Colour/Names.hs:778) Warning: 'toCIEXYZ' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'cieXYZView' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 88% ( 15 / 17) in 'Data.Colour.CIE' Missing documentation for: toCIEXYZ (Data/Colour/CIE.hs:65) Chromaticity (Data/Colour/CIE/Chromaticity.hs:25) Documentation created: dist/doc/html/colour/, dist/doc/html/colour/colour.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/colour-2.3.6-JegldMtiv9a8c4VaIBFkGx Completed colour-2.3.6 Configuring data-default-0.8.0.1... Preprocessing library for data-default-0.8.0.1.. Building library for data-default-0.8.0.1.. [1 of 2] Compiling Data.Default.Internal ( Data/Default/Internal.hs, dist/build/Data/Default/Internal.o, dist/build/Data/Default/Internal.dyn_o ) [2 of 2] Compiling Data.Default ( Data/Default.hs, dist/build/Data/Default.o, dist/build/Data/Default.dyn_o ) Preprocessing library for data-default-0.8.0.1.. Running Haddock on library for data-default-0.8.0.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Data.Default.Internal ( Data/Default/Internal.hs, nothing ) [2 of 2] Compiling Data.Default ( Data/Default.hs, nothing ) Haddock coverage: 100% ( 3 / 3) in 'Data.Default.Internal' 100% ( 2 / 2) in 'Data.Default' Documentation created: dist/doc/html/data-default/, dist/doc/html/data-default/data-default.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/data-default-0.8.0.1-1xCv6D5orjY6O9aT2YDXOA Completed data-default-0.8.0.1 Configuring dlist-1.0... Preprocessing library for dlist-1.0.. Building library for dlist-1.0.. [1 of 5] Compiling Data.DList.Internal ( Data/DList/Internal.hs, dist/build/Data/DList/Internal.o, dist/build/Data/DList/Internal.dyn_o ) Data/DList/Internal.hs:642:12: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 642 | instance a ~ Char => IsString (DList a) where | ^ [2 of 5] Compiling Data.DList ( Data/DList.hs, dist/build/Data/DList.o, dist/build/Data/DList.dyn_o ) [3 of 5] Compiling Data.DList.DNonEmpty.Internal ( Data/DList/DNonEmpty/Internal.hs, dist/build/Data/DList/DNonEmpty/Internal.o, dist/build/Data/DList/DNonEmpty/Internal.dyn_o ) Data/DList/DNonEmpty/Internal.hs:459:12: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 459 | instance a ~ Char => IsString (DNonEmpty a) where | ^ [4 of 5] Compiling Data.DList.DNonEmpty ( Data/DList/DNonEmpty.hs, dist/build/Data/DList/DNonEmpty.o, dist/build/Data/DList/DNonEmpty.dyn_o ) [5 of 5] Compiling Data.DList.Unsafe ( Data/DList/Unsafe.hs, dist/build/Data/DList/Unsafe.o, dist/build/Data/DList/Unsafe.dyn_o ) Preprocessing library for dlist-1.0.. Running Haddock on library for dlist-1.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling Data.DList.Internal ( Data/DList/Internal.hs, nothing ) Data/DList/Internal.hs:642:12: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 642 | instance a ~ Char => IsString (DList a) where | ^ [2 of 5] Compiling Data.DList ( Data/DList.hs, nothing ) [3 of 5] Compiling Data.DList.DNonEmpty.Internal ( Data/DList/DNonEmpty/Internal.hs, nothing ) Data/DList/DNonEmpty/Internal.hs:459:12: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 459 | instance a ~ Char => IsString (DNonEmpty a) where | ^ [4 of 5] Compiling Data.DList.DNonEmpty ( Data/DList/DNonEmpty.hs, nothing ) [5 of 5] Compiling Data.DList.Unsafe ( Data/DList/Unsafe.hs, nothing ) Haddock coverage: 100% ( 21 / 21) in 'Data.DList' 100% ( 17 / 17) in 'Data.DList.DNonEmpty' Warning: Data.DList: could not find link destinations for: - Data.DList.Internal.D:R:ItemDList Warning: Data.DList.DNonEmpty: could not find link destinations for: - Data.DList.DNonEmpty.Internal.D:R:ItemDNonEmpty Documentation created: dist/doc/html/dlist/, dist/doc/html/dlist/dlist.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/dlist-1.0-64eJjLRuD1sLrW6rorjot6 Completed dlist-1.0 Configuring easy-file-0.2.5... Preprocessing library for easy-file-0.2.5.. Building library for easy-file-0.2.5.. [1 of 4] Compiling System.EasyFile.Directory ( System/EasyFile/Directory.hs, dist/build/System/EasyFile/Directory.o, dist/build/System/EasyFile/Directory.dyn_o ) [2 of 4] Compiling System.EasyFile.FilePath ( System/EasyFile/FilePath.hs, dist/build/System/EasyFile/FilePath.o, dist/build/System/EasyFile/FilePath.dyn_o ) System/EasyFile/FilePath.hs:517:63: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 517 | combine a b | hasDrive b || (not (null b) && isPathSeparator (head b)) = b | ^^^^ System/EasyFile/FilePath.hs:561:31: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 561 | if hasDrive path then head pathComponents : f (tail pathComponents) | ^^^^ System/EasyFile/FilePath.hs:561:56: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 561 | if hasDrive path then head pathComponents : f (tail pathComponents) | ^^^^ [3 of 4] Compiling System.EasyFile.Missing ( System/EasyFile/Missing.hs, dist/build/System/EasyFile/Missing.o, dist/build/System/EasyFile/Missing.dyn_o ) [4 of 4] Compiling System.EasyFile ( System/EasyFile.hs, dist/build/System/EasyFile.o, dist/build/System/EasyFile.dyn_o ) Preprocessing library for easy-file-0.2.5.. Running Haddock on library for easy-file-0.2.5.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling System.EasyFile.Directory ( System/EasyFile/Directory.hs, nothing ) [2 of 4] Compiling System.EasyFile.FilePath ( System/EasyFile/FilePath.hs, nothing ) System/EasyFile/FilePath.hs:517:63: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 517 | combine a b | hasDrive b || (not (null b) && isPathSeparator (head b)) = b | ^^^^ System/EasyFile/FilePath.hs:561:31: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 561 | if hasDrive path then head pathComponents : f (tail pathComponents) | ^^^^ System/EasyFile/FilePath.hs:561:56: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 561 | if hasDrive path then head pathComponents : f (tail pathComponents) | ^^^^ [3 of 4] Compiling System.EasyFile.Missing ( System/EasyFile/Missing.hs, nothing ) [4 of 4] Compiling System.EasyFile ( System/EasyFile.hs, nothing ) Haddock coverage: Warning: 'HardwareFault' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'isDoesNotExistError' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'NoSuchThing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'isPermissionError' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'PermissionDenied' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ResourceExhausted' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'UnsupportedOperation' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: System.EasyFile.Directory: Could not find documentation for exported module: System.EasyFile.Directory Warning: 'isPermissionError' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'isDoesNotExistError' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ClockTime' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'UTCTime' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 98% ( 83 / 84) in 'System.EasyFile' Missing documentation for: Permissions Documentation created: dist/doc/html/easy-file/, dist/doc/html/easy-file/easy-file.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/easy-file-0.2.5-I4fqOg3gbxNK5ixEQNQkLS Completed easy-file-0.2.5 Configuring generically-0.1.1... Preprocessing library for generically-0.1.1.. Building library for generically-0.1.1.. [1 of 1] Compiling GHC.Generics.Generically ( src/GHC/Generics/Generically.hs, dist/build/GHC/Generics/Generically.o, dist/build/GHC/Generics/Generically.dyn_o ) Preprocessing library for generically-0.1.1.. Running Haddock on library for generically-0.1.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling GHC.Generics.Generically ( src/GHC/Generics/Generically.hs, nothing ) Haddock coverage: Warning: 'Generically' is ambiguous. It is defined * in GHC.Generics * in GHC.Generics You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Generics 100% ( 3 / 3) in 'GHC.Generics.Generically' Documentation created: dist/doc/html/generically/, dist/doc/html/generically/generically.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/generically-0.1.1-vTL0zKNdCC1ZY9eXzpWeP Completed generically-0.1.1 Configuring haskell-lexer-1.2.1... Preprocessing library for haskell-lexer-1.2.1.. Building library for haskell-lexer-1.2.1.. [1 of 6] Compiling Language.Haskell.Lexer.Position ( Language/Haskell/Lexer/Position.hs, dist/build/Language/Haskell/Lexer/Position.o, dist/build/Language/Haskell/Lexer/Position.dyn_o ) [2 of 6] Compiling Language.Haskell.Lexer.Tokens ( Language/Haskell/Lexer/Tokens.hs, dist/build/Language/Haskell/Lexer/Tokens.o, dist/build/Language/Haskell/Lexer/Tokens.dyn_o ) [3 of 6] Compiling Language.Haskell.Lexer.Layout ( Language/Haskell/Lexer/Layout.hs, dist/build/Language/Haskell/Lexer/Layout.o, dist/build/Language/Haskell/Lexer/Layout.dyn_o ) [4 of 6] Compiling Language.Haskell.Lexer.Utils ( Language/Haskell/Lexer/Utils.hs, dist/build/Language/Haskell/Lexer/Utils.o, dist/build/Language/Haskell/Lexer/Utils.dyn_o ) [5 of 6] Compiling Language.Haskell.Lexer.Lex ( Language/Haskell/Lexer/Lex.hs, dist/build/Language/Haskell/Lexer/Lex.o, dist/build/Language/Haskell/Lexer/Lex.dyn_o ) [6 of 6] Compiling Language.Haskell.Lexer ( Language/Haskell/Lexer.hs, dist/build/Language/Haskell/Lexer.o, dist/build/Language/Haskell/Lexer.dyn_o ) Preprocessing library for haskell-lexer-1.2.1.. Running Haddock on library for haskell-lexer-1.2.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling Language.Haskell.Lexer.Position ( Language/Haskell/Lexer/Position.hs, nothing ) [2 of 6] Compiling Language.Haskell.Lexer.Tokens ( Language/Haskell/Lexer/Tokens.hs, nothing ) [3 of 6] Compiling Language.Haskell.Lexer.Layout ( Language/Haskell/Lexer/Layout.hs, nothing ) [4 of 6] Compiling Language.Haskell.Lexer.Utils ( Language/Haskell/Lexer/Utils.hs, nothing ) [5 of 6] Compiling Language.Haskell.Lexer.Lex ( Language/Haskell/Lexer/Lex.hs, nothing ) [6 of 6] Compiling Language.Haskell.Lexer ( Language/Haskell/Lexer.hs, nothing ) Haddock coverage: Warning: Language.Haskell.Lexer.Utils: Could not find documentation for exported module: Language.Haskell.Lexer.Utils 84% ( 11 / 13) in 'Language.Haskell.Lexer' Missing documentation for: Module header PosToken (Language/Haskell/Lexer/Layout.hs:6) Documentation created: dist/doc/html/haskell-lexer/, dist/doc/html/haskell-lexer/haskell-lexer.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/haskell-lexer-1.2.1-5D7BleVUwq58CSz4mUgrgH Completed haskell-lexer-1.2.1 Configuring hspec-discover-2.11.14... Preprocessing library for hspec-discover-2.11.14.. Building library for hspec-discover-2.11.14.. [1 of 4] Compiling Paths_hspec_discover ( dist/build/autogen/Paths_hspec_discover.hs, dist/build/Paths_hspec_discover.o, dist/build/Paths_hspec_discover.dyn_o ) [2 of 4] Compiling Test.Hspec.Discover.Config ( src/Test/Hspec/Discover/Config.hs, dist/build/Test/Hspec/Discover/Config.o, dist/build/Test/Hspec/Discover/Config.dyn_o ) [3 of 4] Compiling Test.Hspec.Discover.Sort ( src/Test/Hspec/Discover/Sort.hs, dist/build/Test/Hspec/Discover/Sort.o, dist/build/Test/Hspec/Discover/Sort.dyn_o ) [4 of 4] Compiling Test.Hspec.Discover.Run ( src/Test/Hspec/Discover/Run.hs, dist/build/Test/Hspec/Discover/Run.o, dist/build/Test/Hspec/Discover/Run.dyn_o ) Preprocessing executable 'hspec-discover' for hspec-discover-2.11.14.. Building executable 'hspec-discover' for hspec-discover-2.11.14.. [1 of 2] Compiling Main ( driver/hspec-discover.hs, dist/build/hspec-discover/hspec-discover-tmp/Main.o ) [2 of 2] Compiling Paths_hspec_discover ( dist/build/hspec-discover/autogen/Paths_hspec_discover.hs, dist/build/hspec-discover/hspec-discover-tmp/Paths_hspec_discover.o ) [3 of 3] Linking dist/build/hspec-discover/hspec-discover Preprocessing library for hspec-discover-2.11.14.. Running Haddock on library for hspec-discover-2.11.14.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling Paths_hspec_discover ( dist/build/autogen/Paths_hspec_discover.hs, nothing ) [2 of 4] Compiling Test.Hspec.Discover.Config ( src/Test/Hspec/Discover/Config.hs, nothing ) [3 of 4] Compiling Test.Hspec.Discover.Sort ( src/Test/Hspec/Discover/Sort.hs, nothing ) [4 of 4] Compiling Test.Hspec.Discover.Run ( src/Test/Hspec/Discover/Run.hs, nothing ) Haddock coverage: 20% ( 1 / 5) in 'Test.Hspec.Discover.Config' Missing documentation for: Config (src/Test/Hspec/Discover/Config.hs:14) defaultConfig (src/Test/Hspec/Discover/Config.hs:22) parseConfig (src/Test/Hspec/Discover/Config.hs:36) usage (src/Test/Hspec/Discover/Config.hs:33) 25% ( 1 / 4) in 'Test.Hspec.Discover.Sort' Missing documentation for: sortNaturallyBy (src/Test/Hspec/Discover/Sort.hs:16) NaturalSortKey (src/Test/Hspec/Discover/Sort.hs:18) naturalSortKey (src/Test/Hspec/Discover/Sort.hs:25) 36% ( 4 / 11) in 'Test.Hspec.Discover.Run' Missing documentation for: run (src/Test/Hspec/Discover/Run.hs:43) Spec (src/Test/Hspec/Discover/Run.hs:39) driverWithFormatter (src/Test/Hspec/Discover/Run.hs:92) Tree (src/Test/Hspec/Discover/Run.hs:160) Forest (src/Test/Hspec/Discover/Run.hs:163) Hook (src/Test/Hspec/Discover/Run.hs:166) discover (src/Test/Hspec/Discover/Run.hs:175) Documentation created: dist/doc/html/hspec-discover/, dist/doc/html/hspec-discover/hspec-discover.txt Preprocessing executable 'hspec-discover' for hspec-discover-2.11.14.. Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-discover-2.11.14-3h9ooJb2OALK4G1Q3YtrT6 Installing executable hspec-discover in /var/lib/hackage-doc-builder/build-cache/tmp-install/bin Warning: The directory /var/lib/hackage-doc-builder/build-cache/tmp-install/bin is not in the system search path. Completed hspec-discover-2.11.14 Configuring indexed-traversable-0.1.4... Preprocessing library for indexed-traversable-0.1.4.. Building library for indexed-traversable-0.1.4.. [1 of 7] Compiling CoerceCompat ( src/CoerceCompat.hs, dist/build/CoerceCompat.o, dist/build/CoerceCompat.dyn_o ) [2 of 7] Compiling GhcList ( src/GhcList.hs, dist/build/GhcList.o, dist/build/GhcList.dyn_o ) [3 of 7] Compiling WithIndex ( src/WithIndex.hs, dist/build/WithIndex.o, dist/build/WithIndex.dyn_o ) [4 of 7] Compiling Data.Traversable.WithIndex ( src/Data/Traversable/WithIndex.hs, dist/build/Data/Traversable/WithIndex.o, dist/build/Data/Traversable/WithIndex.dyn_o ) [5 of 7] Compiling Data.Functor.WithIndex ( src/Data/Functor/WithIndex.hs, dist/build/Data/Functor/WithIndex.o, dist/build/Data/Functor/WithIndex.dyn_o ) [6 of 7] Compiling Data.Foldable1.WithIndex ( src/Data/Foldable1/WithIndex.hs, dist/build/Data/Foldable1/WithIndex.o, dist/build/Data/Foldable1/WithIndex.dyn_o ) [7 of 7] Compiling Data.Foldable.WithIndex ( src/Data/Foldable/WithIndex.hs, dist/build/Data/Foldable/WithIndex.o, dist/build/Data/Foldable/WithIndex.dyn_o ) Preprocessing library for indexed-traversable-0.1.4.. Running Haddock on library for indexed-traversable-0.1.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 7] Compiling CoerceCompat ( src/CoerceCompat.hs, nothing ) [2 of 7] Compiling GhcList ( src/GhcList.hs, nothing ) [3 of 7] Compiling WithIndex ( src/WithIndex.hs, nothing ) [4 of 7] Compiling Data.Traversable.WithIndex ( src/Data/Traversable/WithIndex.hs, nothing ) [5 of 7] Compiling Data.Functor.WithIndex ( src/Data/Functor/WithIndex.hs, nothing ) [6 of 7] Compiling Data.Foldable1.WithIndex ( src/Data/Foldable1/WithIndex.hs, nothing ) [7 of 7] Compiling Data.Foldable.WithIndex ( src/Data/Foldable/WithIndex.hs, nothing ) Haddock coverage: Warning: 'a' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'const' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Identity' is ambiguous. It is defined * in Data.Functor.Identity * in Data.Functor.Identity You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Identity Warning: 'itraverseOf' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'itraversed' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ifoldr1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ifoldl1'' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ifoldl1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ifoldr1'' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'for' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: '.' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'const' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mapM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'forM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 83% ( 10 / 12) in 'Data.Traversable.WithIndex' Missing documentation for: imapDefault (src/WithIndex.hs:81) ifoldMapDefault (src/WithIndex.hs:162) 66% ( 2 / 3) in 'Data.Functor.WithIndex' Missing documentation for: Module header 100% ( 3 / 3) in 'Data.Foldable1.WithIndex' Warning: 'const' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'all' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'traverse_' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'for_' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'IndexedFold' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mapM_' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'imapM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'iforM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'concatMap' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'find' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'foldrM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'foldlM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'toList' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'snd' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 17 / 17) in 'Data.Foldable.WithIndex' Documentation created: dist/doc/html/indexed-traversable/, dist/doc/html/indexed-traversable/indexed-traversable.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/indexed-traversable-0.1.4-5JdsPOnURa2E0CZ9MR1Y0G Completed indexed-traversable-0.1.4 Configuring integer-logarithms-1.0.4... Preprocessing library for integer-logarithms-1.0.4.. Building library for integer-logarithms-1.0.4.. [1 of 4] Compiling GHC.Integer.Logarithms.Compat ( src/GHC/Integer/Logarithms/Compat.hs, dist/build/GHC/Integer/Logarithms/Compat.o, dist/build/GHC/Integer/Logarithms/Compat.dyn_o ) [2 of 4] Compiling Math.NumberTheory.Logarithms ( src/Math/NumberTheory/Logarithms.hs, dist/build/Math/NumberTheory/Logarithms.o, dist/build/Math/NumberTheory/Logarithms.dyn_o ) [3 of 4] Compiling Math.NumberTheory.Powers.Integer ( src/Math/NumberTheory/Powers/Integer.hs, dist/build/Math/NumberTheory/Powers/Integer.o, dist/build/Math/NumberTheory/Powers/Integer.dyn_o ) [4 of 4] Compiling Math.NumberTheory.Powers.Natural ( src/Math/NumberTheory/Powers/Natural.hs, dist/build/Math/NumberTheory/Powers/Natural.o, dist/build/Math/NumberTheory/Powers/Natural.dyn_o ) Preprocessing library for integer-logarithms-1.0.4.. Running Haddock on library for integer-logarithms-1.0.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling GHC.Integer.Logarithms.Compat ( src/GHC/Integer/Logarithms/Compat.hs, nothing ) [2 of 4] Compiling Math.NumberTheory.Logarithms ( src/Math/NumberTheory/Logarithms.hs, nothing ) [3 of 4] Compiling Math.NumberTheory.Powers.Integer ( src/Math/NumberTheory/Powers/Integer.hs, nothing ) [4 of 4] Compiling Math.NumberTheory.Powers.Natural ( src/Math/NumberTheory/Powers/Natural.hs, nothing ) Haddock coverage: 40% ( 2 / 5) in 'GHC.Integer.Logarithms.Compat' Missing documentation for: integerLogBase# integerLog2# wordLog2# 100% ( 17 / 17) in 'Math.NumberTheory.Logarithms' 100% ( 3 / 3) in 'Math.NumberTheory.Powers.Integer' 100% ( 3 / 3) in 'Math.NumberTheory.Powers.Natural' Documentation created: dist/doc/html/integer-logarithms/, dist/doc/html/integer-logarithms/integer-logarithms.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/integer-logarithms-1.0.4-KzAgsevoV5Y6IrFUclFTyp Completed integer-logarithms-1.0.4 Configuring lift-type-0.1.2.0... Preprocessing library for lift-type-0.1.2.0.. Building library for lift-type-0.1.2.0.. src/LiftType.hs:7:14: warning: [GHC-53692] [-Wdeprecated-flags] -XTypeInType is deprecated: use -XDataKinds and -XPolyKinds instead | 7 | {-# LANGUAGE TypeInType #-} | ^^^^^^^^^^ [1 of 1] Compiling LiftType ( src/LiftType.hs, dist/build/LiftType.o, dist/build/LiftType.dyn_o ) Preprocessing library for lift-type-0.1.2.0.. Running Haddock on library for lift-type-0.1.2.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. src/LiftType.hs:7:14: warning: [GHC-53692] [-Wdeprecated-flags] -XTypeInType is deprecated: use -XDataKinds and -XPolyKinds instead | 7 | {-# LANGUAGE TypeInType #-} | ^^^^^^^^^^ [1 of 1] Compiling LiftType ( src/LiftType.hs, nothing ) Haddock coverage: Warning: 'Q' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax Warning: 'TExp' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax Warning: 'SomeTypeRep' is ambiguous. It is defined * in Data.Typeable.Internal * in Data.Typeable.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Typeable.Internal Warning: 'Name' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax 100% ( 8 / 8) in 'LiftType' Documentation created: dist/doc/html/lift-type/, dist/doc/html/lift-type/lift-type.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/lift-type-0.1.2.0-Bezc4YE1qkJCzmMxrrewIC Completed lift-type-0.1.2.0 Configuring monad-loops-0.4.3... Preprocessing library for monad-loops-0.4.3.. Building library for monad-loops-0.4.3.. [1 of 1] Compiling Control.Monad.Loops ( src/Control/Monad/Loops.hs, dist/build/Control/Monad/Loops.o, dist/build/Control/Monad/Loops.dyn_o ) Preprocessing library for monad-loops-0.4.3.. Running Haddock on library for monad-loops-0.4.3.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Control.Monad.Loops ( src/Control/Monad/Loops.hs, nothing ) Haddock coverage: Warning: Control.Monad.Loops: Could not find documentation for exported module: Control.Monad.Loops 75% ( 36 / 48) in 'Control.Monad.Loops' Missing documentation for: minimaOnByM (src/Control/Monad/Loops.hs:406) maximaOnByM (src/Control/Monad/Loops.hs:421) minimaByM (src/Control/Monad/Loops.hs:424) maximaByM (src/Control/Monad/Loops.hs:427) minimaOnM (src/Control/Monad/Loops.hs:430) maximaOnM (src/Control/Monad/Loops.hs:433) minimumOnByM (src/Control/Monad/Loops.hs:437) maximumOnByM (src/Control/Monad/Loops.hs:452) minimumByM (src/Control/Monad/Loops.hs:455) maximumByM (src/Control/Monad/Loops.hs:458) minimumOnM (src/Control/Monad/Loops.hs:461) maximumOnM (src/Control/Monad/Loops.hs:464) Documentation created: dist/doc/html/monad-loops/, dist/doc/html/monad-loops/monad-loops.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/monad-loops-0.4.3-E8lkPrSfxqUDEDJGlndSx6 Completed monad-loops-0.4.3 Configuring network-3.2.8.0... configure: WARNING: unrecognized options: --with-compiler checking build system type... x86_64-pc-linux-gnu checking host system type... x86_64-pc-linux-gnu checking for gcc... /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether the compiler supports GNU C... yes checking whether /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc accepts -g... yes checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc option to enable C11 features... none needed checking for an ANSI C-conforming const... yes checking for stdio.h... yes checking for stdlib.h... yes checking for string.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for strings.h... yes checking for sys/stat.h... yes checking for sys/types.h... yes checking for unistd.h... yes checking for limits.h... yes checking for stdlib.h... (cached) yes checking for unistd.h... (cached) yes checking for sys/types.h... (cached) yes checking for fcntl.h... yes checking for sys/uio.h... yes checking for sys/socket.h... yes checking for netinet/in.h... yes checking for netinet/tcp.h... yes checking for sys/un.h... yes checking for arpa/inet.h... yes checking for netdb.h... yes checking for net/if.h... yes checking for netioapi.h... no checking for struct ucred... yes checking for gai_strerror... yes checking for gethostent... yes checking for accept4... yes checking for getpeereid... no checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc options needed to detect all undeclared functions... none needed checking whether AI_ADDRCONFIG is declared... yes checking whether AI_ALL is declared... yes checking whether AI_NUMERICSERV is declared... yes checking whether AI_V4MAPPED is declared... yes checking whether IPV6_V6ONLY is declared... yes checking whether IPPROTO_IP is declared... yes checking whether IPPROTO_TCP is declared... yes checking whether IPPROTO_IPV6 is declared... yes checking whether SO_PEERCRED is declared... yes checking whether IP_DONTFRAG is declared... no checking whether IP_MTU_DISCOVER is declared... yes checking for struct msghdr.msg_control... yes checking for struct msghdr.msg_accrights... no checking for struct sockaddr.sa_len... no configure: creating ./network.buildinfo configure: creating ./config.status config.status: creating include/HsNetworkConfig.h configure: WARNING: unrecognized options: --with-compiler Preprocessing library for network-3.2.8.0.. Building library for network-3.2.8.0.. [ 1 of 29] Compiling Network.Socket.Imports ( Network/Socket/Imports.hs, dist/build/Network/Socket/Imports.o, dist/build/Network/Socket/Imports.dyn_o ) [ 2 of 29] Compiling Network.Socket.If ( Network/Socket/If.hs, dist/build/Network/Socket/If.o, dist/build/Network/Socket/If.dyn_o ) [ 3 of 29] Compiling Network.Socket.Flag ( dist/build/Network/Socket/Flag.hs, dist/build/Network/Socket/Flag.o, dist/build/Network/Socket/Flag.dyn_o ) [ 4 of 29] Compiling Network.Socket.Cbits ( dist/build/Network/Socket/Cbits.hs, dist/build/Network/Socket/Cbits.o, dist/build/Network/Socket/Cbits.dyn_o ) [ 5 of 29] Compiling Network.Socket.Fcntl ( Network/Socket/Fcntl.hs, dist/build/Network/Socket/Fcntl.o, dist/build/Network/Socket/Fcntl.dyn_o ) [ 6 of 29] Compiling Network.Socket.Posix.IOVec ( dist/build/Network/Socket/Posix/IOVec.hs, dist/build/Network/Socket/Posix/IOVec.o, dist/build/Network/Socket/Posix/IOVec.dyn_o ) [ 7 of 29] Compiling Network.Socket.ReadShow ( Network/Socket/ReadShow.hs, dist/build/Network/Socket/ReadShow.o, dist/build/Network/Socket/ReadShow.dyn_o ) [ 8 of 29] Compiling Network.Socket.Types ( dist/build/Network/Socket/Types.hs, dist/build/Network/Socket/Types.o, dist/build/Network/Socket/Types.dyn_o ) [ 9 of 29] Compiling Network.Socket.STM ( Network/Socket/STM.hs, dist/build/Network/Socket/STM.o, dist/build/Network/Socket/STM.dyn_o ) [10 of 29] Compiling Network.Socket.Posix.Cmsg ( dist/build/Network/Socket/Posix/Cmsg.hs, dist/build/Network/Socket/Posix/Cmsg.o, dist/build/Network/Socket/Posix/Cmsg.dyn_o ) [11 of 29] Compiling Network.Socket.Internal ( Network/Socket/Internal.hs, dist/build/Network/Socket/Internal.o, dist/build/Network/Socket/Internal.dyn_o ) [12 of 29] Compiling Network.Socket.Posix.MsgHdr ( dist/build/Network/Socket/Posix/MsgHdr.hs, dist/build/Network/Socket/Posix/MsgHdr.o, dist/build/Network/Socket/Posix/MsgHdr.dyn_o ) [13 of 29] Compiling Network.Socket.Posix.CmsgHdr ( dist/build/Network/Socket/Posix/CmsgHdr.hs, dist/build/Network/Socket/Posix/CmsgHdr.o, dist/build/Network/Socket/Posix/CmsgHdr.dyn_o ) [14 of 29] Compiling Network.Socket.Options ( dist/build/Network/Socket/Options.hs, dist/build/Network/Socket/Options.o, dist/build/Network/Socket/Options.dyn_o ) [15 of 29] Compiling Network.Socket.Syscall ( Network/Socket/Syscall.hs, dist/build/Network/Socket/Syscall.o, dist/build/Network/Socket/Syscall.dyn_o ) [16 of 29] Compiling Network.Socket.Name ( Network/Socket/Name.hs, dist/build/Network/Socket/Name.o, dist/build/Network/Socket/Name.dyn_o ) [17 of 29] Compiling Network.Socket.Info ( dist/build/Network/Socket/Info.hs, dist/build/Network/Socket/Info.o, dist/build/Network/Socket/Info.dyn_o ) [18 of 29] Compiling Network.Socket.Handle ( Network/Socket/Handle.hs, dist/build/Network/Socket/Handle.o, dist/build/Network/Socket/Handle.dyn_o ) [19 of 29] Compiling Network.Socket.ByteString.Internal ( Network/Socket/ByteString/Internal.hs, dist/build/Network/Socket/ByteString/Internal.o, dist/build/Network/Socket/ByteString/Internal.dyn_o ) [20 of 29] Compiling Network.Socket.Buffer ( dist/build/Network/Socket/Buffer.hs, dist/build/Network/Socket/Buffer.o, dist/build/Network/Socket/Buffer.dyn_o ) [21 of 29] Compiling Network.Socket.SockAddr ( Network/Socket/SockAddr.hs, dist/build/Network/Socket/SockAddr.o, dist/build/Network/Socket/SockAddr.dyn_o ) [22 of 29] Compiling Network.Socket.Shutdown ( Network/Socket/Shutdown.hs, dist/build/Network/Socket/Shutdown.o, dist/build/Network/Socket/Shutdown.dyn_o ) [23 of 29] Compiling Network.Socket.ByteString.IO ( dist/build/Network/Socket/ByteString/IO.hs, dist/build/Network/Socket/ByteString/IO.o, dist/build/Network/Socket/ByteString/IO.dyn_o ) [24 of 29] Compiling Network.Socket.ByteString.Lazy.Posix ( Network/Socket/ByteString/Lazy/Posix.hs, dist/build/Network/Socket/ByteString/Lazy/Posix.o, dist/build/Network/Socket/ByteString/Lazy/Posix.dyn_o ) [25 of 29] Compiling Network.Socket.ByteString ( Network/Socket/ByteString.hs, dist/build/Network/Socket/ByteString.o, dist/build/Network/Socket/ByteString.dyn_o ) [26 of 29] Compiling Network.Socket.Address ( Network/Socket/Address.hs, dist/build/Network/Socket/Address.o, dist/build/Network/Socket/Address.dyn_o ) [27 of 29] Compiling Network.Socket.Unix ( dist/build/Network/Socket/Unix.hs, dist/build/Network/Socket/Unix.o, dist/build/Network/Socket/Unix.dyn_o ) [28 of 29] Compiling Network.Socket ( Network/Socket.hs, dist/build/Network/Socket.o, dist/build/Network/Socket.dyn_o ) [29 of 29] Compiling Network.Socket.ByteString.Lazy ( Network/Socket/ByteString/Lazy.hs, dist/build/Network/Socket/ByteString/Lazy.o, dist/build/Network/Socket/ByteString/Lazy.dyn_o ) Preprocessing library for network-3.2.8.0.. Running Haddock on library for network-3.2.8.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 29] Compiling Network.Socket.Imports ( Network/Socket/Imports.hs, nothing ) [ 2 of 29] Compiling Network.Socket.If ( Network/Socket/If.hs, nothing ) [ 3 of 29] Compiling Network.Socket.Flag ( dist/build/Network/Socket/Flag.hs, nothing ) [ 4 of 29] Compiling Network.Socket.Cbits ( dist/build/Network/Socket/Cbits.hs, nothing ) [ 5 of 29] Compiling Network.Socket.Fcntl ( Network/Socket/Fcntl.hs, nothing ) [ 6 of 29] Compiling Network.Socket.Posix.IOVec ( dist/build/Network/Socket/Posix/IOVec.hs, nothing ) [ 7 of 29] Compiling Network.Socket.ReadShow ( Network/Socket/ReadShow.hs, nothing ) [ 8 of 29] Compiling Network.Socket.Types ( dist/build/Network/Socket/Types.hs, nothing ) [ 9 of 29] Compiling Network.Socket.STM ( Network/Socket/STM.hs, nothing ) [10 of 29] Compiling Network.Socket.Posix.Cmsg ( dist/build/Network/Socket/Posix/Cmsg.hs, nothing ) [11 of 29] Compiling Network.Socket.Internal ( Network/Socket/Internal.hs, nothing ) [12 of 29] Compiling Network.Socket.Posix.MsgHdr ( dist/build/Network/Socket/Posix/MsgHdr.hs, nothing ) [13 of 29] Compiling Network.Socket.Posix.CmsgHdr ( dist/build/Network/Socket/Posix/CmsgHdr.hs, nothing ) [14 of 29] Compiling Network.Socket.Options ( dist/build/Network/Socket/Options.hs, nothing ) [15 of 29] Compiling Network.Socket.Syscall ( Network/Socket/Syscall.hs, nothing ) [16 of 29] Compiling Network.Socket.Name ( Network/Socket/Name.hs, nothing ) [17 of 29] Compiling Network.Socket.Info ( dist/build/Network/Socket/Info.hs, nothing ) [18 of 29] Compiling Network.Socket.Handle ( Network/Socket/Handle.hs, nothing ) [19 of 29] Compiling Network.Socket.ByteString.Internal ( Network/Socket/ByteString/Internal.hs, nothing ) [20 of 29] Compiling Network.Socket.Buffer ( dist/build/Network/Socket/Buffer.hs, nothing ) [21 of 29] Compiling Network.Socket.SockAddr ( Network/Socket/SockAddr.hs, nothing ) [22 of 29] Compiling Network.Socket.Shutdown ( Network/Socket/Shutdown.hs, nothing ) [23 of 29] Compiling Network.Socket.ByteString.IO ( dist/build/Network/Socket/ByteString/IO.hs, nothing ) [24 of 29] Compiling Network.Socket.ByteString.Lazy.Posix ( Network/Socket/ByteString/Lazy/Posix.hs, nothing ) [25 of 29] Compiling Network.Socket.ByteString ( Network/Socket/ByteString.hs, nothing ) [26 of 29] Compiling Network.Socket.Address ( Network/Socket/Address.hs, nothing ) [27 of 29] Compiling Network.Socket.Unix ( dist/build/Network/Socket/Unix.hs, nothing ) [28 of 29] Compiling Network.Socket ( Network/Socket.hs, nothing ) [29 of 29] Compiling Network.Socket.ByteString.Lazy ( Network/Socket/ByteString/Lazy.hs, nothing ) Haddock coverage: Warning: 'Socket' is ambiguous. It is defined * at dist/build/Network/Socket/Types.hs:112:15 * at dist/build/Network/Socket/Types.hs:112:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at dist/build/Network/Socket/Types.hs:112:1 Warning: 'getAddrInfo' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'CInt' is ambiguous. It is defined * in Foreign.C.Types * in Foreign.C.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Foreign.C.Types Warning: 'Family' is ambiguous. It is defined * at Network/Socket/Types.hsc:398:18 * at Network/Socket/Types.hsc:398:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Types.hsc:398:1 Warning: 'CmsgId' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:38:15 * at Network/Socket/Posix/Cmsg.hsc:38:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:38:1 Warning: 'Fds' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'IPv6PktInfo' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:215:20 * at Network/Socket/Posix/Cmsg.hsc:215:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:215:1 Warning: 'IPv4PktInfo' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:182:20 * at Network/Socket/Posix/Cmsg.hsc:182:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:182:1 Warning: 'IPv6TClass' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:172:22 * at Network/Socket/Posix/Cmsg.hsc:172:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:172:1 Warning: 'IPv4TOS' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:162:19 * at Network/Socket/Posix/Cmsg.hsc:162:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:162:1 Warning: 'IPv6HopLimit' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:152:24 * at Network/Socket/Posix/Cmsg.hsc:152:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:152:1 Warning: 'IPv4TTL' is ambiguous. It is defined * at Network/Socket/Posix/Cmsg.hsc:141:19 * at Network/Socket/Posix/Cmsg.hsc:141:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Posix/Cmsg.hsc:141:1 100% ( 20 / 20) in 'Network.Socket.Internal' Warning: 'sendmsg' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'StructLinger' is ambiguous. It is defined * at Network/Socket/Options.hsc:500:21 * at Network/Socket/Options.hsc:500:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Options.hsc:500:1 Warning: 'CInt' is ambiguous. It is defined * in Foreign.C.Types * in Foreign.C.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Foreign.C.Types Warning: 'setSocOptValue' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SockOptValue' is ambiguous. It is defined * at Network/Socket/Options.hsc:528:3 * at Network/Socket/Options.hsc:527:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Options.hsc:527:1 Warning: 'AddrInfo' is ambiguous. It is defined * at Network/Socket/Info.hsc:104:17 * at Network/Socket/Info.hsc:104:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/Socket/Info.hsc:104:1 Warning: 'inet_ntop' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'hClose' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'gracefulClose' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'socket' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Cannot find documentation for: $vectored 100% ( 17 / 17) in 'Network.Socket.ByteString' 100% ( 19 / 19) in 'Network.Socket.Address' Warning: 'True' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% (127 /130) in 'Network.Socket' Missing documentation for: AddrInfo (Network/Socket/Info.hsc:104) ShutdownCmd (Network/Socket/Shutdown.hs:28) packFamily 75% ( 6 / 8) in 'Network.Socket.ByteString.Lazy' Missing documentation for: send (Network/Socket/ByteString/Lazy/Posix.hs:29) sendAll (Network/Socket/ByteString/Lazy/Posix.hs:58) Warning: Network.Socket: could not find link destinations for: - Network.Socket.Info.GetAddrInfo Documentation created: dist/doc/html/network/, dist/doc/html/network/network.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/network-3.2.8.0-2mBD7NmHSYt6MqMlmsyIDz Completed network-3.2.8.0 Configuring old-locale-1.0.0.7... Preprocessing library for old-locale-1.0.0.7.. Building library for old-locale-1.0.0.7.. [1 of 1] Compiling System.Locale ( System/Locale.hs, dist/build/System/Locale.o, dist/build/System/Locale.dyn_o ) Preprocessing library for old-locale-1.0.0.7.. Running Haddock on library for old-locale-1.0.0.7.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling System.Locale ( System/Locale.hs, nothing ) Haddock coverage: 60% ( 3 / 5) in 'System.Locale' Missing documentation for: TimeLocale (System/Locale.hs:36) defaultTimeLocale (System/Locale.hs:50) Documentation created: dist/doc/html/old-locale/, dist/doc/html/old-locale/old-locale.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/old-locale-1.0.0.7-2YowMuiAcJ5JaeIIGUyoRA Completed old-locale-1.0.0.7 Configuring os-string-2.0.8... Preprocessing library for os-string-2.0.8.. Building library for os-string-2.0.8.. [ 1 of 11] Compiling System.OsString.Data.ByteString.Short.Internal ( System/OsString/Data/ByteString/Short/Internal.hs, dist/build/System/OsString/Data/ByteString/Short/Internal.o, dist/build/System/OsString/Data/ByteString/Short/Internal.dyn_o ) [ 2 of 11] Compiling System.OsString.Data.ByteString.Short ( System/OsString/Data/ByteString/Short.hs, dist/build/System/OsString/Data/ByteString/Short.o, dist/build/System/OsString/Data/ByteString/Short.dyn_o ) [ 3 of 11] Compiling System.OsString.Data.ByteString.Short.Word16 ( System/OsString/Data/ByteString/Short/Word16.hs, dist/build/System/OsString/Data/ByteString/Short/Word16.o, dist/build/System/OsString/Data/ByteString/Short/Word16.dyn_o ) [ 4 of 11] Compiling System.OsString.Internal.Exception ( System/OsString/Internal/Exception.hs, dist/build/System/OsString/Internal/Exception.o, dist/build/System/OsString/Internal/Exception.dyn_o ) [ 5 of 11] Compiling System.OsString.Encoding.Internal ( System/OsString/Encoding/Internal.hs, dist/build/System/OsString/Encoding/Internal.o, dist/build/System/OsString/Encoding/Internal.dyn_o ) System/OsString/Encoding/Internal.hs:23:42: warning: [GHC-38856] [-Wunused-imports] The import of try from module Control.Exception is redundant | 23 | import Control.Exception (SomeException, try, Exception (displayException), evaluate) | ^^^ [ 6 of 11] Compiling System.OsString.Encoding ( System/OsString/Encoding.hs, dist/build/System/OsString/Encoding.o, dist/build/System/OsString/Encoding.dyn_o ) [ 7 of 11] Compiling System.OsString.Internal.Types ( System/OsString/Internal/Types.hs, dist/build/System/OsString/Internal/Types.o, dist/build/System/OsString/Internal/Types.dyn_o ) [ 8 of 11] Compiling System.OsString.Posix ( System/OsString/Posix.hs, dist/build/System/OsString/Posix.o, dist/build/System/OsString/Posix.dyn_o ) [ 9 of 11] Compiling System.OsString.Internal ( System/OsString/Internal.hs, dist/build/System/OsString/Internal.o, dist/build/System/OsString/Internal.dyn_o ) [10 of 11] Compiling System.OsString ( System/OsString.hs, dist/build/System/OsString.o, dist/build/System/OsString.dyn_o ) [11 of 11] Compiling System.OsString.Windows ( System/OsString/Windows.hs, dist/build/System/OsString/Windows.o, dist/build/System/OsString/Windows.dyn_o ) Preprocessing library for os-string-2.0.8.. Running Haddock on library for os-string-2.0.8.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 11] Compiling System.OsString.Data.ByteString.Short.Internal ( System/OsString/Data/ByteString/Short/Internal.hs, nothing ) [ 2 of 11] Compiling System.OsString.Data.ByteString.Short ( System/OsString/Data/ByteString/Short.hs, nothing ) [ 3 of 11] Compiling System.OsString.Data.ByteString.Short.Word16 ( System/OsString/Data/ByteString/Short/Word16.hs, nothing ) [ 4 of 11] Compiling System.OsString.Internal.Exception ( System/OsString/Internal/Exception.hs, nothing ) [ 5 of 11] Compiling System.OsString.Encoding.Internal ( System/OsString/Encoding/Internal.hs, nothing ) System/OsString/Encoding/Internal.hs:23:42: warning: [GHC-38856] [-Wunused-imports] The import of try from module Control.Exception is redundant | 23 | import Control.Exception (SomeException, try, Exception (displayException), evaluate) | ^^^ [ 6 of 11] Compiling System.OsString.Encoding ( System/OsString/Encoding.hs, nothing ) [ 7 of 11] Compiling System.OsString.Internal.Types ( System/OsString/Internal/Types.hs, nothing ) [ 8 of 11] Compiling System.OsString.Posix ( System/OsString/Posix.hs, nothing ) [ 9 of 11] Compiling System.OsString.Internal ( System/OsString/Internal.hs, nothing ) [10 of 11] Compiling System.OsString ( System/OsString.hs, nothing ) [11 of 11] Compiling System.OsString.Windows ( System/OsString/Windows.hs, nothing ) Haddock coverage: Warning: 'ShortByteString' is ambiguous. It is defined * in Data.ByteString.Short.Internal * in Data.ByteString.Short.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.ByteString.Short.Internal 26% ( 11 / 41) in 'System.OsString.Data.ByteString.Short.Internal' Missing documentation for: _nul (System/OsString/Data/ByteString/Short/Internal.hs:60) isSpace (System/OsString/Data/ByteString/Short/Internal.hs:63) create (System/OsString/Data/ByteString/Short/Internal.hs:70) asBA (System/OsString/Data/ByteString/Short/Internal.hs:80) BA (System/OsString/Data/ByteString/Short/Internal.hs:84) MBA (System/OsString/Data/ByteString/Short/Internal.hs:85) newPinnedByteArray (System/OsString/Data/ByteString/Short/Internal.hs:89) newByteArray (System/OsString/Data/ByteString/Short/Internal.hs:94) copyByteArray (System/OsString/Data/ByteString/Short/Internal.hs:99) unsafeFreezeByteArray (System/OsString/Data/ByteString/Short/Internal.hs:104) copyAddrToByteArray (System/OsString/Data/ByteString/Short/Internal.hs:109) moduleErrorIO (System/OsString/Data/ByteString/Short/Internal.hs:244) moduleErrorMsg (System/OsString/Data/ByteString/Short/Internal.hs:248) packWord16 (System/OsString/Data/ByteString/Short/Internal.hs:251) packLenWord16 (System/OsString/Data/ByteString/Short/Internal.hs:254) unpackWord16 (System/OsString/Data/ByteString/Short/Internal.hs:265) packWord16Rev (System/OsString/Data/ByteString/Short/Internal.hs:274) packLenWord16Rev (System/OsString/Data/ByteString/Short/Internal.hs:277) indexWord8Array (System/OsString/Data/ByteString/Short/Internal.hs:299) word16ToLE# (System/OsString/Data/ByteString/Short/Internal.hs:320) word16FromLE# (System/OsString/Data/ByteString/Short/Internal.hs:322) setByteArray (System/OsString/Data/ByteString/Short/Internal.hs:325) copyMutableByteArray (System/OsString/Data/ByteString/Short/Internal.hs:330) createAndTrim' (System/OsString/Data/ByteString/Short/Internal.hs:356) createAndTrim'' (System/OsString/Data/ByteString/Short/Internal.hs:372) findIndexOrLength (System/OsString/Data/ByteString/Short/Internal.hs:397) assertEven (System/OsString/Data/ByteString/Short/Internal.hs:422) errorEmptySBS (System/OsString/Data/ByteString/Short/Internal.hs:430) moduleError (System/OsString/Data/ByteString/Short/Internal.hs:434) compareByteArraysOff (System/OsString/Data/ByteString/Short/Internal.hs:444) Warning: 'ShortByteString' is ambiguous. It is defined * in Data.ByteString.Short.Internal * in Data.ByteString.Short.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.ByteString.Short.Internal 96% ( 93 / 96) in 'System.OsString.Data.ByteString.Short' Missing documentation for: append uncons2 (System/OsString/Data/ByteString/Short.hs:184) concat Warning: 'ShortByteString' is ambiguous. It is defined * in Data.ByteString.Short.Internal * in Data.ByteString.Short.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.ByteString.Short.Internal Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'CString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 96% ( 92 / 95) in 'System.OsString.Data.ByteString.Short.Word16' Missing documentation for: append concat breakSubstring (System/OsString/Data/ByteString/Short/Word16.hs:663) Warning: 'try' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 33% ( 1 / 3) in 'System.OsString.Internal.Exception' Missing documentation for: Module header isAsyncException (System/OsString/Internal/Exception.hs:17) Warning: 'TextEncoding' is ambiguous. It is defined * in GHC.IO.Encoding.Types * in GHC.IO.Encoding.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.IO.Encoding.Types 27% ( 9 / 33) in 'System.OsString.Encoding.Internal' Missing documentation for: Module header ucs2le (System/OsString/Encoding/Internal.hs:42) mkUcs2le (System/OsString/Encoding/Internal.hs:45) ucs2le_DF (System/OsString/Encoding/Internal.hs:50) ucs2le_EF (System/OsString/Encoding/Internal.hs:60) ucs2le_decode (System/OsString/Encoding/Internal.hs:71) ucs2le_encode (System/OsString/Encoding/Internal.hs:96) mkUTF16le_b (System/OsString/Encoding/Internal.hs:131) utf16le_b_DF (System/OsString/Encoding/Internal.hs:136) utf16le_b_EF (System/OsString/Encoding/Internal.hs:146) utf16le_b_decode (System/OsString/Encoding/Internal.hs:157) utf16le_b_encode (System/OsString/Encoding/Internal.hs:195) cWcharsToChars_UCS2 (System/OsString/Encoding/Internal.hs:231) cWcharsToChars (System/OsString/Encoding/Internal.hs:238) charsToCWchars (System/OsString/Encoding/Internal.hs:248) withWindowsString (System/OsString/Encoding/Internal.hs:264) peekWindowsString (System/OsString/Encoding/Internal.hs:267) withPosixString (System/OsString/Encoding/Internal.hs:272) withPosixString' (System/OsString/Encoding/Internal.hs:275) peekPosixString (System/OsString/Encoding/Internal.hs:278) peekPosixString' (System/OsString/Encoding/Internal.hs:281) EncodingException (System/OsString/Encoding/Internal.hs:340) showEncodingException (System/OsString/Encoding/Internal.hs:348) wNUL (System/OsString/Encoding/Internal.hs:367) 44% ( 11 / 25) in 'System.OsString.Encoding' Missing documentation for: Module header EncodingException (System/OsString/Encoding/Internal.hs:340) showEncodingException (System/OsString/Encoding/Internal.hs:348) ucs2le (System/OsString/Encoding/Internal.hs:42) mkUcs2le (System/OsString/Encoding/Internal.hs:45) ucs2le_DF (System/OsString/Encoding/Internal.hs:50) ucs2le_EF (System/OsString/Encoding/Internal.hs:60) ucs2le_decode (System/OsString/Encoding/Internal.hs:71) ucs2le_encode (System/OsString/Encoding/Internal.hs:96) mkUTF16le_b (System/OsString/Encoding/Internal.hs:131) utf16le_b_DF (System/OsString/Encoding/Internal.hs:136) utf16le_b_EF (System/OsString/Encoding/Internal.hs:146) utf16le_b_decode (System/OsString/Encoding/Internal.hs:157) utf16le_b_encode (System/OsString/Encoding/Internal.hs:195) Warning: 'WindowsString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:60:25 * at System/OsString/Internal/Types.hs:60:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:60:1 Warning: 'PosixString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:87:23 * at System/OsString/Internal/Types.hs:87:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:87:1 Warning: 'ShortByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'PosixChar' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:123:23 * at System/OsString/Internal/Types.hs:123:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:123:1 Warning: 'WindowsChar' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:117:23 * at System/OsString/Internal/Types.hs:117:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:117:1 Warning: 'OsChar' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:210:18 * at System/OsString/Internal/Types.hs:210:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:210:1 Warning: 'OsString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:161:20 * at System/OsString/Internal/Types.hs:161:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:161:1 Warning: '()' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 50% ( 9 / 18) in 'System.OsString.Internal.Types' Missing documentation for: Module header unWS (System/OsString/Internal/Types.hs:70) unPS (System/OsString/Internal/Types.hs:96) PlatformString (System/OsString/Internal/Types.hs:114) WindowsChar (System/OsString/Internal/Types.hs:117) unWW (System/OsString/Internal/Types.hs:131) PosixChar (System/OsString/Internal/Types.hs:123) unPW (System/OsString/Internal/Types.hs:139) PlatformChar (System/OsString/Internal/Types.hs:148) Warning: 'setFileSystemEncoding' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'getLocaleEncoding' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'PosixString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:87:23 * at System/OsString/Internal/Types.hs:87:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:87:1 Warning: 'OsString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 95% ( 95 /100) in 'System.OsString.Posix' Missing documentation for: Module header PosixChar (System/OsString/Internal/Types.hs:123) singleton (System/OsString/Common.hs:526) empty (System/OsString/Common.hs:529) concat (System/OsString/Common.hs:737) Warning: 'setFileSystemEncoding' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unsafePerformIO' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'getLocaleEncoding' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'OsString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:161:20 * at System/OsString/Internal/Types.hs:161:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:161:1 Warning: 'OsChar' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:210:18 * at System/OsString/Internal/Types.hs:210:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:210:1 Warning: 'head' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:293:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:293:1 Warning: 'tail' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:277:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:277:1 Warning: 'init' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:302:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:302:1 Warning: 'last' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:268:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:268:1 Warning: 'map' is ambiguous. It is defined * in GHC.Base * at System/OsString/Internal.hs:332:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:332:1 Warning: 'reverse' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:338:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:338:1 Warning: 'foldl' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:354:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:354:1 Warning: 'foldl1' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:368:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:368:1 Warning: 'foldr' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:384:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:384:1 Warning: 'foldr1' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:398:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:398:1 Warning: 'all' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:412:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:412:1 Warning: 'any' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:419:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:419:1 Warning: 'replicate' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:434:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:434:1 Warning: 'take' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:476:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:476:1 Warning: 'length' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:325:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:325:1 Warning: 'drop' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:513:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:513:1 Warning: 'takeWhile' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:507:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:507:1 Warning: 'dropWhile' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:535:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:535:1 Warning: 'break' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:564:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:564:1 Warning: 'span' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:574:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:574:1 Warning: 'splitAt' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:599:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:599:1 Warning: 'elem' is ambiguous. It is defined * in Data.Foldable * at System/OsString/Internal.hs:702:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:702:1 Warning: 'filter' is ambiguous. It is defined * in GHC.List * at System/OsString/Internal.hs:720:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal.hs:720:1 94% ( 75 / 79) in 'System.OsString.Internal' Missing documentation for: Module header empty (System/OsString/Internal.hs:233) singleton (System/OsString/Internal.hs:236) concat (System/OsString/Internal.hs:425) Warning: 'setFileSystemEncoding' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unsafePerformIO' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 96% ( 96 / 99) in 'System.OsString' Missing documentation for: empty (System/OsString/Internal.hs:233) singleton (System/OsString/Internal.hs:236) concat (System/OsString/Internal.hs:425) Warning: 'unsafeDupablePerformIO' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'WindowsString' is ambiguous. It is defined * at System/OsString/Internal/Types.hs:60:25 * at System/OsString/Internal/Types.hs:60:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/OsString/Internal/Types.hs:60:1 Warning: 'OsString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 94% ( 94 / 99) in 'System.OsString.Windows' Missing documentation for: Module header WindowsChar (System/OsString/Internal/Types.hs:117) singleton (System/OsString/Common.hs:526) empty (System/OsString/Common.hs:529) concat (System/OsString/Common.hs:737) Warning: System.OsString.Data.ByteString.Short: could not find link destinations for: - Data.ByteString.Short.Internal.Rep_ShortByteString - Data.ByteString.Short.Internal.D:R:ItemShortByteString Warning: System.OsString.Data.ByteString.Short.Word16: could not find link destinations for: - Data.ByteString.Short.Internal.Rep_ShortByteString - Data.ByteString.Short.Internal.D:R:ItemShortByteString Warning: System.OsString.Internal.Types: could not find link destinations for: - System.OsString.Internal.Types.Rep_OsChar - System.OsString.Internal.Types.Rep_OsString - System.OsString.Internal.Types.Rep_PosixChar - System.OsString.Internal.Types.Rep_WindowsChar - System.OsString.Internal.Types.Rep_PosixString - System.OsString.Internal.Types.Rep_WindowsString Warning: System.OsString.Posix: could not find link destinations for: - System.OsString.Internal.Types.Rep_PosixChar - System.OsString.Internal.Types.Rep_PosixString Warning: System.OsString: could not find link destinations for: - System.OsString.Internal.Types.Rep_OsChar - System.OsString.Internal.Types.Rep_OsString Warning: System.OsString.Windows: could not find link destinations for: - System.OsString.Internal.Types.Rep_WindowsChar - System.OsString.Internal.Types.Rep_WindowsString Documentation created: dist/doc/html/os-string/, dist/doc/html/os-string/os-string.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/os-string-2.0.8-JLOCx5syZ3qViIHERGXha Completed os-string-2.0.8 Configuring parser-combinators-1.3.0... Preprocessing library for parser-combinators-1.3.0.. Building library for parser-combinators-1.3.0.. [1 of 7] Compiling Control.Applicative.Combinators ( Control/Applicative/Combinators.hs, dist/build/Control/Applicative/Combinators.o, dist/build/Control/Applicative/Combinators.dyn_o ) Control/Applicative/Combinators.hs:87:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Foldable is redundant except perhaps to import instances from Data.Foldable To import instances alone, use: import Data.Foldable() | 87 | import Data.Foldable | ^^^^^^^^^^^^^^^^^^^^ [2 of 7] Compiling Control.Applicative.Combinators.NonEmpty ( Control/Applicative/Combinators/NonEmpty.hs, dist/build/Control/Applicative/Combinators/NonEmpty.o, dist/build/Control/Applicative/Combinators/NonEmpty.dyn_o ) [3 of 7] Compiling Control.Applicative.Permutations ( Control/Applicative/Permutations.hs, dist/build/Control/Applicative/Permutations.o, dist/build/Control/Applicative/Permutations.dyn_o ) [4 of 7] Compiling Control.Monad.Combinators ( Control/Monad/Combinators.hs, dist/build/Control/Monad/Combinators.o, dist/build/Control/Monad/Combinators.dyn_o ) [5 of 7] Compiling Control.Monad.Combinators.Expr ( Control/Monad/Combinators/Expr.hs, dist/build/Control/Monad/Combinators/Expr.o, dist/build/Control/Monad/Combinators/Expr.dyn_o ) [6 of 7] Compiling Control.Monad.Combinators.NonEmpty ( Control/Monad/Combinators/NonEmpty.hs, dist/build/Control/Monad/Combinators/NonEmpty.o, dist/build/Control/Monad/Combinators/NonEmpty.dyn_o ) [7 of 7] Compiling Control.Monad.Permutations ( Control/Monad/Permutations.hs, dist/build/Control/Monad/Permutations.o, dist/build/Control/Monad/Permutations.dyn_o ) Preprocessing library for parser-combinators-1.3.0.. Running Haddock on library for parser-combinators-1.3.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 7] Compiling Control.Applicative.Combinators ( Control/Applicative/Combinators.hs, nothing ) Control/Applicative/Combinators.hs:87:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Foldable is redundant except perhaps to import instances from Data.Foldable To import instances alone, use: import Data.Foldable() | 87 | import Data.Foldable | ^^^^^^^^^^^^^^^^^^^^ [2 of 7] Compiling Control.Applicative.Combinators.NonEmpty ( Control/Applicative/Combinators/NonEmpty.hs, nothing ) [3 of 7] Compiling Control.Applicative.Permutations ( Control/Applicative/Permutations.hs, nothing ) [4 of 7] Compiling Control.Monad.Combinators ( Control/Monad/Combinators.hs, nothing ) [5 of 7] Compiling Control.Monad.Combinators.Expr ( Control/Monad/Combinators/Expr.hs, nothing ) [6 of 7] Compiling Control.Monad.Combinators.NonEmpty ( Control/Monad/Combinators/NonEmpty.hs, nothing ) [7 of 7] Compiling Control.Monad.Permutations ( Control/Monad/Permutations.hs, nothing ) Haddock coverage: 100% ( 34 / 34) in 'Control.Applicative.Combinators' 100% ( 6 / 6) in 'Control.Applicative.Combinators.NonEmpty' 100% ( 9 / 9) in 'Control.Applicative.Permutations' 100% ( 32 / 32) in 'Control.Monad.Combinators' 100% ( 3 / 3) in 'Control.Monad.Combinators.Expr' 100% ( 6 / 6) in 'Control.Monad.Combinators.NonEmpty' 100% ( 9 / 9) in 'Control.Monad.Permutations' Documentation created: dist/doc/html/parser-combinators/, dist/doc/html/parser-combinators/parser-combinators.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/parser-combinators-1.3.0-FahW63iF2QD8c93hboguXT Completed parser-combinators-1.3.0 Configuring path-pieces-0.2.1... Preprocessing library for path-pieces-0.2.1.. Building library for path-pieces-0.2.1.. [1 of 1] Compiling Web.PathPieces ( Web/PathPieces.hs, dist/build/Web/PathPieces.o, dist/build/Web/PathPieces.dyn_o ) Web/PathPieces.hs:15:19: warning: [GHC-38856] [-Wunused-imports] The import of Word from module Data.Word is redundant | 15 | import Data.Word (Word, Word8, Word16, Word32, Word64) | ^^^^ Web/PathPieces.hs:49:5: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type Maybe a not matched: Nothing | 49 | Just witness = n | ^^^^^^^^^^^^^^^^ Preprocessing library for path-pieces-0.2.1.. Running Haddock on library for path-pieces-0.2.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Web.PathPieces ( Web/PathPieces.hs, nothing ) Web/PathPieces.hs:15:19: warning: [GHC-38856] [-Wunused-imports] The import of Word from module Data.Word is redundant | 15 | import Data.Word (Word, Word8, Word16, Word32, Word64) | ^^^^ Haddock coverage: 30% ( 3 / 10) in 'Web.PathPieces' Missing documentation for: Module header PathPiece (Web/PathPieces.hs:23) PathMultiPiece (Web/PathPieces.hs:124) toSinglePiece (Web/PathPieces.hs:155) toMultiPiece (Web/PathPieces.hs:163) fromSinglePiece (Web/PathPieces.hs:159) fromMultiPiece (Web/PathPieces.hs:167) Documentation created: dist/doc/html/path-pieces/, dist/doc/html/path-pieces/path-pieces.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/path-pieces-0.2.1-FMpWGLsLCs17X59OilBcU7 Completed path-pieces-0.2.1 Configuring prettyprinter-1.7.1... Preprocessing library for prettyprinter-1.7.1.. Building library for prettyprinter-1.7.1.. [ 1 of 28] Compiling Prettyprinter.Render.Util.Panic ( src/Prettyprinter/Render/Util/Panic.hs, dist/build/Prettyprinter/Render/Util/Panic.o, dist/build/Prettyprinter/Render/Util/Panic.dyn_o ) [ 2 of 28] Compiling Prettyprinter.Internal ( src/Prettyprinter/Internal.hs, dist/build/Prettyprinter/Internal.o, dist/build/Prettyprinter/Internal.dyn_o ) [ 3 of 28] Compiling Prettyprinter.Render.String ( src/Prettyprinter/Render/String.hs, dist/build/Prettyprinter/Render/String.o, dist/build/Prettyprinter/Render/String.dyn_o ) [ 4 of 28] Compiling Data.Text.Prettyprint.Doc.Render.String ( src/Data/Text/Prettyprint/Doc/Render/String.hs, dist/build/Data/Text/Prettyprint/Doc/Render/String.o, dist/build/Data/Text/Prettyprint/Doc/Render/String.dyn_o ) [ 5 of 28] Compiling Prettyprinter.Internal.Type ( src/Prettyprinter/Internal/Type.hs, dist/build/Prettyprinter/Internal/Type.o, dist/build/Prettyprinter/Internal/Type.dyn_o ) [ 6 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Type ( src/Data/Text/Prettyprint/Doc/Internal/Type.hs, dist/build/Data/Text/Prettyprint/Doc/Internal/Type.o, dist/build/Data/Text/Prettyprint/Doc/Internal/Type.dyn_o ) [ 7 of 28] Compiling Prettyprinter.Internal.Debug ( src/Prettyprinter/Internal/Debug.hs, dist/build/Prettyprinter/Internal/Debug.o, dist/build/Prettyprinter/Internal/Debug.dyn_o ) [ 8 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Debug ( src/Data/Text/Prettyprint/Doc/Internal/Debug.hs, dist/build/Data/Text/Prettyprint/Doc/Internal/Debug.o, dist/build/Data/Text/Prettyprint/Doc/Internal/Debug.dyn_o ) [ 9 of 28] Compiling Data.Text.Prettyprint.Doc.Internal ( src/Data/Text/Prettyprint/Doc/Internal.hs, dist/build/Data/Text/Prettyprint/Doc/Internal.o, dist/build/Data/Text/Prettyprint/Doc/Internal.dyn_o ) [10 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.Panic ( src/Data/Text/Prettyprint/Doc/Render/Util/Panic.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Util/Panic.o, dist/build/Data/Text/Prettyprint/Doc/Render/Util/Panic.dyn_o ) [11 of 28] Compiling Prettyprinter.Render.Util.StackMachine ( src/Prettyprinter/Render/Util/StackMachine.hs, dist/build/Prettyprinter/Render/Util/StackMachine.o, dist/build/Prettyprinter/Render/Util/StackMachine.dyn_o ) src/Prettyprinter/Render/Util/StackMachine.hs:34:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 34 | import Control.Applicative | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [12 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.StackMachine ( src/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.o, dist/build/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.dyn_o ) [13 of 28] Compiling Prettyprinter.Symbols.Ascii ( src/Prettyprinter/Symbols/Ascii.hs, dist/build/Prettyprinter/Symbols/Ascii.o, dist/build/Prettyprinter/Symbols/Ascii.dyn_o ) [14 of 28] Compiling Prettyprinter ( src/Prettyprinter.hs, dist/build/Prettyprinter.o, dist/build/Prettyprinter.dyn_o ) [15 of 28] Compiling Prettyprinter.Render.Util.SimpleDocTree ( src/Prettyprinter/Render/Util/SimpleDocTree.hs, dist/build/Prettyprinter/Render/Util/SimpleDocTree.o, dist/build/Prettyprinter/Render/Util/SimpleDocTree.dyn_o ) [16 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.SimpleDocTree ( src/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.o, dist/build/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.dyn_o ) [17 of 28] Compiling Prettyprinter.Render.Tutorials.TreeRenderingTutorial ( src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs, dist/build/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.o, dist/build/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.dyn_o ) [18 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.TreeRenderingTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.o, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.dyn_o ) [19 of 28] Compiling Prettyprinter.Render.Tutorials.StackMachineTutorial ( src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs, dist/build/Prettyprinter/Render/Tutorials/StackMachineTutorial.o, dist/build/Prettyprinter/Render/Tutorials/StackMachineTutorial.dyn_o ) [20 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.StackMachineTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.o, dist/build/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.dyn_o ) src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs:7:1: warning: [GHC-15328] [-Wdeprecations] Module Prettyprinter.Render.Tutorials.StackMachineTutorial is deprecated: "Writing your own stack machine is probably more efficient and customizable; also consider using »renderSimplyDecorated(A)« instead" | 7 | import Prettyprinter.Render.Tutorials.StackMachineTutorial | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [21 of 28] Compiling Prettyprinter.Render.Text ( src/Prettyprinter/Render/Text.hs, dist/build/Prettyprinter/Render/Text.o, dist/build/Prettyprinter/Render/Text.dyn_o ) [22 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Text ( src/Data/Text/Prettyprint/Doc/Render/Text.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Text.o, dist/build/Data/Text/Prettyprint/Doc/Render/Text.dyn_o ) [23 of 28] Compiling Data.Text.Prettyprint.Doc ( src/Data/Text/Prettyprint/Doc.hs, dist/build/Data/Text/Prettyprint/Doc.o, dist/build/Data/Text/Prettyprint/Doc.dyn_o ) [24 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Ascii ( src/Data/Text/Prettyprint/Doc/Symbols/Ascii.hs, dist/build/Data/Text/Prettyprint/Doc/Symbols/Ascii.o, dist/build/Data/Text/Prettyprint/Doc/Symbols/Ascii.dyn_o ) [25 of 28] Compiling Prettyprinter.Symbols.Unicode ( src/Prettyprinter/Symbols/Unicode.hs, dist/build/Prettyprinter/Symbols/Unicode.o, dist/build/Prettyprinter/Symbols/Unicode.dyn_o ) [26 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Unicode ( src/Data/Text/Prettyprint/Doc/Symbols/Unicode.hs, dist/build/Data/Text/Prettyprint/Doc/Symbols/Unicode.o, dist/build/Data/Text/Prettyprint/Doc/Symbols/Unicode.dyn_o ) [27 of 28] Compiling Prettyprinter.Util ( src/Prettyprinter/Util.hs, dist/build/Prettyprinter/Util.o, dist/build/Prettyprinter/Util.dyn_o ) [28 of 28] Compiling Data.Text.Prettyprint.Doc.Util ( src/Data/Text/Prettyprint/Doc/Util.hs, dist/build/Data/Text/Prettyprint/Doc/Util.o, dist/build/Data/Text/Prettyprint/Doc/Util.dyn_o ) Preprocessing library for prettyprinter-1.7.1.. Running Haddock on library for prettyprinter-1.7.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 28] Compiling Prettyprinter.Render.Util.Panic ( src/Prettyprinter/Render/Util/Panic.hs, nothing ) [ 2 of 28] Compiling Prettyprinter.Internal ( src/Prettyprinter/Internal.hs, nothing ) [ 3 of 28] Compiling Prettyprinter.Render.String ( src/Prettyprinter/Render/String.hs, nothing ) [ 4 of 28] Compiling Data.Text.Prettyprint.Doc.Render.String ( src/Data/Text/Prettyprint/Doc/Render/String.hs, nothing ) [ 5 of 28] Compiling Prettyprinter.Internal.Type ( src/Prettyprinter/Internal/Type.hs, nothing ) [ 6 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Type ( src/Data/Text/Prettyprint/Doc/Internal/Type.hs, nothing ) [ 7 of 28] Compiling Prettyprinter.Internal.Debug ( src/Prettyprinter/Internal/Debug.hs, nothing ) [ 8 of 28] Compiling Data.Text.Prettyprint.Doc.Internal.Debug ( src/Data/Text/Prettyprint/Doc/Internal/Debug.hs, nothing ) [ 9 of 28] Compiling Data.Text.Prettyprint.Doc.Internal ( src/Data/Text/Prettyprint/Doc/Internal.hs, nothing ) [10 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.Panic ( src/Data/Text/Prettyprint/Doc/Render/Util/Panic.hs, nothing ) [11 of 28] Compiling Prettyprinter.Render.Util.StackMachine ( src/Prettyprinter/Render/Util/StackMachine.hs, nothing ) src/Prettyprinter/Render/Util/StackMachine.hs:34:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 34 | import Control.Applicative | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [12 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.StackMachine ( src/Data/Text/Prettyprint/Doc/Render/Util/StackMachine.hs, nothing ) [13 of 28] Compiling Prettyprinter.Symbols.Ascii ( src/Prettyprinter/Symbols/Ascii.hs, nothing ) [14 of 28] Compiling Prettyprinter ( src/Prettyprinter.hs, nothing ) [15 of 28] Compiling Prettyprinter.Render.Util.SimpleDocTree ( src/Prettyprinter/Render/Util/SimpleDocTree.hs, nothing ) [16 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Util.SimpleDocTree ( src/Data/Text/Prettyprint/Doc/Render/Util/SimpleDocTree.hs, nothing ) [17 of 28] Compiling Prettyprinter.Render.Tutorials.TreeRenderingTutorial ( src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs, nothing ) [18 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.TreeRenderingTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/TreeRenderingTutorial.hs, nothing ) [19 of 28] Compiling Prettyprinter.Render.Tutorials.StackMachineTutorial ( src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs, nothing ) [20 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Tutorials.StackMachineTutorial ( src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs, nothing ) src/Data/Text/Prettyprint/Doc/Render/Tutorials/StackMachineTutorial.hs:7:1: warning: [GHC-15328] [-Wdeprecations] Module Prettyprinter.Render.Tutorials.StackMachineTutorial is deprecated: "Writing your own stack machine is probably more efficient and customizable; also consider using »renderSimplyDecorated(A)« instead" | 7 | import Prettyprinter.Render.Tutorials.StackMachineTutorial | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [21 of 28] Compiling Prettyprinter.Render.Text ( src/Prettyprinter/Render/Text.hs, nothing ) [22 of 28] Compiling Data.Text.Prettyprint.Doc.Render.Text ( src/Data/Text/Prettyprint/Doc/Render/Text.hs, nothing ) [23 of 28] Compiling Data.Text.Prettyprint.Doc ( src/Data/Text/Prettyprint/Doc.hs, nothing ) [24 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Ascii ( src/Data/Text/Prettyprint/Doc/Symbols/Ascii.hs, nothing ) [25 of 28] Compiling Prettyprinter.Symbols.Unicode ( src/Prettyprinter/Symbols/Unicode.hs, nothing ) [26 of 28] Compiling Data.Text.Prettyprint.Doc.Symbols.Unicode ( src/Data/Text/Prettyprint/Doc/Symbols/Unicode.hs, nothing ) [27 of 28] Compiling Prettyprinter.Util ( src/Prettyprinter/Util.hs, nothing ) [28 of 28] Compiling Data.Text.Prettyprint.Doc.Util ( src/Data/Text/Prettyprint/Doc/Util.hs, nothing ) Haddock coverage: 57% ( 4 / 7) in 'Prettyprinter.Render.Util.Panic' Missing documentation for: Module header panicPeekedEmpty (src/Prettyprinter/Render/Util/Panic.hs:36) panicPoppedEmpty (src/Prettyprinter/Render/Util/Panic.hs:36) Warning: 'Text' is ambiguous. It is defined * at src/Prettyprinter/Internal.hs:159:7 * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7 Warning: 'parens' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'space' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'doc' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'putDoc' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'hPutDoc' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'reAnnotateST' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'comma' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 98% ( 77 / 78) in 'Prettyprinter.Internal' Missing documentation for: defaultPageWidth (src/Prettyprinter/Internal.hs:1778) 66% ( 2 / 3) in 'Prettyprinter.Render.String' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.String' Missing documentation for: Module header 100% ( 2 / 2) in 'Prettyprinter.Internal.Type' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Internal.Type' Missing documentation for: Module header 75% ( 3 / 4) in 'Prettyprinter.Internal.Debug' Missing documentation for: diag' (src/Prettyprinter/Internal/Debug.hs:76) 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Internal.Debug' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Internal' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Util.Panic' Missing documentation for: Module header Warning: 'Text' is ambiguous. It is defined * at src/Prettyprinter/Internal.hs:159:7 * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7 100% ( 13 / 13) in 'Prettyprinter.Render.Util.StackMachine' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Util.StackMachine' Missing documentation for: Module header 100% ( 27 / 27) in 'Prettyprinter.Symbols.Ascii' Warning: 'Keyword' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Red' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'color' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'colorDull' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'bgColor' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'bgColorDull' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% (112 /112) in 'Prettyprinter' Warning: 'Text' is ambiguous. It is defined * at src/Prettyprinter/Internal.hs:159:7 * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7 100% ( 11 / 11) in 'Prettyprinter.Render.Util.SimpleDocTree' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Util.SimpleDocTree' Missing documentation for: Module header 61% ( 11 / 18) in 'Prettyprinter.Render.Tutorials.TreeRenderingTutorial' Missing documentation for: SimpleHtml (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:40) Color (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:41) bold (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:46) italics (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:47) paragraph (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:48) headline (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:49) color (src/Prettyprinter/Render/Tutorials/TreeRenderingTutorial.hs:52) 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Tutorials.TreeRenderingTutorial' Missing documentation for: Module header 61% ( 11 / 18) in 'Prettyprinter.Render.Tutorials.StackMachineTutorial' Missing documentation for: SimpleHtml (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:43) Color (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:44) bold (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:49) italics (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:50) paragraph (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:51) headline (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:52) color (src/Prettyprinter/Render/Tutorials/StackMachineTutorial.hs:55) 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Tutorials.StackMachineTutorial' Missing documentation for: Module header Warning: 'Text' is ambiguous. It is defined * at src/Prettyprinter/Internal.hs:159:7 * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Prettyprinter/Internal.hs:159:7 100% ( 9 / 9) in 'Prettyprinter.Render.Text' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Text' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Symbols.Ascii' Missing documentation for: Module header 100% ( 30 / 30) in 'Prettyprinter.Symbols.Unicode' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Symbols.Unicode' Missing documentation for: Module header Warning: Prettyprinter.Util: Could not find documentation for exported module: Prettyprinter.Util 100% ( 4 / 4) in 'Prettyprinter.Util' 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Util' Missing documentation for: Module header Warning: Prettyprinter.Internal: could not find link destinations for: - Prettyprinter.Internal.Rep_Doc - Prettyprinter.Internal.Rep_SimpleDocStream Warning: Prettyprinter.Internal.Type: could not find link destinations for: - Prettyprinter.Internal.Rep_Doc Warning: Prettyprinter: could not find link destinations for: - Prettyprinter.Internal.Rep_Doc - Prettyprinter.Internal.Rep_SimpleDocStream Warning: Prettyprinter.Render.Util.SimpleDocTree: could not find link destinations for: - Prettyprinter.Render.Util.SimpleDocTree.Rep_SimpleDocTree Documentation created: dist/doc/html/prettyprinter/, dist/doc/html/prettyprinter/prettyprinter.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/prettyprinter-1.7.1-UnQFunVR8xJApG1SQhvgB Completed prettyprinter-1.7.1 Configuring primitive-0.9.1.0... Preprocessing library for primitive-0.9.1.0.. Building library for primitive-0.9.1.0.. [ 1 of 14] Compiling Data.Primitive.Internal.Read ( Data/Primitive/Internal/Read.hs, dist/build/Data/Primitive/Internal/Read.o, dist/build/Data/Primitive/Internal/Read.dyn_o ) [ 2 of 14] Compiling Data.Primitive.MachDeps ( Data/Primitive/MachDeps.hs, dist/build/Data/Primitive/MachDeps.o, dist/build/Data/Primitive/MachDeps.dyn_o ) [ 3 of 14] Compiling Data.Primitive.Internal.Operations ( Data/Primitive/Internal/Operations.hs, dist/build/Data/Primitive/Internal/Operations.o, dist/build/Data/Primitive/Internal/Operations.dyn_o ) [ 4 of 14] Compiling Control.Monad.Primitive ( Control/Monad/Primitive.hs, dist/build/Control/Monad/Primitive.o, dist/build/Control/Monad/Primitive.dyn_o ) [ 5 of 14] Compiling Data.Primitive.MVar ( Data/Primitive/MVar.hs, dist/build/Data/Primitive/MVar.o, dist/build/Data/Primitive/MVar.dyn_o ) [ 6 of 14] Compiling Data.Primitive.Array ( Data/Primitive/Array.hs, dist/build/Data/Primitive/Array.o, dist/build/Data/Primitive/Array.dyn_o ) [ 7 of 14] Compiling Data.Primitive.MutVar ( Data/Primitive/MutVar.hs, dist/build/Data/Primitive/MutVar.o, dist/build/Data/Primitive/MutVar.dyn_o ) [ 8 of 14] Compiling Data.Primitive.SmallArray ( Data/Primitive/SmallArray.hs, dist/build/Data/Primitive/SmallArray.o, dist/build/Data/Primitive/SmallArray.dyn_o ) [ 9 of 14] Compiling Data.Primitive.Types ( Data/Primitive/Types.hs, dist/build/Data/Primitive/Types.o, dist/build/Data/Primitive/Types.dyn_o ) [10 of 14] Compiling Data.Primitive.ByteArray ( Data/Primitive/ByteArray.hs, dist/build/Data/Primitive/ByteArray.o, dist/build/Data/Primitive/ByteArray.dyn_o ) [11 of 14] Compiling Data.Primitive.PrimArray ( Data/Primitive/PrimArray.hs, dist/build/Data/Primitive/PrimArray.o, dist/build/Data/Primitive/PrimArray.dyn_o ) [12 of 14] Compiling Data.Primitive.Ptr ( Data/Primitive/Ptr.hs, dist/build/Data/Primitive/Ptr.o, dist/build/Data/Primitive/Ptr.dyn_o ) [13 of 14] Compiling Data.Primitive ( Data/Primitive.hs, dist/build/Data/Primitive.o, dist/build/Data/Primitive.dyn_o ) [14 of 14] Compiling Data.Primitive.PrimVar ( Data/Primitive/PrimVar.hs, dist/build/Data/Primitive/PrimVar.o, dist/build/Data/Primitive/PrimVar.dyn_o ) Preprocessing library for primitive-0.9.1.0.. Running Haddock on library for primitive-0.9.1.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 14] Compiling Data.Primitive.Internal.Read ( Data/Primitive/Internal/Read.hs, nothing ) [ 2 of 14] Compiling Data.Primitive.MachDeps ( Data/Primitive/MachDeps.hs, nothing ) [ 3 of 14] Compiling Data.Primitive.Internal.Operations ( Data/Primitive/Internal/Operations.hs, nothing ) [ 4 of 14] Compiling Control.Monad.Primitive ( Control/Monad/Primitive.hs, nothing ) [ 5 of 14] Compiling Data.Primitive.MVar ( Data/Primitive/MVar.hs, nothing ) [ 6 of 14] Compiling Data.Primitive.Array ( Data/Primitive/Array.hs, nothing ) [ 7 of 14] Compiling Data.Primitive.MutVar ( Data/Primitive/MutVar.hs, nothing ) [ 8 of 14] Compiling Data.Primitive.SmallArray ( Data/Primitive/SmallArray.hs, nothing ) [ 9 of 14] Compiling Data.Primitive.Types ( Data/Primitive/Types.hs, nothing ) [10 of 14] Compiling Data.Primitive.ByteArray ( Data/Primitive/ByteArray.hs, nothing ) [11 of 14] Compiling Data.Primitive.PrimArray ( Data/Primitive/PrimArray.hs, nothing ) [12 of 14] Compiling Data.Primitive.Ptr ( Data/Primitive/Ptr.hs, nothing ) [13 of 14] Compiling Data.Primitive ( Data/Primitive.hs, nothing ) [14 of 14] Compiling Data.Primitive.PrimVar ( Data/Primitive/PrimVar.hs, nothing ) Haddock coverage: 2% ( 1 / 35) in 'Data.Primitive.MachDeps' Missing documentation for: sIZEOF_CHAR (Data/Primitive/MachDeps.hs:68) aLIGNMENT_CHAR (Data/Primitive/MachDeps.hs:69) sIZEOF_INT (Data/Primitive/MachDeps.hs:71) aLIGNMENT_INT (Data/Primitive/MachDeps.hs:72) sIZEOF_WORD (Data/Primitive/MachDeps.hs:74) aLIGNMENT_WORD (Data/Primitive/MachDeps.hs:75) sIZEOF_DOUBLE (Data/Primitive/MachDeps.hs:77) aLIGNMENT_DOUBLE (Data/Primitive/MachDeps.hs:78) sIZEOF_FLOAT (Data/Primitive/MachDeps.hs:80) aLIGNMENT_FLOAT (Data/Primitive/MachDeps.hs:81) sIZEOF_PTR (Data/Primitive/MachDeps.hs:83) aLIGNMENT_PTR (Data/Primitive/MachDeps.hs:84) sIZEOF_FUNPTR (Data/Primitive/MachDeps.hs:86) aLIGNMENT_FUNPTR (Data/Primitive/MachDeps.hs:87) sIZEOF_STABLEPTR (Data/Primitive/MachDeps.hs:89) aLIGNMENT_STABLEPTR (Data/Primitive/MachDeps.hs:90) sIZEOF_INT8 (Data/Primitive/MachDeps.hs:92) aLIGNMENT_INT8 (Data/Primitive/MachDeps.hs:93) sIZEOF_WORD8 (Data/Primitive/MachDeps.hs:95) aLIGNMENT_WORD8 (Data/Primitive/MachDeps.hs:96) sIZEOF_INT16 (Data/Primitive/MachDeps.hs:98) aLIGNMENT_INT16 (Data/Primitive/MachDeps.hs:99) sIZEOF_WORD16 (Data/Primitive/MachDeps.hs:101) aLIGNMENT_WORD16 (Data/Primitive/MachDeps.hs:102) sIZEOF_INT32 (Data/Primitive/MachDeps.hs:104) aLIGNMENT_INT32 (Data/Primitive/MachDeps.hs:105) sIZEOF_WORD32 (Data/Primitive/MachDeps.hs:107) aLIGNMENT_WORD32 (Data/Primitive/MachDeps.hs:108) sIZEOF_INT64 (Data/Primitive/MachDeps.hs:110) aLIGNMENT_INT64 (Data/Primitive/MachDeps.hs:111) sIZEOF_WORD64 (Data/Primitive/MachDeps.hs:113) aLIGNMENT_WORD64 (Data/Primitive/MachDeps.hs:114) Word64_# (Data/Primitive/MachDeps.hs:117) Int64_# (Data/Primitive/MachDeps.hs:118) Warning: 'IO' is ambiguous. It is defined * in GHC.Types * in GHC.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Types Warning: 'ST' is ambiguous. It is defined * in GHC.ST * in GHC.ST You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.ST 89% ( 26 / 29) in 'Control.Monad.Primitive' Missing documentation for: unsafeInterleave (Control/Monad/Primitive.hs:408) unsafeDupableInterleave (Control/Monad/Primitive.hs:409) noDuplicate (Control/Monad/Primitive.hs:401) Warning: 'MVar' is ambiguous. It is defined * at Data/Primitive/MVar.hs:41:17 * at Data/Primitive/MVar.hs:41:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/MVar.hs:41:1 100% ( 11 / 11) in 'Data.Primitive.MVar' Warning: 'Array' is ambiguous. It is defined * at Data/Primitive/Array.hs:65:16 * at Data/Primitive/Array.hs:65:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/Array.hs:65:1 Warning: 'MutableArray' is ambiguous. It is defined * at Data/Primitive/Array.hs:108:25 * at Data/Primitive/Array.hs:108:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/Array.hs:108:1 100% ( 27 / 27) in 'Data.Primitive.Array' Warning: 'MutVar' is ambiguous. It is defined * at Data/Primitive/MutVar.hs:44:19 * at Data/Primitive/MutVar.hs:44:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/MutVar.hs:44:1 Warning: 'IORef' is ambiguous. It is defined * in GHC.IORef * in GHC.IORef You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.IORef Warning: 'STRef' is ambiguous. It is defined * in GHC.STRef * in GHC.STRef You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.STRef 100% ( 15 / 15) in 'Data.Primitive.MutVar' Warning: 'SmallArray' is ambiguous. It is defined * at Data/Primitive/SmallArray.hs:95:21 * at Data/Primitive/SmallArray.hs:95:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/SmallArray.hs:95:1 Warning: 'Identity' is ambiguous. It is defined * in Data.Functor.Identity * in Data.Functor.Identity You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Identity Warning: 'SmallMutableArray' is ambiguous. It is defined * at Data/Primitive/SmallArray.hs:106:30 * at Data/Primitive/SmallArray.hs:106:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/SmallArray.hs:106:1 93% ( 27 / 29) in 'Data.Primitive.SmallArray' Missing documentation for: SmallArray (Data/Primitive/SmallArray.hs:95) SmallMutableArray (Data/Primitive/SmallArray.hs:106) 100% ( 10 / 10) in 'Data.Primitive.Types' Warning: 'MutableByteArray' is ambiguous. It is defined * in Data.Array.Byte * in Data.Array.Byte You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Array.Byte Warning: 'ByteArray' is ambiguous. It is defined * in Data.Array.Byte * in Data.Array.Byte You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Array.Byte 98% ( 61 / 62) in 'Data.Primitive.ByteArray' Missing documentation for: createByteArray (Data/Primitive/ByteArray.hs:672) Warning: 'PrimArray' is ambiguous. It is defined * at Data/Primitive/PrimArray.hs:144:20 * at Data/Primitive/PrimArray.hs:144:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/PrimArray.hs:144:1 Warning: 'MutablePrimArray' is ambiguous. It is defined * at Data/Primitive/PrimArray.hs:167:29 * at Data/Primitive/PrimArray.hs:167:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/PrimArray.hs:167:1 Warning: 'ByteArray' is ambiguous. It is defined * in Data.Array.Byte * in Data.Array.Byte You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Array.Byte 100% ( 78 / 78) in 'Data.Primitive.PrimArray' Warning: 'Ptr' is ambiguous. It is defined * in GHC.Ptr * in GHC.Ptr You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Ptr 100% ( 17 / 17) in 'Data.Primitive.Ptr' 100% ( 10 / 10) in 'Data.Primitive' Warning: 'PrimVar' is ambiguous. It is defined * at Data/Primitive/PrimVar.hs:49:23 * at Data/Primitive/PrimVar.hs:49:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/PrimVar.hs:49:1 Warning: 'MutablePrimArray' is ambiguous. It is defined * at Data/Primitive/PrimArray.hs:167:29 * at Data/Primitive/PrimArray.hs:167:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Primitive/PrimArray.hs:167:1 100% ( 22 / 22) in 'Data.Primitive.PrimVar' Warning: Control.Monad.Primitive: could not find link destinations for: - Control.Monad.Primitive.D:R:PrimStateST - Control.Monad.Primitive.D:R:PrimStateST0 - Control.Monad.Primitive.D:R:PrimStateRWST - Control.Monad.Primitive.D:R:PrimStateWriterT - Control.Monad.Primitive.D:R:PrimStateStateT - Control.Monad.Primitive.D:R:PrimStateSelectT - Control.Monad.Primitive.D:R:PrimStateAccumT - Control.Monad.Primitive.D:R:PrimStateExceptT - Control.Monad.Primitive.D:R:PrimStateRWST0 - Control.Monad.Primitive.D:R:PrimStateRWST1 - Control.Monad.Primitive.D:R:PrimStateWriterT0 - Control.Monad.Primitive.D:R:PrimStateWriterT1 - Control.Monad.Primitive.D:R:PrimStateStateT0 - Control.Monad.Primitive.D:R:PrimStateReaderT - Control.Monad.Primitive.D:R:PrimStateMaybeT - Control.Monad.Primitive.D:R:PrimStateIdentityT - Control.Monad.Primitive.D:R:PrimStateContT - Control.Monad.Primitive.D:R:PrimStateIO Warning: Data.Primitive.Array: could not find link destinations for: - Data.Primitive.Array.D:R:ItemArray Warning: Data.Primitive.SmallArray: could not find link destinations for: - Data.Primitive.SmallArray.D:R:ItemSmallArray Warning: Data.Primitive.Types: could not find link destinations for: - GHC.Generics.D:R:UReckPtrp0 - GHC.Generics.Rep_R:UReckPtrp - GHC.Generics.Rep1_R:UReckPtrp Warning: Data.Primitive.ByteArray: could not find link destinations for: - Data.Array.Byte.D:R:ItemByteArray Warning: Data.Primitive.PrimArray: could not find link destinations for: - Data.Primitive.PrimArray.D:R:ItemPrimArray Warning: Data.Primitive.Ptr: could not find link destinations for: - GHC.Generics.D:R:UReckPtrp0 - GHC.Generics.Rep_R:UReckPtrp - GHC.Generics.Rep1_R:UReckPtrp Documentation created: dist/doc/html/primitive/, dist/doc/html/primitive/primitive.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/primitive-0.9.1.0-FI4ablStFrKABDqEidp4iv Completed primitive-0.9.1.0 Configuring safe-exceptions-0.1.7.4... Preprocessing library for safe-exceptions-0.1.7.4.. Building library for safe-exceptions-0.1.7.4.. [1 of 1] Compiling Control.Exception.Safe ( src/Control/Exception/Safe.hs, dist/build/Control/Exception/Safe.o, dist/build/Control/Exception/Safe.dyn_o ) Preprocessing library for safe-exceptions-0.1.7.4.. Running Haddock on library for safe-exceptions-0.1.7.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Control.Exception.Safe ( src/Control/Exception/Safe.hs, nothing ) Haddock coverage: Warning: 'StringException' is ambiguous. It is defined * at src/Control/Exception/Safe.hs:193:24 * at src/Control/Exception/Safe.hs:193:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Control/Exception/Safe.hs:193:1 Warning: 'AsyncExceptionWrapper' is ambiguous. It is defined * at src/Control/Exception/Safe.hs:553:30 * at src/Control/Exception/Safe.hs:553:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Control/Exception/Safe.hs:553:1 Warning: 'SyncExceptionWrapper' is ambiguous. It is defined * at src/Control/Exception/Safe.hs:523:29 * at src/Control/Exception/Safe.hs:523:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Control/Exception/Safe.hs:523:1 100% ( 66 / 66) in 'Control.Exception.Safe' Warning: Control.Exception.Safe: could not find link destinations for: - GHC.IOPort.IOPortException Documentation created: dist/doc/html/safe-exceptions/, dist/doc/html/safe-exceptions/safe-exceptions.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/safe-exceptions-0.1.7.4-HEELpJrHsBu7dCqXXORL1I Completed safe-exceptions-0.1.7.4 Configuring silently-1.2.5.4... Preprocessing library for silently-1.2.5.4.. Building library for silently-1.2.5.4.. [1 of 1] Compiling System.IO.Silently ( src/System/IO/Silently.hs, dist/build/System/IO/Silently.o, dist/build/System/IO/Silently.dyn_o ) Preprocessing library for silently-1.2.5.4.. Running Haddock on library for silently-1.2.5.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling System.IO.Silently ( src/System/IO/Silently.hs, nothing ) Haddock coverage: 100% ( 7 / 7) in 'System.IO.Silently' Documentation created: dist/doc/html/silently/, dist/doc/html/silently/silently.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/silently-1.2.5.4-5U79Y14JDrXFPN2GYa2ShU Completed silently-1.2.5.4 Configuring split-0.2.5... Preprocessing library for split-0.2.5.. Building library for split-0.2.5.. [1 of 2] Compiling Data.List.Split.Internals ( src/Data/List/Split/Internals.hs, dist/build/Data/List/Split/Internals.o, dist/build/Data/List/Split/Internals.dyn_o ) [2 of 2] Compiling Data.List.Split ( src/Data/List/Split.hs, dist/build/Data/List/Split.o, dist/build/Data/List/Split.dyn_o ) Preprocessing library for split-0.2.5.. Running Haddock on library for split-0.2.5.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Data.List.Split.Internals ( src/Data/List/Split/Internals.hs, nothing ) [2 of 2] Compiling Data.List.Split ( src/Data/List/Split.hs, nothing ) Haddock coverage: Warning: 'Splitter' is ambiguous. It is defined * at src/Data/List/Split/Internals.hs:21:19 * at src/Data/List/Split/Internals.hs:21:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/List/Split/Internals.hs:21:1 Warning: 'n' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'm' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 91% ( 63 / 69) in 'Data.List.Split.Internals' Warning: 'Splitter' is ambiguous. It is defined * at src/Data/List/Split/Internals.hs:21:19 * at src/Data/List/Split/Internals.hs:21:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/List/Split/Internals.hs:21:1 90% ( 46 / 51) in 'Data.List.Split' Documentation created: dist/doc/html/split/, dist/doc/html/split/split.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/split-0.2.5-HdqIBMrRyNiLuV2hi4AZF8 Completed split-0.2.5 Configuring splitmix-0.1.3.1... Preprocessing library for splitmix-0.1.3.1.. Building library for splitmix-0.1.3.1.. [1 of 4] Compiling Data.Bits.Compat ( src-compat/Data/Bits/Compat.hs, dist/build/Data/Bits/Compat.o, dist/build/Data/Bits/Compat.dyn_o ) [2 of 4] Compiling System.Random.SplitMix.Init ( src/System/Random/SplitMix/Init.hs, dist/build/System/Random/SplitMix/Init.o, dist/build/System/Random/SplitMix/Init.dyn_o ) [3 of 4] Compiling System.Random.SplitMix ( src/System/Random/SplitMix.hs, dist/build/System/Random/SplitMix.o, dist/build/System/Random/SplitMix.dyn_o ) [4 of 4] Compiling System.Random.SplitMix32 ( src/System/Random/SplitMix32.hs, dist/build/System/Random/SplitMix32.o, dist/build/System/Random/SplitMix32.dyn_o ) Preprocessing library for splitmix-0.1.3.1.. Running Haddock on library for splitmix-0.1.3.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling Data.Bits.Compat ( src-compat/Data/Bits/Compat.hs, nothing ) [2 of 4] Compiling System.Random.SplitMix.Init ( src/System/Random/SplitMix/Init.hs, nothing ) [3 of 4] Compiling System.Random.SplitMix ( src/System/Random/SplitMix.hs, nothing ) [4 of 4] Compiling System.Random.SplitMix32 ( src/System/Random/SplitMix32.hs, nothing ) Haddock coverage: Warning: 'SMGen' is ambiguous. It is defined * at src/System/Random/SplitMix.hs:77:14 * at src/System/Random/SplitMix.hs:77:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/SplitMix.hs:77:1 100% ( 22 / 22) in 'System.Random.SplitMix' Warning: 'SMGen' is ambiguous. It is defined * at src/System/Random/SplitMix32.hs:61:14 * at src/System/Random/SplitMix32.hs:61:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/SplitMix32.hs:61:1 100% ( 22 / 22) in 'System.Random.SplitMix32' Documentation created: dist/doc/html/splitmix/, dist/doc/html/splitmix/splitmix.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/splitmix-0.1.3.1-FLXrwOMCBr82OHyMQoNXPe Completed splitmix-0.1.3.1 Configuring stm-chans-3.0.0.9... Preprocessing library for stm-chans-3.0.0.9.. Building library for stm-chans-3.0.0.9.. [1 of 5] Compiling Control.Concurrent.STM.TBChan ( src/Control/Concurrent/STM/TBChan.hs, dist/build/Control/Concurrent/STM/TBChan.o, dist/build/Control/Concurrent/STM/TBChan.dyn_o ) [2 of 5] Compiling Control.Concurrent.STM.TBMChan ( src/Control/Concurrent/STM/TBMChan.hs, dist/build/Control/Concurrent/STM/TBMChan.o, dist/build/Control/Concurrent/STM/TBMChan.dyn_o ) [3 of 5] Compiling Control.Concurrent.STM.TBMQueue ( src/Control/Concurrent/STM/TBMQueue.hs, dist/build/Control/Concurrent/STM/TBMQueue.o, dist/build/Control/Concurrent/STM/TBMQueue.dyn_o ) [4 of 5] Compiling Control.Concurrent.STM.TMChan ( src/Control/Concurrent/STM/TMChan.hs, dist/build/Control/Concurrent/STM/TMChan.o, dist/build/Control/Concurrent/STM/TMChan.dyn_o ) [5 of 5] Compiling Control.Concurrent.STM.TMQueue ( src/Control/Concurrent/STM/TMQueue.hs, dist/build/Control/Concurrent/STM/TMQueue.o, dist/build/Control/Concurrent/STM/TMQueue.dyn_o ) Preprocessing library for stm-chans-3.0.0.9.. Running Haddock on library for stm-chans-3.0.0.9.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling Control.Concurrent.STM.TBChan ( src/Control/Concurrent/STM/TBChan.hs, nothing ) [2 of 5] Compiling Control.Concurrent.STM.TBMChan ( src/Control/Concurrent/STM/TBMChan.hs, nothing ) [3 of 5] Compiling Control.Concurrent.STM.TBMQueue ( src/Control/Concurrent/STM/TBMQueue.hs, nothing ) [4 of 5] Compiling Control.Concurrent.STM.TMChan ( src/Control/Concurrent/STM/TMChan.hs, nothing ) [5 of 5] Compiling Control.Concurrent.STM.TMQueue ( src/Control/Concurrent/STM/TMQueue.hs, nothing ) Haddock coverage: 100% ( 21 / 21) in 'Control.Concurrent.STM.TBChan' 100% ( 24 / 24) in 'Control.Concurrent.STM.TBMChan' 100% ( 24 / 24) in 'Control.Concurrent.STM.TBMQueue' 100% ( 22 / 22) in 'Control.Concurrent.STM.TMChan' 100% ( 19 / 19) in 'Control.Concurrent.STM.TMQueue' Documentation created: dist/doc/html/stm-chans/, dist/doc/html/stm-chans/stm-chans.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/stm-chans-3.0.0.9-41ZwzhcTumHBxljpApWY7N Completed stm-chans-3.0.0.9 Configuring tagged-0.8.9... Preprocessing library for tagged-0.8.9.. Building library for tagged-0.8.9.. [1 of 2] Compiling Data.Proxy.TH ( src/Data/Proxy/TH.hs, dist/build/Data/Proxy/TH.o, dist/build/Data/Proxy/TH.dyn_o ) [2 of 2] Compiling Data.Tagged ( src/Data/Tagged.hs, dist/build/Data/Tagged.o, dist/build/Data/Tagged.dyn_o ) Preprocessing library for tagged-0.8.9.. Running Haddock on library for tagged-0.8.9.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Data.Proxy.TH ( src/Data/Proxy/TH.hs, nothing ) [2 of 2] Compiling Data.Tagged ( src/Data/Tagged.hs, nothing ) Haddock coverage: Warning: 'Proxy' is ambiguous. It is defined * in Data.Proxy * in Data.Proxy You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Proxy 66% ( 2 / 3) in 'Data.Proxy.TH' Missing documentation for: Module header Warning: 'Tagged' is ambiguous. It is defined * at src/Data/Tagged.hs:82:22 * at src/Data/Tagged.hs:82:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Tagged.hs:82:1 Warning: 'Proxy' is ambiguous. It is defined * in Data.Proxy * in Data.Proxy You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Proxy 93% ( 14 / 15) in 'Data.Tagged' Missing documentation for: witness (src/Data/Tagged.hs:386) Warning: Data.Tagged: could not find link destinations for: - Data.Tagged.Rep_Tagged - Data.Tagged.Rep1_Tagged Documentation created: dist/doc/html/tagged/, dist/doc/html/tagged/tagged.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/tagged-0.8.9-6aZuwRISGvIHng66Gvw0LY Completed tagged-0.8.9 Configuring th-abstraction-0.7.1.0... Preprocessing library for th-abstraction-0.7.1.0.. Building library for th-abstraction-0.7.1.0.. [1 of 3] Compiling Language.Haskell.TH.Datatype.Internal ( src/Language/Haskell/TH/Datatype/Internal.hs, dist/build/Language/Haskell/TH/Datatype/Internal.o, dist/build/Language/Haskell/TH/Datatype/Internal.dyn_o ) [2 of 3] Compiling Language.Haskell.TH.Datatype.TyVarBndr ( src/Language/Haskell/TH/Datatype/TyVarBndr.hs, dist/build/Language/Haskell/TH/Datatype/TyVarBndr.o, dist/build/Language/Haskell/TH/Datatype/TyVarBndr.dyn_o ) [3 of 3] Compiling Language.Haskell.TH.Datatype ( src/Language/Haskell/TH/Datatype.hs, dist/build/Language/Haskell/TH/Datatype.o, dist/build/Language/Haskell/TH/Datatype.dyn_o ) Preprocessing library for th-abstraction-0.7.1.0.. Running Haddock on library for th-abstraction-0.7.1.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Language.Haskell.TH.Datatype.Internal ( src/Language/Haskell/TH/Datatype/Internal.hs, nothing ) [2 of 3] Compiling Language.Haskell.TH.Datatype.TyVarBndr ( src/Language/Haskell/TH/Datatype/TyVarBndr.hs, nothing ) [3 of 3] Compiling Language.Haskell.TH.Datatype ( src/Language/Haskell/TH/Datatype.hs, nothing ) Haddock coverage: Warning: 'Name' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax Warning: 'Name' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax 76% ( 40 / 52) in 'Language.Haskell.TH.Datatype.TyVarBndr' Missing documentation for: TyVarBndrUnit TyVarBndrSpec TyVarBndrVis Specificity BndrVis DefaultBndrFlag plainTV kindedTV inferredSpec specifiedSpec bndrReq bndrInvis Warning: 'DatatypeInfo' is ambiguous. It is defined * at src/Language/Haskell/TH/Datatype.hs:184:21 * at src/Language/Haskell/TH/Datatype.hs:184:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Language/Haskell/TH/Datatype.hs:184:1 Warning: 'ConstructorInfo' is ambiguous. It is defined * at src/Language/Haskell/TH/Datatype.hs:229:24 * at src/Language/Haskell/TH/Datatype.hs:229:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Language/Haskell/TH/Datatype.hs:229:1 Warning: 'FieldStrictness' is ambiguous. It is defined * at src/Language/Haskell/TH/Datatype.hs:272:24 * at src/Language/Haskell/TH/Datatype.hs:272:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Language/Haskell/TH/Datatype.hs:272:1 Warning: '()' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Strict' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * at src/Language/Haskell/TH/Datatype.hs:289:5 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Language/Haskell/TH/Datatype.hs:289:5 Warning: 'datatypeInstVars' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mbKind' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'resolveFixities' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FunArg' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Fixity' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax 92% ( 49 / 53) in 'Language.Haskell.TH.Datatype' Missing documentation for: arrowKCompat (src/Language/Haskell/TH/Datatype.hs:2260) isStrictAnnot (src/Language/Haskell/TH/Datatype.hs:293) notStrictAnnot (src/Language/Haskell/TH/Datatype.hs:294) unpackedAnnot (src/Language/Haskell/TH/Datatype.hs:295) Warning: Language.Haskell.TH.Datatype.TyVarBndr: could not find link destinations for: - Language.Haskell.TH.Syntax.Rep_BndrVis - Language.Haskell.TH.Syntax.Rep_Specificity Warning: Language.Haskell.TH.Datatype: could not find link destinations for: - Language.Haskell.TH.Datatype.Rep_DatatypeInfo - Language.Haskell.TH.Datatype.Rep_ConstructorInfo - Language.Haskell.TH.Datatype.Rep_FieldStrictness - Language.Haskell.TH.Datatype.Rep_Strictness - Language.Haskell.TH.Datatype.Rep_Unpackedness - Language.Haskell.TH.Datatype.Rep_ConstructorVariant - Language.Haskell.TH.Datatype.Rep_DatatypeVariant Documentation created: dist/doc/html/th-abstraction/, dist/doc/html/th-abstraction/th-abstraction.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/th-abstraction-0.7.1.0-5OEkekdo9oT3l4cxHWMApr Completed th-abstraction-0.7.1.0 Configuring th-compat-0.1.6... Preprocessing library for th-compat-0.1.6.. Building library for th-compat-0.1.6.. [1 of 1] Compiling Language.Haskell.TH.Syntax.Compat ( src/Language/Haskell/TH/Syntax/Compat.hs, dist/build/Language/Haskell/TH/Syntax/Compat.o, dist/build/Language/Haskell/TH/Syntax/Compat.dyn_o ) Preprocessing library for th-compat-0.1.6.. Running Haddock on library for th-compat-0.1.6.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Language.Haskell.TH.Syntax.Compat ( src/Language/Haskell/TH/Syntax/Compat.hs, nothing ) Haddock coverage: Warning: 'Code' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax Warning: 'm' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'TExp' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'lift' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'newNameQuote' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% ( 45 / 46) in 'Language.Haskell.TH.Syntax.Compat' Missing documentation for: CodeQ Documentation created: dist/doc/html/th-compat/, dist/doc/html/th-compat/th-compat.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/th-compat-0.1.6-3eCsLS8Ko2yHD4T0lSGAtv Completed th-compat-0.1.6 Configuring transformers-compat-0.7.2... Preprocessing library for transformers-compat-0.7.2.. Building library for transformers-compat-0.7.2.. [1 of 4] Compiling Control.Monad.Trans.Instances ( src/Control/Monad/Trans/Instances.hs, dist/build/Control/Monad/Trans/Instances.o, dist/build/Control/Monad/Trans/Instances.dyn_o ) [2 of 4] Compiling Data.Functor.Classes.Generic.Internal ( generics/Data/Functor/Classes/Generic/Internal.hs, dist/build/Data/Functor/Classes/Generic/Internal.o, dist/build/Data/Functor/Classes/Generic/Internal.dyn_o ) [3 of 4] Compiling Data.Functor.Classes.Generic ( generics/Data/Functor/Classes/Generic.hs, dist/build/Data/Functor/Classes/Generic.o, dist/build/Data/Functor/Classes/Generic.dyn_o ) [4 of 4] Compiling Paths_transformers_compat ( dist/build/autogen/Paths_transformers_compat.hs, dist/build/Paths_transformers_compat.o, dist/build/Paths_transformers_compat.dyn_o ) Preprocessing library for transformers-compat-0.7.2.. Running Haddock on library for transformers-compat-0.7.2.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling Control.Monad.Trans.Instances ( src/Control/Monad/Trans/Instances.hs, nothing ) [2 of 4] Compiling Data.Functor.Classes.Generic.Internal ( generics/Data/Functor/Classes/Generic/Internal.hs, nothing ) [3 of 4] Compiling Data.Functor.Classes.Generic ( generics/Data/Functor/Classes/Generic.hs, nothing ) [4 of 4] Compiling Paths_transformers_compat ( dist/build/autogen/Paths_transformers_compat.hs, nothing ) Haddock coverage: 100% ( 1 / 1) in 'Control.Monad.Trans.Instances' Warning: 'String' is ambiguous. It is defined * in Text.Read.Lex * in GHC.Base You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Base Warning: 'Options' is ambiguous. It is defined * at generics/Data/Functor/Classes/Generic/Internal.hs:146:19 * at generics/Data/Functor/Classes/Generic/Internal.hs:146:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at generics/Data/Functor/Classes/Generic/Internal.hs:146:1 Warning: 'FunctorClassesDefault' is ambiguous. It is defined * at generics/Data/Functor/Classes/Generic/Internal.hs:1231:3 * at generics/Data/Functor/Classes/Generic/Internal.hs:1230:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at generics/Data/Functor/Classes/Generic/Internal.hs:1230:1 100% ( 48 / 48) in 'Data.Functor.Classes.Generic.Internal' Warning: 'Eq1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Ord1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Read1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Show1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'GenericFunctorClasses' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'eq1Default' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'compare1Default' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'readsPrec1Default' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'showsPrec1Default' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 21 / 21) in 'Data.Functor.Classes.Generic' Warning: Data.Functor.Classes.Generic.Internal: could not find link destinations for: - Data.Functor.Classes.Generic.Internal.GShowCon - Data.Functor.Classes.Generic.Internal.GReadCon Documentation created: dist/doc/html/transformers-compat/, dist/doc/html/transformers-compat/transformers-compat.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/transformers-compat-0.7.2-Kjd0KzrkeU5ax708EytP3 Completed transformers-compat-0.7.2 Configuring unix-compat-0.7.4.1... Preprocessing library for unix-compat-0.7.4.1.. Building library for unix-compat-0.7.4.1.. [1 of 8] Compiling System.PosixCompat.Files ( dist/build/System/PosixCompat/Files.hs, dist/build/System/PosixCompat/Files.o, dist/build/System/PosixCompat/Files.dyn_o ) [2 of 8] Compiling System.PosixCompat.Process ( src/System/PosixCompat/Process.hs, dist/build/System/PosixCompat/Process.o, dist/build/System/PosixCompat/Process.dyn_o ) [3 of 8] Compiling System.PosixCompat.Temp ( src/System/PosixCompat/Temp.hs, dist/build/System/PosixCompat/Temp.o, dist/build/System/PosixCompat/Temp.dyn_o ) [4 of 8] Compiling System.PosixCompat.Time ( src/System/PosixCompat/Time.hs, dist/build/System/PosixCompat/Time.o, dist/build/System/PosixCompat/Time.dyn_o ) [5 of 8] Compiling System.PosixCompat.Types ( src/System/PosixCompat/Types.hs, dist/build/System/PosixCompat/Types.o, dist/build/System/PosixCompat/Types.dyn_o ) [6 of 8] Compiling System.PosixCompat.Extensions ( dist/build/System/PosixCompat/Extensions.hs, dist/build/System/PosixCompat/Extensions.o, dist/build/System/PosixCompat/Extensions.dyn_o ) [7 of 8] Compiling System.PosixCompat.Unistd ( src/System/PosixCompat/Unistd.hs, dist/build/System/PosixCompat/Unistd.o, dist/build/System/PosixCompat/Unistd.dyn_o ) [8 of 8] Compiling System.PosixCompat ( src/System/PosixCompat.hs, dist/build/System/PosixCompat.o, dist/build/System/PosixCompat.dyn_o ) Preprocessing library for unix-compat-0.7.4.1.. Running Haddock on library for unix-compat-0.7.4.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 8] Compiling System.PosixCompat.Files ( dist/build/System/PosixCompat/Files.hs, nothing ) [2 of 8] Compiling System.PosixCompat.Process ( src/System/PosixCompat/Process.hs, nothing ) [3 of 8] Compiling System.PosixCompat.Temp ( src/System/PosixCompat/Temp.hs, nothing ) [4 of 8] Compiling System.PosixCompat.Time ( src/System/PosixCompat/Time.hs, nothing ) [5 of 8] Compiling System.PosixCompat.Types ( src/System/PosixCompat/Types.hs, nothing ) [6 of 8] Compiling System.PosixCompat.Extensions ( dist/build/System/PosixCompat/Extensions.hs, nothing ) [7 of 8] Compiling System.PosixCompat.Unistd ( src/System/PosixCompat/Unistd.hs, nothing ) [8 of 8] Compiling System.PosixCompat ( src/System/PosixCompat.hs, nothing ) Haddock coverage: 98% ( 80 / 81) in 'System.PosixCompat.Files' Missing documentation for: PathVar 100% ( 2 / 2) in 'System.PosixCompat.Process' 100% ( 2 / 2) in 'System.PosixCompat.Temp' 100% ( 2 / 2) in 'System.PosixCompat.Time' 100% ( 2 / 2) in 'System.PosixCompat.Types' 71% ( 5 / 7) in 'System.PosixCompat.Extensions' Missing documentation for: CMajor (src/System/PosixCompat/Extensions.hsc:23) CMinor (src/System/PosixCompat/Extensions.hsc:24) 75% ( 6 / 8) in 'System.PosixCompat.Unistd' Missing documentation for: SystemID getSystemID 100% ( 8 / 8) in 'System.PosixCompat' Documentation created: dist/doc/html/unix-compat/, dist/doc/html/unix-compat/unix-compat.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unix-compat-0.7.4.1-3WW2dYzNjvCGBx3FDUrKMW Completed unix-compat-0.7.4.1 Configuring unliftio-core-0.2.1.0... Preprocessing library for unliftio-core-0.2.1.0.. Building library for unliftio-core-0.2.1.0.. [1 of 2] Compiling Control.Monad.IO.Unlift ( src/Control/Monad/IO/Unlift.hs, dist/build/Control/Monad/IO/Unlift.o, dist/build/Control/Monad/IO/Unlift.dyn_o ) [2 of 2] Compiling Paths_unliftio_core ( dist/build/autogen/Paths_unliftio_core.hs, dist/build/Paths_unliftio_core.o, dist/build/Paths_unliftio_core.dyn_o ) Preprocessing library for unliftio-core-0.2.1.0.. Running Haddock on library for unliftio-core-0.2.1.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Control.Monad.IO.Unlift ( src/Control/Monad/IO/Unlift.hs, nothing ) [2 of 2] Compiling Paths_unliftio_core ( dist/build/autogen/Paths_unliftio_core.hs, nothing ) Haddock coverage: Warning: 'ReaderT' is ambiguous. It is defined * in Control.Monad.Trans.Reader * in Control.Monad.Trans.Reader You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Reader Warning: 'IdentityT' is ambiguous. It is defined * in Control.Monad.Trans.Identity * in Control.Monad.Trans.Identity You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Identity Warning: 'UnliftIO' is ambiguous. It is defined * at src/Control/Monad/IO/Unlift.hs:27:22 * at src/Control/Monad/IO/Unlift.hs:27:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Control/Monad/IO/Unlift.hs:27:1 100% ( 10 / 10) in 'Control.Monad.IO.Unlift' Documentation created: dist/doc/html/unliftio-core/, dist/doc/html/unliftio-core/unliftio-core.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unliftio-core-0.2.1.0-4RRDZLCPaiuAoQNEd4e5m9 Completed unliftio-core-0.2.1.0 Configuring vector-stream-0.1.0.1... Preprocessing library for vector-stream-0.1.0.1.. Building library for vector-stream-0.1.0.1.. [1 of 1] Compiling Data.Stream.Monadic ( src/Data/Stream/Monadic.hs, dist/build/Data/Stream/Monadic.o, dist/build/Data/Stream/Monadic.dyn_o ) Preprocessing library for vector-stream-0.1.0.1.. Running Haddock on library for vector-stream-0.1.0.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Data.Stream.Monadic ( src/Data/Stream/Monadic.hs, nothing ) Haddock coverage: Warning: 'Stream' is ambiguous. It is defined * at src/Data/Stream/Monadic.hs:154:19 * at src/Data/Stream/Monadic.hs:154:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Stream/Monadic.hs:154:1 Warning: 'Bundle' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 81% (110 /135) in 'Data.Stream.Monadic' Missing documentation for: liftBox (src/Data/Stream/Monadic.hs:130) generate (src/Data/Stream/Monadic.hs:210) unbox (src/Data/Stream/Monadic.hs:462) concatMap (src/Data/Stream/Monadic.hs:1070) zipWithM_ (src/Data/Stream/Monadic.hs:531) zipWith3M (src/Data/Stream/Monadic.hs:535) zipWith4M (src/Data/Stream/Monadic.hs:565) zipWith5M (src/Data/Stream/Monadic.hs:572) zipWith6M (src/Data/Stream/Monadic.hs:579) zipWith (src/Data/Stream/Monadic.hs:585) zipWith3 (src/Data/Stream/Monadic.hs:590) zipWith4 (src/Data/Stream/Monadic.hs:596) zipWith5 (src/Data/Stream/Monadic.hs:602) zipWith6 (src/Data/Stream/Monadic.hs:608) zip (src/Data/Stream/Monadic.hs:612) zip3 (src/Data/Stream/Monadic.hs:616) zip4 (src/Data/Stream/Monadic.hs:621) zip5 (src/Data/Stream/Monadic.hs:626) zip6 (src/Data/Stream/Monadic.hs:631) mapMaybe (src/Data/Stream/Monadic.hs:702) catMaybes (src/Data/Stream/Monadic.hs:716) and (src/Data/Stream/Monadic.hs:1044) or (src/Data/Stream/Monadic.hs:1057) concatMapM (src/Data/Stream/Monadic.hs:1074) unfoldrN (src/Data/Stream/Monadic.hs:1136) Documentation created: dist/doc/html/vector-stream/, dist/doc/html/vector-stream/vector-stream.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/vector-stream-0.1.0.1-6z73n1LRnZvKlURnjwR3rr Completed vector-stream-0.1.0.1 Configuring zlib-0.7.1.1... Preprocessing library for zlib-0.7.1.1.. Building library for zlib-0.7.1.1.. [1 of 6] Compiling Codec.Compression.Zlib.ByteStringCompat ( Codec/Compression/Zlib/ByteStringCompat.hs, dist/build/Codec/Compression/Zlib/ByteStringCompat.o, dist/build/Codec/Compression/Zlib/ByteStringCompat.dyn_o ) [2 of 6] Compiling Codec.Compression.Zlib.Stream ( dist/build/Codec/Compression/Zlib/Stream.hs, dist/build/Codec/Compression/Zlib/Stream.o, dist/build/Codec/Compression/Zlib/Stream.dyn_o ) [3 of 6] Compiling Codec.Compression.Zlib.Internal ( Codec/Compression/Zlib/Internal.hs, dist/build/Codec/Compression/Zlib/Internal.o, dist/build/Codec/Compression/Zlib/Internal.dyn_o ) [4 of 6] Compiling Codec.Compression.Zlib.Raw ( Codec/Compression/Zlib/Raw.hs, dist/build/Codec/Compression/Zlib/Raw.o, dist/build/Codec/Compression/Zlib/Raw.dyn_o ) [5 of 6] Compiling Codec.Compression.Zlib ( Codec/Compression/Zlib.hs, dist/build/Codec/Compression/Zlib.o, dist/build/Codec/Compression/Zlib.dyn_o ) [6 of 6] Compiling Codec.Compression.GZip ( Codec/Compression/GZip.hs, dist/build/Codec/Compression/GZip.o, dist/build/Codec/Compression/GZip.dyn_o ) Preprocessing library for zlib-0.7.1.1.. Running Haddock on library for zlib-0.7.1.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling Codec.Compression.Zlib.ByteStringCompat ( Codec/Compression/Zlib/ByteStringCompat.hs, nothing ) [2 of 6] Compiling Codec.Compression.Zlib.Stream ( dist/build/Codec/Compression/Zlib/Stream.hs, nothing ) [3 of 6] Compiling Codec.Compression.Zlib.Internal ( Codec/Compression/Zlib/Internal.hs, nothing ) [4 of 6] Compiling Codec.Compression.Zlib.Raw ( Codec/Compression/Zlib/Raw.hs, nothing ) [5 of 6] Compiling Codec.Compression.Zlib ( Codec/Compression/Zlib.hs, nothing ) [6 of 6] Compiling Codec.Compression.GZip ( Codec/Compression/GZip.hs, nothing ) Haddock coverage: 100% ( 53 / 53) in 'Codec.Compression.Zlib.Internal' 100% ( 35 / 35) in 'Codec.Compression.Zlib.Raw' 100% ( 36 / 36) in 'Codec.Compression.Zlib' 100% ( 36 / 36) in 'Codec.Compression.GZip' Warning: Codec.Compression.Zlib.Internal: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_CompressionStrategy - Codec.Compression.Zlib.Stream.Rep_MemoryLevel - Codec.Compression.Zlib.Stream.Rep_WindowBits - Codec.Compression.Zlib.Stream.Rep_CompressionLevel - Codec.Compression.Zlib.Stream.Rep_Method - Codec.Compression.Zlib.Stream.Rep_Format - Codec.Compression.Zlib.Internal.Rep_DecompressError - Codec.Compression.Zlib.Internal.Rep_DecompressParams - Codec.Compression.Zlib.Internal.Rep_CompressParams Warning: Codec.Compression.Zlib.Raw: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_CompressionStrategy - Codec.Compression.Zlib.Stream.Rep_MemoryLevel - Codec.Compression.Zlib.Stream.Rep_WindowBits - Codec.Compression.Zlib.Stream.Rep_CompressionLevel - Codec.Compression.Zlib.Stream.Rep_Method - Codec.Compression.Zlib.Internal.Rep_DecompressError - Codec.Compression.Zlib.Internal.Rep_DecompressParams - Codec.Compression.Zlib.Internal.Rep_CompressParams Warning: Codec.Compression.Zlib: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_CompressionStrategy - Codec.Compression.Zlib.Stream.Rep_MemoryLevel - Codec.Compression.Zlib.Stream.Rep_WindowBits - Codec.Compression.Zlib.Stream.Rep_CompressionLevel - Codec.Compression.Zlib.Stream.Rep_Method - Codec.Compression.Zlib.Internal.Rep_DecompressError - Codec.Compression.Zlib.Internal.Rep_DecompressParams - Codec.Compression.Zlib.Internal.Rep_CompressParams Warning: Codec.Compression.GZip: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_CompressionStrategy - Codec.Compression.Zlib.Stream.Rep_MemoryLevel - Codec.Compression.Zlib.Stream.Rep_WindowBits - Codec.Compression.Zlib.Stream.Rep_CompressionLevel - Codec.Compression.Zlib.Stream.Rep_Method - Codec.Compression.Zlib.Internal.Rep_DecompressError - Codec.Compression.Zlib.Internal.Rep_DecompressParams - Codec.Compression.Zlib.Internal.Rep_CompressParams Documentation created: dist/doc/html/zlib/, dist/doc/html/zlib/zlib.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/zlib-0.7.1.1-JJRWuCnd7LR9y9ey9xuk4f Completed zlib-0.7.1.1 Configuring contravariant-1.5.5... Preprocessing library for contravariant-1.5.5.. Building library for contravariant-1.5.5.. [1 of 3] Compiling Data.Functor.Contravariant.Divisible ( src/Data/Functor/Contravariant/Divisible.hs, dist/build/Data/Functor/Contravariant/Divisible.o, dist/build/Data/Functor/Contravariant/Divisible.dyn_o ) [2 of 3] Compiling Data.Functor.Contravariant.Compose ( src/Data/Functor/Contravariant/Compose.hs, dist/build/Data/Functor/Contravariant/Compose.o, dist/build/Data/Functor/Contravariant/Compose.dyn_o ) [3 of 3] Compiling Data.Functor.Contravariant.Generic ( src/Data/Functor/Contravariant/Generic.hs, dist/build/Data/Functor/Contravariant/Generic.o, dist/build/Data/Functor/Contravariant/Generic.dyn_o ) Preprocessing library for contravariant-1.5.5.. Running Haddock on library for contravariant-1.5.5.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Data.Functor.Contravariant.Divisible ( src/Data/Functor/Contravariant/Divisible.hs, nothing ) [2 of 3] Compiling Data.Functor.Contravariant.Compose ( src/Data/Functor/Contravariant/Compose.hs, nothing ) [3 of 3] Compiling Data.Functor.Contravariant.Generic ( src/Data/Functor/Contravariant/Generic.hs, nothing ) Haddock coverage: Warning: 'delta' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 17 / 17) in 'Data.Functor.Contravariant.Divisible' 100% ( 4 / 4) in 'Data.Functor.Contravariant.Compose' Warning: 'Comparison' is ambiguous. It is defined * in Data.Functor.Contravariant * in Data.Functor.Contravariant You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Contravariant Warning: 'Equivalence' is ambiguous. It is defined * in Data.Functor.Contravariant * in Data.Functor.Contravariant You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Contravariant 100% ( 3 / 3) in 'Data.Functor.Contravariant.Generic' Warning: Data.Functor.Contravariant.Generic: could not find link destinations for: - Data.Functor.Contravariant.Generic.GDeciding1 - Data.Functor.Contravariant.Generic.GDeciding - Data.Functor.Contravariant.Generic.GG - Data.Functor.Contravariant.Generic.Rep1' - Data.Functor.Contravariant.Generic.Rep' Documentation created: dist/doc/html/contravariant/, dist/doc/html/contravariant/contravariant.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/contravariant-1.5.5-9OZxSMGmONm3FLxTwjX4ym Completed contravariant-1.5.5 Configuring blaze-markup-0.8.3.0... Preprocessing library for blaze-markup-0.8.3.0.. Building library for blaze-markup-0.8.3.0.. [1 of 6] Compiling Text.Blaze.Internal ( src/Text/Blaze/Internal.hs, dist/build/Text/Blaze/Internal.o, dist/build/Text/Blaze/Internal.dyn_o ) src/Text/Blaze/Internal.hs:82:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 82 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:84:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 84 | import Data.Monoid (Monoid, mappend, mconcat, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:223:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances] Noncanonical return definition detected in the instance declaration for Monad MarkupM. return will eventually be removed in favour of pure Suggested fix: Either remove definition for return (recommended) or define as return = pure See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return | 223 | return x = Empty x | ^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:225:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances] Noncanonical (>>) definition detected in the instance declaration for Monad MarkupM. (>>) will eventually be removed in favour of (*>) Suggested fix: Either remove definition for (>>) (recommended) or define as (>>) = (*>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return | 225 | (>>) = Append | ^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:230:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 230 | instance (a ~ ()) => IsString (MarkupM a) where | ^ [2 of 6] Compiling Text.Blaze ( src/Text/Blaze.hs, dist/build/Text/Blaze.o, dist/build/Text/Blaze.dyn_o ) src/Text/Blaze.hs:92:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 92 | import Data.Monoid (mconcat) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze.hs:93:42: warning: [GHC-38856] [-Wunused-imports] The import of Word from module Data.Word is redundant | 93 | import Data.Word (Word, Word32, Word64) | ^^^^ [3 of 6] Compiling Text.Blaze.Renderer.String ( src/Text/Blaze/Renderer/String.hs, dist/build/Text/Blaze/Renderer/String.o, dist/build/Text/Blaze/Renderer/String.dyn_o ) [4 of 6] Compiling Text.Blaze.Renderer.Pretty ( src/Text/Blaze/Renderer/Pretty.hs, dist/build/Text/Blaze/Renderer/Pretty.o, dist/build/Text/Blaze/Renderer/Pretty.dyn_o ) [5 of 6] Compiling Text.Blaze.Renderer.Text ( src/Text/Blaze/Renderer/Text.hs, dist/build/Text/Blaze/Renderer/Text.o, dist/build/Text/Blaze/Renderer/Text.dyn_o ) src/Text/Blaze/Renderer/Text.hs:15:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 15 | import Data.Monoid (mappend, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [6 of 6] Compiling Text.Blaze.Renderer.Utf8 ( src/Text/Blaze/Renderer/Utf8.hs, dist/build/Text/Blaze/Renderer/Utf8.o, dist/build/Text/Blaze/Renderer/Utf8.dyn_o ) src/Text/Blaze/Renderer/Utf8.hs:11:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 11 | import Data.Monoid (mappend, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Preprocessing library for blaze-markup-0.8.3.0.. Running Haddock on library for blaze-markup-0.8.3.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling Text.Blaze.Internal ( src/Text/Blaze/Internal.hs, nothing ) src/Text/Blaze/Internal.hs:82:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 82 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:84:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 84 | import Data.Monoid (Monoid, mappend, mconcat, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:223:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances] Noncanonical return definition detected in the instance declaration for Monad MarkupM. return will eventually be removed in favour of pure Suggested fix: Either remove definition for return (recommended) or define as return = pure See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return | 223 | return x = Empty x | ^^^^^^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:225:5: warning: [GHC-22705] [-Wnoncanonical-monad-instances] Noncanonical (>>) definition detected in the instance declaration for Monad MarkupM. (>>) will eventually be removed in favour of (*>) Suggested fix: Either remove definition for (>>) (recommended) or define as (>>) = (*>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/monad-of-no-return | 225 | (>>) = Append | ^^^^^^^^^^^^^ src/Text/Blaze/Internal.hs:230:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 230 | instance (a ~ ()) => IsString (MarkupM a) where | ^ [2 of 6] Compiling Text.Blaze ( src/Text/Blaze.hs, nothing ) src/Text/Blaze.hs:92:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 92 | import Data.Monoid (mconcat) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Text/Blaze.hs:93:42: warning: [GHC-38856] [-Wunused-imports] The import of Word from module Data.Word is redundant | 93 | import Data.Word (Word, Word32, Word64) | ^^^^ [3 of 6] Compiling Text.Blaze.Renderer.String ( src/Text/Blaze/Renderer/String.hs, nothing ) [4 of 6] Compiling Text.Blaze.Renderer.Pretty ( src/Text/Blaze/Renderer/Pretty.hs, nothing ) [5 of 6] Compiling Text.Blaze.Renderer.Text ( src/Text/Blaze/Renderer/Text.hs, nothing ) src/Text/Blaze/Renderer/Text.hs:15:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 15 | import Data.Monoid (mappend, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [6 of 6] Compiling Text.Blaze.Renderer.Utf8 ( src/Text/Blaze/Renderer/Utf8.hs, nothing ) src/Text/Blaze/Renderer/Utf8.hs:11:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 11 | import Data.Monoid (mappend, mempty) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Haddock coverage: Warning: 'String' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:123:7 * in GHC.Base You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:123:7 Warning: 'ByteString' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:127:7 * in Data.ByteString.Internal.Type You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:127:7 Warning: 'Text' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:125:7 * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:125:7 Warning: 'Tag' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:252:15 * at src/Text/Blaze/Internal.hs:252:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:252:1 100% ( 55 / 55) in 'Text.Blaze.Internal' 100% ( 43 / 43) in 'Text.Blaze' Warning: 'String' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:123:7 * in GHC.Base You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:123:7 75% ( 3 / 4) in 'Text.Blaze.Renderer.String' Missing documentation for: renderHtml (src/Text/Blaze/Renderer/String.hs:94) Warning: 'String' is ambiguous. It is defined * at src/Text/Blaze/Internal.hs:123:7 * in GHC.Base You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Text/Blaze/Internal.hs:123:7 66% ( 2 / 3) in 'Text.Blaze.Renderer.Pretty' Missing documentation for: renderHtml (src/Text/Blaze/Renderer/Pretty.hs:57) 55% ( 5 / 9) in 'Text.Blaze.Renderer.Text' Missing documentation for: renderHtmlBuilder (src/Text/Blaze/Renderer/Text.hs:74) renderHtmlBuilderWith (src/Text/Blaze/Renderer/Text.hs:136) renderHtml (src/Text/Blaze/Renderer/Text.hs:150) renderHtmlWith (src/Text/Blaze/Renderer/Text.hs:167) 85% ( 6 / 7) in 'Text.Blaze.Renderer.Utf8' Missing documentation for: Module header Documentation created: dist/doc/html/blaze-markup/, dist/doc/html/blaze-markup/blaze-markup.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/blaze-markup-0.8.3.0-BIuxAhh0uThCOjqjFDDCUo Completed blaze-markup-0.8.3.0 Configuring HUnit-1.6.2.0... Preprocessing library for HUnit-1.6.2.0.. Building library for HUnit-1.6.2.0.. [1 of 6] Compiling Paths_HUnit ( dist/build/autogen/Paths_HUnit.hs, dist/build/Paths_HUnit.o, dist/build/Paths_HUnit.dyn_o ) [2 of 6] Compiling Test.HUnit.Lang ( src/Test/HUnit/Lang.hs, dist/build/Test/HUnit/Lang.o, dist/build/Test/HUnit/Lang.dyn_o ) [3 of 6] Compiling Test.HUnit.Base ( src/Test/HUnit/Base.hs, dist/build/Test/HUnit/Base.o, dist/build/Test/HUnit/Base.dyn_o ) [4 of 6] Compiling Test.HUnit.Terminal ( src/Test/HUnit/Terminal.hs, dist/build/Test/HUnit/Terminal.o, dist/build/Test/HUnit/Terminal.dyn_o ) src/Test/HUnit/Terminal.hs:41:41: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 41 | | otherwise = ta f (c:bs) (tail as) cs | ^^^^ [5 of 6] Compiling Test.HUnit.Text ( src/Test/HUnit/Text.hs, dist/build/Test/HUnit/Text.o, dist/build/Test/HUnit/Text.dyn_o ) [6 of 6] Compiling Test.HUnit ( src/Test/HUnit.hs, dist/build/Test/HUnit.o, dist/build/Test/HUnit.dyn_o ) Preprocessing library for HUnit-1.6.2.0.. Running Haddock on library for HUnit-1.6.2.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling Paths_HUnit ( dist/build/autogen/Paths_HUnit.hs, nothing ) [2 of 6] Compiling Test.HUnit.Lang ( src/Test/HUnit/Lang.hs, nothing ) [3 of 6] Compiling Test.HUnit.Base ( src/Test/HUnit/Base.hs, nothing ) [4 of 6] Compiling Test.HUnit.Terminal ( src/Test/HUnit/Terminal.hs, nothing ) src/Test/HUnit/Terminal.hs:41:41: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 41 | | otherwise = ta f (c:bs) (tail as) cs | ^^^^ [5 of 6] Compiling Test.HUnit.Text ( src/Test/HUnit/Text.hs, nothing ) [6 of 6] Compiling Test.HUnit ( src/Test/HUnit.hs, nothing ) Haddock coverage: 54% ( 6 / 11) in 'Test.HUnit.Lang' Missing documentation for: Module header Result (src/Test/HUnit/Lang.hs:86) HUnitFailure (src/Test/HUnit/Lang.hs:41) FailureReason (src/Test/HUnit/Lang.hs:46) formatFailureReason (src/Test/HUnit/Lang.hs:83) 100% ( 33 / 33) in 'Test.HUnit.Base' 100% ( 2 / 2) in 'Test.HUnit.Terminal' Warning: 'PutText' is ambiguous. It is defined * at src/Test/HUnit/Text.hs:40:19 * at src/Test/HUnit/Text.hs:40:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/HUnit/Text.hs:40:1 Warning: 'st' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 9 / 9) in 'Test.HUnit.Text' 100% ( 3 / 3) in 'Test.HUnit' Documentation created: dist/doc/html/HUnit/, dist/doc/html/HUnit/HUnit.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/HUnit-1.6.2.0-I4Li6SX3p2jHu37LTSBLSu Completed HUnit-1.6.2.0 Configuring ansi-terminal-types-1.1.3... Preprocessing library for ansi-terminal-types-1.1.3.. Building library for ansi-terminal-types-1.1.3.. [1 of 2] Compiling System.Console.ANSI.Types ( src/System/Console/ANSI/Types.hs, dist/build/System/Console/ANSI/Types.o, dist/build/System/Console/ANSI/Types.dyn_o ) [2 of 2] Compiling System.Console.ANSI.Codes ( src/System/Console/ANSI/Codes.hs, dist/build/System/Console/ANSI/Codes.o, dist/build/System/Console/ANSI/Codes.dyn_o ) Preprocessing library for ansi-terminal-types-1.1.3.. Running Haddock on library for ansi-terminal-types-1.1.3.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling System.Console.ANSI.Types ( src/System/Console/ANSI/Types.hs, nothing ) [2 of 2] Compiling System.Console.ANSI.Codes ( src/System/Console/ANSI/Codes.hs, nothing ) Haddock coverage: 100% ( 13 / 13) in 'System.Console.ANSI.Types' 66% ( 41 / 62) in 'System.Console.ANSI.Codes' Missing documentation for: cursorUpCode (src/System/Console/ANSI/Codes.hs:236) cursorDownCode (src/System/Console/ANSI/Codes.hs:237) cursorForwardCode (src/System/Console/ANSI/Codes.hs:238) cursorBackwardCode (src/System/Console/ANSI/Codes.hs:239) cursorUpLineCode (src/System/Console/ANSI/Codes.hs:245) cursorDownLineCode (src/System/Console/ANSI/Codes.hs:244) clearFromCursorToScreenEndCode (src/System/Console/ANSI/Codes.hs:312) clearFromCursorToScreenBeginningCode (src/System/Console/ANSI/Codes.hs:313) clearScreenCode (src/System/Console/ANSI/Codes.hs:314) clearFromCursorToLineEndCode (src/System/Console/ANSI/Codes.hs:315) clearFromCursorToLineBeginningCode (src/System/Console/ANSI/Codes.hs:316) clearLineCode (src/System/Console/ANSI/Codes.hs:317) enableLineWrapCode (src/System/Console/ANSI/Codes.hs:320) disableLineWrapCode (src/System/Console/ANSI/Codes.hs:321) scrollPageUpCode (src/System/Console/ANSI/Codes.hs:326) scrollPageDownCode (src/System/Console/ANSI/Codes.hs:327) useAlternateScreenBufferCode (src/System/Console/ANSI/Codes.hs:330) useNormalScreenBufferCode (src/System/Console/ANSI/Codes.hs:331) setSGRCode (src/System/Console/ANSI/Codes.hs:339) hideCursorCode (src/System/Console/ANSI/Codes.hs:344) showCursorCode (src/System/Console/ANSI/Codes.hs:345) Documentation created: dist/doc/html/ansi-terminal-types/, dist/doc/html/ansi-terminal-types/ansi-terminal-types.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/ansi-terminal-types-1.1.3-FbCvCegLPPTJZH2c3Rw7yn Completed ansi-terminal-types-1.1.3 Configuring data-default-class-0.2.0.0... Preprocessing library for data-default-class-0.2.0.0.. Building library for data-default-class-0.2.0.0.. [1 of 1] Compiling Data.Default.Class ( Data/Default/Class.hs, dist/build/Data/Default/Class.o, dist/build/Data/Default/Class.dyn_o ) Preprocessing library for data-default-class-0.2.0.0.. Running Haddock on library for data-default-class-0.2.0.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Data.Default.Class ( Data/Default/Class.hs, nothing ) Haddock coverage: 100% ( 2 / 2) in 'Data.Default.Class' Documentation created: dist/doc/html/data-default-class/, dist/doc/html/data-default-class/data-default-class.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/data-default-class-0.2.0.0-CjoLsHLNRL5HOmbZU1FvV6 Completed data-default-class-0.2.0.0 Configuring old-time-1.1.0.4... configure: WARNING: unrecognized options: --with-compiler checking for gcc... /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether the compiler supports GNU C... yes checking whether /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc accepts -g... yes checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc option to enable C11 features... none needed checking for stdio.h... yes checking for stdlib.h... yes checking for string.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for strings.h... yes checking for sys/stat.h... yes checking for sys/types.h... yes checking for unistd.h... yes checking for sys/time.h... yes checking for sys/time.h... (cached) yes checking for sys/timeb.h... yes checking for time.h... yes checking for ftime... yes checking for gmtime_r... yes checking for localtime_r... yes checking for gettimeofday... yes checking whether struct tm is in sys/time.h or time.h... time.h checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc options needed to detect all undeclared functions... none needed checking for struct tm.tm_zone... yes checking for sys/time.h... (cached) yes checking whether altzone is declared... no configure: creating ./config.status config.status: creating include/HsTimeConfig.h configure: WARNING: unrecognized options: --with-compiler Preprocessing library for old-time-1.1.0.4.. Building library for old-time-1.1.0.4.. [1 of 1] Compiling System.Time ( dist/build/System/Time.hs, dist/build/System/Time.o, dist/build/System/Time.dyn_o ) Preprocessing library for old-time-1.1.0.4.. Running Haddock on library for old-time-1.1.0.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling System.Time ( dist/build/System/Time.hs, nothing ) Haddock coverage: Warning: 'CalendarTime' is ambiguous. It is defined * at System/Time.hsc:186:4 * at System/Time.hsc:185:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Time.hsc:185:1 Warning: 'TimeDiff' is ambiguous. It is defined * at System/Time.hsc:208:4 * at System/Time.hsc:207:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Time.hsc:207:1 95% ( 20 / 21) in 'System.Time' Missing documentation for: getClockTime (System/Time.hsc:248) Documentation created: dist/doc/html/old-time/, dist/doc/html/old-time/old-time.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/old-time-1.1.0.4-4pJyT14gXlf8eMFtx7lHTi Completed old-time-1.1.0.4 Configuring hashable-1.5.0.0... Preprocessing library for hashable-1.5.0.0.. Building library for hashable-1.5.0.0.. [ 1 of 10] Compiling Data.Hashable.FFI ( src/Data/Hashable/FFI.hs, dist/build/Data/Hashable/FFI.o, dist/build/Data/Hashable/FFI.dyn_o ) [ 2 of 10] Compiling Data.Hashable.Imports ( src/Data/Hashable/Imports.hs, dist/build/Data/Hashable/Imports.o, dist/build/Data/Hashable/Imports.dyn_o ) [ 3 of 10] Compiling Data.Hashable.Mix ( src/Data/Hashable/Mix.hs, dist/build/Data/Hashable/Mix.o, dist/build/Data/Hashable/Mix.dyn_o ) [ 4 of 10] Compiling Data.Hashable.XXH3 ( src/Data/Hashable/XXH3.hs, dist/build/Data/Hashable/XXH3.o, dist/build/Data/Hashable/XXH3.dyn_o ) [ 5 of 10] Compiling Data.Hashable.LowLevel ( src/Data/Hashable/LowLevel.hs, dist/build/Data/Hashable/LowLevel.o, dist/build/Data/Hashable/LowLevel.dyn_o ) [ 6 of 10] Compiling Data.Hashable.Class ( src/Data/Hashable/Class.hs, dist/build/Data/Hashable/Class.o, dist/build/Data/Hashable/Class.dyn_o ) [ 7 of 10] Compiling Data.Hashable.Lifted ( src/Data/Hashable/Lifted.hs, dist/build/Data/Hashable/Lifted.o, dist/build/Data/Hashable/Lifted.dyn_o ) [ 8 of 10] Compiling Data.Hashable.Generic.Instances ( src/Data/Hashable/Generic/Instances.hs, dist/build/Data/Hashable/Generic/Instances.o, dist/build/Data/Hashable/Generic/Instances.dyn_o ) src/Data/Hashable/Generic/Instances.hs:5:14: warning: [GHC-19244] [-Wtrustworthy-safe] Data.Hashable.Generic.Instances is marked as Trustworthy but has been inferred as safe! | 5 | {-# LANGUAGE Trustworthy #-} | ^^^^^^^^^^^ [ 9 of 10] Compiling Data.Hashable.Generic ( src/Data/Hashable/Generic.hs, dist/build/Data/Hashable/Generic.o, dist/build/Data/Hashable/Generic.dyn_o ) [10 of 10] Compiling Data.Hashable ( src/Data/Hashable.hs, dist/build/Data/Hashable.o, dist/build/Data/Hashable.dyn_o ) Preprocessing library for hashable-1.5.0.0.. Running Haddock on library for hashable-1.5.0.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 10] Compiling Data.Hashable.FFI ( src/Data/Hashable/FFI.hs, nothing ) [ 2 of 10] Compiling Data.Hashable.Imports ( src/Data/Hashable/Imports.hs, nothing ) [ 3 of 10] Compiling Data.Hashable.Mix ( src/Data/Hashable/Mix.hs, nothing ) [ 4 of 10] Compiling Data.Hashable.XXH3 ( src/Data/Hashable/XXH3.hs, nothing ) [ 5 of 10] Compiling Data.Hashable.LowLevel ( src/Data/Hashable/LowLevel.hs, nothing ) [ 6 of 10] Compiling Data.Hashable.Class ( src/Data/Hashable/Class.hs, nothing ) [ 7 of 10] Compiling Data.Hashable.Lifted ( src/Data/Hashable/Lifted.hs, nothing ) [ 8 of 10] Compiling Data.Hashable.Generic.Instances ( src/Data/Hashable/Generic/Instances.hs, nothing ) src/Data/Hashable/Generic/Instances.hs:5:14: warning: [GHC-19244] [-Wtrustworthy-safe] Data.Hashable.Generic.Instances is marked as Trustworthy but has been inferred as safe! | 5 | {-# LANGUAGE Trustworthy #-} | ^^^^^^^^^^^ [ 9 of 10] Compiling Data.Hashable.Generic ( src/Data/Hashable/Generic.hs, nothing ) [10 of 10] Compiling Data.Hashable ( src/Data/Hashable.hs, nothing ) Haddock coverage: Warning: 'ByteArray' is ambiguous. It is defined * in Data.Array.Byte * in Data.Array.Byte You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Array.Byte Warning: 'hash' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'defaultHashWith' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Hashed' is ambiguous. It is defined * at src/Data/Hashable/Class.hs:860:17 * at src/Data/Hashable/Class.hs:860:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Hashable/Class.hs:860:1 Warning: 'Arg' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 80% ( 8 / 10) in 'Data.Hashable.Lifted' Missing documentation for: Hashable1 (src/Data/Hashable/Class.hs:252) Hashable2 (src/Data/Hashable/Class.hs:267) 66% ( 6 / 9) in 'Data.Hashable.Generic' Missing documentation for: One (src/Data/Hashable/Class.hs:242) Zero (src/Data/Hashable/Class.hs:241) HashArgs (src/Data/Hashable/Class.hs:244) Warning: 'Generic' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 31 / 31) in 'Data.Hashable' Warning: Data.Hashable.Generic: could not find link destinations for: - Data.Hashable.Class.D:R:HashArgsOnea0 - Data.Hashable.Class.D:R:HashArgsZeroa0 - Data.Hashable.Generic.Instances.GSum Warning: Data.Hashable: could not find link destinations for: - Data.Hashable.Mix.Salt Documentation created: dist/doc/html/hashable/, dist/doc/html/hashable/hashable.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hashable-1.5.0.0-J8fLvwSw9feFf65x5AcaWG Completed hashable-1.5.0.0 Configuring integer-conversion-0.1.1... Preprocessing library for integer-conversion-0.1.1.. Building library for integer-conversion-0.1.1.. [1 of 1] Compiling Data.Integer.Conversion ( src/Data/Integer/Conversion.hs, dist/build/Data/Integer/Conversion.o, dist/build/Data/Integer/Conversion.dyn_o ) Preprocessing library for integer-conversion-0.1.1.. Running Haddock on library for integer-conversion-0.1.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Data.Integer.Conversion ( src/Data/Integer/Conversion.hs, nothing ) Haddock coverage: Warning: 'Text' is ambiguous. It is defined * in Data.Text.Internal * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Text.Internal 100% ( 5 / 5) in 'Data.Integer.Conversion' Documentation created: dist/doc/html/integer-conversion/, dist/doc/html/integer-conversion/integer-conversion.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/integer-conversion-0.1.1-CeDtdfh0tTJCMc72X6KfS8 Completed integer-conversion-0.1.1 Configuring random-1.3.1... Preprocessing library for random-1.3.1.. Building library for random-1.3.1.. [1 of 6] Compiling System.Random.Array ( src/System/Random/Array.hs, dist/build/System/Random/Array.o, dist/build/System/Random/Array.dyn_o ) [2 of 6] Compiling System.Random.GFinite ( src/System/Random/GFinite.hs, dist/build/System/Random/GFinite.o, dist/build/System/Random/GFinite.dyn_o ) [3 of 6] Compiling System.Random.Internal ( src/System/Random/Internal.hs, dist/build/System/Random/Internal.o, dist/build/System/Random/Internal.dyn_o ) [4 of 6] Compiling System.Random.Seed ( src/System/Random/Seed.hs, dist/build/System/Random/Seed.o, dist/build/System/Random/Seed.dyn_o ) [5 of 6] Compiling System.Random ( src/System/Random.hs, dist/build/System/Random.o, dist/build/System/Random.dyn_o ) [6 of 6] Compiling System.Random.Stateful ( src/System/Random/Stateful.hs, dist/build/System/Random/Stateful.o, dist/build/System/Random/Stateful.dyn_o ) Preprocessing library for random-1.3.1.. Running Haddock on library for random-1.3.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling System.Random.Array ( src/System/Random/Array.hs, nothing ) [2 of 6] Compiling System.Random.GFinite ( src/System/Random/GFinite.hs, nothing ) [3 of 6] Compiling System.Random.Internal ( src/System/Random/Internal.hs, nothing ) [4 of 6] Compiling System.Random.Seed ( src/System/Random/Seed.hs, nothing ) [5 of 6] Compiling System.Random ( src/System/Random.hs, nothing ) [6 of 6] Compiling System.Random.Stateful ( src/System/Random/Stateful.hs, nothing ) Haddock coverage: Warning: 'ST' is ambiguous. It is defined * in GHC.ST * in GHC.ST You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.ST Warning: 'StateGenM' is ambiguous. It is defined * at src/System/Random/Internal.hs:606:20 * at src/System/Random/Internal.hs:606:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Internal.hs:606:1 Warning: 'StateGen' is ambiguous. It is defined * at src/System/Random/Internal.hs:612:22 * at src/System/Random/Internal.hs:612:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Internal.hs:612:1 Warning: 'ByteArray' is ambiguous. It is defined * in Data.Array.Byte * in Data.Array.Byte You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Array.Byte Warning: 'StdGen' is ambiguous. It is defined * at src/System/Random/Internal.hs:749:18 * at src/System/Random/Internal.hs:749:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Internal.hs:749:1 Warning: 'MutableByteArray' is ambiguous. It is defined * in Data.Array.Byte * in Data.Array.Byte You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Array.Byte Warning: 'ST' is ambiguous. It is defined * in GHC.ST * in GHC.ST You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.ST Warning: 'StateT' is ambiguous. It is defined * in Control.Monad.Trans.State.Strict * in Control.Monad.Trans.State.Strict You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.State.Strict Warning: 'Seed' is ambiguous. It is defined * at src/System/Random/Internal.hs:134:18 * at src/System/Random/Internal.hs:134:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Internal.hs:134:1 Warning: 'StdGen' is ambiguous. It is defined * at src/System/Random/Internal.hs:749:18 * at src/System/Random/Internal.hs:749:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Internal.hs:749:1 Warning: 'ByteArray' is ambiguous. It is defined * in Data.Array.Byte * in Data.Array.Byte You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Array.Byte Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'uniformByteStringM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ShortByteString' is ambiguous. It is defined * in Data.ByteString.Short.Internal * in Data.ByteString.Short.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.ByteString.Short.Internal Warning: 'StdGen' is ambiguous. It is defined * at src/System/Random/Internal.hs:749:18 * at src/System/Random/Internal.hs:749:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Internal.hs:749:1 100% ( 71 / 71) in 'System.Random' Warning: 'TGenM' is ambiguous. It is defined * at src/System/Random/Stateful.hs:719:19 * at src/System/Random/Stateful.hs:719:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Stateful.hs:719:1 Warning: 'STGenM' is ambiguous. It is defined * at src/System/Random/Stateful.hs:618:22 * at src/System/Random/Stateful.hs:618:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Stateful.hs:618:1 Warning: 'StateGenM' is ambiguous. It is defined * at src/System/Random/Internal.hs:606:20 * at src/System/Random/Internal.hs:606:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Internal.hs:606:1 Warning: 'IOGenM' is ambiguous. It is defined * at src/System/Random/Stateful.hs:542:20 * at src/System/Random/Stateful.hs:542:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Stateful.hs:542:1 Warning: 'AtomicGenM' is ambiguous. It is defined * at src/System/Random/Stateful.hs:428:24 * at src/System/Random/Stateful.hs:428:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Stateful.hs:428:1 Warning: 'Seed' is ambiguous. It is defined * at src/System/Random/Internal.hs:134:18 * at src/System/Random/Internal.hs:134:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Internal.hs:134:1 Warning: 'StdGen' is ambiguous. It is defined * at src/System/Random/Internal.hs:749:18 * at src/System/Random/Internal.hs:749:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Internal.hs:749:1 Warning: 'IOGen' is ambiguous. It is defined * at src/System/Random/Stateful.hs:547:19 * at src/System/Random/Stateful.hs:547:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Stateful.hs:547:1 Warning: 'STGenM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'STM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'STGen' is ambiguous. It is defined * at src/System/Random/Stateful.hs:623:19 * at src/System/Random/Stateful.hs:623:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/Stateful.hs:623:1 Warning: 'clearBit' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'testBit' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% (137 /137) in 'System.Random.Stateful' Warning: System.Random: could not find link destinations for: - System.Random.GFinite.cardinality - System.Random.GFinite.toFinite - System.Random.GFinite.fromFinite - System.Random.GFinite.Cardinality - System.Random.Seed.D:R:SeedSizeSMGen - System.Random.Seed.D:R:SeedSizeSMGen0 - System.Random.Seed.D:R:SeedSizeStateGen - System.Random.Seed.D:R:SeedSizeStdGen - System.Random.Stateful.D:R:SeedSizeAtomicGen - System.Random.Stateful.D:R:SeedSizeIOGen - System.Random.Stateful.D:R:SeedSizeSTGen - System.Random.Stateful.D:R:SeedSizeTGen Warning: System.Random.Stateful: could not find link destinations for: - System.Random.GFinite.GFinite - System.Random.GFinite.cardinality - System.Random.GFinite.toFinite - System.Random.GFinite.fromFinite - System.Random.GFinite.Cardinality - System.Random.Internal.GUniformRange - System.Random.Internal.GUniform - System.Random.Internal.D:R:MutableGenStateGenm - System.Random.Seed.D:R:SeedSizeSMGen - System.Random.Seed.D:R:SeedSizeSMGen0 - System.Random.Seed.D:R:SeedSizeStateGen - System.Random.Seed.D:R:SeedSizeStdGen - System.Random.Stateful.D:R:MutableGenAtomicGenm - System.Random.Stateful.D:R:SeedSizeAtomicGen - System.Random.Stateful.D:R:MutableGenIOGenm - System.Random.Stateful.D:R:SeedSizeIOGen - System.Random.Stateful.D:R:MutableGenSTGenST - System.Random.Stateful.D:R:SeedSizeSTGen - System.Random.Stateful.D:R:MutableGenTGenSTM - System.Random.Stateful.D:R:SeedSizeTGen Documentation created: dist/doc/html/random/, dist/doc/html/random/random.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/random-1.3.1-3HmCudIQHVrG4RNMrw37d7 Completed random-1.3.1 Configuring distributive-0.6.2.1... Preprocessing library for distributive-0.6.2.1.. Building library for distributive-0.6.2.1.. [1 of 2] Compiling Data.Distributive ( src/Data/Distributive.hs, dist/build/Data/Distributive.o, dist/build/Data/Distributive.dyn_o ) src/Data/Distributive.hs:157:26: warning: [GHC-47082] [-Woperator-whitespace-ext-conflict] The prefix use of a $ would denote an untyped splice were the TemplateHaskell extension enabled. Suggested fix: Add whitespace after the $. | 157 | distribute a e = fmap ($e) a | ^ [2 of 2] Compiling Data.Distributive.Generic ( src/Data/Distributive/Generic.hs, dist/build/Data/Distributive/Generic.o, dist/build/Data/Distributive/Generic.dyn_o ) Preprocessing library for distributive-0.6.2.1.. Running Haddock on library for distributive-0.6.2.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Data.Distributive ( src/Data/Distributive.hs, nothing ) src/Data/Distributive.hs:157:26: warning: [GHC-47082] [-Woperator-whitespace-ext-conflict] The prefix use of a $ would denote an untyped splice were the TemplateHaskell extension enabled. Suggested fix: Add whitespace after the $. | 157 | distribute a e = fmap ($e) a | ^ [2 of 2] Compiling Data.Distributive.Generic ( src/Data/Distributive/Generic.hs, nothing ) Haddock coverage: Warning: 'Representable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Identity' is ambiguous. It is defined * in Data.Functor.Identity * in Data.Functor.Identity You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Identity Warning: 'Compose' is ambiguous. It is defined * in Data.Functor.Compose * in Data.Functor.Compose You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Compose 100% ( 4 / 4) in 'Data.Distributive' 75% ( 3 / 4) in 'Data.Distributive.Generic' Missing documentation for: GDistributive (src/Data/Distributive/Generic.hs:51) Documentation created: dist/doc/html/distributive/, dist/doc/html/distributive/distributive.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/distributive-0.6.2.1-LYGC3cC7tAvDF84yagGUZw Completed distributive-0.6.2.1 Configuring th-lift-0.8.6... Preprocessing library for th-lift-0.8.6.. Building library for th-lift-0.8.6.. [1 of 2] Compiling Language.Haskell.TH.Lift.Internal ( src/Language/Haskell/TH/Lift/Internal.hs, dist/build/Language/Haskell/TH/Lift/Internal.o, dist/build/Language/Haskell/TH/Lift/Internal.dyn_o ) [2 of 2] Compiling Language.Haskell.TH.Lift ( src/Language/Haskell/TH/Lift.hs, dist/build/Language/Haskell/TH/Lift.o, dist/build/Language/Haskell/TH/Lift.dyn_o ) Preprocessing library for th-lift-0.8.6.. Running Haddock on library for th-lift-0.8.6.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Language.Haskell.TH.Lift.Internal ( src/Language/Haskell/TH/Lift/Internal.hs, nothing ) [2 of 2] Compiling Language.Haskell.TH.Lift ( src/Language/Haskell/TH/Lift.hs, nothing ) Haddock coverage: Warning: 'makeLift' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 3 / 3) in 'Language.Haskell.TH.Lift.Internal' 62% ( 5 / 8) in 'Language.Haskell.TH.Lift' Missing documentation for: Module header deriveLift (src/Language/Haskell/TH/Lift.hs:57) deriveLiftMany' (src/Language/Haskell/TH/Lift.hs:75) Documentation created: dist/doc/html/th-lift/, dist/doc/html/th-lift/th-lift.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/th-lift-0.8.6-4HcLgzDLxGg12EUKIGyxSR Completed th-lift-0.8.6 Configuring network-uri-2.6.4.2... Preprocessing library for network-uri-2.6.4.2.. Building library for network-uri-2.6.4.2.. [1 of 3] Compiling Network.URI ( Network/URI.hs, dist/build/Network/URI.o, dist/build/Network/URI.dyn_o ) Network/URI.hs:1131:12: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 1131 | if head (uriPath ref) == '/' then | ^^^^ Network/URI.hs:1437:16: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 1437 | query = orNull tail . uriQuery | ^^^^ Network/URI.hs:1441:19: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 1441 | fragment = orNull tail . uriFragment | ^^^^ [2 of 3] Compiling Network.URI.Lens ( Network/URI/Lens.hs, dist/build/Network/URI/Lens.o, dist/build/Network/URI/Lens.dyn_o ) [3 of 3] Compiling Network.URI.Static ( Network/URI/Static.hs, dist/build/Network/URI/Static.o, dist/build/Network/URI/Static.dyn_o ) Preprocessing library for network-uri-2.6.4.2.. Running Haddock on library for network-uri-2.6.4.2.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Network.URI ( Network/URI.hs, nothing ) Network/URI.hs:1131:12: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 1131 | if head (uriPath ref) == '/' then | ^^^^ Network/URI.hs:1437:16: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 1437 | query = orNull tail . uriQuery | ^^^^ Network/URI.hs:1441:19: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 1441 | fragment = orNull tail . uriFragment | ^^^^ [2 of 3] Compiling Network.URI.Lens ( Network/URI/Lens.hs, nothing ) [3 of 3] Compiling Network.URI.Static ( Network/URI/Static.hs, nothing ) Haddock coverage: Warning: 'URI' is ambiguous. It is defined * at Network/URI.hs:184:12 * at Network/URI.hs:184:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/URI.hs:184:1 77% ( 42 / 54) in 'Network.URI' Missing documentation for: uriIsAbsolute (Network/URI.hs:388) uriIsRelative (Network/URI.hs:391) uriAuthToString (Network/URI.hs:959) parseabsoluteURI (Network/URI.hs:1400) escapeString (Network/URI.hs:1404) reserved (Network/URI.hs:1408) unreserved (Network/URI.hs:1412) scheme (Network/URI.hs:1418) authority (Network/URI.hs:1425) path (Network/URI.hs:1433) query (Network/URI.hs:1437) fragment (Network/URI.hs:1441) 11% ( 1 / 9) in 'Network.URI.Lens' Missing documentation for: uriRegNameLens (Network/URI/Lens.hs:32) uriUserInfoLens (Network/URI/Lens.hs:35) uriPortLens (Network/URI/Lens.hs:39) uriAuthorityLens (Network/URI/Lens.hs:42) uriSchemeLens (Network/URI/Lens.hs:46) uriPathLens (Network/URI/Lens.hs:49) uriQueryLens (Network/URI/Lens.hs:52) uriFragmentLens (Network/URI/Lens.hs:55) 88% ( 8 / 9) in 'Network.URI.Static' Missing documentation for: Module header Warning: Network.URI: could not find link destinations for: - Network.URI.Rep_URI - Network.URI.Rep_URIAuth Warning: Network.URI.Lens: could not find link destinations for: - Network.URI.Lens.Lens' Documentation created: dist/doc/html/network-uri/, dist/doc/html/network-uri/network-uri.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/network-uri-2.6.4.2-3nNQMBMIiS23GiQ0eN39ga Completed network-uri-2.6.4.2 Configuring transformers-base-0.4.6... Preprocessing library for transformers-base-0.4.6.. Building library for transformers-base-0.4.6.. [1 of 1] Compiling Control.Monad.Base ( src/Control/Monad/Base.hs, dist/build/Control/Monad/Base.o, dist/build/Control/Monad/Base.dyn_o ) Preprocessing library for transformers-base-0.4.6.. Running Haddock on library for transformers-base-0.4.6.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Control.Monad.Base ( src/Control/Monad/Base.hs, nothing ) Haddock coverage: 33% ( 1 / 3) in 'Control.Monad.Base' Missing documentation for: Module header MonadBase (src/Control/Monad/Base.hs:60) Documentation created: dist/doc/html/transformers-base/, dist/doc/html/transformers-base/transformers-base.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/transformers-base-0.4.6-IL0Wd7HO1bp151a2hrrU7W Completed transformers-base-0.4.6 Configuring resourcet-1.3.0... Preprocessing library for resourcet-1.3.0.. Building library for resourcet-1.3.0.. [1 of 5] Compiling Data.Acquire.Internal ( Data/Acquire/Internal.hs, dist/build/Data/Acquire/Internal.o, dist/build/Data/Acquire/Internal.dyn_o ) Data/Acquire/Internal.hs:17:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 17 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 5] Compiling Control.Monad.Trans.Resource.Internal ( Control/Monad/Trans/Resource/Internal.hs, dist/build/Control/Monad/Trans/Resource/Internal.o, dist/build/Control/Monad/Trans/Resource/Internal.dyn_o ) Control/Monad/Trans/Resource/Internal.hs:28:29: warning: [GHC-38856] [-Wunused-imports] The import of Applicative from module Control.Applicative is redundant | 28 | import Control.Applicative (Applicative (..), Alternative(..)) | ^^^^^^^^^^^^^^^^ Control/Monad/Trans/Resource/Internal.hs:57:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Monad.IO.Class is redundant except perhaps to import instances from Control.Monad.IO.Class To import instances alone, use: import Control.Monad.IO.Class() | 57 | import Control.Monad.IO.Class (MonadIO (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Control/Monad/Trans/Resource/Internal.hs:67:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Word is redundant except perhaps to import instances from Data.Word To import instances alone, use: import Data.Word() | 67 | import Data.Word(Word) | ^^^^^^^^^^^^^^^^^^^^^^ [3 of 5] Compiling Data.Acquire ( Data/Acquire.hs, dist/build/Data/Acquire.o, dist/build/Data/Acquire.dyn_o ) [4 of 5] Compiling Control.Monad.Trans.Resource ( Control/Monad/Trans/Resource.hs, dist/build/Control/Monad/Trans/Resource.o, dist/build/Control/Monad/Trans/Resource.dyn_o ) [5 of 5] Compiling UnliftIO.Resource ( UnliftIO/Resource.hs, dist/build/UnliftIO/Resource.o, dist/build/UnliftIO/Resource.dyn_o ) Preprocessing library for resourcet-1.3.0.. Running Haddock on library for resourcet-1.3.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling Data.Acquire.Internal ( Data/Acquire/Internal.hs, nothing ) Data/Acquire/Internal.hs:17:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 17 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 5] Compiling Control.Monad.Trans.Resource.Internal ( Control/Monad/Trans/Resource/Internal.hs, nothing ) Control/Monad/Trans/Resource/Internal.hs:28:29: warning: [GHC-38856] [-Wunused-imports] The import of Applicative from module Control.Applicative is redundant | 28 | import Control.Applicative (Applicative (..), Alternative(..)) | ^^^^^^^^^^^^^^^^ Control/Monad/Trans/Resource/Internal.hs:57:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Monad.IO.Class is redundant except perhaps to import instances from Control.Monad.IO.Class To import instances alone, use: import Control.Monad.IO.Class() | 57 | import Control.Monad.IO.Class (MonadIO (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Control/Monad/Trans/Resource/Internal.hs:67:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Word is redundant except perhaps to import instances from Data.Word To import instances alone, use: import Data.Word() | 67 | import Data.Word(Word) | ^^^^^^^^^^^^^^^^^^^^^^ [3 of 5] Compiling Data.Acquire ( Data/Acquire.hs, nothing ) [4 of 5] Compiling Control.Monad.Trans.Resource ( Control/Monad/Trans/Resource.hs, nothing ) [5 of 5] Compiling UnliftIO.Resource ( UnliftIO/Resource.hs, nothing ) Haddock coverage: 71% ( 5 / 7) in 'Data.Acquire.Internal' Missing documentation for: Module header Allocated (Data/Acquire/Internal.hs:37) Warning: 'ResourceT' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:182:25 * at Control/Monad/Trans/Resource/Internal.hs:182:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:182:1 Warning: 'runResourceT' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'register' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'allocate' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'release' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'hoist' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ResourceCleanupException' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:343:33 * at Control/Monad/Trans/Resource/Internal.hs:343:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:343:1 64% ( 9 / 14) in 'Control.Monad.Trans.Resource.Internal' Missing documentation for: Module header ReleaseMap (Control/Monad/Trans/Resource/Internal.hs:98) stateAlloc (Control/Monad/Trans/Resource/Internal.hs:289) stateCleanup (Control/Monad/Trans/Resource/Internal.hs:297) register' (Control/Monad/Trans/Resource/Internal.hs:317) Warning: 'Acquire' is ambiguous. It is defined * at Data/Acquire/Internal.hs:51:21 * at Data/Acquire/Internal.hs:51:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Acquire/Internal.hs:51:1 100% ( 10 / 10) in 'Data.Acquire' Warning: 'ReleaseKey' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:92:19 * at Control/Monad/Trans/Resource/Internal.hs:92:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:92:1 Warning: 'ResourceT' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:182:25 * at Control/Monad/Trans/Resource/Internal.hs:182:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:182:1 Warning: 'ResourceCleanupException' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:343:33 * at Control/Monad/Trans/Resource/Internal.hs:343:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:343:1 Warning: 'concurrently' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'race' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'InvalidAccess' is ambiguous. It is defined * at Control/Monad/Trans/Resource/Internal.hs:205:22 * at Control/Monad/Trans/Resource/Internal.hs:205:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Trans/Resource/Internal.hs:205:1 100% ( 40 / 40) in 'Control.Monad.Trans.Resource' 100% ( 13 / 13) in 'UnliftIO.Resource' Warning: Control.Monad.Trans.Resource.Internal: could not find link destinations for: - Control.Monad.Trans.Resource.Internal.NextKey - Control.Monad.Trans.Resource.Internal.RefCount - Control.Monad.Trans.Resource.Internal.D:R:PrimStateResourceT Warning: Control.Monad.Trans.Resource: could not find link destinations for: - Control.Monad.Trans.Resource.Internal.D:R:PrimStateResourceT Warning: UnliftIO.Resource: could not find link destinations for: - Control.Monad.Trans.Resource.Internal.D:R:PrimStateResourceT Documentation created: dist/doc/html/resourcet/, dist/doc/html/resourcet/resourcet.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/resourcet-1.3.0-JbK6FWjuH9wIRghP2zKnYA Completed resourcet-1.3.0 Configuring blaze-html-0.9.2.0... Preprocessing library for blaze-html-0.9.2.0.. Building library for blaze-html-0.9.2.0.. [ 1 of 21] Compiling Text.Blaze.Html ( src/Text/Blaze/Html.hs, dist/build/Text/Blaze/Html.o, dist/build/Text/Blaze/Html.dyn_o ) [ 2 of 21] Compiling Text.Blaze.Html.Renderer.Pretty ( src/Text/Blaze/Html/Renderer/Pretty.hs, dist/build/Text/Blaze/Html/Renderer/Pretty.o, dist/build/Text/Blaze/Html/Renderer/Pretty.dyn_o ) [ 3 of 21] Compiling Text.Blaze.Html.Renderer.String ( src/Text/Blaze/Html/Renderer/String.hs, dist/build/Text/Blaze/Html/Renderer/String.o, dist/build/Text/Blaze/Html/Renderer/String.dyn_o ) [ 4 of 21] Compiling Text.Blaze.Html.Renderer.Text ( src/Text/Blaze/Html/Renderer/Text.hs, dist/build/Text/Blaze/Html/Renderer/Text.o, dist/build/Text/Blaze/Html/Renderer/Text.dyn_o ) [ 5 of 21] Compiling Text.Blaze.Html.Renderer.Utf8 ( src/Text/Blaze/Html/Renderer/Utf8.hs, dist/build/Text/Blaze/Html/Renderer/Utf8.o, dist/build/Text/Blaze/Html/Renderer/Utf8.dyn_o ) [ 6 of 21] Compiling Text.Blaze.Html4.FrameSet ( src/Text/Blaze/Html4/FrameSet.hs, dist/build/Text/Blaze/Html4/FrameSet.o, dist/build/Text/Blaze/Html4/FrameSet.dyn_o ) [ 7 of 21] Compiling Text.Blaze.Html4.FrameSet.Attributes ( src/Text/Blaze/Html4/FrameSet/Attributes.hs, dist/build/Text/Blaze/Html4/FrameSet/Attributes.o, dist/build/Text/Blaze/Html4/FrameSet/Attributes.dyn_o ) [ 8 of 21] Compiling Text.Blaze.Html4.Strict ( src/Text/Blaze/Html4/Strict.hs, dist/build/Text/Blaze/Html4/Strict.o, dist/build/Text/Blaze/Html4/Strict.dyn_o ) [ 9 of 21] Compiling Text.Blaze.Html4.Strict.Attributes ( src/Text/Blaze/Html4/Strict/Attributes.hs, dist/build/Text/Blaze/Html4/Strict/Attributes.o, dist/build/Text/Blaze/Html4/Strict/Attributes.dyn_o ) [10 of 21] Compiling Text.Blaze.Html4.Transitional ( src/Text/Blaze/Html4/Transitional.hs, dist/build/Text/Blaze/Html4/Transitional.o, dist/build/Text/Blaze/Html4/Transitional.dyn_o ) [11 of 21] Compiling Text.Blaze.Html4.Transitional.Attributes ( src/Text/Blaze/Html4/Transitional/Attributes.hs, dist/build/Text/Blaze/Html4/Transitional/Attributes.o, dist/build/Text/Blaze/Html4/Transitional/Attributes.dyn_o ) [12 of 21] Compiling Text.Blaze.Html5 ( src/Text/Blaze/Html5.hs, dist/build/Text/Blaze/Html5.o, dist/build/Text/Blaze/Html5.dyn_o ) [13 of 21] Compiling Text.Blaze.Html5.Attributes ( src/Text/Blaze/Html5/Attributes.hs, dist/build/Text/Blaze/Html5/Attributes.o, dist/build/Text/Blaze/Html5/Attributes.dyn_o ) [14 of 21] Compiling Text.Blaze.XHtml1.FrameSet ( src/Text/Blaze/XHtml1/FrameSet.hs, dist/build/Text/Blaze/XHtml1/FrameSet.o, dist/build/Text/Blaze/XHtml1/FrameSet.dyn_o ) [15 of 21] Compiling Text.Blaze.XHtml1.FrameSet.Attributes ( src/Text/Blaze/XHtml1/FrameSet/Attributes.hs, dist/build/Text/Blaze/XHtml1/FrameSet/Attributes.o, dist/build/Text/Blaze/XHtml1/FrameSet/Attributes.dyn_o ) [16 of 21] Compiling Text.Blaze.XHtml1.Strict ( src/Text/Blaze/XHtml1/Strict.hs, dist/build/Text/Blaze/XHtml1/Strict.o, dist/build/Text/Blaze/XHtml1/Strict.dyn_o ) [17 of 21] Compiling Text.Blaze.XHtml1.Strict.Attributes ( src/Text/Blaze/XHtml1/Strict/Attributes.hs, dist/build/Text/Blaze/XHtml1/Strict/Attributes.o, dist/build/Text/Blaze/XHtml1/Strict/Attributes.dyn_o ) [18 of 21] Compiling Text.Blaze.XHtml1.Transitional ( src/Text/Blaze/XHtml1/Transitional.hs, dist/build/Text/Blaze/XHtml1/Transitional.o, dist/build/Text/Blaze/XHtml1/Transitional.dyn_o ) [19 of 21] Compiling Text.Blaze.XHtml1.Transitional.Attributes ( src/Text/Blaze/XHtml1/Transitional/Attributes.hs, dist/build/Text/Blaze/XHtml1/Transitional/Attributes.o, dist/build/Text/Blaze/XHtml1/Transitional/Attributes.dyn_o ) [20 of 21] Compiling Text.Blaze.XHtml5 ( src/Text/Blaze/XHtml5.hs, dist/build/Text/Blaze/XHtml5.o, dist/build/Text/Blaze/XHtml5.dyn_o ) [21 of 21] Compiling Text.Blaze.XHtml5.Attributes ( src/Text/Blaze/XHtml5/Attributes.hs, dist/build/Text/Blaze/XHtml5/Attributes.o, dist/build/Text/Blaze/XHtml5/Attributes.dyn_o ) Preprocessing library for blaze-html-0.9.2.0.. Running Haddock on library for blaze-html-0.9.2.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 21] Compiling Text.Blaze.Html ( src/Text/Blaze/Html.hs, nothing ) [ 2 of 21] Compiling Text.Blaze.Html.Renderer.Pretty ( src/Text/Blaze/Html/Renderer/Pretty.hs, nothing ) [ 3 of 21] Compiling Text.Blaze.Html.Renderer.String ( src/Text/Blaze/Html/Renderer/String.hs, nothing ) [ 4 of 21] Compiling Text.Blaze.Html.Renderer.Text ( src/Text/Blaze/Html/Renderer/Text.hs, nothing ) [ 5 of 21] Compiling Text.Blaze.Html.Renderer.Utf8 ( src/Text/Blaze/Html/Renderer/Utf8.hs, nothing ) [ 6 of 21] Compiling Text.Blaze.Html4.FrameSet ( src/Text/Blaze/Html4/FrameSet.hs, nothing ) [ 7 of 21] Compiling Text.Blaze.Html4.FrameSet.Attributes ( src/Text/Blaze/Html4/FrameSet/Attributes.hs, nothing ) [ 8 of 21] Compiling Text.Blaze.Html4.Strict ( src/Text/Blaze/Html4/Strict.hs, nothing ) [ 9 of 21] Compiling Text.Blaze.Html4.Strict.Attributes ( src/Text/Blaze/Html4/Strict/Attributes.hs, nothing ) [10 of 21] Compiling Text.Blaze.Html4.Transitional ( src/Text/Blaze/Html4/Transitional.hs, nothing ) [11 of 21] Compiling Text.Blaze.Html4.Transitional.Attributes ( src/Text/Blaze/Html4/Transitional/Attributes.hs, nothing ) [12 of 21] Compiling Text.Blaze.Html5 ( src/Text/Blaze/Html5.hs, nothing ) [13 of 21] Compiling Text.Blaze.Html5.Attributes ( src/Text/Blaze/Html5/Attributes.hs, nothing ) [14 of 21] Compiling Text.Blaze.XHtml1.FrameSet ( src/Text/Blaze/XHtml1/FrameSet.hs, nothing ) [15 of 21] Compiling Text.Blaze.XHtml1.FrameSet.Attributes ( src/Text/Blaze/XHtml1/FrameSet/Attributes.hs, nothing ) [16 of 21] Compiling Text.Blaze.XHtml1.Strict ( src/Text/Blaze/XHtml1/Strict.hs, nothing ) [17 of 21] Compiling Text.Blaze.XHtml1.Strict.Attributes ( src/Text/Blaze/XHtml1/Strict/Attributes.hs, nothing ) [18 of 21] Compiling Text.Blaze.XHtml1.Transitional ( src/Text/Blaze/XHtml1/Transitional.hs, nothing ) [19 of 21] Compiling Text.Blaze.XHtml1.Transitional.Attributes ( src/Text/Blaze/XHtml1/Transitional/Attributes.hs, nothing ) [20 of 21] Compiling Text.Blaze.XHtml5 ( src/Text/Blaze/XHtml5.hs, nothing ) [21 of 21] Compiling Text.Blaze.XHtml5.Attributes ( src/Text/Blaze/XHtml5/Attributes.hs, nothing ) Haddock coverage: 20% ( 1 / 5) in 'Text.Blaze.Html' Missing documentation for: Module header Html (src/Text/Blaze/Html.hs:10) toHtml (src/Text/Blaze/Html.hs:13) preEscapedToHtml (src/Text/Blaze/Html.hs:16) 0% ( 0 / 2) in 'Text.Blaze.Html.Renderer.Pretty' Missing documentation for: Module header renderHtml (src/Text/Blaze/Html/Renderer/Pretty.hs:9) 0% ( 0 / 2) in 'Text.Blaze.Html.Renderer.String' Missing documentation for: Module header renderHtml (src/Text/Blaze/Html/Renderer/String.hs:9) 0% ( 0 / 5) in 'Text.Blaze.Html.Renderer.Text' Missing documentation for: Module header renderHtmlBuilder (src/Text/Blaze/Html/Renderer/Text.hs:16) renderHtmlBuilderWith (src/Text/Blaze/Html/Renderer/Text.hs:19) renderHtml (src/Text/Blaze/Html/Renderer/Text.hs:22) renderHtmlWith (src/Text/Blaze/Html/Renderer/Text.hs:25) 0% ( 0 / 4) in 'Text.Blaze.Html.Renderer.Utf8' Missing documentation for: Module header renderHtmlBuilder (src/Text/Blaze/Html/Renderer/Utf8.hs:14) renderHtml (src/Text/Blaze/Html/Renderer/Utf8.hs:17) renderHtmlToByteStringIO (src/Text/Blaze/Html/Renderer/Utf8.hs:20) 100% ( 93 / 93) in 'Text.Blaze.Html4.FrameSet' 100% (105 /105) in 'Text.Blaze.Html4.FrameSet.Attributes' 100% ( 80 / 80) in 'Text.Blaze.Html4.Strict' 100% ( 92 / 92) in 'Text.Blaze.Html4.Strict.Attributes' 100% ( 91 / 91) in 'Text.Blaze.Html4.Transitional' 100% (103 /103) in 'Text.Blaze.Html4.Transitional.Attributes' 100% (120 /120) in 'Text.Blaze.Html5' 100% (176 /176) in 'Text.Blaze.Html5.Attributes' 100% ( 93 / 93) in 'Text.Blaze.XHtml1.FrameSet' 100% (105 /105) in 'Text.Blaze.XHtml1.FrameSet.Attributes' 100% ( 80 / 80) in 'Text.Blaze.XHtml1.Strict' 100% ( 92 / 92) in 'Text.Blaze.XHtml1.Strict.Attributes' 100% ( 91 / 91) in 'Text.Blaze.XHtml1.Transitional' 100% (103 /103) in 'Text.Blaze.XHtml1.Transitional.Attributes' 100% (120 /120) in 'Text.Blaze.XHtml5' 100% (176 /176) in 'Text.Blaze.XHtml5.Attributes' Documentation created: dist/doc/html/blaze-html/, dist/doc/html/blaze-html/blaze-html.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/blaze-html-0.9.2.0-GGLnD0E7AI8C2BAzBpWamU Completed blaze-html-0.9.2.0 Configuring hspec-expectations-0.8.4... Preprocessing library for hspec-expectations-0.8.4.. Building library for hspec-expectations-0.8.4.. [1 of 4] Compiling Paths_hspec_expectations ( dist/build/autogen/Paths_hspec_expectations.hs, dist/build/Paths_hspec_expectations.o, dist/build/Paths_hspec_expectations.dyn_o ) [2 of 4] Compiling Test.Hspec.Expectations.Contrib ( src/Test/Hspec/Expectations/Contrib.hs, dist/build/Test/Hspec/Expectations/Contrib.o, dist/build/Test/Hspec/Expectations/Contrib.dyn_o ) [3 of 4] Compiling Test.Hspec.Expectations.Matcher ( src/Test/Hspec/Expectations/Matcher.hs, dist/build/Test/Hspec/Expectations/Matcher.o, dist/build/Test/Hspec/Expectations/Matcher.dyn_o ) [4 of 4] Compiling Test.Hspec.Expectations ( src/Test/Hspec/Expectations.hs, dist/build/Test/Hspec/Expectations.o, dist/build/Test/Hspec/Expectations.dyn_o ) Preprocessing library for hspec-expectations-0.8.4.. Running Haddock on library for hspec-expectations-0.8.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling Paths_hspec_expectations ( dist/build/autogen/Paths_hspec_expectations.hs, nothing ) [2 of 4] Compiling Test.Hspec.Expectations.Contrib ( src/Test/Hspec/Expectations/Contrib.hs, nothing ) [3 of 4] Compiling Test.Hspec.Expectations.Matcher ( src/Test/Hspec/Expectations/Matcher.hs, nothing ) [4 of 4] Compiling Test.Hspec.Expectations ( src/Test/Hspec/Expectations.hs, nothing ) Haddock coverage: Warning: 'Expectation' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'shouldBe' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'shouldSatisfy' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 7 / 7) in 'Test.Hspec.Expectations.Contrib' Warning: 'ErrorCall' is ambiguous. It is defined * in GHC.Exception * in GHC.Exception You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Exception 76% ( 23 / 30) in 'Test.Hspec.Expectations' Missing documentation for: Expectation (src/Test/Hspec/Expectations.hs:76) expectationFailure (src/Test/Hspec/Expectations.hs:79) anyException (src/Test/Hspec/Expectations.hs:183) anyErrorCall (src/Test/Hspec/Expectations.hs:186) anyIOException (src/Test/Hspec/Expectations.hs:196) anyArithException (src/Test/Hspec/Expectations.hs:199) errorCall (src/Test/Hspec/Expectations.hs:190) Documentation created: dist/doc/html/hspec-expectations/, dist/doc/html/hspec-expectations/hspec-expectations.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-expectations-0.8.4-HhwaltKFPw86SDondIAVYY Completed hspec-expectations-0.8.4 Configuring ansi-terminal-1.1.3... Preprocessing library for ansi-terminal-1.1.3.. Building library for ansi-terminal-1.1.3.. [1 of 2] Compiling System.Console.ANSI.Internal ( unix/System/Console/ANSI/Internal.hs, dist/build/System/Console/ANSI/Internal.o, dist/build/System/Console/ANSI/Internal.dyn_o ) [2 of 2] Compiling System.Console.ANSI ( src/System/Console/ANSI.hs, dist/build/System/Console/ANSI.o, dist/build/System/Console/ANSI.dyn_o ) Preprocessing library for ansi-terminal-1.1.3.. Running Haddock on library for ansi-terminal-1.1.3.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling System.Console.ANSI.Internal ( unix/System/Console/ANSI/Internal.hs, nothing ) [2 of 2] Compiling System.Console.ANSI ( src/System/Console/ANSI.hs, nothing ) Haddock coverage: 54% ( 85 /155) in 'System.Console.ANSI' Missing documentation for: cursorUp (src/System/Console/ANSI.hs:415) cursorDown (src/System/Console/ANSI.hs:416) cursorForward (src/System/Console/ANSI.hs:417) cursorBackward (src/System/Console/ANSI.hs:418) hCursorUp (src/System/Console/ANSI.hs:407) hCursorDown (src/System/Console/ANSI.hs:408) hCursorForward (src/System/Console/ANSI.hs:409) hCursorBackward (src/System/Console/ANSI.hs:410) cursorUpCode cursorDownCode cursorForwardCode cursorBackwardCode cursorUpLine (src/System/Console/ANSI.hs:431) cursorDownLine (src/System/Console/ANSI.hs:430) hCursorUpLine (src/System/Console/ANSI.hs:425) hCursorDownLine (src/System/Console/ANSI.hs:424) cursorUpLineCode cursorDownLineCode hSetCursorColumn (src/System/Console/ANSI.hs:437) hSetCursorPosition (src/System/Console/ANSI.hs:451) hSaveCursor (src/System/Console/ANSI.hs:462) hRestoreCursor (src/System/Console/ANSI.hs:463) hReportCursorPosition (src/System/Console/ANSI.hs:464) clearFromCursorToScreenEnd (src/System/Console/ANSI.hs:1036) clearFromCursorToScreenBeginning (src/System/Console/ANSI.hs:1037) clearScreen (src/System/Console/ANSI.hs:1038) clearFromCursorToLineEnd (src/System/Console/ANSI.hs:1048) clearFromCursorToLineBeginning (src/System/Console/ANSI.hs:1049) clearLine (src/System/Console/ANSI.hs:1050) hClearFromCursorToScreenEnd (src/System/Console/ANSI.hs:1030) hClearFromCursorToScreenBeginning (src/System/Console/ANSI.hs:1031) hClearScreen (src/System/Console/ANSI.hs:1033) hClearFromCursorToLineEnd (src/System/Console/ANSI.hs:1043) hClearFromCursorToLineBeginning (src/System/Console/ANSI.hs:1044) hClearLine (src/System/Console/ANSI.hs:1045) clearFromCursorToScreenEndCode clearFromCursorToScreenBeginningCode clearScreenCode clearFromCursorToLineEndCode clearFromCursorToLineBeginningCode clearLineCode enableLineWrap (src/System/Console/ANSI.hs:1059) disableLineWrap (src/System/Console/ANSI.hs:1060) hEnableLineWrap (src/System/Console/ANSI.hs:1055) hDisableLineWrap (src/System/Console/ANSI.hs:1056) enableLineWrapCode disableLineWrapCode scrollPageUp (src/System/Console/ANSI.hs:1072) scrollPageDown (src/System/Console/ANSI.hs:1073) hScrollPageUp (src/System/Console/ANSI.hs:1066) hScrollPageDown (src/System/Console/ANSI.hs:1067) scrollPageUpCode scrollPageDownCode hUseAlternateScreenBuffer (src/System/Console/ANSI.hs:508) hUseNormalScreenBuffer (src/System/Console/ANSI.hs:511) useAlternateScreenBufferCode useNormalScreenBufferCode hReportLayerColor (src/System/Console/ANSI.hs:815) hSetSGR (src/System/Console/ANSI.hs:1016) setSGRCode hideCursor (src/System/Console/ANSI.hs:504) showCursor (src/System/Console/ANSI.hs:505) hHideCursor (src/System/Console/ANSI.hs:500) hShowCursor (src/System/Console/ANSI.hs:501) hideCursorCode showCursorCode hHyperlink (src/System/Console/ANSI.hs:570) hHyperlinkWithId (src/System/Console/ANSI.hs:592) hHyperlinkWithParams (src/System/Console/ANSI.hs:547) hSetTitle (src/System/Console/ANSI.hs:612) Documentation created: dist/doc/html/ansi-terminal/, dist/doc/html/ansi-terminal/ansi-terminal.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/ansi-terminal-1.1.3-9wpti7DRjVIBzQawv4Tcnx Completed ansi-terminal-1.1.3 Configuring cookie-0.5.1... Preprocessing library for cookie-0.5.1.. Building library for cookie-0.5.1.. [1 of 1] Compiling Web.Cookie ( Web/Cookie.hs, dist/build/Web/Cookie.o, dist/build/Web/Cookie.dyn_o ) Preprocessing library for cookie-0.5.1.. Running Haddock on library for cookie-0.5.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Web.Cookie ( Web/Cookie.hs, nothing ) Haddock coverage: Warning: 'SetCookie' is ambiguous. It is defined * at Web/Cookie.hs:151:18 * at Web/Cookie.hs:151:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Web/Cookie.hs:151:1 Warning: 'UTCTime' is ambiguous. It is defined * in Data.Time.Clock.Internal.UTCTime * in Data.Time.Clock.Internal.UTCTime You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Time.Clock.Internal.UTCTime 75% ( 28 / 37) in 'Web.Cookie' Missing documentation for: Module header parseSetCookie (Web/Cookie.hs:269) renderSetCookie (Web/Cookie.hs:228) Cookies (Web/Cookie.hs:75) renderCookies (Web/Cookie.hs:130) parseCookiesText (Web/Cookie.hs:67) renderCookiesText (Web/Cookie.hs:73) expiresFormat (Web/Cookie.hs:295) parseCookieExpires (Web/Cookie.hs:303) Documentation created: dist/doc/html/cookie/, dist/doc/html/cookie/cookie.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/cookie-0.5.1-7WjWdRAhou4BE339QV6XNE Completed cookie-0.5.1 Configuring unix-time-0.4.17... checking for gcc... /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc accepts -g... yes checking for /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc option to accept ISO C89... none needed checking how to run the C preprocessor... /nix/store/8v6k283dpbc0qkdq81nb6mrxrgcb10i1-gcc-wrapper-14-20241116/bin/cc -E checking for grep that handles long lines and -e... /nix/store/0mqngkz34kv5z6hz91bbbgzgrnz56c4y-gnugrep-3.11/bin/grep checking for egrep... /nix/store/0mqngkz34kv5z6hz91bbbgzgrnz56c4y-gnugrep-3.11/bin/grep -E checking for ANSI C header files... yes checking for sys/types.h... yes checking for sys/stat.h... yes checking for stdlib.h... yes checking for string.h... yes checking for memory.h... yes checking for strings.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for unistd.h... yes checking xlocale.h usability... no checking xlocale.h presence... no checking for xlocale.h... no checking for strptime_l... yes checking for timegm... yes checking whether _mkgmtime is declared... no checking for _get_current_locale... no checking for _create_locale... no checking for strtol_l... yes checking for strtoll_l... yes checking for _isspace_l... no checking for _isupper_l... no checking for _isdigit_l... no checking for _isblank_l... no configure: creating ./config.status config.status: creating cbits/config.h Preprocessing library for unix-time-0.4.17.. Building library for unix-time-0.4.17.. [1 of 5] Compiling Data.UnixTime.Types ( dist/build/Data/UnixTime/Types.hs, dist/build/Data/UnixTime/Types.o, dist/build/Data/UnixTime/Types.dyn_o ) Data/UnixTime/Types.hsc:5:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 5 | import Control.Applicative ((<$>), (<*>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 5] Compiling Data.UnixTime.Sys ( dist/build/Data/UnixTime/Sys.hs, dist/build/Data/UnixTime/Sys.o, dist/build/Data/UnixTime/Sys.dyn_o ) [3 of 5] Compiling Data.UnixTime.Diff ( Data/UnixTime/Diff.hs, dist/build/Data/UnixTime/Diff.o, dist/build/Data/UnixTime/Diff.dyn_o ) [4 of 5] Compiling Data.UnixTime.Conv ( Data/UnixTime/Conv.hs, dist/build/Data/UnixTime/Conv.o, dist/build/Data/UnixTime/Conv.dyn_o ) Data/UnixTime/Conv.hs:17:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 17 | import Control.Applicative | ^^^^^^^^^^^^^^^^^^^^^^^^^^ [5 of 5] Compiling Data.UnixTime ( Data/UnixTime.hs, dist/build/Data/UnixTime.o, dist/build/Data/UnixTime.dyn_o ) Preprocessing library for unix-time-0.4.17.. Running Haddock on library for unix-time-0.4.17.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling Data.UnixTime.Types ( dist/build/Data/UnixTime/Types.hs, nothing ) Data/UnixTime/Types.hsc:5:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 5 | import Control.Applicative ((<$>), (<*>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 5] Compiling Data.UnixTime.Sys ( dist/build/Data/UnixTime/Sys.hs, nothing ) [3 of 5] Compiling Data.UnixTime.Diff ( Data/UnixTime/Diff.hs, nothing ) [4 of 5] Compiling Data.UnixTime.Conv ( Data/UnixTime/Conv.hs, nothing ) Data/UnixTime/Conv.hs:17:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 17 | import Control.Applicative | ^^^^^^^^^^^^^^^^^^^^^^^^^^ [5 of 5] Compiling Data.UnixTime ( Data/UnixTime.hs, nothing ) Haddock coverage: Warning: 'UnixDiffTime' is ambiguous. It is defined * at Data/UnixTime/Types.hsc:115:21 * at Data/UnixTime/Types.hsc:115:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/UnixTime/Types.hsc:115:1 Warning: 'UnixTime' is ambiguous. It is defined * at Data/UnixTime/Types.hsc:33:17 * at Data/UnixTime/Types.hsc:33:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/UnixTime/Types.hsc:33:1 Warning: 'UnixTime' is ambiguous. It is defined * at Data/UnixTime/Types.hsc:33:17 * at Data/UnixTime/Types.hsc:33:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/UnixTime/Types.hsc:33:1 Warning: 'UnixTime' is ambiguous. It is defined * at Data/UnixTime/Types.hsc:33:17 * at Data/UnixTime/Types.hsc:33:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/UnixTime/Types.hsc:33:1 96% ( 24 / 25) in 'Data.UnixTime' Missing documentation for: Module header Warning: Data.UnixTime: could not find link destinations for: - Data.UnixTime.Types.Rep_UnixTime Documentation created: dist/doc/html/unix-time/, dist/doc/html/unix-time/unix-time.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unix-time-0.4.17-EIF5s3rFCXX6vdCSU1LLb9 Completed unix-time-0.4.17 Configuring unordered-containers-0.2.20.1... Preprocessing library for unordered-containers-0.2.20.1.. Building library for unordered-containers-0.2.20.1.. Data/HashMap/Internal.hs:12:14-23: warning: [GHC-53692] [-Wdeprecated-flags] -XTypeInType is deprecated: use -XDataKinds and -XPolyKinds instead | 12 | {-# LANGUAGE TypeInType #-} | ^^^^^^^^^^ [1 of 9] Compiling Data.HashMap.Internal.Array ( Data/HashMap/Internal/Array.hs, dist/build/Data/HashMap/Internal/Array.o, dist/build/Data/HashMap/Internal/Array.dyn_o ) Data/HashMap/Internal/Array.hs:83:1-35: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 83 | import Control.Applicative (liftA2) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 9] Compiling Data.HashMap.Internal.List ( Data/HashMap/Internal/List.hs, dist/build/Data/HashMap/Internal/List.o, dist/build/Data/HashMap/Internal/List.dyn_o ) [3 of 9] Compiling Data.HashMap.Internal ( Data/HashMap/Internal.hs, dist/build/Data/HashMap/Internal.o, dist/build/Data/HashMap/Internal.dyn_o ) [4 of 9] Compiling Data.HashMap.Internal.Debug ( Data/HashMap/Internal/Debug.hs, dist/build/Data/HashMap/Internal/Debug.o, dist/build/Data/HashMap/Internal/Debug.dyn_o ) [5 of 9] Compiling Data.HashMap.Internal.Strict ( Data/HashMap/Internal/Strict.hs, dist/build/Data/HashMap/Internal/Strict.o, dist/build/Data/HashMap/Internal/Strict.dyn_o ) [6 of 9] Compiling Data.HashSet.Internal ( Data/HashSet/Internal.hs, dist/build/Data/HashSet/Internal.o, dist/build/Data/HashSet/Internal.dyn_o ) [7 of 9] Compiling Data.HashSet ( Data/HashSet.hs, dist/build/Data/HashSet.o, dist/build/Data/HashSet.dyn_o ) [8 of 9] Compiling Data.HashMap.Strict ( Data/HashMap/Strict.hs, dist/build/Data/HashMap/Strict.o, dist/build/Data/HashMap/Strict.dyn_o ) [9 of 9] Compiling Data.HashMap.Lazy ( Data/HashMap/Lazy.hs, dist/build/Data/HashMap/Lazy.o, dist/build/Data/HashMap/Lazy.dyn_o ) Preprocessing library for unordered-containers-0.2.20.1.. Running Haddock on library for unordered-containers-0.2.20.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. Data/HashMap/Internal.hs:12:14-23: warning: [GHC-53692] [-Wdeprecated-flags] -XTypeInType is deprecated: use -XDataKinds and -XPolyKinds instead | 12 | {-# LANGUAGE TypeInType #-} | ^^^^^^^^^^ [1 of 9] Compiling Data.HashMap.Internal.Array ( Data/HashMap/Internal/Array.hs, nothing ) Data/HashMap/Internal/Array.hs:83:1-35: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 83 | import Control.Applicative (liftA2) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 9] Compiling Data.HashMap.Internal.List ( Data/HashMap/Internal/List.hs, nothing ) [3 of 9] Compiling Data.HashMap.Internal ( Data/HashMap/Internal.hs, nothing ) [4 of 9] Compiling Data.HashMap.Internal.Debug ( Data/HashMap/Internal/Debug.hs, nothing ) [5 of 9] Compiling Data.HashMap.Internal.Strict ( Data/HashMap/Internal/Strict.hs, nothing ) [6 of 9] Compiling Data.HashSet.Internal ( Data/HashSet/Internal.hs, nothing ) [7 of 9] Compiling Data.HashSet ( Data/HashSet.hs, nothing ) [8 of 9] Compiling Data.HashMap.Strict ( Data/HashMap/Strict.hs, nothing ) [9 of 9] Compiling Data.HashMap.Lazy ( Data/HashMap/Lazy.hs, nothing ) Haddock coverage: 33% ( 16 / 48) in 'Data.HashMap.Internal.Array' Missing documentation for: Array (Data/HashMap/Internal/Array.hs:125) MArray (Data/HashMap/Internal/Array.hs:157) new_ (Data/HashMap/Internal/Array.hs:208) singleton (Data/HashMap/Internal/Array.hs:225) singletonM (Data/HashMap/Internal/Array.hs:229) snoc (Data/HashMap/Internal/Array.hs:233) pair (Data/HashMap/Internal/Array.hs:242) length (Data/HashMap/Internal/Array.hs:154) lengthM (Data/HashMap/Internal/Array.hs:162) read (Data/HashMap/Internal/Array.hs:249) write (Data/HashMap/Internal/Array.hs:255) index (Data/HashMap/Internal/Array.hs:262) indexM (Data/HashMap/Internal/Array.hs:274) index# (Data/HashMap/Internal/Array.hs:268) sameArray1 (Data/HashMap/Internal/Array.hs:140) unsafeFreeze (Data/HashMap/Internal/Array.hs:280) unsafeThaw (Data/HashMap/Internal/Array.hs:286) unsafeSameArray (Data/HashMap/Internal/Array.hs:136) run (Data/HashMap/Internal/Array.hs:292) cloneM (Data/HashMap/Internal/Array.hs:314) foldl (Data/HashMap/Internal/Array.hs:404) foldl' (Data/HashMap/Internal/Array.hs:375) foldr (Data/HashMap/Internal/Array.hs:394) foldr' (Data/HashMap/Internal/Array.hs:385) foldMap (Data/HashMap/Internal/Array.hs:417) thaw (Data/HashMap/Internal/Array.hs:436) map (Data/HashMap/Internal/Array.hs:461) traverse (Data/HashMap/Internal/Array.hs:537) traverse' (Data/HashMap/Internal/Array.hs:553) toList (Data/HashMap/Internal/Array.hs:529) fromList (Data/HashMap/Internal/Array.hs:494) fromList' (Data/HashMap/Internal/Array.hs:506) 25% ( 1 / 4) in 'Data.HashMap.Internal.List' Missing documentation for: isPermutationBy (Data/HashMap/Internal/List.hs:40) deleteBy (Data/HashMap/Internal/List.hs:83) unorderedCompare (Data/HashMap/Internal/List.hs:68) Warning: 'Leaf' is ambiguous. It is defined * at Data/HashMap/Internal.hs:227:7 * at Data/HashMap/Internal.hs:187:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/HashMap/Internal.hs:187:1 Warning: 'at' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 88% ( 93 /105) in 'Data.HashMap.Internal' Missing documentation for: Leaf (Data/HashMap/Internal.hs:187) intersectionWithKey# (Data/HashMap/Internal.hs:1859) updateOrConcatWithKey (Data/HashMap/Internal.hs:2373) equalKeys (Data/HashMap/Internal.hs:513) equalKeys1 (Data/HashMap/Internal.hs:497) lookupRecordCollision (Data/HashMap/Internal.hs:680) LookupRes (Data/HashMap/Internal.hs:659) lookupResToMaybe (Data/HashMap/Internal.hs:662) insert' (Data/HashMap/Internal.hs:808) delete' (Data/HashMap/Internal.hs:1126) insertNewKey (Data/HashMap/Internal.hs:850) insertKeyExists (Data/HashMap/Internal.hs:885) 50% ( 3 / 6) in 'Data.HashMap.Internal.Debug' Missing documentation for: valid (Data/HashMap/Internal/Debug.hs:98) Validity (Data/HashMap/Internal/Debug.hs:43) SubHashPath (Data/HashMap/Internal/Debug.hs:75) Warning: 'lookup' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'at' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 67 / 67) in 'Data.HashMap.Internal.Strict' Warning: 'HashSet' is ambiguous. It is defined * at Data/HashSet/Internal.hs:112:21 * at Data/HashSet/Internal.hs:112:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/HashSet/Internal.hs:112:1 100% ( 35 / 35) in 'Data.HashSet.Internal' Warning: 'HashSet' is ambiguous. It is defined * at Data/HashSet/Internal.hs:112:21 * at Data/HashSet/Internal.hs:112:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/HashSet/Internal.hs:112:1 100% ( 32 / 32) in 'Data.HashSet' 100% ( 69 / 69) in 'Data.HashMap.Strict' 100% ( 69 / 69) in 'Data.HashMap.Lazy' Warning: Data.HashMap.Internal: could not find link destinations for: - Data.HashMap.Internal.D:R:ItemHashMap Warning: Data.HashMap.Internal.Strict: could not find link destinations for: - Data.HashMap.Internal.D:R:ItemHashMap Warning: Data.HashSet.Internal: could not find link destinations for: - Data.HashSet.Internal.D:R:ItemHashSet Warning: Data.HashSet: could not find link destinations for: - Data.HashSet.Internal.D:R:ItemHashSet Warning: Data.HashMap.Strict: could not find link destinations for: - Data.HashMap.Internal.D:R:ItemHashMap Warning: Data.HashMap.Lazy: could not find link destinations for: - Data.HashMap.Internal.D:R:ItemHashMap Documentation created: dist/doc/html/unordered-containers/, dist/doc/html/unordered-containers/unordered-containers.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unordered-containers-0.2.20.1-2zPIyeV4bf3B7OebcLriWP Completed unordered-containers-0.2.20.1 Configuring time-compat-1.9.8... Preprocessing library for time-compat-1.9.8.. Building library for time-compat-1.9.8.. [ 1 of 20] Compiling Data.Format ( src/Data/Format.hs, dist/build/Data/Format.o, dist/build/Data/Format.dyn_o ) [ 2 of 20] Compiling Data.Time.Calendar.Month.Compat ( src/Data/Time/Calendar/Month/Compat.hs, dist/build/Data/Time/Calendar/Month/Compat.o, dist/build/Data/Time/Calendar/Month/Compat.dyn_o ) [ 3 of 20] Compiling Data.Time.Calendar.Quarter.Compat ( src/Data/Time/Calendar/Quarter/Compat.hs, dist/build/Data/Time/Calendar/Quarter/Compat.o, dist/build/Data/Time/Calendar/Quarter/Compat.dyn_o ) [ 4 of 20] Compiling Data.Time.Calendar.Types ( src/Data/Time/Calendar/Types.hs, dist/build/Data/Time/Calendar/Types.o, dist/build/Data/Time/Calendar/Types.dyn_o ) [ 5 of 20] Compiling Data.Time.Orphans ( src/Data/Time/Orphans.hs, dist/build/Data/Time/Orphans.o, dist/build/Data/Time/Orphans.dyn_o ) [ 6 of 20] Compiling Data.Time.Format.ISO8601.Compat ( src/Data/Time/Format/ISO8601/Compat.hs, dist/build/Data/Time/Format/ISO8601/Compat.o, dist/build/Data/Time/Format/ISO8601/Compat.dyn_o ) [ 7 of 20] Compiling Data.Time.Format.Compat ( src/Data/Time/Format/Compat.hs, dist/build/Data/Time/Format/Compat.o, dist/build/Data/Time/Format/Compat.dyn_o ) [ 8 of 20] Compiling Data.Time.Clock.System.Compat ( src/Data/Time/Clock/System/Compat.hs, dist/build/Data/Time/Clock/System/Compat.o, dist/build/Data/Time/Clock/System/Compat.dyn_o ) [ 9 of 20] Compiling Data.Time.Clock.POSIX.Compat ( src/Data/Time/Clock/POSIX/Compat.hs, dist/build/Data/Time/Clock/POSIX/Compat.o, dist/build/Data/Time/Clock/POSIX/Compat.dyn_o ) [10 of 20] Compiling Data.Time.Clock.Compat ( src/Data/Time/Clock/Compat.hs, dist/build/Data/Time/Clock/Compat.o, dist/build/Data/Time/Clock/Compat.dyn_o ) [11 of 20] Compiling Data.Time.Calendar.WeekDate.Compat ( src/Data/Time/Calendar/WeekDate/Compat.hs, dist/build/Data/Time/Calendar/WeekDate/Compat.o, dist/build/Data/Time/Calendar/WeekDate/Compat.dyn_o ) [12 of 20] Compiling Data.Time.Calendar.Private ( src/Data/Time/Calendar/Private.hs, dist/build/Data/Time/Calendar/Private.o, dist/build/Data/Time/Calendar/Private.dyn_o ) [13 of 20] Compiling Data.Time.Calendar.OrdinalDate.Compat ( src/Data/Time/Calendar/OrdinalDate/Compat.hs, dist/build/Data/Time/Calendar/OrdinalDate/Compat.o, dist/build/Data/Time/Calendar/OrdinalDate/Compat.dyn_o ) [14 of 20] Compiling Data.Time.Calendar.MonthDay.Compat ( src/Data/Time/Calendar/MonthDay/Compat.hs, dist/build/Data/Time/Calendar/MonthDay/Compat.o, dist/build/Data/Time/Calendar/MonthDay/Compat.dyn_o ) [15 of 20] Compiling Data.Time.Calendar.Easter.Compat ( src/Data/Time/Calendar/Easter/Compat.hs, dist/build/Data/Time/Calendar/Easter/Compat.o, dist/build/Data/Time/Calendar/Easter/Compat.dyn_o ) [16 of 20] Compiling Data.Time.Calendar.Compat ( src/Data/Time/Calendar/Compat.hs, dist/build/Data/Time/Calendar/Compat.o, dist/build/Data/Time/Calendar/Compat.dyn_o ) [17 of 20] Compiling Data.Time.LocalTime.Compat ( src/Data/Time/LocalTime/Compat.hs, dist/build/Data/Time/LocalTime/Compat.o, dist/build/Data/Time/LocalTime/Compat.dyn_o ) [18 of 20] Compiling Data.Time.Compat ( src/Data/Time/Compat.hs, dist/build/Data/Time/Compat.o, dist/build/Data/Time/Compat.dyn_o ) [19 of 20] Compiling Data.Time.Clock.TAI.Compat ( src/Data/Time/Clock/TAI/Compat.hs, dist/build/Data/Time/Clock/TAI/Compat.o, dist/build/Data/Time/Clock/TAI/Compat.dyn_o ) [20 of 20] Compiling Data.Time.Calendar.Julian.Compat ( src/Data/Time/Calendar/Julian/Compat.hs, dist/build/Data/Time/Calendar/Julian/Compat.o, dist/build/Data/Time/Calendar/Julian/Compat.dyn_o ) Preprocessing library for time-compat-1.9.8.. Running Haddock on library for time-compat-1.9.8.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 20] Compiling Data.Format ( src/Data/Format.hs, nothing ) [ 2 of 20] Compiling Data.Time.Calendar.Month.Compat ( src/Data/Time/Calendar/Month/Compat.hs, nothing ) [ 3 of 20] Compiling Data.Time.Calendar.Quarter.Compat ( src/Data/Time/Calendar/Quarter/Compat.hs, nothing ) [ 4 of 20] Compiling Data.Time.Calendar.Types ( src/Data/Time/Calendar/Types.hs, nothing ) [ 5 of 20] Compiling Data.Time.Orphans ( src/Data/Time/Orphans.hs, nothing ) [ 6 of 20] Compiling Data.Time.Format.ISO8601.Compat ( src/Data/Time/Format/ISO8601/Compat.hs, nothing ) [ 7 of 20] Compiling Data.Time.Format.Compat ( src/Data/Time/Format/Compat.hs, nothing ) [ 8 of 20] Compiling Data.Time.Clock.System.Compat ( src/Data/Time/Clock/System/Compat.hs, nothing ) [ 9 of 20] Compiling Data.Time.Clock.POSIX.Compat ( src/Data/Time/Clock/POSIX/Compat.hs, nothing ) [10 of 20] Compiling Data.Time.Clock.Compat ( src/Data/Time/Clock/Compat.hs, nothing ) [11 of 20] Compiling Data.Time.Calendar.WeekDate.Compat ( src/Data/Time/Calendar/WeekDate/Compat.hs, nothing ) [12 of 20] Compiling Data.Time.Calendar.Private ( src/Data/Time/Calendar/Private.hs, nothing ) [13 of 20] Compiling Data.Time.Calendar.OrdinalDate.Compat ( src/Data/Time/Calendar/OrdinalDate/Compat.hs, nothing ) [14 of 20] Compiling Data.Time.Calendar.MonthDay.Compat ( src/Data/Time/Calendar/MonthDay/Compat.hs, nothing ) [15 of 20] Compiling Data.Time.Calendar.Easter.Compat ( src/Data/Time/Calendar/Easter/Compat.hs, nothing ) [16 of 20] Compiling Data.Time.Calendar.Compat ( src/Data/Time/Calendar/Compat.hs, nothing ) [17 of 20] Compiling Data.Time.LocalTime.Compat ( src/Data/Time/LocalTime/Compat.hs, nothing ) [18 of 20] Compiling Data.Time.Compat ( src/Data/Time/Compat.hs, nothing ) [19 of 20] Compiling Data.Time.Clock.TAI.Compat ( src/Data/Time/Clock/TAI/Compat.hs, nothing ) [20 of 20] Compiling Data.Time.Calendar.Julian.Compat ( src/Data/Time/Calendar/Julian/Compat.hs, nothing ) Haddock coverage: 61% ( 8 / 13) in 'Data.Time.Calendar.Month.Compat' Missing documentation for: Module header addMonths diffMonths fromYearMonthValid fromMonthDayValid 75% ( 9 / 12) in 'Data.Time.Calendar.Quarter.Compat' Missing documentation for: Module header addQuarters diffQuarters 93% ( 44 / 47) in 'Data.Time.Format.ISO8601.Compat' Missing documentation for: Module header ISO8601 FormatExtension 68% ( 13 / 19) in 'Data.Time.Format.Compat' Missing documentation for: Module header FormatTime parseTime (src/Data/Time/Format/Compat.hs:60) readTime (src/Data/Time/Format/Compat.hs:68) readsTime (src/Data/Time/Format/Compat.hs:75) TimeLocale 87% ( 7 / 8) in 'Data.Time.Clock.System.Compat' Missing documentation for: Module header 50% ( 4 / 8) in 'Data.Time.Clock.POSIX.Compat' Missing documentation for: Module header posixSecondsToUTCTime utcTimeToPOSIXSeconds systemToPOSIXTime 96% ( 25 / 26) in 'Data.Time.Clock.Compat' Missing documentation for: Module header 73% ( 11 / 15) in 'Data.Time.Calendar.WeekDate.Compat' Missing documentation for: Module header DayOfWeek dayOfWeek FirstWeekType 82% ( 14 / 17) in 'Data.Time.Calendar.OrdinalDate.Compat' Missing documentation for: Module header fromMondayStartWeekValid fromSundayStartWeekValid 40% ( 8 / 20) in 'Data.Time.Calendar.MonthDay.Compat' Missing documentation for: Module header January February March April May June July August September October November 83% ( 5 / 6) in 'Data.Time.Calendar.Easter.Compat' Missing documentation for: Module header 66% ( 41 / 62) in 'Data.Time.Calendar.Compat' Missing documentation for: Module header addDays diffDays CalendarDiffDays calendarDay calendarWeek calendarMonth calendarYear January February March April May June July August September October November DayOfWeek dayOfWeek 79% ( 35 / 44) in 'Data.Time.LocalTime.Compat' Missing documentation for: Module header makeTimeOfDayValid CalendarDiffTime calendarTimeDays calendarTimeTime utcToZonedTime zonedTimeToUTC getZonedTime utcToLocalZonedTime 80% ( 4 / 5) in 'Data.Time.Compat' Missing documentation for: Module header 64% ( 9 / 14) in 'Data.Time.Clock.TAI.Compat' Missing documentation for: Module header taiNominalDayStart utcDayLength utcToTAITime taiToUTCTime 91% ( 22 / 24) in 'Data.Time.Calendar.Julian.Compat' Missing documentation for: Module header diffJulianDurationRollOver (src/Data/Time/Calendar/Julian/Compat.hs:68) Warning: Data.Time.Calendar.Quarter.Compat: could not find link destinations for: - Data.Time.Orphans.Rep_Quarter Warning: Data.Time.Format.ISO8601.Compat: could not find link destinations for: - Data.Format.isoMap - Data.Format.Productish - Data.Format.**> - Data.Format.<** - Data.Format.<**> - Data.Format.pUnit - Data.Format.Summish - Data.Format.<++> - Data.Format.pVoid - Data.Format.IsoVariant Warning: Data.Time.Clock.Compat: could not find link destinations for: - Data.Time.Orphans.Rep_UniversalTime - Data.Time.Orphans.Rep_UTCTime Warning: Data.Time.Calendar.OrdinalDate.Compat: could not find link destinations for: - Data.Time.Orphans.Rep_Day Warning: Data.Time.Calendar.Compat: could not find link destinations for: - Data.Time.Orphans.Rep_CalendarDiffDays - Data.Time.Orphans.Rep_Day Warning: Data.Time.LocalTime.Compat: could not find link destinations for: - Data.Time.Orphans.Rep_CalendarDiffTime - Data.Time.Orphans.Rep_ZonedTime - Data.Time.Orphans.Rep_TimeZone - Data.Time.Orphans.Rep_TimeOfDay - Data.Time.Orphans.Rep_LocalTime Documentation created: dist/doc/html/time-compat/, dist/doc/html/time-compat/time-compat.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/time-compat-1.9.8-G7gSbzqeYVdKyTcA2Kt3JF Completed time-compat-1.9.8 Configuring these-1.2.1... Preprocessing library for these-1.2.1.. Building library for these-1.2.1.. [1 of 3] Compiling Data.Functor.These ( src/Data/Functor/These.hs, dist/build/Data/Functor/These.o, dist/build/Data/Functor/These.dyn_o ) [2 of 3] Compiling Data.These ( src/Data/These.hs, dist/build/Data/These.o, dist/build/Data/These.dyn_o ) [3 of 3] Compiling Data.These.Combinators ( src/Data/These/Combinators.hs, dist/build/Data/These/Combinators.o, dist/build/Data/These/Combinators.dyn_o ) Preprocessing library for these-1.2.1.. Running Haddock on library for these-1.2.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Data.Functor.These ( src/Data/Functor/These.hs, nothing ) [2 of 3] Compiling Data.These ( src/Data/These.hs, nothing ) [3 of 3] Compiling Data.These.Combinators ( src/Data/These/Combinators.hs, nothing ) Haddock coverage: 0% ( 0 / 2) in 'Data.Functor.These' Missing documentation for: Module header These1 (src/Data/Functor/These.hs:38) Warning: 'These' is ambiguous. It is defined * at src/Data/These.hs:75:36 * at src/Data/These.hs:75:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/These.hs:75:1 Warning: 'Maybe' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'here' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'there' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 76% ( 13 / 17) in 'Data.These' Missing documentation for: distrThesePair (src/Data/These.hs:158) undistrThesePair (src/Data/These.hs:163) distrPairThese (src/Data/These.hs:175) undistrPairThese (src/Data/These.hs:180) Warning: 'Bifunctor' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'here' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'there' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Bitraversable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'These' is ambiguous. It is defined * at src/Data/These.hs:75:36 * at src/Data/These.hs:75:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/These.hs:75:1 Warning: 'id' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: '_This' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: '_That' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: '_These' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 78% ( 30 / 38) in 'Data.These.Combinators' Missing documentation for: justThis (src/Data/These/Combinators.hs:183) justThat (src/Data/These/Combinators.hs:187) justThese (src/Data/These/Combinators.hs:191) catHere (src/Data/These/Combinators.hs:211) catThere (src/Data/These/Combinators.hs:214) mapThis (src/Data/These/Combinators.hs:242) mapThat (src/Data/These/Combinators.hs:246) mapThese (src/Data/These/Combinators.hs:250) Warning: Data.Functor.These: could not find link destinations for: - Data.Functor.These.Rep_These1 - Data.Functor.These.Rep1_These1 Warning: Data.These: could not find link destinations for: - Data.These.Rep_These - Data.These.Rep1_These Documentation created: dist/doc/html/these/, dist/doc/html/these/these.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/these-1.2.1-ItKRGGFxjn8KIPmhqWpIvT Completed these-1.2.1 Configuring text-short-0.1.6... Preprocessing library for text-short-0.1.6.. Building library for text-short-0.1.6.. [1 of 5] Compiling PrimOps ( src-ghc804/PrimOps.hs, dist/build/PrimOps.o, dist/build/PrimOps.dyn_o ) [2 of 5] Compiling Data.Text.Short.Internal ( src/Data/Text/Short/Internal.hs, dist/build/Data/Text/Short/Internal.o, dist/build/Data/Text/Short/Internal.dyn_o ) [3 of 5] Compiling Data.Text.Short.Unsafe ( src/Data/Text/Short/Unsafe.hs, dist/build/Data/Text/Short/Unsafe.o, dist/build/Data/Text/Short/Unsafe.dyn_o ) [4 of 5] Compiling Data.Text.Short ( src/Data/Text/Short.hs, dist/build/Data/Text/Short.o, dist/build/Data/Text/Short.dyn_o ) [5 of 5] Compiling Data.Text.Short.Partial ( src/Data/Text/Short/Partial.hs, dist/build/Data/Text/Short/Partial.o, dist/build/Data/Text/Short/Partial.dyn_o ) Preprocessing library for text-short-0.1.6.. Running Haddock on library for text-short-0.1.6.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling PrimOps ( src-ghc804/PrimOps.hs, nothing ) [2 of 5] Compiling Data.Text.Short.Internal ( src/Data/Text/Short/Internal.hs, nothing ) [3 of 5] Compiling Data.Text.Short.Unsafe ( src/Data/Text/Short/Unsafe.hs, nothing ) [4 of 5] Compiling Data.Text.Short ( src/Data/Text/Short.hs, nothing ) [5 of 5] Compiling Data.Text.Short.Partial ( src/Data/Text/Short/Partial.hs, nothing ) Haddock coverage: Warning: 'ShortText' is ambiguous. It is defined * at src/Data/Text/Short/Internal.hs:174:21 * at src/Data/Text/Short/Internal.hs:174:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Text/Short/Internal.hs:174:1 Warning: 'CSize' is ambiguous. It is defined * in Foreign.C.Types * in Foreign.C.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Foreign.C.Types 100% ( 3 / 3) in 'Data.Text.Short.Unsafe' Warning: 'ShortText' is ambiguous. It is defined * at src/Data/Text/Short/Internal.hs:174:21 * at src/Data/Text/Short/Internal.hs:174:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Text/Short/Internal.hs:174:1 100% ( 76 / 76) in 'Data.Text.Short' Warning: 'ShortText' is ambiguous. It is defined * at src/Data/Text/Short/Internal.hs:174:21 * at src/Data/Text/Short/Internal.hs:174:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Text/Short/Internal.hs:174:1 100% ( 9 / 9) in 'Data.Text.Short.Partial' Warning: Data.Text.Short: could not find link destinations for: - Data.Text.Short.Internal.D:R:ItemShortText Documentation created: dist/doc/html/text-short/, dist/doc/html/text-short/text-short.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/text-short-0.1.6-Eux31jTj1aFdU2M0MQmhk Completed text-short-0.1.6 Configuring scientific-0.3.8.0... Preprocessing library for scientific-0.3.8.0.. Building library for scientific-0.3.8.0.. [1 of 5] Compiling GHC.Integer.Compat ( src/GHC/Integer/Compat.hs, dist/build/GHC/Integer/Compat.o, dist/build/GHC/Integer/Compat.dyn_o ) [2 of 5] Compiling Utils ( src/Utils.hs, dist/build/Utils.o, dist/build/Utils.dyn_o ) [3 of 5] Compiling Data.Scientific ( src/Data/Scientific.hs, dist/build/Data/Scientific.o, dist/build/Data/Scientific.dyn_o ) src/Data/Scientific.hs:1041:16: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type [Char] not matched: [] [] [] | 1041 | (d:ds') = map intToDigit (if ei > 0 then init is' else is') | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Scientific.hs:1057:11: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type [Char] not matched: [] | 1057 | d:ds' = map intToDigit (if ei > 0 then is' else 0:is') | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [4 of 5] Compiling Data.Text.Lazy.Builder.Scientific ( src/Data/Text/Lazy/Builder/Scientific.hs, dist/build/Data/Text/Lazy/Builder/Scientific.o, dist/build/Data/Text/Lazy/Builder/Scientific.dyn_o ) src/Data/Text/Lazy/Builder/Scientific.hs:19:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 19 | import Data.Monoid ((<>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Text/Lazy/Builder/Scientific.hs:60:12: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type [Char] not matched: [] [] [] | 60 | (d:ds') = map i2d (if ei > 0 then init is' else is') | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Text/Lazy/Builder/Scientific.hs:88:11: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type [Char] not matched: [] | 88 | d:ds' = map i2d (if ei > 0 then is' else 0:is') | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [5 of 5] Compiling Data.ByteString.Builder.Scientific ( src/Data/ByteString/Builder/Scientific.hs, dist/build/Data/ByteString/Builder/Scientific.o, dist/build/Data/ByteString/Builder/Scientific.dyn_o ) src/Data/ByteString/Builder/Scientific.hs:20:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 20 | import Data.Monoid ((<>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/ByteString/Builder/Scientific.hs:64:12: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type [Char] not matched: [] [] [] | 64 | (d:ds') = map i2d (if ei > 0 then init is' else is') | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/ByteString/Builder/Scientific.hs:94:11: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type [Char] not matched: [] | 94 | d:ds' = map i2d (if ei > 0 then is' else 0:is') | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Preprocessing library for scientific-0.3.8.0.. Running Haddock on library for scientific-0.3.8.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling GHC.Integer.Compat ( src/GHC/Integer/Compat.hs, nothing ) [2 of 5] Compiling Utils ( src/Utils.hs, nothing ) [3 of 5] Compiling Data.Scientific ( src/Data/Scientific.hs, nothing ) [4 of 5] Compiling Data.Text.Lazy.Builder.Scientific ( src/Data/Text/Lazy/Builder/Scientific.hs, nothing ) src/Data/Text/Lazy/Builder/Scientific.hs:19:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 19 | import Data.Monoid ((<>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [5 of 5] Compiling Data.ByteString.Builder.Scientific ( src/Data/ByteString/Builder/Scientific.hs, nothing ) src/Data/ByteString/Builder/Scientific.hs:20:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 20 | import Data.Monoid ((<>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Haddock coverage: Warning: 'Scientific' is ambiguous. It is defined * at src/Data/Scientific.hs:139:19 * at src/Data/Scientific.hs:139:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Scientific.hs:139:1 Warning: 'base10exponent' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'base10Exponent' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 31 / 31) in 'Data.Scientific' 75% ( 3 / 4) in 'Data.Text.Lazy.Builder.Scientific' Missing documentation for: Module header 75% ( 3 / 4) in 'Data.ByteString.Builder.Scientific' Missing documentation for: Module header Documentation created: dist/doc/html/scientific/, dist/doc/html/scientific/scientific.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/scientific-0.3.8.0-8vyHQZhJR567zEOxWyS20s Completed scientific-0.3.8.0 Configuring resource-pool-0.5.0.0... Preprocessing library for resource-pool-0.5.0.0.. Building library for resource-pool-0.5.0.0.. [1 of 3] Compiling Data.Pool.Internal ( src/Data/Pool/Internal.hs, dist/build/Data/Pool/Internal.o, dist/build/Data/Pool/Internal.dyn_o ) [2 of 3] Compiling Data.Pool ( src/Data/Pool.hs, dist/build/Data/Pool.o, dist/build/Data/Pool.dyn_o ) [3 of 3] Compiling Data.Pool.Introspection ( src/Data/Pool/Introspection.hs, dist/build/Data/Pool/Introspection.o, dist/build/Data/Pool/Introspection.dyn_o ) Preprocessing library for resource-pool-0.5.0.0.. Running Haddock on library for resource-pool-0.5.0.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Data.Pool.Internal ( src/Data/Pool/Internal.hs, nothing ) [2 of 3] Compiling Data.Pool ( src/Data/Pool.hs, nothing ) [3 of 3] Compiling Data.Pool.Introspection ( src/Data/Pool/Introspection.hs, nothing ) Haddock coverage: Warning: 'Pool' is ambiguous. It is defined * at src/Data/Pool/Internal.hs:23:15 * at src/Data/Pool/Internal.hs:23:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Pool/Internal.hs:23:1 Warning: 'PoolConfig' is ambiguous. It is defined * at src/Data/Pool/Internal.hs:58:21 * at src/Data/Pool/Internal.hs:58:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Pool/Internal.hs:58:1 Warning: 'LocalPool' is ambiguous. It is defined * at src/Data/Pool/Internal.hs:30:20 * at src/Data/Pool/Internal.hs:30:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Pool/Internal.hs:30:1 Warning: 'takeResource' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 94% ( 18 / 19) in 'Data.Pool.Internal' Missing documentation for: signal (src/Data/Pool/Internal.hs:316) Warning: 'LocalPool' is ambiguous. It is defined * at src/Data/Pool/Internal.hs:30:20 * at src/Data/Pool/Internal.hs:30:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Pool/Internal.hs:30:1 100% ( 20 / 20) in 'Data.Pool' 100% ( 20 / 20) in 'Data.Pool.Introspection' Warning: Data.Pool.Introspection: could not find link destinations for: - Data.Pool.Introspection.Rep_Resource - Data.Pool.Introspection.Rep_Acquisition Documentation created: dist/doc/html/resource-pool/, dist/doc/html/resource-pool/resource-pool.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/resource-pool-0.5.0.0-6lZfFZdvqqh3QTp5yWIIOZ Completed resource-pool-0.5.0.0 Configuring data-fix-0.3.4... Preprocessing library for data-fix-0.3.4.. Building library for data-fix-0.3.4.. [1 of 1] Compiling Data.Fix ( src/Data/Fix.hs, dist/build/Data/Fix.o, dist/build/Data/Fix.dyn_o ) src/Data/Fix.hs:103:41: warning: [GHC-38856] [-Wunused-imports] The import of hashWithSalt1 from module Data.Hashable.Lifted is redundant | 103 | import Data.Hashable.Lifted (Hashable1, hashWithSalt1) | ^^^^^^^^^^^^^ src/Data/Fix.hs:109:47: warning: [GHC-38856] [-Wunused-imports] The import of rnf1 from module Control.DeepSeq is redundant | 109 | import Control.DeepSeq (NFData (..), NFData1, rnf1) | ^^^^ Preprocessing library for data-fix-0.3.4.. Running Haddock on library for data-fix-0.3.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Data.Fix ( src/Data/Fix.hs, nothing ) src/Data/Fix.hs:103:41: warning: [GHC-38856] [-Wunused-imports] The import of hashWithSalt1 from module Data.Hashable.Lifted is redundant | 103 | import Data.Hashable.Lifted (Hashable1, hashWithSalt1) | ^^^^^^^^^^^^^ src/Data/Fix.hs:109:47: warning: [GHC-38856] [-Wunused-imports] The import of rnf1 from module Control.DeepSeq is redundant | 109 | import Control.DeepSeq (NFData (..), NFData1, rnf1) | ^^^^ Haddock coverage: Warning: 'ListF' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Fix' is ambiguous. It is defined * at src/Data/Fix.hs:144:17 * at src/Data/Fix.hs:144:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Fix.hs:144:1 Warning: 'Mu' is ambiguous. It is defined * at src/Data/Fix.hs:299:16 * at src/Data/Fix.hs:299:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Fix.hs:299:1 Warning: 'Nu' is ambiguous. It is defined * at src/Data/Fix.hs:365:13 * at src/Data/Fix.hs:365:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Fix.hs:365:1 100% ( 36 / 36) in 'Data.Fix' Warning: Data.Fix: could not find link destinations for: - Data.Fix.Rep_Fix Documentation created: dist/doc/html/data-fix/, dist/doc/html/data-fix/data-fix.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/data-fix-0.3.4-GpJ5pQXpT8dE6VAQqFvoqI Completed data-fix-0.3.4 Configuring case-insensitive-1.2.1.0... Preprocessing library for case-insensitive-1.2.1.0.. Building library for case-insensitive-1.2.1.0.. [1 of 3] Compiling Data.CaseInsensitive.Internal ( Data/CaseInsensitive/Internal.hs, dist/build/Data/CaseInsensitive/Internal.o, dist/build/Data/CaseInsensitive/Internal.dyn_o ) Data/CaseInsensitive/Internal.hs:124:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances] Noncanonical mappend definition detected in the instance declaration for Monoid (CI s). mappend will eventually be removed in favour of (<>) Suggested fix: Either remove definition for mappend (recommended) or define as mappend = (<>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid | 124 | CI o1 l1 `mappend` CI o2 l2 = CI (o1 `mappend` o2) (l1 `mappend` l2) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 3] Compiling Data.CaseInsensitive ( Data/CaseInsensitive.hs, dist/build/Data/CaseInsensitive.o, dist/build/Data/CaseInsensitive.dyn_o ) [3 of 3] Compiling Data.CaseInsensitive.Unsafe ( Data/CaseInsensitive/Unsafe.hs, dist/build/Data/CaseInsensitive/Unsafe.o, dist/build/Data/CaseInsensitive/Unsafe.dyn_o ) Preprocessing library for case-insensitive-1.2.1.0.. Running Haddock on library for case-insensitive-1.2.1.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Data.CaseInsensitive.Internal ( Data/CaseInsensitive/Internal.hs, nothing ) Data/CaseInsensitive/Internal.hs:124:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances] Noncanonical mappend definition detected in the instance declaration for Monoid (CI s). mappend will eventually be removed in favour of (<>) Suggested fix: Either remove definition for mappend (recommended) or define as mappend = (<>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid | 124 | CI o1 l1 `mappend` CI o2 l2 = CI (o1 `mappend` o2) (l1 `mappend` l2) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 3] Compiling Data.CaseInsensitive ( Data/CaseInsensitive.hs, nothing ) [3 of 3] Compiling Data.CaseInsensitive.Unsafe ( Data/CaseInsensitive/Unsafe.hs, nothing ) Haddock coverage: Warning: 'CI' is ambiguous. It is defined * at Data/CaseInsensitive/Internal.hs:89:13 * at Data/CaseInsensitive/Internal.hs:89:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/CaseInsensitive/Internal.hs:89:1 Warning: 'String' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 8 / 8) in 'Data.CaseInsensitive' 100% ( 2 / 2) in 'Data.CaseInsensitive.Unsafe' Warning: Data.CaseInsensitive: could not find link destinations for: - Data.CaseInsensitive.Internal.foldCaseList Documentation created: dist/doc/html/case-insensitive/, dist/doc/html/case-insensitive/case-insensitive.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/case-insensitive-1.2.1.0-I5miA1P9P08Ea6jPBHb3WY Completed case-insensitive-1.2.1.0 Configuring async-2.2.5... Preprocessing library for async-2.2.5.. Building library for async-2.2.5.. [1 of 2] Compiling Control.Concurrent.Async.Internal ( Control/Concurrent/Async/Internal.hs, dist/build/Control/Concurrent/Async/Internal.o, dist/build/Control/Concurrent/Async/Internal.dyn_o ) Control/Concurrent/Async/Internal.hs:50:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 50 | import Data.Semigroup (Semigroup((<>))) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 2] Compiling Control.Concurrent.Async ( Control/Concurrent/Async.hs, dist/build/Control/Concurrent/Async.o, dist/build/Control/Concurrent/Async.dyn_o ) Preprocessing library for async-2.2.5.. Running Haddock on library for async-2.2.5.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Control.Concurrent.Async.Internal ( Control/Concurrent/Async/Internal.hs, nothing ) Control/Concurrent/Async/Internal.hs:50:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 50 | import Data.Semigroup (Semigroup((<>))) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 2] Compiling Control.Concurrent.Async ( Control/Concurrent/Async.hs, nothing ) Haddock coverage: Warning: 'ThreadId' is ambiguous. It is defined * in GHC.Conc.Sync * in GHC.Conc.Sync You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Conc.Sync Warning: 'Async' is ambiguous. It is defined * at Control/Concurrent/Async/Internal.hs:69:16 * at Control/Concurrent/Async/Internal.hs:69:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Concurrent/Async/Internal.hs:69:1 Warning: 'ExceptionInLinkedThread' is ambiguous. It is defined * at Control/Concurrent/Async/Internal.hs:461:3 * at Control/Concurrent/Async/Internal.hs:460:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Concurrent/Async/Internal.hs:460:1 Warning: 'AsyncCancelled' is ambiguous. It is defined * at Control/Concurrent/Async/Internal.hs:274:23 * at Control/Concurrent/Async/Internal.hs:274:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Concurrent/Async/Internal.hs:274:1 Warning: 'IO' is ambiguous. It is defined * in GHC.Types * in GHC.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Types 86% ( 58 / 67) in 'Control.Concurrent.Async.Internal' Missing documentation for: asyncUsing (Control/Concurrent/Async/Internal.hs:124) withAsyncUsing (Control/Concurrent/Async/Internal.hs:178) ExceptionInLinkedThread (Control/Concurrent/Async/Internal.hs:460) isCancel (Control/Concurrent/Async/Internal.hs:542) concurrently' (Control/Concurrent/Async/Internal.hs:649) catchAll (Control/Concurrent/Async/Internal.hs:858) tryAll (Control/Concurrent/Async/Internal.hs:861) rawForkIO (Control/Concurrent/Async/Internal.hs:868) rawForkOn (Control/Concurrent/Async/Internal.hs:873) Warning: 'forkIO' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Async' is ambiguous. It is defined * at Control/Concurrent/Async/Internal.hs:69:16 * at Control/Concurrent/Async/Internal.hs:69:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Concurrent/Async/Internal.hs:69:1 Warning: 'Concurrently' is ambiguous. It is defined * at Control/Concurrent/Async/Internal.hs:775:26 * at Control/Concurrent/Async/Internal.hs:775:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Concurrent/Async/Internal.hs:775:1 Warning: 'Alternative' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 98% ( 70 / 71) in 'Control.Concurrent.Async' Missing documentation for: ExceptionInLinkedThread (Control/Concurrent/Async/Internal.hs:460) Documentation created: dist/doc/html/async/, dist/doc/html/async/async.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/async-2.2.5-DRFV2Ni7wRk2vNEod8lEbg Completed async-2.2.5 Configuring uuid-types-1.0.6... Preprocessing library for uuid-types-1.0.6.. Building library for uuid-types-1.0.6.. [1 of 3] Compiling Data.UUID.Types.Internal.Builder ( src/Data/UUID/Types/Internal/Builder.hs, dist/build/Data/UUID/Types/Internal/Builder.o, dist/build/Data/UUID/Types/Internal/Builder.dyn_o ) [2 of 3] Compiling Data.UUID.Types.Internal ( src/Data/UUID/Types/Internal.hs, dist/build/Data/UUID/Types/Internal.o, dist/build/Data/UUID/Types/Internal.dyn_o ) src/Data/UUID/Types/Internal.hs:49:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 49 | import Control.Applicative ((<*>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/UUID/Types/Internal.hs:55:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor is redundant except perhaps to import instances from Data.Functor To import instances alone, use: import Data.Functor() | 55 | import Data.Functor ((<$>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [3 of 3] Compiling Data.UUID.Types ( src/Data/UUID/Types.hs, dist/build/Data/UUID/Types.o, dist/build/Data/UUID/Types.dyn_o ) Preprocessing library for uuid-types-1.0.6.. Running Haddock on library for uuid-types-1.0.6.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Data.UUID.Types.Internal.Builder ( src/Data/UUID/Types/Internal/Builder.hs, nothing ) [2 of 3] Compiling Data.UUID.Types.Internal ( src/Data/UUID/Types/Internal.hs, nothing ) src/Data/UUID/Types/Internal.hs:49:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 49 | import Control.Applicative ((<*>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/UUID/Types/Internal.hs:55:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor is redundant except perhaps to import instances from Data.Functor To import instances alone, use: import Data.Functor() | 55 | import Data.Functor ((<$>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [3 of 3] Compiling Data.UUID.Types ( src/Data/UUID/Types.hs, nothing ) Haddock coverage: Warning: 'UUID' is ambiguous. It is defined * at src/Data/UUID/Types/Internal.hs:81:13 * at src/Data/UUID/Types/Internal.hs:81:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/UUID/Types/Internal.hs:81:1 Warning: 'u' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'UUID' is ambiguous. It is defined * at src/Data/UUID/Types/Internal.hs:81:13 * at src/Data/UUID/Types/Internal.hs:81:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/UUID/Types/Internal.hs:81:1 100% ( 23 / 23) in 'Data.UUID.Types' Documentation created: dist/doc/html/uuid-types/, dist/doc/html/uuid-types/uuid-types.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/uuid-types-1.0.6-Dihh8oyn4Xm9pD3m2oqNEy Completed uuid-types-1.0.6 Configuring tf-random-0.5... Preprocessing library for tf-random-0.5.. Building library for tf-random-0.5.. [1 of 4] Compiling System.Random.TF.Gen ( src/System/Random/TF/Gen.hs, dist/build/System/Random/TF/Gen.o, dist/build/System/Random/TF/Gen.dyn_o ) [2 of 4] Compiling System.Random.TF.Init ( src/System/Random/TF/Init.hs, dist/build/System/Random/TF/Init.o, dist/build/System/Random/TF/Init.dyn_o ) src/System/Random/TF/Init.hs:94:5: warning: [GHC-68441] [-Wdeprecations] In the use of bitSize (imported from Data.Bits, but defined in GHC.Bits): Deprecated: "Use 'bitSizeMaybe' or 'finiteBitSize' instead" | 94 | | bitSize n > 64 = error "mkTFGen: case where size of Int > 64 not implemented" | ^^^^^^^ [3 of 4] Compiling System.Random.TF ( src/System/Random/TF.hs, dist/build/System/Random/TF.o, dist/build/System/Random/TF.dyn_o ) [4 of 4] Compiling System.Random.TF.Instances ( src/System/Random/TF/Instances.hs, dist/build/System/Random/TF/Instances.o, dist/build/System/Random/TF/Instances.dyn_o ) Preprocessing library for tf-random-0.5.. Running Haddock on library for tf-random-0.5.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling System.Random.TF.Gen ( src/System/Random/TF/Gen.hs, nothing ) [2 of 4] Compiling System.Random.TF.Init ( src/System/Random/TF/Init.hs, nothing ) src/System/Random/TF/Init.hs:94:5: warning: [GHC-68441] [-Wdeprecations] In the use of bitSize (imported from Data.Bits, but defined in GHC.Bits): Deprecated: "Use 'bitSizeMaybe' or 'finiteBitSize' instead" | 94 | | bitSize n > 64 = error "mkTFGen: case where size of Int > 64 not implemented" | ^^^^^^^ [3 of 4] Compiling System.Random.TF ( src/System/Random/TF.hs, nothing ) [4 of 4] Compiling System.Random.TF.Instances ( src/System/Random/TF/Instances.hs, nothing ) Haddock coverage: Warning: 'TFGen' is ambiguous. It is defined * at src/System/Random/TF/Gen.hs:58:3 * at src/System/Random/TF/Gen.hs:57:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Random/TF/Gen.hs:57:1 100% ( 4 / 4) in 'System.Random.TF.Gen' 83% ( 5 / 6) in 'System.Random.TF.Init' Missing documentation for: Module header 100% ( 7 / 7) in 'System.Random.TF' 33% ( 1 / 3) in 'System.Random.TF.Instances' Missing documentation for: Random (src/System/Random/TF/Instances.hs:37) randomEnum (src/System/Random/TF/Instances.hs:206) Documentation created: dist/doc/html/tf-random/, dist/doc/html/tf-random/tf-random.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/tf-random-0.5-KI5nxinskiM53tKuNMXijE Completed tf-random-0.5 Configuring QuickCheck-2.16.0.0... Preprocessing library for QuickCheck-2.16.0.0.. Building library for QuickCheck-2.16.0.0.. [ 1 of 17] Compiling Test.QuickCheck.Exception ( src/Test/QuickCheck/Exception.hs, dist/build/Test/QuickCheck/Exception.o, dist/build/Test/QuickCheck/Exception.dyn_o ) [ 2 of 17] Compiling Test.QuickCheck.Random ( src/Test/QuickCheck/Random.hs, dist/build/Test/QuickCheck/Random.o, dist/build/Test/QuickCheck/Random.dyn_o ) src/Test/QuickCheck/Random.hs:50:37: warning: [GHC-68441] [-Wdeprecations] In the use of genShortByteString (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `System.Random.uniformShortByteString`" | 50 | genShortByteString n = wrapQCGen (genShortByteString n) | ^^^^^^^^^^^^^^^^^^ src/Test/QuickCheck/Random.hs:83:16: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 83 | left = fst . split | ^^^^^ src/Test/QuickCheck/Random.hs:84:17: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 84 | right = snd . split | ^^^^^ [ 3 of 17] Compiling Test.QuickCheck.Gen ( src/Test/QuickCheck/Gen.hs, dist/build/Test/QuickCheck/Gen.o, dist/build/Test/QuickCheck/Gen.dyn_o ) src/Test/QuickCheck/Gen.hs:92:12: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 92 | case split r of | ^^^^^ [ 4 of 17] Compiling Test.QuickCheck.Gen.Unsafe ( src/Test/QuickCheck/Gen/Unsafe.hs, dist/build/Test/QuickCheck/Gen/Unsafe.o, dist/build/Test/QuickCheck/Gen/Unsafe.dyn_o ) [ 5 of 17] Compiling Test.QuickCheck.Arbitrary ( src/Test/QuickCheck/Arbitrary.hs, dist/build/Test/QuickCheck/Arbitrary.o, dist/build/Test/QuickCheck/Arbitrary.dyn_o ) [ 6 of 17] Compiling Test.QuickCheck.Poly ( src/Test/QuickCheck/Poly.hs, dist/build/Test/QuickCheck/Poly.o, dist/build/Test/QuickCheck/Poly.dyn_o ) [ 7 of 17] Compiling Test.QuickCheck.Modifiers ( src/Test/QuickCheck/Modifiers.hs, dist/build/Test/QuickCheck/Modifiers.o, dist/build/Test/QuickCheck/Modifiers.dyn_o ) [ 8 of 17] Compiling Test.QuickCheck.Function ( src/Test/QuickCheck/Function.hs, dist/build/Test/QuickCheck/Function.o, dist/build/Test/QuickCheck/Function.dyn_o ) [ 9 of 17] Compiling Test.QuickCheck.Text ( src/Test/QuickCheck/Text.hs, dist/build/Test/QuickCheck/Text.o, dist/build/Test/QuickCheck/Text.dyn_o ) [10 of 17] Compiling Test.QuickCheck.State ( src/Test/QuickCheck/State.hs, dist/build/Test/QuickCheck/State.o, dist/build/Test/QuickCheck/State.dyn_o ) [11 of 17] Compiling Test.QuickCheck.Property ( src/Test/QuickCheck/Property.hs, dist/build/Test/QuickCheck/Property.o, dist/build/Test/QuickCheck/Property.dyn_o ) [12 of 17] Compiling Test.QuickCheck.Test ( src/Test/QuickCheck/Test.hs, dist/build/Test/QuickCheck/Test.o, dist/build/Test/QuickCheck/Test.dyn_o ) src/Test/QuickCheck/Test.hs:501:17: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 501 | (rnd1,rnd2) = split (randomSeed st) | ^^^^^ [13 of 17] Compiling Test.QuickCheck.Monoids ( src/Test/QuickCheck/Monoids.hs, dist/build/Test/QuickCheck/Monoids.o, dist/build/Test/QuickCheck/Monoids.dyn_o ) [14 of 17] Compiling Test.QuickCheck.Monadic ( src/Test/QuickCheck/Monadic.hs, dist/build/Test/QuickCheck/Monadic.o, dist/build/Test/QuickCheck/Monadic.dyn_o ) [15 of 17] Compiling Test.QuickCheck.All ( src/Test/QuickCheck/All.hs, dist/build/Test/QuickCheck/All.o, dist/build/Test/QuickCheck/All.dyn_o ) [16 of 17] Compiling Test.QuickCheck.Features ( src/Test/QuickCheck/Features.hs, dist/build/Test/QuickCheck/Features.o, dist/build/Test/QuickCheck/Features.dyn_o ) [17 of 17] Compiling Test.QuickCheck ( src/Test/QuickCheck.hs, dist/build/Test/QuickCheck.o, dist/build/Test/QuickCheck.dyn_o ) Preprocessing library for QuickCheck-2.16.0.0.. Running Haddock on library for QuickCheck-2.16.0.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 17] Compiling Test.QuickCheck.Exception ( src/Test/QuickCheck/Exception.hs, nothing ) [ 2 of 17] Compiling Test.QuickCheck.Random ( src/Test/QuickCheck/Random.hs, nothing ) src/Test/QuickCheck/Random.hs:50:37: warning: [GHC-68441] [-Wdeprecations] In the use of genShortByteString (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `System.Random.uniformShortByteString`" | 50 | genShortByteString n = wrapQCGen (genShortByteString n) | ^^^^^^^^^^^^^^^^^^ src/Test/QuickCheck/Random.hs:83:16: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 83 | left = fst . split | ^^^^^ src/Test/QuickCheck/Random.hs:84:17: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 84 | right = snd . split | ^^^^^ [ 3 of 17] Compiling Test.QuickCheck.Gen ( src/Test/QuickCheck/Gen.hs, nothing ) src/Test/QuickCheck/Gen.hs:92:12: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 92 | case split r of | ^^^^^ [ 4 of 17] Compiling Test.QuickCheck.Gen.Unsafe ( src/Test/QuickCheck/Gen/Unsafe.hs, nothing ) [ 5 of 17] Compiling Test.QuickCheck.Arbitrary ( src/Test/QuickCheck/Arbitrary.hs, nothing ) [ 6 of 17] Compiling Test.QuickCheck.Poly ( src/Test/QuickCheck/Poly.hs, nothing ) [ 7 of 17] Compiling Test.QuickCheck.Modifiers ( src/Test/QuickCheck/Modifiers.hs, nothing ) [ 8 of 17] Compiling Test.QuickCheck.Function ( src/Test/QuickCheck/Function.hs, nothing ) [ 9 of 17] Compiling Test.QuickCheck.Text ( src/Test/QuickCheck/Text.hs, nothing ) [10 of 17] Compiling Test.QuickCheck.State ( src/Test/QuickCheck/State.hs, nothing ) [11 of 17] Compiling Test.QuickCheck.Property ( src/Test/QuickCheck/Property.hs, nothing ) [12 of 17] Compiling Test.QuickCheck.Test ( src/Test/QuickCheck/Test.hs, nothing ) src/Test/QuickCheck/Test.hs:501:17: warning: [GHC-68441] [-Wdeprecations] In the use of split (imported from System.Random, but defined in System.Random.Internal): Deprecated: "In favor of `splitGen`" | 501 | (rnd1,rnd2) = split (randomSeed st) | ^^^^^ [13 of 17] Compiling Test.QuickCheck.Monoids ( src/Test/QuickCheck/Monoids.hs, nothing ) [14 of 17] Compiling Test.QuickCheck.Monadic ( src/Test/QuickCheck/Monadic.hs, nothing ) [15 of 17] Compiling Test.QuickCheck.All ( src/Test/QuickCheck/All.hs, nothing ) [16 of 17] Compiling Test.QuickCheck.Features ( src/Test/QuickCheck/Features.hs, nothing ) [17 of 17] Compiling Test.QuickCheck ( src/Test/QuickCheck.hs, nothing ) Haddock coverage: 92% ( 35 / 38) in 'Test.QuickCheck.Gen' Missing documentation for: chooseWord64 (src/Test/QuickCheck/Gen.hs:211) chooseInt64 (src/Test/QuickCheck/Gen.hs:220) chooseUpTo (src/Test/QuickCheck/Gen.hs:230) 80% ( 4 / 5) in 'Test.QuickCheck.Gen.Unsafe' Missing documentation for: Capture (src/Test/QuickCheck/Gen/Unsafe.hs:52) Warning: '(:*:)' is ambiguous. It is defined * in GHC.Generics * in GHC.Generics You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Generics Warning: 'Version' is ambiguous. It is defined * in Data.Version * in Data.Version You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Version 88% ( 45 / 51) in 'Test.QuickCheck.Arbitrary' Missing documentation for: arbitrary1 (src/Test/QuickCheck/Arbitrary.hs:298) shrink1 (src/Test/QuickCheck/Arbitrary.hs:301) arbitrary2 (src/Test/QuickCheck/Arbitrary.hs:310) shrink2 (src/Test/QuickCheck/Arbitrary.hs:313) RecursivelyShrink (src/Test/QuickCheck/Arbitrary.hs:325) GSubterms (src/Test/QuickCheck/Arbitrary.hs:356) Warning: 'A' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:29:13 * at src/Test/QuickCheck/Poly.hs:29:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:29:1 Warning: 'B' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:44:13 * at src/Test/QuickCheck/Poly.hs:44:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:44:1 Warning: 'C' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:59:13 * at src/Test/QuickCheck/Poly.hs:59:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:59:1 Warning: 'OrdA' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:77:16 * at src/Test/QuickCheck/Poly.hs:77:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:77:1 Warning: 'OrdB' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:112:16 * at src/Test/QuickCheck/Poly.hs:112:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:112:1 Warning: 'OrdC' is ambiguous. It is defined * at src/Test/QuickCheck/Poly.hs:146:16 * at src/Test/QuickCheck/Poly.hs:146:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Poly.hs:146:1 14% ( 1 / 7) in 'Test.QuickCheck.Poly' Missing documentation for: A (src/Test/QuickCheck/Poly.hs:29) B (src/Test/QuickCheck/Poly.hs:44) C (src/Test/QuickCheck/Poly.hs:59) OrdA (src/Test/QuickCheck/Poly.hs:77) OrdB (src/Test/QuickCheck/Poly.hs:112) OrdC (src/Test/QuickCheck/Poly.hs:146) Warning: 'Blind' is ambiguous. It is defined * at src/Test/QuickCheck/Modifiers.hs:94:19 * at src/Test/QuickCheck/Modifiers.hs:94:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:94:1 Warning: 'NonNegative' is ambiguous. It is defined * at src/Test/QuickCheck/Modifiers.hs:312:25 * at src/Test/QuickCheck/Modifiers.hs:312:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:312:1 Warning: 'Large' is ambiguous. It is defined * at src/Test/QuickCheck/Modifiers.hs:351:19 * at src/Test/QuickCheck/Modifiers.hs:351:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:351:1 95% ( 22 / 23) in 'Test.QuickCheck.Modifiers' Missing documentation for: ShrinkState (src/Test/QuickCheck/Modifiers.hs:487) Warning: 'Fun' is ambiguous. It is defined * at src/Test/QuickCheck/Function.hs:546:16 * at src/Test/QuickCheck/Function.hs:546:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Function.hs:546:1 100% ( 22 / 22) in 'Test.QuickCheck.Function' Warning: 'Discard' is ambiguous. It is defined * at src/Test/QuickCheck/Property.hs:114:16 * at src/Test/QuickCheck/Property.hs:114:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Property.hs:114:1 Warning: 'Confidence' is ambiguous. It is defined * at src/Test/QuickCheck/State.hs:68:3 * at src/Test/QuickCheck/State.hs:67:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/State.hs:67:1 66% ( 2 / 3) in 'Test.QuickCheck.Monoids' Missing documentation for: Module header 83% ( 20 / 24) in 'Test.QuickCheck.Monadic' Missing documentation for: stop (src/Test/QuickCheck/Monadic.hs:163) monadic (src/Test/QuickCheck/Monadic.hs:272) monadic' (src/Test/QuickCheck/Monadic.hs:275) runSTGen (src/Test/QuickCheck/Monadic.hs:314) 100% ( 10 / 10) in 'Test.QuickCheck.All' Warning: 'Fun' is ambiguous. It is defined * at src/Test/QuickCheck/Function.hs:546:16 * at src/Test/QuickCheck/Function.hs:546:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Function.hs:546:1 Warning: 'Blind' is ambiguous. It is defined * at src/Test/QuickCheck/Modifiers.hs:94:19 * at src/Test/QuickCheck/Modifiers.hs:94:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:94:1 Warning: 'NonNegative' is ambiguous. It is defined * at src/Test/QuickCheck/Modifiers.hs:312:25 * at src/Test/QuickCheck/Modifiers.hs:312:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/QuickCheck/Modifiers.hs:312:1 96% (203 /211) in 'Test.QuickCheck' Missing documentation for: arbitrary1 (src/Test/QuickCheck/Arbitrary.hs:298) shrink1 (src/Test/QuickCheck/Arbitrary.hs:301) arbitrary2 (src/Test/QuickCheck/Arbitrary.hs:310) shrink2 (src/Test/QuickCheck/Arbitrary.hs:313) ShrinkState (src/Test/QuickCheck/Modifiers.hs:487) Witness (src/Test/QuickCheck/Property.hs:262) coerceWitness (src/Test/QuickCheck/Property.hs:268) castWitness (src/Test/QuickCheck/Property.hs:273) Warning: Test.QuickCheck.Gen: could not find link destinations for: - Test.QuickCheck.Random.QCGen Warning: Test.QuickCheck.Arbitrary: could not find link destinations for: - Test.QuickCheck.Arbitrary.GCoArbitrary - Test.QuickCheck.Arbitrary.GSubtermsIncl - Test.QuickCheck.Arbitrary.gSubterms - Test.QuickCheck.Arbitrary.grecursivelyShrink Warning: Test.QuickCheck.Modifiers: could not find link destinations for: - Test.QuickCheck.Modifiers.InfiniteListInternalData Warning: Test.QuickCheck.Function: could not find link destinations for: - Test.QuickCheck.Function.Shrunk - Test.QuickCheck.Function.GFunction Warning: Test.QuickCheck: could not find link destinations for: - Test.QuickCheck.Exception.AnException - Test.QuickCheck.Random.QCGen - Test.QuickCheck.Arbitrary.GCoArbitrary - Test.QuickCheck.Modifiers.InfiniteListInternalData - Test.QuickCheck.Function.Shrunk - Test.QuickCheck.Function.GFunction - Test.QuickCheck.Property.Result Documentation created: dist/doc/html/QuickCheck/, dist/doc/html/QuickCheck/QuickCheck.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/QuickCheck-2.16.0.0-KAwywA1qBiHBj0KysskoJQ Completed QuickCheck-2.16.0.0 Configuring comonad-5.0.9... Preprocessing library for comonad-5.0.9.. Building library for comonad-5.0.9.. [ 1 of 15] Compiling Control.Comonad ( src/Control/Comonad.hs, dist/build/Control/Comonad.o, dist/build/Control/Comonad.dyn_o ) [ 2 of 15] Compiling Control.Comonad.Hoist.Class ( src/Control/Comonad/Hoist/Class.hs, dist/build/Control/Comonad/Hoist/Class.o, dist/build/Control/Comonad/Hoist/Class.dyn_o ) [ 3 of 15] Compiling Control.Comonad.Trans.Class ( src/Control/Comonad/Trans/Class.hs, dist/build/Control/Comonad/Trans/Class.o, dist/build/Control/Comonad/Trans/Class.dyn_o ) [ 4 of 15] Compiling Control.Comonad.Trans.Env ( src/Control/Comonad/Trans/Env.hs, dist/build/Control/Comonad/Trans/Env.o, dist/build/Control/Comonad/Trans/Env.dyn_o ) [ 5 of 15] Compiling Control.Comonad.Trans.Identity ( src/Control/Comonad/Trans/Identity.hs, dist/build/Control/Comonad/Trans/Identity.o, dist/build/Control/Comonad/Trans/Identity.dyn_o ) [ 6 of 15] Compiling Control.Comonad.Identity ( src/Control/Comonad/Identity.hs, dist/build/Control/Comonad/Identity.o, dist/build/Control/Comonad/Identity.dyn_o ) [ 7 of 15] Compiling Control.Comonad.Trans.Store ( src/Control/Comonad/Trans/Store.hs, dist/build/Control/Comonad/Trans/Store.o, dist/build/Control/Comonad/Trans/Store.dyn_o ) [ 8 of 15] Compiling Control.Comonad.Trans.Traced ( src/Control/Comonad/Trans/Traced.hs, dist/build/Control/Comonad/Trans/Traced.o, dist/build/Control/Comonad/Trans/Traced.dyn_o ) [ 9 of 15] Compiling Control.Comonad.Traced.Class ( src/Control/Comonad/Traced/Class.hs, dist/build/Control/Comonad/Traced/Class.o, dist/build/Control/Comonad/Traced/Class.dyn_o ) [10 of 15] Compiling Control.Comonad.Traced ( src/Control/Comonad/Traced.hs, dist/build/Control/Comonad/Traced.o, dist/build/Control/Comonad/Traced.dyn_o ) [11 of 15] Compiling Control.Comonad.Store.Class ( src/Control/Comonad/Store/Class.hs, dist/build/Control/Comonad/Store/Class.o, dist/build/Control/Comonad/Store/Class.dyn_o ) [12 of 15] Compiling Control.Comonad.Store ( src/Control/Comonad/Store.hs, dist/build/Control/Comonad/Store.o, dist/build/Control/Comonad/Store.dyn_o ) [13 of 15] Compiling Control.Comonad.Env.Class ( src/Control/Comonad/Env/Class.hs, dist/build/Control/Comonad/Env/Class.o, dist/build/Control/Comonad/Env/Class.dyn_o ) [14 of 15] Compiling Control.Comonad.Env ( src/Control/Comonad/Env.hs, dist/build/Control/Comonad/Env.o, dist/build/Control/Comonad/Env.dyn_o ) [15 of 15] Compiling Data.Functor.Composition ( src/Data/Functor/Composition.hs, dist/build/Data/Functor/Composition.o, dist/build/Data/Functor/Composition.dyn_o ) Preprocessing library for comonad-5.0.9.. Running Haddock on library for comonad-5.0.9.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 15] Compiling Control.Comonad ( src/Control/Comonad.hs, nothing ) [ 2 of 15] Compiling Control.Comonad.Hoist.Class ( src/Control/Comonad/Hoist/Class.hs, nothing ) [ 3 of 15] Compiling Control.Comonad.Trans.Class ( src/Control/Comonad/Trans/Class.hs, nothing ) [ 4 of 15] Compiling Control.Comonad.Trans.Env ( src/Control/Comonad/Trans/Env.hs, nothing ) [ 5 of 15] Compiling Control.Comonad.Trans.Identity ( src/Control/Comonad/Trans/Identity.hs, nothing ) [ 6 of 15] Compiling Control.Comonad.Identity ( src/Control/Comonad/Identity.hs, nothing ) [ 7 of 15] Compiling Control.Comonad.Trans.Store ( src/Control/Comonad/Trans/Store.hs, nothing ) [ 8 of 15] Compiling Control.Comonad.Trans.Traced ( src/Control/Comonad/Trans/Traced.hs, nothing ) [ 9 of 15] Compiling Control.Comonad.Traced.Class ( src/Control/Comonad/Traced/Class.hs, nothing ) [10 of 15] Compiling Control.Comonad.Traced ( src/Control/Comonad/Traced.hs, nothing ) [11 of 15] Compiling Control.Comonad.Store.Class ( src/Control/Comonad/Store/Class.hs, nothing ) [12 of 15] Compiling Control.Comonad.Store ( src/Control/Comonad/Store.hs, nothing ) [13 of 15] Compiling Control.Comonad.Env.Class ( src/Control/Comonad/Env/Class.hs, nothing ) [14 of 15] Compiling Control.Comonad.Env ( src/Control/Comonad/Env.hs, nothing ) [15 of 15] Compiling Data.Functor.Composition ( src/Data/Functor/Composition.hs, nothing ) Haddock coverage: Warning: 'Cokleisli' is ambiguous. It is defined * at src/Control/Comonad.hs:348:27 * at src/Control/Comonad.hs:348:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Control/Comonad.hs:348:1 100% ( 22 / 22) in 'Control.Comonad' 50% ( 1 / 2) in 'Control.Comonad.Hoist.Class' Missing documentation for: ComonadHoist (src/Control/Comonad/Hoist/Class.hs:20) 50% ( 1 / 2) in 'Control.Comonad.Trans.Class' Missing documentation for: ComonadTrans (src/Control/Comonad/Trans/Class.hs:18) 69% ( 9 / 13) in 'Control.Comonad.Trans.Env' Missing documentation for: Env (src/Control/Comonad/Trans/Env.hs:92) runEnv (src/Control/Comonad/Trans/Env.hs:100) EnvT (src/Control/Comonad/Trans/Env.hs:93) runEnvT (src/Control/Comonad/Trans/Env.hs:103) 100% ( 2 / 2) in 'Control.Comonad.Trans.Identity' 100% ( 4 / 4) in 'Control.Comonad.Identity' 73% ( 11 / 15) in 'Control.Comonad.Trans.Store' Missing documentation for: Store (src/Control/Comonad/Trans/Store.hs:87) runStore (src/Control/Comonad/Trans/Store.hs:94) StoreT (src/Control/Comonad/Trans/Store.hs:96) runStoreT (src/Control/Comonad/Trans/Store.hs:99) 33% ( 4 / 12) in 'Control.Comonad.Trans.Traced' Missing documentation for: Traced (src/Control/Comonad/Trans/Traced.hs:55) traced (src/Control/Comonad/Trans/Traced.hs:58) runTraced (src/Control/Comonad/Trans/Traced.hs:61) TracedT (src/Control/Comonad/Trans/Traced.hs:63) trace (src/Control/Comonad/Trans/Traced.hs:97) listen (src/Control/Comonad/Trans/Traced.hs:100) listens (src/Control/Comonad/Trans/Traced.hs:103) censor (src/Control/Comonad/Trans/Traced.hs:106) 33% ( 1 / 3) in 'Control.Comonad.Traced.Class' Missing documentation for: ComonadTraced (src/Control/Comonad/Traced/Class.hs:28) traces (src/Control/Comonad/Traced/Class.hs:32) 57% ( 8 / 14) in 'Control.Comonad.Traced' Missing documentation for: ComonadTraced (src/Control/Comonad/Traced/Class.hs:28) traces (src/Control/Comonad/Traced/Class.hs:32) Traced (src/Control/Comonad/Trans/Traced.hs:55) traced (src/Control/Comonad/Trans/Traced.hs:58) runTraced (src/Control/Comonad/Trans/Traced.hs:61) TracedT (src/Control/Comonad/Trans/Traced.hs:63) 25% ( 1 / 4) in 'Control.Comonad.Store.Class' Missing documentation for: ComonadStore (src/Control/Comonad/Store/Class.hs:29) lowerPos (src/Control/Comonad/Store/Class.hs:54) lowerPeek (src/Control/Comonad/Store/Class.hs:58) 61% ( 8 / 13) in 'Control.Comonad.Store' Missing documentation for: ComonadStore (src/Control/Comonad/Store/Class.hs:29) Store (src/Control/Comonad/Trans/Store.hs:87) runStore (src/Control/Comonad/Trans/Store.hs:94) StoreT (src/Control/Comonad/Trans/Store.hs:96) runStoreT (src/Control/Comonad/Trans/Store.hs:99) 33% ( 1 / 3) in 'Control.Comonad.Env.Class' Missing documentation for: ComonadEnv (src/Control/Comonad/Env/Class.hs:29) asks (src/Control/Comonad/Env/Class.hs:33) 60% ( 9 / 15) in 'Control.Comonad.Env' Missing documentation for: ComonadEnv (src/Control/Comonad/Env/Class.hs:29) asks (src/Control/Comonad/Env/Class.hs:33) Env (src/Control/Comonad/Trans/Env.hs:92) runEnv (src/Control/Comonad/Trans/Env.hs:100) EnvT (src/Control/Comonad/Trans/Env.hs:93) runEnvT (src/Control/Comonad/Trans/Env.hs:103) 50% ( 1 / 2) in 'Data.Functor.Composition' Missing documentation for: Module header Warning: Control.Comonad: could not find link destinations for: - WithIndex.Indexing - Text.ParserCombinators.ReadP.P - Data.Graph.SetM Warning: Control.Comonad.Trans.Identity: could not find link destinations for: - Control.Monad.Trans.Identity.Rep1_IdentityT - Control.Monad.Trans.Identity.Rep_IdentityT Documentation created: dist/doc/html/comonad/, dist/doc/html/comonad/comonad.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/comonad-5.0.9-4TK9XQNRBF2DkssUp9SLRe Completed comonad-5.0.9 Configuring monad-control-1.0.3.1... Preprocessing library for monad-control-1.0.3.1.. Building library for monad-control-1.0.3.1.. [1 of 1] Compiling Control.Monad.Trans.Control ( src/Control/Monad/Trans/Control.hs, dist/build/Control/Monad/Trans/Control.o, dist/build/Control/Monad/Trans/Control.dyn_o ) src/Control/Monad/Trans/Control.hs:207:19: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 207 | type StT t a :: * | ^ src/Control/Monad/Trans/Control.hs:546:21: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 546 | type StM m a :: * | ^ Preprocessing library for monad-control-1.0.3.1.. Running Haddock on library for monad-control-1.0.3.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Control.Monad.Trans.Control ( src/Control/Monad/Trans/Control.hs, nothing ) src/Control/Monad/Trans/Control.hs:207:19: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 207 | type StT t a :: * | ^ src/Control/Monad/Trans/Control.hs:546:21: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 546 | type StM m a :: * | ^ Haddock coverage: Warning: 'IdentityT' is ambiguous. It is defined * in Control.Monad.Trans.Identity * in Control.Monad.Trans.Identity You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Identity Warning: 'MaybeT' is ambiguous. It is defined * in Control.Monad.Trans.Maybe * in Control.Monad.Trans.Maybe You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Maybe Warning: 'ErrorT' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Error' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ExceptT' is ambiguous. It is defined * in Control.Monad.Trans.Except * in Control.Monad.Trans.Except You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Except Warning: 'ListT' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ReaderT' is ambiguous. It is defined * in Control.Monad.Trans.Reader * in Control.Monad.Trans.Reader You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Reader Warning: 'StateT' is ambiguous. It is defined * in Control.Monad.Trans.State.Lazy * in Control.Monad.Trans.State.Lazy You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.State.Lazy Warning: 'WriterT' is ambiguous. It is defined * in Control.Monad.Trans.Writer.Lazy * in Control.Monad.Trans.Writer.Lazy You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Writer.Lazy Warning: 'RWST' is ambiguous. It is defined * in Control.Monad.Trans.RWS.Lazy * in Control.Monad.Trans.RWS.Lazy You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.RWS.Lazy Warning: 'liftIO' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'liftBase' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'MonadIO' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'flip' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'lift' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'withFile' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Just' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 35 / 35) in 'Control.Monad.Trans.Control' Warning: Control.Monad.Trans.Control: could not find link destinations for: - Control.Monad.Trans.Control.D:R:StTMaybeTa - Control.Monad.Trans.Control.D:R:StTIdentityTa - Control.Monad.Trans.Control.D:R:StMSTMa - Control.Monad.Trans.Control.D:R:StMIdentitya - Control.Monad.Trans.Control.D:R:StMLista - Control.Monad.Trans.Control.D:R:StMMaybea - Control.Monad.Trans.Control.D:R:StMIOa Documentation created: dist/doc/html/monad-control/, dist/doc/html/monad-control/monad-control.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/monad-control-1.0.3.1-FAFT25wsmcjJZRoEoOcnof Completed monad-control-1.0.3.1 Configuring prettyprinter-ansi-terminal-1.1.3... Preprocessing library for prettyprinter-ansi-terminal-1.1.3.. Building library for prettyprinter-ansi-terminal-1.1.3.. [1 of 4] Compiling Prettyprinter.Render.Terminal.Internal ( src/Prettyprinter/Render/Terminal/Internal.hs, dist/build/Prettyprinter/Render/Terminal/Internal.o, dist/build/Prettyprinter/Render/Terminal/Internal.dyn_o ) [2 of 4] Compiling Prettyprinter.Render.Terminal ( src/Prettyprinter/Render/Terminal.hs, dist/build/Prettyprinter/Render/Terminal.o, dist/build/Prettyprinter/Render/Terminal.dyn_o ) [3 of 4] Compiling Data.Text.Prettyprint.Doc.Render.Terminal ( src/Data/Text/Prettyprint/Doc/Render/Terminal.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Terminal.o, dist/build/Data/Text/Prettyprint/Doc/Render/Terminal.dyn_o ) [4 of 4] Compiling Data.Text.Prettyprint.Doc.Render.Terminal.Internal ( src/Data/Text/Prettyprint/Doc/Render/Terminal/Internal.hs, dist/build/Data/Text/Prettyprint/Doc/Render/Terminal/Internal.o, dist/build/Data/Text/Prettyprint/Doc/Render/Terminal/Internal.dyn_o ) Preprocessing library for prettyprinter-ansi-terminal-1.1.3.. Running Haddock on library for prettyprinter-ansi-terminal-1.1.3.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling Prettyprinter.Render.Terminal.Internal ( src/Prettyprinter/Render/Terminal/Internal.hs, nothing ) [2 of 4] Compiling Prettyprinter.Render.Terminal ( src/Prettyprinter/Render/Terminal.hs, nothing ) [3 of 4] Compiling Data.Text.Prettyprint.Doc.Render.Terminal ( src/Data/Text/Prettyprint/Doc/Render/Terminal.hs, nothing ) [4 of 4] Compiling Data.Text.Prettyprint.Doc.Render.Terminal.Internal ( src/Data/Text/Prettyprint/Doc/Render/Terminal/Internal.hs, nothing ) Haddock coverage: Warning: '...' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 88% ( 24 / 27) in 'Prettyprinter.Render.Terminal.Internal' Missing documentation for: Bold (src/Prettyprinter/Render/Terminal/Internal.hs:90) Underlined (src/Prettyprinter/Render/Terminal/Internal.hs:91) Italicized (src/Prettyprinter/Render/Terminal/Internal.hs:92) Warning: 'SimpleDocStream' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Text' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'stdout' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 89% ( 25 / 28) in 'Prettyprinter.Render.Terminal' Missing documentation for: Bold (src/Prettyprinter/Render/Terminal/Internal.hs:90) Underlined (src/Prettyprinter/Render/Terminal/Internal.hs:91) Italicized (src/Prettyprinter/Render/Terminal/Internal.hs:92) 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Terminal' Missing documentation for: Module header 50% ( 1 / 2) in 'Data.Text.Prettyprint.Doc.Render.Terminal.Internal' Missing documentation for: Module header Documentation created: dist/doc/html/prettyprinter-ansi-terminal/, dist/doc/html/prettyprinter-ansi-terminal/prettyprinter-ansi-terminal.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/prettyprinter-ansi-terminal-1.1.3-P0eAzEqDTa2D4YDfE4MGj Completed prettyprinter-ansi-terminal-1.1.3 Configuring fast-logger-3.2.6... Preprocessing library for fast-logger-3.2.6.. Building library for fast-logger-3.2.6.. [ 1 of 13] Compiling System.Log.FastLogger.Imports ( System/Log/FastLogger/Imports.hs, dist/build/System/Log/FastLogger/Imports.o, dist/build/System/Log/FastLogger/Imports.dyn_o ) [ 2 of 13] Compiling System.Log.FastLogger.FileIO ( System/Log/FastLogger/FileIO.hs, dist/build/System/Log/FastLogger/FileIO.o, dist/build/System/Log/FastLogger/FileIO.dyn_o ) [ 3 of 13] Compiling System.Log.FastLogger.LogStr ( System/Log/FastLogger/LogStr.hs, dist/build/System/Log/FastLogger/LogStr.o, dist/build/System/Log/FastLogger/LogStr.dyn_o ) [ 4 of 13] Compiling System.Log.FastLogger.IO ( System/Log/FastLogger/IO.hs, dist/build/System/Log/FastLogger/IO.o, dist/build/System/Log/FastLogger/IO.dyn_o ) [ 5 of 13] Compiling System.Log.FastLogger.Types ( System/Log/FastLogger/Types.hs, dist/build/System/Log/FastLogger/Types.o, dist/build/System/Log/FastLogger/Types.dyn_o ) [ 6 of 13] Compiling System.Log.FastLogger.File ( System/Log/FastLogger/File.hs, dist/build/System/Log/FastLogger/File.o, dist/build/System/Log/FastLogger/File.dyn_o ) [ 7 of 13] Compiling System.Log.FastLogger.Date ( System/Log/FastLogger/Date.hs, dist/build/System/Log/FastLogger/Date.o, dist/build/System/Log/FastLogger/Date.dyn_o ) [ 8 of 13] Compiling System.Log.FastLogger.Write ( System/Log/FastLogger/Write.hs, dist/build/System/Log/FastLogger/Write.o, dist/build/System/Log/FastLogger/Write.dyn_o ) [ 9 of 13] Compiling System.Log.FastLogger.SingleLogger ( System/Log/FastLogger/SingleLogger.hs, dist/build/System/Log/FastLogger/SingleLogger.o, dist/build/System/Log/FastLogger/SingleLogger.dyn_o ) [10 of 13] Compiling System.Log.FastLogger.MultiLogger ( System/Log/FastLogger/MultiLogger.hs, dist/build/System/Log/FastLogger/MultiLogger.o, dist/build/System/Log/FastLogger/MultiLogger.dyn_o ) [11 of 13] Compiling System.Log.FastLogger.LoggerSet ( System/Log/FastLogger/LoggerSet.hs, dist/build/System/Log/FastLogger/LoggerSet.o, dist/build/System/Log/FastLogger/LoggerSet.dyn_o ) [12 of 13] Compiling System.Log.FastLogger ( System/Log/FastLogger.hs, dist/build/System/Log/FastLogger.o, dist/build/System/Log/FastLogger.dyn_o ) [13 of 13] Compiling System.Log.FastLogger.Internal ( System/Log/FastLogger/Internal.hs, dist/build/System/Log/FastLogger/Internal.o, dist/build/System/Log/FastLogger/Internal.dyn_o ) Preprocessing library for fast-logger-3.2.6.. Running Haddock on library for fast-logger-3.2.6.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 13] Compiling System.Log.FastLogger.Imports ( System/Log/FastLogger/Imports.hs, nothing ) [ 2 of 13] Compiling System.Log.FastLogger.FileIO ( System/Log/FastLogger/FileIO.hs, nothing ) [ 3 of 13] Compiling System.Log.FastLogger.LogStr ( System/Log/FastLogger/LogStr.hs, nothing ) [ 4 of 13] Compiling System.Log.FastLogger.IO ( System/Log/FastLogger/IO.hs, nothing ) [ 5 of 13] Compiling System.Log.FastLogger.Types ( System/Log/FastLogger/Types.hs, nothing ) [ 6 of 13] Compiling System.Log.FastLogger.File ( System/Log/FastLogger/File.hs, nothing ) [ 7 of 13] Compiling System.Log.FastLogger.Date ( System/Log/FastLogger/Date.hs, nothing ) [ 8 of 13] Compiling System.Log.FastLogger.Write ( System/Log/FastLogger/Write.hs, nothing ) [ 9 of 13] Compiling System.Log.FastLogger.SingleLogger ( System/Log/FastLogger/SingleLogger.hs, nothing ) [10 of 13] Compiling System.Log.FastLogger.MultiLogger ( System/Log/FastLogger/MultiLogger.hs, nothing ) [11 of 13] Compiling System.Log.FastLogger.LoggerSet ( System/Log/FastLogger/LoggerSet.hs, nothing ) [12 of 13] Compiling System.Log.FastLogger ( System/Log/FastLogger.hs, nothing ) [13 of 13] Compiling System.Log.FastLogger.Internal ( System/Log/FastLogger/Internal.hs, nothing ) Haddock coverage: Warning: 'LogStr' is ambiguous. It is defined * at System/Log/FastLogger/LogStr.hs:50:15 * at System/Log/FastLogger/LogStr.hs:50:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/LogStr.hs:50:1 50% ( 2 / 4) in 'System.Log.FastLogger.Types' Missing documentation for: Module header TimeFormat (System/Log/FastLogger/Types.hs:14) Warning: 'on' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'T' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 83% ( 5 / 6) in 'System.Log.FastLogger.File' Missing documentation for: Module header 100% ( 5 / 5) in 'System.Log.FastLogger.Date' Warning: 'LogStr' is ambiguous. It is defined * at System/Log/FastLogger/LogStr.hs:50:15 * at System/Log/FastLogger/LogStr.hs:50:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/LogStr.hs:50:1 Warning: 'SingleLogger' is ambiguous. It is defined * at System/Log/FastLogger/SingleLogger.hs:24:21 * at System/Log/FastLogger/SingleLogger.hs:24:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/SingleLogger.hs:24:1 Warning: 'MultiLogger' is ambiguous. It is defined * at System/Log/FastLogger/MultiLogger.hs:31:20 * at System/Log/FastLogger/MultiLogger.hs:31:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/MultiLogger.hs:31:1 Warning: 'LoggerSet' is ambiguous. It is defined * at System/Log/FastLogger/LoggerSet.hs:54:18 * at System/Log/FastLogger/LoggerSet.hs:54:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/LoggerSet.hs:54:1 Warning: 'numCapabilties' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 95% ( 20 / 21) in 'System.Log.FastLogger.LoggerSet' Missing documentation for: Module header Warning: 'logStr' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'numCapabilities' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'newTimeFastLogger' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'TimedFileLogSpec' is ambiguous. It is defined * at System/Log/FastLogger/File.hs:49:25 * at System/Log/FastLogger/File.hs:49:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at System/Log/FastLogger/File.hs:49:1 96% ( 27 / 28) in 'System.Log.FastLogger' Missing documentation for: LogType (System/Log/FastLogger.hs:77) 60% ( 18 / 30) in 'System.Log.FastLogger.Internal' Missing documentation for: Buffer (System/Log/FastLogger/IO.hs:20) getBuffer (System/Log/FastLogger/IO.hs:30) freeBuffer (System/Log/FastLogger/IO.hs:33) toBufIOWith (System/Log/FastLogger/IO.hs:36) FD (System/Log/FastLogger/FileIO.hs:11) closeFD (System/Log/FastLogger/FileIO.hs:14) openFileFD (System/Log/FastLogger/FileIO.hs:17) getStderrFD (System/Log/FastLogger/FileIO.hs:20) getStdoutFD (System/Log/FastLogger/FileIO.hs:23) writeRawBufferPtr2FD (System/Log/FastLogger/FileIO.hs:26) isFDValid (System/Log/FastLogger/FileIO.hs:38) invalidFD (System/Log/FastLogger/FileIO.hs:35) Documentation created: dist/doc/html/fast-logger/, dist/doc/html/fast-logger/fast-logger.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/fast-logger-3.2.6-4PDuAQvOaYkESox0PhZjKh Completed fast-logger-3.2.6 Configuring vault-0.3.1.5... Preprocessing library for vault-0.3.1.5.. Building library for vault-0.3.1.5.. [1 of 5] Compiling Data.Unique.Really ( src/Data/Unique/Really.hs, dist/build/Data/Unique/Really.o, dist/build/Data/Unique/Really.dyn_o ) src/Data/Unique/Really.hs:6:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 6 | import Control.Applicative ((<$>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 5] Compiling Data.Vault.ST.Lazy ( src/Data/Vault/ST/Lazy.hs, dist/build/Data/Vault/ST/Lazy.o, dist/build/Data/Vault/ST/Lazy.dyn_o ) src/Data/Vault/ST/ST.h:15:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 15 | import Data.Monoid (Monoid(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:16:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 16 | import Data.Semigroup (Semigroup((<>))) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:18:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 18 | import Control.Applicative ((<$>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:47:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances] Noncanonical mappend definition detected in the instance declaration for Monoid (Vault s). mappend will eventually be removed in favour of (<>) Suggested fix: Either remove definition for mappend (recommended) or define as mappend = (<>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid | 47 | mappend = union | ^^^^^^^^^^^^^^^ [3 of 5] Compiling Data.Vault.Lazy ( src/Data/Vault/Lazy.hs, dist/build/Data/Vault/Lazy.o, dist/build/Data/Vault/Lazy.dyn_o ) [4 of 5] Compiling Data.Vault.ST.Strict ( src/Data/Vault/ST/Strict.hs, dist/build/Data/Vault/ST/Strict.o, dist/build/Data/Vault/ST/Strict.dyn_o ) src/Data/Vault/ST/ST.h:15:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 15 | import Data.Monoid (Monoid(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:16:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 16 | import Data.Semigroup (Semigroup((<>))) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:18:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 18 | import Control.Applicative ((<$>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:47:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances] Noncanonical mappend definition detected in the instance declaration for Monoid (Vault s). mappend will eventually be removed in favour of (<>) Suggested fix: Either remove definition for mappend (recommended) or define as mappend = (<>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid | 47 | mappend = union | ^^^^^^^^^^^^^^^ [5 of 5] Compiling Data.Vault.Strict ( src/Data/Vault/Strict.hs, dist/build/Data/Vault/Strict.o, dist/build/Data/Vault/Strict.dyn_o ) Preprocessing library for vault-0.3.1.5.. Running Haddock on library for vault-0.3.1.5.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 5] Compiling Data.Unique.Really ( src/Data/Unique/Really.hs, nothing ) src/Data/Unique/Really.hs:6:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 6 | import Control.Applicative ((<$>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 5] Compiling Data.Vault.ST.Lazy ( src/Data/Vault/ST/Lazy.hs, nothing ) src/Data/Vault/ST/ST.h:15:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 15 | import Data.Monoid (Monoid(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:16:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 16 | import Data.Semigroup (Semigroup((<>))) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:18:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 18 | import Control.Applicative ((<$>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:47:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances] Noncanonical mappend definition detected in the instance declaration for Monoid (Vault s). mappend will eventually be removed in favour of (<>) Suggested fix: Either remove definition for mappend (recommended) or define as mappend = (<>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid | 47 | mappend = union | ^^^^^^^^^^^^^^^ [3 of 5] Compiling Data.Vault.Lazy ( src/Data/Vault/Lazy.hs, nothing ) [4 of 5] Compiling Data.Vault.ST.Strict ( src/Data/Vault/ST/Strict.hs, nothing ) src/Data/Vault/ST/ST.h:15:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 15 | import Data.Monoid (Monoid(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:16:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 16 | import Data.Semigroup (Semigroup((<>))) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:18:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 18 | import Control.Applicative ((<$>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Vault/ST/ST.h:47:5: warning: [GHC-50928] [-Wnoncanonical-monoid-instances] Noncanonical mappend definition detected in the instance declaration for Monoid (Vault s). mappend will eventually be removed in favour of (<>) Suggested fix: Either remove definition for mappend (recommended) or define as mappend = (<>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid | 47 | mappend = union | ^^^^^^^^^^^^^^^ [5 of 5] Compiling Data.Vault.Strict ( src/Data/Vault/Strict.hs, nothing ) Haddock coverage: Warning: 'Unique' is ambiguous. It is defined * at src/Data/Unique/Really.hs:21:18 * at src/Data/Unique/Really.hs:21:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Unique/Really.hs:21:1 100% ( 4 / 4) in 'Data.Unique.Really' Warning: 'Vault' is ambiguous. It is defined * at src/Data/Vault/ST/backends/GHC.h:18:19 * at src/Data/Vault/ST/backends/GHC.h:18:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vault/ST/backends/GHC.h:18:1 Warning: 'Locker' is ambiguous. It is defined * at src/Data/Vault/ST/backends/GHC.h:40:17 * at src/Data/Vault/ST/backends/GHC.h:40:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vault/ST/backends/GHC.h:40:1 80% ( 12 / 15) in 'Data.Vault.ST.Lazy' Missing documentation for: Vault (src/Data/Vault/ST/backends/GHC.h:18) Key (src/Data/Vault/ST/backends/GHC.h:19) Locker (src/Data/Vault/ST/backends/GHC.h:40) 100% ( 15 / 15) in 'Data.Vault.Lazy' Warning: 'Vault' is ambiguous. It is defined * at src/Data/Vault/ST/backends/GHC.h:18:19 * at src/Data/Vault/ST/backends/GHC.h:18:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vault/ST/backends/GHC.h:18:1 Warning: 'Locker' is ambiguous. It is defined * at src/Data/Vault/ST/backends/GHC.h:40:17 * at src/Data/Vault/ST/backends/GHC.h:40:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vault/ST/backends/GHC.h:40:1 80% ( 12 / 15) in 'Data.Vault.ST.Strict' Missing documentation for: Vault (src/Data/Vault/ST/backends/GHC.h:18) Key (src/Data/Vault/ST/backends/GHC.h:19) Locker (src/Data/Vault/ST/backends/GHC.h:40) 100% ( 15 / 15) in 'Data.Vault.Strict' Documentation created: dist/doc/html/vault/, dist/doc/html/vault/vault.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/vault-0.3.1.5-9UOqaAX5ZKLLXuPQsOj42R Completed vault-0.3.1.5 Configuring text-iso8601-0.1.1... Preprocessing library for text-iso8601-0.1.1.. Building library for text-iso8601-0.1.1.. [1 of 2] Compiling Data.Time.FromText ( src/Data/Time/FromText.hs, dist/build/Data/Time/FromText.o, dist/build/Data/Time/FromText.dyn_o ) [2 of 2] Compiling Data.Time.ToText ( src/Data/Time/ToText.hs, dist/build/Data/Time/ToText.o, dist/build/Data/Time/ToText.dyn_o ) Preprocessing library for text-iso8601-0.1.1.. Running Haddock on library for text-iso8601-0.1.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Data.Time.FromText ( src/Data/Time/FromText.hs, nothing ) [2 of 2] Compiling Data.Time.ToText ( src/Data/Time/ToText.hs, nothing ) Haddock coverage: Warning: 'zonedTime' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 11 / 11) in 'Data.Time.FromText' 9% ( 1 / 11) in 'Data.Time.ToText' Missing documentation for: Module header buildDay (src/Data/Time/ToText.hs:38) buildLocalTime (src/Data/Time/ToText.hs:122) buildTimeOfDay (src/Data/Time/ToText.hs:74) buildTimeZone (src/Data/Time/ToText.hs:106) buildUTCTime (src/Data/Time/ToText.hs:118) buildZonedTime (src/Data/Time/ToText.hs:126) buildMonth (src/Data/Time/ToText.hs:43) buildQuarter (src/Data/Time/ToText.hs:48) buildQuarterOfYear (src/Data/Time/ToText.hs:53) Documentation created: dist/doc/html/text-iso8601/, dist/doc/html/text-iso8601/text-iso8601.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/text-iso8601-0.1.1-4Kc5OyZ1I6HB4G5jxLOO5u Completed text-iso8601-0.1.1 Configuring strict-0.5.1... Preprocessing library for strict-0.5.1.. Building library for strict-0.5.1.. [1 of 7] Compiling Data.Strict.Either ( src/Data/Strict/Either.hs, dist/build/Data/Strict/Either.o, dist/build/Data/Strict/Either.dyn_o ) [2 of 7] Compiling Data.Strict.Maybe ( src/Data/Strict/Maybe.hs, dist/build/Data/Strict/Maybe.o, dist/build/Data/Strict/Maybe.dyn_o ) [3 of 7] Compiling Data.Strict.These ( src/Data/Strict/These.hs, dist/build/Data/Strict/These.o, dist/build/Data/Strict/These.dyn_o ) [4 of 7] Compiling Data.Strict.Tuple ( src/Data/Strict/Tuple.hs, dist/build/Data/Strict/Tuple.o, dist/build/Data/Strict/Tuple.dyn_o ) src/Data/Strict/Tuple.hs:124:3: warning: [GHC-50928] [-Wnoncanonical-monoid-instances] Noncanonical mappend definition detected in the instance declaration for Monoid (Pair a b). mappend will eventually be removed in favour of (<>) Suggested fix: Either remove definition for mappend (recommended) or define as mappend = (<>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid | 124 | (x1 :!: y1) `mappend` (x2 :!: y2) = (x1 `mappend` x2) :!: (y1 `mappend` y2) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [5 of 7] Compiling Data.Strict.Classes ( src/Data/Strict/Classes.hs, dist/build/Data/Strict/Classes.o, dist/build/Data/Strict/Classes.dyn_o ) [6 of 7] Compiling Data.Strict ( src/Data/Strict.hs, dist/build/Data/Strict.o, dist/build/Data/Strict.dyn_o ) [7 of 7] Compiling System.IO.Strict ( src/System/IO/Strict.hs, dist/build/System/IO/Strict.o, dist/build/System/IO/Strict.dyn_o ) Preprocessing library for strict-0.5.1.. Running Haddock on library for strict-0.5.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 7] Compiling Data.Strict.Either ( src/Data/Strict/Either.hs, nothing ) [2 of 7] Compiling Data.Strict.Maybe ( src/Data/Strict/Maybe.hs, nothing ) [3 of 7] Compiling Data.Strict.These ( src/Data/Strict/These.hs, nothing ) [4 of 7] Compiling Data.Strict.Tuple ( src/Data/Strict/Tuple.hs, nothing ) src/Data/Strict/Tuple.hs:124:3: warning: [GHC-50928] [-Wnoncanonical-monoid-instances] Noncanonical mappend definition detected in the instance declaration for Monoid (Pair a b). mappend will eventually be removed in favour of (<>) Suggested fix: Either remove definition for mappend (recommended) or define as mappend = (<>) See also: https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid | 124 | (x1 :!: y1) `mappend` (x2 :!: y2) = (x1 `mappend` x2) :!: (y1 `mappend` y2) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [5 of 7] Compiling Data.Strict.Classes ( src/Data/Strict/Classes.hs, nothing ) [6 of 7] Compiling Data.Strict ( src/Data/Strict.hs, nothing ) [7 of 7] Compiling System.IO.Strict ( src/System/IO/Strict.hs, nothing ) Haddock coverage: Warning: 'Either' is ambiguous. It is defined * in Data.Either * at src/Data/Strict/Either.hs:54:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Strict/Either.hs:54:1 100% ( 10 / 10) in 'Data.Strict.Either' Warning: 'Maybe' is ambiguous. It is defined * at src/Data/Strict/Maybe.hs:58:1 * in GHC.Maybe You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Strict/Maybe.hs:58:1 Warning: '<*>' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 11 / 11) in 'Data.Strict.Maybe' Warning: 'These' is ambiguous. It is defined * at src/Data/Strict/These.hs:65:38 * at src/Data/Strict/These.hs:65:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Strict/These.hs:65:1 Warning: 'here' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'there' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 70% ( 12 / 17) in 'Data.Strict.These' Missing documentation for: Module header distrThesePair (src/Data/Strict/These.hs:156) undistrThesePair (src/Data/Strict/These.hs:161) distrPairThese (src/Data/Strict/These.hs:173) undistrPairThese (src/Data/Strict/These.hs:178) 90% ( 9 / 10) in 'Data.Strict.Tuple' Missing documentation for: :!: (src/Data/Strict/Tuple.hs:69) 50% ( 1 / 2) in 'Data.Strict.Classes' Missing documentation for: Module header 100% ( 6 / 6) in 'Data.Strict' Warning: 'isEOFError' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'stdin' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 7 / 7) in 'System.IO.Strict' Warning: Data.Strict.Either: could not find link destinations for: - Data.Strict.Either.Rep_Either - Data.Strict.Either.Rep1_Either Warning: Data.Strict.Maybe: could not find link destinations for: - Data.Strict.Maybe.Rep_Maybe - Data.Strict.Maybe.Rep1_Maybe Warning: Data.Strict.These: could not find link destinations for: - Data.Strict.These.Rep_These - Data.Strict.These.Rep1_These Warning: Data.Strict.Tuple: could not find link destinations for: - Data.Strict.Tuple.Rep_Pair - Data.Strict.Tuple.Rep1_Pair Documentation created: dist/doc/html/strict/, dist/doc/html/strict/strict.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/strict-0.5.1-2ISnNguMtok96hucleaUNy Completed strict-0.5.1 Configuring attoparsec-0.14.4... Preprocessing library 'attoparsec-internal' for attoparsec-0.14.4.. Building library 'attoparsec-internal' for attoparsec-0.14.4.. [1 of 6] Compiling Data.Attoparsec.ByteString.FastSet ( internal/Data/Attoparsec/ByteString/FastSet.hs, dist/build/attoparsec-internal/Data/Attoparsec/ByteString/FastSet.o, dist/build/attoparsec-internal/Data/Attoparsec/ByteString/FastSet.dyn_o ) internal/Data/Attoparsec/ByteString/FastSet.hs:97:18: warning: [GHC-68441] [-Wdeprecations] In the use of memset (imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type): Deprecated: "Use Foreign.Marshal.Utils.fillBytes instead" | 97 | _ <- I.memset t 0 32 | ^^^^^^^^ [2 of 6] Compiling Data.Attoparsec.Internal.Compat ( internal/Data/Attoparsec/Internal/Compat.hs, dist/build/attoparsec-internal/Data/Attoparsec/Internal/Compat.o, dist/build/attoparsec-internal/Data/Attoparsec/Internal/Compat.dyn_o ) [3 of 6] Compiling Data.Attoparsec.Internal.Fhthagn ( internal/Data/Attoparsec/Internal/Fhthagn.hs, dist/build/attoparsec-internal/Data/Attoparsec/Internal/Fhthagn.o, dist/build/attoparsec-internal/Data/Attoparsec/Internal/Fhthagn.dyn_o ) [4 of 6] Compiling Data.Attoparsec.ByteString.Buffer ( internal/Data/Attoparsec/ByteString/Buffer.hs, dist/build/attoparsec-internal/Data/Attoparsec/ByteString/Buffer.o, dist/build/attoparsec-internal/Data/Attoparsec/ByteString/Buffer.dyn_o ) internal/Data/Attoparsec/ByteString/Buffer.hs:62:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 62 | import Data.Semigroup (Semigroup(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ internal/Data/Attoparsec/ByteString/Buffer.hs:121:11: warning: [GHC-68441] [-Wdeprecations] In the use of memcpy (imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type): Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead" | 121 | memcpy (ptr0 `plusPtr` (off0+len0)) | ^^^^^^ internal/Data/Attoparsec/ByteString/Buffer.hs:132:13: warning: [GHC-68441] [-Wdeprecations] In the use of memcpy (imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type): Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead" | 132 | memcpy ptr (ptr0 `plusPtr` off0) (fromIntegral len0) | ^^^^^^ internal/Data/Attoparsec/ByteString/Buffer.hs:133:13: warning: [GHC-68441] [-Wdeprecations] In the use of memcpy (imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type): Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead" | 133 | memcpy (ptr `plusPtr` len0) (ptr1 `plusPtr` off1) | ^^^^^^ [5 of 6] Compiling Data.Attoparsec.Text.Buffer ( internal/Data/Attoparsec/Text/Buffer.hs, dist/build/attoparsec-internal/Data/Attoparsec/Text/Buffer.o, dist/build/attoparsec-internal/Data/Attoparsec/Text/Buffer.dyn_o ) internal/Data/Attoparsec/Text/Buffer.hs:44:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 44 | import Data.Semigroup (Semigroup(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [6 of 6] Compiling Data.Attoparsec.Text.FastSet ( internal/Data/Attoparsec/Text/FastSet.hs, dist/build/attoparsec-internal/Data/Attoparsec/Text/FastSet.o, dist/build/attoparsec-internal/Data/Attoparsec/Text/FastSet.dyn_o ) Preprocessing library for attoparsec-0.14.4.. Building library for attoparsec-0.14.4.. [ 1 of 16] Compiling Data.Attoparsec.Internal.Types ( Data/Attoparsec/Internal/Types.hs, dist/build/Data/Attoparsec/Internal/Types.o, dist/build/Data/Attoparsec/Internal/Types.dyn_o ) Data/Attoparsec/Internal/Types.hs:28:53: warning: [GHC-38856] [-Wunused-imports] The import of <$> from module Control.Applicative is redundant | 28 | import Control.Applicative as App (Applicative(..), (<$>)) | ^^^^^ Data/Attoparsec/Internal/Types.hs:34:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 34 | import Data.Semigroup (Semigroup(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [ 2 of 16] Compiling Data.Attoparsec.Internal ( Data/Attoparsec/Internal.hs, dist/build/Data/Attoparsec/Internal.o, dist/build/Data/Attoparsec/Internal.dyn_o ) [ 3 of 16] Compiling Data.Attoparsec.Number ( Data/Attoparsec/Number.hs, dist/build/Data/Attoparsec/Number.o, dist/build/Data/Attoparsec/Number.dyn_o ) [ 4 of 16] Compiling Data.Attoparsec.Types ( Data/Attoparsec/Types.hs, dist/build/Data/Attoparsec/Types.o, dist/build/Data/Attoparsec/Types.dyn_o ) [ 5 of 16] Compiling Data.Attoparsec.Zepto ( Data/Attoparsec/Zepto.hs, dist/build/Data/Attoparsec/Zepto.o, dist/build/Data/Attoparsec/Zepto.dyn_o ) Data/Attoparsec/Zepto.hs:46:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 46 | import Data.Semigroup (Semigroup(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [ 6 of 16] Compiling Data.Attoparsec.Combinator ( Data/Attoparsec/Combinator.hs, dist/build/Data/Attoparsec/Combinator.o, dist/build/Data/Attoparsec/Combinator.dyn_o ) Data/Attoparsec/Combinator.hs:46:46: warning: [GHC-38856] [-Wunused-imports] The import of liftA2 from module Control.Applicative is redundant | 46 | import Control.Applicative (Alternative(..), liftA2, many, (<|>)) | ^^^^^^ [ 7 of 16] Compiling Data.Attoparsec.Text.Internal ( Data/Attoparsec/Text/Internal.hs, dist/build/Data/Attoparsec/Text/Internal.o, dist/build/Data/Attoparsec/Text/Internal.dyn_o ) Data/Attoparsec/Text/Internal.hs:68:1: warning: [GHC-38856] [-Wunused-imports] The import of *>, <$>, pure from module Control.Applicative is redundant | 68 | import Control.Applicative ((<|>), (<$>), pure, (*>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Attoparsec/Text/Internal.hs:91:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 91 | instance (a ~ Text) => IsString (Parser a) where | ^ [ 8 of 16] Compiling Data.Attoparsec.Text ( Data/Attoparsec/Text.hs, dist/build/Data/Attoparsec/Text.o, dist/build/Data/Attoparsec/Text.dyn_o ) [ 9 of 16] Compiling Data.Attoparsec.Text.Lazy ( Data/Attoparsec/Text/Lazy.hs, dist/build/Data/Attoparsec/Text/Lazy.o, dist/build/Data/Attoparsec/Text/Lazy.dyn_o ) [10 of 16] Compiling Data.Attoparsec.ByteString.Internal ( Data/Attoparsec/ByteString/Internal.hs, dist/build/Data/Attoparsec/ByteString/Internal.o, dist/build/Data/Attoparsec/ByteString/Internal.dyn_o ) [11 of 16] Compiling Data.Attoparsec.ByteString ( Data/Attoparsec/ByteString.hs, dist/build/Data/Attoparsec/ByteString.o, dist/build/Data/Attoparsec/ByteString.dyn_o ) [12 of 16] Compiling Data.Attoparsec.ByteString.Lazy ( Data/Attoparsec/ByteString/Lazy.hs, dist/build/Data/Attoparsec/ByteString/Lazy.o, dist/build/Data/Attoparsec/ByteString/Lazy.dyn_o ) [13 of 16] Compiling Data.Attoparsec.Lazy ( Data/Attoparsec/Lazy.hs, dist/build/Data/Attoparsec/Lazy.o, dist/build/Data/Attoparsec/Lazy.dyn_o ) [14 of 16] Compiling Data.Attoparsec.ByteString.Char8 ( Data/Attoparsec/ByteString/Char8.hs, dist/build/Data/Attoparsec/ByteString/Char8.o, dist/build/Data/Attoparsec/ByteString/Char8.dyn_o ) Data/Attoparsec/ByteString/Char8.hs:154:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 154 | instance (a ~ B.ByteString) => IsString (Parser a) where | ^ [15 of 16] Compiling Data.Attoparsec.Char8 ( Data/Attoparsec/Char8.hs, dist/build/Data/Attoparsec/Char8.o, dist/build/Data/Attoparsec/Char8.dyn_o ) [16 of 16] Compiling Data.Attoparsec ( Data/Attoparsec.hs, dist/build/Data/Attoparsec.o, dist/build/Data/Attoparsec.dyn_o ) Preprocessing library 'attoparsec-internal' for attoparsec-0.14.4.. Running Haddock on library 'attoparsec-internal' for attoparsec-0.14.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling Data.Attoparsec.ByteString.FastSet ( internal/Data/Attoparsec/ByteString/FastSet.hs, nothing ) internal/Data/Attoparsec/ByteString/FastSet.hs:97:18: warning: [GHC-68441] [-Wdeprecations] In the use of memset (imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type): Deprecated: "Use Foreign.Marshal.Utils.fillBytes instead" | 97 | _ <- I.memset t 0 32 | ^^^^^^^^ [2 of 6] Compiling Data.Attoparsec.Internal.Compat ( internal/Data/Attoparsec/Internal/Compat.hs, nothing ) [3 of 6] Compiling Data.Attoparsec.Internal.Fhthagn ( internal/Data/Attoparsec/Internal/Fhthagn.hs, nothing ) [4 of 6] Compiling Data.Attoparsec.ByteString.Buffer ( internal/Data/Attoparsec/ByteString/Buffer.hs, nothing ) internal/Data/Attoparsec/ByteString/Buffer.hs:62:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 62 | import Data.Semigroup (Semigroup(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ internal/Data/Attoparsec/ByteString/Buffer.hs:121:11: warning: [GHC-68441] [-Wdeprecations] In the use of memcpy (imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type): Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead" | 121 | memcpy (ptr0 `plusPtr` (off0+len0)) | ^^^^^^ internal/Data/Attoparsec/ByteString/Buffer.hs:132:13: warning: [GHC-68441] [-Wdeprecations] In the use of memcpy (imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type): Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead" | 132 | memcpy ptr (ptr0 `plusPtr` off0) (fromIntegral len0) | ^^^^^^ internal/Data/Attoparsec/ByteString/Buffer.hs:133:13: warning: [GHC-68441] [-Wdeprecations] In the use of memcpy (imported from Data.ByteString.Internal, but defined in Data.ByteString.Internal.Type): Deprecated: "Use Foreign.Marshal.Utils.copyBytes instead" | 133 | memcpy (ptr `plusPtr` len0) (ptr1 `plusPtr` off1) | ^^^^^^ [5 of 6] Compiling Data.Attoparsec.Text.Buffer ( internal/Data/Attoparsec/Text/Buffer.hs, nothing ) internal/Data/Attoparsec/Text/Buffer.hs:44:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 44 | import Data.Semigroup (Semigroup(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [6 of 6] Compiling Data.Attoparsec.Text.FastSet ( internal/Data/Attoparsec/Text/FastSet.hs, nothing ) Haddock coverage: 69% ( 9 / 13) in 'Data.Attoparsec.ByteString.FastSet' Missing documentation for: FastSet (internal/Data/Attoparsec/ByteString/FastSet.hs:44) fromList (internal/Data/Attoparsec/ByteString/FastSet.hs:63) fromSet charClass (internal/Data/Attoparsec/ByteString/FastSet.hs:109) 0% ( 0 / 3) in 'Data.Attoparsec.Internal.Compat' Missing documentation for: Module header withPS (internal/Data/Attoparsec/Internal/Compat.hs:15) mkPS (internal/Data/Attoparsec/Internal/Compat.hs:23) 50% ( 1 / 2) in 'Data.Attoparsec.Internal.Fhthagn' Missing documentation for: Module header 22% ( 2 / 9) in 'Data.Attoparsec.ByteString.Buffer' Missing documentation for: Buffer (internal/Data/Attoparsec/ByteString/Buffer.hs:71) unbuffer (internal/Data/Attoparsec/ByteString/Buffer.hs:89) pappend (internal/Data/Attoparsec/ByteString/Buffer.hs:105) length (internal/Data/Attoparsec/ByteString/Buffer.hs:138) unsafeIndex (internal/Data/Attoparsec/ByteString/Buffer.hs:142) substring (internal/Data/Attoparsec/ByteString/Buffer.hs:147) unsafeDrop (internal/Data/Attoparsec/ByteString/Buffer.hs:154) 33% ( 4 / 12) in 'Data.Attoparsec.Text.Buffer' Missing documentation for: Buffer (internal/Data/Attoparsec/Text/Buffer.hs:64) unbuffer (internal/Data/Attoparsec/Text/Buffer.hs:82) unbufferAt (internal/Data/Attoparsec/Text/Buffer.hs:85) length (internal/Data/Attoparsec/Text/Buffer.hs:145) pappend (internal/Data/Attoparsec/Text/Buffer.hs:105) substring (internal/Data/Attoparsec/Text/Buffer.hs:149) lengthCodeUnits (internal/Data/Attoparsec/Text/Buffer.hs:158) dropCodeUnits (internal/Data/Attoparsec/Text/Buffer.hs:161) 60% ( 6 / 10) in 'Data.Attoparsec.Text.FastSet' Missing documentation for: FastSet (internal/Data/Attoparsec/Text/FastSet.hs:40) fromList (internal/Data/Attoparsec/Text/FastSet.hs:83) set (internal/Data/Attoparsec/Text/FastSet.hs:105) charClass (internal/Data/Attoparsec/Text/FastSet.hs:118) Documentation created: dist/doc/html/attoparsec/, dist/doc/html/attoparsec/attoparsec.txt Preprocessing library for attoparsec-0.14.4.. Running Haddock on library for attoparsec-0.14.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 16] Compiling Data.Attoparsec.Internal.Types ( Data/Attoparsec/Internal/Types.hs, nothing ) Data/Attoparsec/Internal/Types.hs:28:53: warning: [GHC-38856] [-Wunused-imports] The import of <$> from module Control.Applicative is redundant | 28 | import Control.Applicative as App (Applicative(..), (<$>)) | ^^^^^ Data/Attoparsec/Internal/Types.hs:34:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 34 | import Data.Semigroup (Semigroup(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [ 2 of 16] Compiling Data.Attoparsec.Internal ( Data/Attoparsec/Internal.hs, nothing ) [ 3 of 16] Compiling Data.Attoparsec.Number ( Data/Attoparsec/Number.hs, nothing ) [ 4 of 16] Compiling Data.Attoparsec.Types ( Data/Attoparsec/Types.hs, nothing ) [ 5 of 16] Compiling Data.Attoparsec.Zepto ( Data/Attoparsec/Zepto.hs, nothing ) Data/Attoparsec/Zepto.hs:46:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 46 | import Data.Semigroup (Semigroup(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [ 6 of 16] Compiling Data.Attoparsec.Combinator ( Data/Attoparsec/Combinator.hs, nothing ) Data/Attoparsec/Combinator.hs:46:46: warning: [GHC-38856] [-Wunused-imports] The import of liftA2 from module Control.Applicative is redundant | 46 | import Control.Applicative (Alternative(..), liftA2, many, (<|>)) | ^^^^^^ [ 7 of 16] Compiling Data.Attoparsec.Text.Internal ( Data/Attoparsec/Text/Internal.hs, nothing ) Data/Attoparsec/Text/Internal.hs:68:1: warning: [GHC-38856] [-Wunused-imports] The import of *>, <$>, pure from module Control.Applicative is redundant | 68 | import Control.Applicative ((<|>), (<$>), pure, (*>)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Attoparsec/Text/Internal.hs:91:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 91 | instance (a ~ Text) => IsString (Parser a) where | ^ [ 8 of 16] Compiling Data.Attoparsec.Text ( Data/Attoparsec/Text.hs, nothing ) [ 9 of 16] Compiling Data.Attoparsec.Text.Lazy ( Data/Attoparsec/Text/Lazy.hs, nothing ) [10 of 16] Compiling Data.Attoparsec.ByteString.Internal ( Data/Attoparsec/ByteString/Internal.hs, nothing ) [11 of 16] Compiling Data.Attoparsec.ByteString ( Data/Attoparsec/ByteString.hs, nothing ) [12 of 16] Compiling Data.Attoparsec.ByteString.Lazy ( Data/Attoparsec/ByteString/Lazy.hs, nothing ) [13 of 16] Compiling Data.Attoparsec.Lazy ( Data/Attoparsec/Lazy.hs, nothing ) [14 of 16] Compiling Data.Attoparsec.ByteString.Char8 ( Data/Attoparsec/ByteString/Char8.hs, nothing ) Data/Attoparsec/ByteString/Char8.hs:154:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 154 | instance (a ~ B.ByteString) => IsString (Parser a) where | ^ [15 of 16] Compiling Data.Attoparsec.Char8 ( Data/Attoparsec/Char8.hs, nothing ) [16 of 16] Compiling Data.Attoparsec ( Data/Attoparsec.hs, nothing ) Haddock coverage: 60% ( 6 / 10) in 'Data.Attoparsec.Internal.Types' Missing documentation for: State (Data/Attoparsec/Internal/Types.hs:118) Failure (Data/Attoparsec/Internal/Types.hs:122) Success (Data/Attoparsec/Internal/Types.hs:124) Pos (Data/Attoparsec/Internal/Types.hs:46) 100% ( 10 / 10) in 'Data.Attoparsec.Internal' 100% ( 2 / 2) in 'Data.Attoparsec.Number' 100% ( 4 / 4) in 'Data.Attoparsec.Types' 88% ( 8 / 9) in 'Data.Attoparsec.Zepto' Missing documentation for: Parser (Data/Attoparsec/Zepto.hs:68) Warning: 'liftM2' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 24 / 24) in 'Data.Attoparsec.Combinator' Warning: 'Text' is ambiguous. It is defined * in Data.Text.Internal * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Text.Internal Warning: 'Partial' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Lazy' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% ( 90 / 92) in 'Data.Attoparsec.Text' Missing documentation for: Parser (Data/Attoparsec/Text/Internal.hs:86) Result (Data/Attoparsec/Text/Internal.hs:87) Warning: 'Text' is ambiguous. It is defined * in Data.Text.Internal * in Data.Text.Internal.Lazy You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Text.Internal.Lazy 98% ( 70 / 71) in 'Data.Attoparsec.Text.Lazy' Missing documentation for: Parser (Data/Attoparsec/Text/Internal.hs:86) Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% ( 68 / 70) in 'Data.Attoparsec.ByteString' Missing documentation for: Parser (Data/Attoparsec/ByteString/Internal.hs:98) Result (Data/Attoparsec/ByteString/Internal.hs:99) Warning: 'ByteString' is ambiguous. It is defined * in Data.ByteString.Internal.Type * in Data.ByteString.Lazy.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.ByteString.Lazy.Internal 98% ( 53 / 54) in 'Data.Attoparsec.ByteString.Lazy' Missing documentation for: Parser (Data/Attoparsec/ByteString/Internal.hs:98) Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 2 / 2) in 'Data.Attoparsec.Lazy' Warning: 'many' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% ( 91 / 93) in 'Data.Attoparsec.ByteString.Char8' Missing documentation for: Parser (Data/Attoparsec/ByteString/Internal.hs:98) Result (Data/Attoparsec/ByteString/Internal.hs:99) 100% ( 2 / 2) in 'Data.Attoparsec.Char8' 100% ( 2 / 2) in 'Data.Attoparsec' Warning: Data.Attoparsec.Internal.Types: could not find link destinations for: - Data.Attoparsec.Internal.Types.D:R:ChunkElemText - Data.Attoparsec.Internal.Types.D:R:ChunkElemByteString Warning: Data.Attoparsec.Types: could not find link destinations for: - Data.Attoparsec.Internal.Types.D:R:ChunkElemText - Data.Attoparsec.Internal.Types.D:R:ChunkElemByteString Documentation created: dist/doc/html/attoparsec/, dist/doc/html/attoparsec/attoparsec.txt Installing internal library attoparsec-internal in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/attoparsec-0.14.4-LDjhBprM6fk4GZghEfIU87 Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/attoparsec-0.14.4-LDjhBprM6fk4GZghEfIU87 Completed attoparsec-0.14.4 Configuring megaparsec-9.7.0... Preprocessing library for megaparsec-9.7.0.. Building library for megaparsec-9.7.0.. [ 1 of 19] Compiling Text.Megaparsec.Pos ( Text/Megaparsec/Pos.hs, dist/build/Text/Megaparsec/Pos.o, dist/build/Text/Megaparsec/Pos.dyn_o ) [ 2 of 19] Compiling Text.Megaparsec.Unicode ( Text/Megaparsec/Unicode.hs, dist/build/Text/Megaparsec/Unicode.o, dist/build/Text/Megaparsec/Unicode.dyn_o ) [ 3 of 19] Compiling Text.Megaparsec.Error[boot] ( Text/Megaparsec/Error.hs-boot, dist/build/Text/Megaparsec/Error.o-boot, dist/build/Text/Megaparsec/Error.dyn_o-boot ) [ 4 of 19] Compiling Text.Megaparsec.State ( Text/Megaparsec/State.hs, dist/build/Text/Megaparsec/State.o, dist/build/Text/Megaparsec/State.dyn_o ) [ 5 of 19] Compiling Text.Megaparsec.Stream ( Text/Megaparsec/Stream.hs, dist/build/Text/Megaparsec/Stream.o, dist/build/Text/Megaparsec/Stream.dyn_o ) [ 6 of 19] Compiling Text.Megaparsec.Error ( Text/Megaparsec/Error.hs, dist/build/Text/Megaparsec/Error.o, dist/build/Text/Megaparsec/Error.dyn_o ) [ 7 of 19] Compiling Text.Megaparsec.Error.Builder ( Text/Megaparsec/Error/Builder.hs, dist/build/Text/Megaparsec/Error/Builder.o, dist/build/Text/Megaparsec/Error/Builder.dyn_o ) [ 8 of 19] Compiling Text.Megaparsec.Internal[boot] ( Text/Megaparsec/Internal.hs-boot, dist/build/Text/Megaparsec/Internal.o-boot, dist/build/Text/Megaparsec/Internal.dyn_o-boot ) [ 9 of 19] Compiling Text.Megaparsec.Class ( Text/Megaparsec/Class.hs, dist/build/Text/Megaparsec/Class.o, dist/build/Text/Megaparsec/Class.dyn_o ) [10 of 19] Compiling Text.Megaparsec.Internal ( Text/Megaparsec/Internal.hs, dist/build/Text/Megaparsec/Internal.o, dist/build/Text/Megaparsec/Internal.dyn_o ) [11 of 19] Compiling Text.Megaparsec.Debug ( Text/Megaparsec/Debug.hs, dist/build/Text/Megaparsec/Debug.o, dist/build/Text/Megaparsec/Debug.dyn_o ) [12 of 19] Compiling Text.Megaparsec ( Text/Megaparsec.hs, dist/build/Text/Megaparsec.o, dist/build/Text/Megaparsec.dyn_o ) [13 of 19] Compiling Text.Megaparsec.Common ( Text/Megaparsec/Common.hs, dist/build/Text/Megaparsec/Common.o, dist/build/Text/Megaparsec/Common.dyn_o ) [14 of 19] Compiling Text.Megaparsec.Lexer ( Text/Megaparsec/Lexer.hs, dist/build/Text/Megaparsec/Lexer.o, dist/build/Text/Megaparsec/Lexer.dyn_o ) [15 of 19] Compiling Text.Megaparsec.Char ( Text/Megaparsec/Char.hs, dist/build/Text/Megaparsec/Char.o, dist/build/Text/Megaparsec/Char.dyn_o ) [16 of 19] Compiling Text.Megaparsec.Char.Lexer ( Text/Megaparsec/Char/Lexer.hs, dist/build/Text/Megaparsec/Char/Lexer.o, dist/build/Text/Megaparsec/Char/Lexer.dyn_o ) [17 of 19] Compiling Text.Megaparsec.Byte.Binary ( Text/Megaparsec/Byte/Binary.hs, dist/build/Text/Megaparsec/Byte/Binary.o, dist/build/Text/Megaparsec/Byte/Binary.dyn_o ) [18 of 19] Compiling Text.Megaparsec.Byte ( Text/Megaparsec/Byte.hs, dist/build/Text/Megaparsec/Byte.o, dist/build/Text/Megaparsec/Byte.dyn_o ) [19 of 19] Compiling Text.Megaparsec.Byte.Lexer ( Text/Megaparsec/Byte/Lexer.hs, dist/build/Text/Megaparsec/Byte/Lexer.o, dist/build/Text/Megaparsec/Byte/Lexer.dyn_o ) Preprocessing library for megaparsec-9.7.0.. Running Haddock on library for megaparsec-9.7.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 19] Compiling Text.Megaparsec.Pos ( Text/Megaparsec/Pos.hs, nothing ) [ 2 of 19] Compiling Text.Megaparsec.Unicode ( Text/Megaparsec/Unicode.hs, nothing ) [ 3 of 19] Compiling Text.Megaparsec.Error[boot] ( Text/Megaparsec/Error.hs-boot, nothing ) [ 4 of 19] Compiling Text.Megaparsec.State ( Text/Megaparsec/State.hs, nothing ) [ 5 of 19] Compiling Text.Megaparsec.Stream ( Text/Megaparsec/Stream.hs, nothing ) [ 6 of 19] Compiling Text.Megaparsec.Error ( Text/Megaparsec/Error.hs, nothing ) [ 7 of 19] Compiling Text.Megaparsec.Error.Builder ( Text/Megaparsec/Error/Builder.hs, nothing ) [ 8 of 19] Compiling Text.Megaparsec.Internal[boot] ( Text/Megaparsec/Internal.hs-boot, nothing ) [ 9 of 19] Compiling Text.Megaparsec.Class ( Text/Megaparsec/Class.hs, nothing ) [10 of 19] Compiling Text.Megaparsec.Internal ( Text/Megaparsec/Internal.hs, nothing ) [11 of 19] Compiling Text.Megaparsec.Debug ( Text/Megaparsec/Debug.hs, nothing ) [12 of 19] Compiling Text.Megaparsec ( Text/Megaparsec.hs, nothing ) [13 of 19] Compiling Text.Megaparsec.Common ( Text/Megaparsec/Common.hs, nothing ) [14 of 19] Compiling Text.Megaparsec.Lexer ( Text/Megaparsec/Lexer.hs, nothing ) [15 of 19] Compiling Text.Megaparsec.Char ( Text/Megaparsec/Char.hs, nothing ) [16 of 19] Compiling Text.Megaparsec.Char.Lexer ( Text/Megaparsec/Char/Lexer.hs, nothing ) [17 of 19] Compiling Text.Megaparsec.Byte.Binary ( Text/Megaparsec/Byte/Binary.hs, nothing ) [18 of 19] Compiling Text.Megaparsec.Byte ( Text/Megaparsec/Byte.hs, nothing ) [19 of 19] Compiling Text.Megaparsec.Byte.Lexer ( Text/Megaparsec/Byte/Lexer.hs, nothing ) Haddock coverage: Warning: 'SourcePos' is ambiguous. It is defined * at Text/Megaparsec/Pos.hs:121:18 * at Text/Megaparsec/Pos.hs:121:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Pos.hs:121:1 Warning: 'Pos' is ambiguous. It is defined * at Text/Megaparsec/Pos.hs:51:15 * at Text/Megaparsec/Pos.hs:51:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Pos.hs:51:1 Warning: 'InvalidPosException' is ambiguous. It is defined * at Text/Megaparsec/Pos.hs:107:5 * at Text/Megaparsec/Pos.hs:105:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Pos.hs:105:1 100% ( 12 / 12) in 'Text.Megaparsec.Pos' Warning: 'State' is ambiguous. It is defined * at Text/Megaparsec/State.hs:39:18 * at Text/Megaparsec/State.hs:39:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/State.hs:39:1 100% ( 5 / 5) in 'Text.Megaparsec.State' 100% ( 4 / 4) in 'Text.Megaparsec.Unicode' Warning: 'SourcePos' is ambiguous. It is defined * at Text/Megaparsec/Pos.hs:121:18 * at Text/Megaparsec/Pos.hs:121:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Pos.hs:121:1 Warning: 'PosState' is ambiguous. It is defined * at Text/Megaparsec/State.hs:101:19 * at Text/Megaparsec/State.hs:101:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/State.hs:101:1 Warning: 'ShareInput' is ambiguous. It is defined * at Text/Megaparsec/Stream.hs:187:24 * at Text/Megaparsec/Stream.hs:187:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Stream.hs:187:1 Warning: 'NoShareInput' is ambiguous. It is defined * at Text/Megaparsec/Stream.hs:262:26 * at Text/Megaparsec/Stream.hs:262:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Stream.hs:262:1 Warning: 'Text' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 6 / 6) in 'Text.Megaparsec.Stream' Warning: 'PosState' is ambiguous. It is defined * at Text/Megaparsec/State.hs:101:19 * at Text/Megaparsec/State.hs:101:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/State.hs:101:1 Warning: 'SourcePos' is ambiguous. It is defined * at Text/Megaparsec/Pos.hs:121:18 * at Text/Megaparsec/Pos.hs:121:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Pos.hs:121:1 Warning: 'ParseErrorBundle' is ambiguous. It is defined * at Text/Megaparsec/Error.hs:250:29 * at Text/Megaparsec/Error.hs:250:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Error.hs:250:1 100% ( 18 / 18) in 'Text.Megaparsec.Error' Warning: 'ET' is ambiguous. It is defined * at Text/Megaparsec/Error/Builder.hs:59:13 * at Text/Megaparsec/Error/Builder.hs:59:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Error/Builder.hs:59:1 100% ( 17 / 17) in 'Text.Megaparsec.Error.Builder' Warning: 'State' is ambiguous. It is defined * at Text/Megaparsec/State.hs:39:18 * at Text/Megaparsec/State.hs:39:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/State.hs:39:1 Warning: 'Reply' is ambiguous. It is defined * at Text/Megaparsec/Internal.hs:106:20 * at Text/Megaparsec/Internal.hs:106:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Internal.hs:106:1 Warning: 'ParsecT' is ambiguous. It is defined * at Text/Megaparsec/Internal.hs:131:27 * at Text/Megaparsec/Internal.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Internal.hs:131:1 Warning: 'Hints' is ambiguous. It is defined * at Text/Megaparsec/Internal.hs:92:19 * at Text/Megaparsec/Internal.hs:92:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Internal.hs:92:1 Warning: 'label' is ambiguous. It is defined * at Text/Megaparsec/Class.hs:61:3 * in Control.Monad.Cont.Class You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Class.hs:61:3 100% ( 14 / 14) in 'Text.Megaparsec.Internal' Warning: 'ParsecT' is ambiguous. It is defined * at Text/Megaparsec/Internal.hs:131:27 * at Text/Megaparsec/Internal.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Internal.hs:131:1 Warning: 'State' is ambiguous. It is defined * at Text/Megaparsec/State.hs:39:18 * at Text/Megaparsec/State.hs:39:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/State.hs:39:1 100% ( 3 / 3) in 'Text.Megaparsec.Debug' Warning: 'ParseErrorBundle' is ambiguous. It is defined * at Text/Megaparsec/Error.hs:250:29 * at Text/Megaparsec/Error.hs:250:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Error.hs:250:1 Warning: 'ParsecT' is ambiguous. It is defined * at Text/Megaparsec/Internal.hs:131:27 * at Text/Megaparsec/Internal.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Internal.hs:131:1 Warning: 'Identity' is ambiguous. It is defined * in Data.Functor.Identity * in Data.Functor.Identity You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Identity Warning: 'SourcePos' is ambiguous. It is defined * at Text/Megaparsec/Pos.hs:121:18 * at Text/Megaparsec/Pos.hs:121:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Text/Megaparsec/Pos.hs:121:1 100% ( 51 / 51) in 'Text.Megaparsec' Warning: 'skipLineComment' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'skipBlockComment' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 37 / 37) in 'Text.Megaparsec.Char' 100% ( 27 / 27) in 'Text.Megaparsec.Char.Lexer' 100% ( 21 / 21) in 'Text.Megaparsec.Byte.Binary' 100% ( 29 / 29) in 'Text.Megaparsec.Byte' 100% ( 17 / 17) in 'Text.Megaparsec.Byte.Lexer' Warning: Text.Megaparsec.Pos: could not find link destinations for: - Text.Megaparsec.Pos.Rep_SourcePos - Text.Megaparsec.Pos.Rep_InvalidPosException - Text.Megaparsec.Pos.Rep_Pos Warning: Text.Megaparsec.State: could not find link destinations for: - Text.Megaparsec.State.Rep_State - Text.Megaparsec.State.Rep_PosState Warning: Text.Megaparsec.Stream: could not find link destinations for: - Text.Megaparsec.Stream.D:R:TokenSeq - Text.Megaparsec.Stream.D:R:TokensSeq - Text.Megaparsec.Stream.D:R:TokenList - Text.Megaparsec.Stream.D:R:TokensList - Text.Megaparsec.Stream.D:R:TokenText - Text.Megaparsec.Stream.D:R:TokensText - Text.Megaparsec.Stream.D:R:TokenText0 - Text.Megaparsec.Stream.D:R:TokensText0 - Text.Megaparsec.Stream.D:R:TokenByteString - Text.Megaparsec.Stream.D:R:TokensByteString - Text.Megaparsec.Stream.D:R:TokenByteString0 - Text.Megaparsec.Stream.D:R:TokensByteString0 - Text.Megaparsec.Stream.D:R:TokenShareInput - Text.Megaparsec.Stream.D:R:TokensShareInput - Text.Megaparsec.Stream.D:R:TokenShareInput0 - Text.Megaparsec.Stream.D:R:TokensShareInput0 - Text.Megaparsec.Stream.D:R:TokenShareInput1 - Text.Megaparsec.Stream.D:R:TokensShareInput1 - Text.Megaparsec.Stream.D:R:TokenShareInput2 - Text.Megaparsec.Stream.D:R:TokensShareInput2 - Text.Megaparsec.Stream.D:R:TokenNoShareInput - Text.Megaparsec.Stream.D:R:TokensNoShareInput - Text.Megaparsec.Stream.D:R:TokenNoShareInput0 - Text.Megaparsec.Stream.D:R:TokensNoShareInput0 - Text.Megaparsec.Stream.D:R:TokenNoShareInput1 - Text.Megaparsec.Stream.D:R:TokensNoShareInput1 - Text.Megaparsec.Stream.D:R:TokenNoShareInput2 - Text.Megaparsec.Stream.D:R:TokensNoShareInput2 Warning: Text.Megaparsec.Error: could not find link destinations for: - Text.Megaparsec.Error.Rep_ParseErrorBundle - Text.Megaparsec.Error.Rep_ParseError - Text.Megaparsec.Error.Rep_ErrorFancy - Text.Megaparsec.Error.Rep_ErrorItem Warning: Text.Megaparsec.Error.Builder: could not find link destinations for: - Text.Megaparsec.Error.Builder.Rep_EF - Text.Megaparsec.Error.Builder.Rep_ET Warning: Text.Megaparsec: could not find link destinations for: - Text.Megaparsec.State.Rep_State - Text.Megaparsec.State.Rep_PosState Documentation created: dist/doc/html/megaparsec/, dist/doc/html/megaparsec/megaparsec.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/megaparsec-9.7.0-AZVb3OSPdl4TChiinRysA Completed megaparsec-9.7.0 Configuring http-types-0.12.4... Preprocessing library for http-types-0.12.4.. Building library for http-types-0.12.4.. [1 of 7] Compiling Network.HTTP.Types.Header ( Network/HTTP/Types/Header.hs, dist/build/Network/HTTP/Types/Header.o, dist/build/Network/HTTP/Types/Header.dyn_o ) [2 of 7] Compiling Network.HTTP.Types.Method ( Network/HTTP/Types/Method.hs, dist/build/Network/HTTP/Types/Method.o, dist/build/Network/HTTP/Types/Method.dyn_o ) [3 of 7] Compiling Network.HTTP.Types.Status ( Network/HTTP/Types/Status.hs, dist/build/Network/HTTP/Types/Status.o, dist/build/Network/HTTP/Types/Status.dyn_o ) [4 of 7] Compiling Network.HTTP.Types.URI ( Network/HTTP/Types/URI.hs, dist/build/Network/HTTP/Types/URI.o, dist/build/Network/HTTP/Types/URI.dyn_o ) [5 of 7] Compiling Network.HTTP.Types.QueryLike ( Network/HTTP/Types/QueryLike.hs, dist/build/Network/HTTP/Types/QueryLike.o, dist/build/Network/HTTP/Types/QueryLike.dyn_o ) [6 of 7] Compiling Network.HTTP.Types.Version ( Network/HTTP/Types/Version.hs, dist/build/Network/HTTP/Types/Version.o, dist/build/Network/HTTP/Types/Version.dyn_o ) [7 of 7] Compiling Network.HTTP.Types ( Network/HTTP/Types.hs, dist/build/Network/HTTP/Types.o, dist/build/Network/HTTP/Types.dyn_o ) Preprocessing library for http-types-0.12.4.. Running Haddock on library for http-types-0.12.4.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 7] Compiling Network.HTTP.Types.Header ( Network/HTTP/Types/Header.hs, nothing ) [2 of 7] Compiling Network.HTTP.Types.Method ( Network/HTTP/Types/Method.hs, nothing ) [3 of 7] Compiling Network.HTTP.Types.Status ( Network/HTTP/Types/Status.hs, nothing ) [4 of 7] Compiling Network.HTTP.Types.URI ( Network/HTTP/Types/URI.hs, nothing ) [5 of 7] Compiling Network.HTTP.Types.QueryLike ( Network/HTTP/Types/QueryLike.hs, nothing ) [6 of 7] Compiling Network.HTTP.Types.Version ( Network/HTTP/Types/Version.hs, nothing ) [7 of 7] Compiling Network.HTTP.Types ( Network/HTTP/Types.hs, nothing ) Haddock coverage: 100% ( 71 / 71) in 'Network.HTTP.Types.Header' Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 19 / 19) in 'Network.HTTP.Types.Method' Warning: 'Status' is ambiguous. It is defined * at Network/HTTP/Types/Status.hs:140:15 * at Network/HTTP/Types/Status.hs:140:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Network/HTTP/Types/Status.hs:140:1 98% (107 /109) in 'Network.HTTP.Types.Status' Missing documentation for: statusCode statusMessage Warning: 'Builder' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 42 / 42) in 'Network.HTTP.Types.URI' 100% ( 4 / 4) in 'Network.HTTP.Types.QueryLike' 100% ( 6 / 6) in 'Network.HTTP.Types.Version' 99% (207 /208) in 'Network.HTTP.Types' Missing documentation for: Module header Warning: Network.HTTP.Types.Header: could not find link destinations for: - Network.HTTP.Types.Header.Rep_ByteRange Warning: Network.HTTP.Types.Method: could not find link destinations for: - Network.HTTP.Types.Method.Rep_StdMethod Warning: Network.HTTP.Types.Status: could not find link destinations for: - Network.HTTP.Types.Status.Rep_Status Warning: Network.HTTP.Types.Version: could not find link destinations for: - Network.HTTP.Types.Version.Rep_HttpVersion Warning: Network.HTTP.Types: could not find link destinations for: - Network.HTTP.Types.Header.Rep_ByteRange - Network.HTTP.Types.Method.Rep_StdMethod - Network.HTTP.Types.Status.Rep_Status - Network.HTTP.Types.Version.Rep_HttpVersion Documentation created: dist/doc/html/http-types/, dist/doc/html/http-types/http-types.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/http-types-0.12.4-DtPHYKkWy3CLc5cwGZx5co Completed http-types-0.12.4 Configuring unliftio-0.2.25.1... Preprocessing library for unliftio-0.2.25.1.. Building library for unliftio-0.2.25.1.. [ 1 of 23] Compiling Paths_unliftio ( dist/build/autogen/Paths_unliftio.hs, dist/build/Paths_unliftio.o, dist/build/Paths_unliftio.dyn_o ) [ 2 of 23] Compiling UnliftIO.Chan ( src/UnliftIO/Chan.hs, dist/build/UnliftIO/Chan.o, dist/build/UnliftIO/Chan.dyn_o ) [ 3 of 23] Compiling UnliftIO.Directory ( src/UnliftIO/Directory.hs, dist/build/UnliftIO/Directory.o, dist/build/UnliftIO/Directory.dyn_o ) [ 4 of 23] Compiling UnliftIO.Environment ( src/UnliftIO/Environment.hs, dist/build/UnliftIO/Environment.o, dist/build/UnliftIO/Environment.dyn_o ) [ 5 of 23] Compiling UnliftIO.Exception ( src/UnliftIO/Exception.hs, dist/build/UnliftIO/Exception.o, dist/build/UnliftIO/Exception.dyn_o ) [ 6 of 23] Compiling UnliftIO.Exception.Lens ( src/UnliftIO/Exception/Lens.hs, dist/build/UnliftIO/Exception/Lens.o, dist/build/UnliftIO/Exception/Lens.dyn_o ) [ 7 of 23] Compiling UnliftIO.Foreign ( src/UnliftIO/Foreign.hs, dist/build/UnliftIO/Foreign.o, dist/build/UnliftIO/Foreign.dyn_o ) [ 8 of 23] Compiling UnliftIO.IO ( src/UnliftIO/IO.hs, dist/build/UnliftIO/IO.o, dist/build/UnliftIO/IO.dyn_o ) [ 9 of 23] Compiling UnliftIO.IORef ( src/UnliftIO/IORef.hs, dist/build/UnliftIO/IORef.o, dist/build/UnliftIO/IORef.dyn_o ) [10 of 23] Compiling UnliftIO.Internals.Async ( src/UnliftIO/Internals/Async.hs, dist/build/UnliftIO/Internals/Async.o, dist/build/UnliftIO/Internals/Async.dyn_o ) [11 of 23] Compiling UnliftIO.Async ( src/UnliftIO/Async.hs, dist/build/UnliftIO/Async.o, dist/build/UnliftIO/Async.dyn_o ) [12 of 23] Compiling UnliftIO.MVar ( src/UnliftIO/MVar.hs, dist/build/UnliftIO/MVar.o, dist/build/UnliftIO/MVar.dyn_o ) [13 of 23] Compiling UnliftIO.IO.File.Posix ( src/UnliftIO/IO/File/Posix.hs, dist/build/UnliftIO/IO/File/Posix.o, dist/build/UnliftIO/IO/File/Posix.dyn_o ) [14 of 23] Compiling UnliftIO.IO.File ( src/UnliftIO/IO/File.hs, dist/build/UnliftIO/IO/File.o, dist/build/UnliftIO/IO/File.dyn_o ) [15 of 23] Compiling UnliftIO.Concurrent ( src/UnliftIO/Concurrent.hs, dist/build/UnliftIO/Concurrent.o, dist/build/UnliftIO/Concurrent.dyn_o ) [16 of 23] Compiling UnliftIO.Memoize ( src/UnliftIO/Memoize.hs, dist/build/UnliftIO/Memoize.o, dist/build/UnliftIO/Memoize.dyn_o ) [17 of 23] Compiling UnliftIO.Process ( src/UnliftIO/Process.hs, dist/build/UnliftIO/Process.o, dist/build/UnliftIO/Process.dyn_o ) [18 of 23] Compiling UnliftIO.QSem ( src/UnliftIO/QSem.hs, dist/build/UnliftIO/QSem.o, dist/build/UnliftIO/QSem.dyn_o ) [19 of 23] Compiling UnliftIO.QSemN ( src/UnliftIO/QSemN.hs, dist/build/UnliftIO/QSemN.o, dist/build/UnliftIO/QSemN.dyn_o ) [20 of 23] Compiling UnliftIO.STM ( src/UnliftIO/STM.hs, dist/build/UnliftIO/STM.o, dist/build/UnliftIO/STM.dyn_o ) [21 of 23] Compiling UnliftIO.Temporary ( src/UnliftIO/Temporary.hs, dist/build/UnliftIO/Temporary.o, dist/build/UnliftIO/Temporary.dyn_o ) [22 of 23] Compiling UnliftIO.Timeout ( src/UnliftIO/Timeout.hs, dist/build/UnliftIO/Timeout.o, dist/build/UnliftIO/Timeout.dyn_o ) [23 of 23] Compiling UnliftIO ( src/UnliftIO.hs, dist/build/UnliftIO.o, dist/build/UnliftIO.dyn_o ) Preprocessing library for unliftio-0.2.25.1.. Running Haddock on library for unliftio-0.2.25.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 23] Compiling Paths_unliftio ( dist/build/autogen/Paths_unliftio.hs, nothing ) [ 2 of 23] Compiling UnliftIO.Chan ( src/UnliftIO/Chan.hs, nothing ) [ 3 of 23] Compiling UnliftIO.Directory ( src/UnliftIO/Directory.hs, nothing ) [ 4 of 23] Compiling UnliftIO.Environment ( src/UnliftIO/Environment.hs, nothing ) [ 5 of 23] Compiling UnliftIO.Exception ( src/UnliftIO/Exception.hs, nothing ) [ 6 of 23] Compiling UnliftIO.Exception.Lens ( src/UnliftIO/Exception/Lens.hs, nothing ) [ 7 of 23] Compiling UnliftIO.Foreign ( src/UnliftIO/Foreign.hs, nothing ) [ 8 of 23] Compiling UnliftIO.IO ( src/UnliftIO/IO.hs, nothing ) [ 9 of 23] Compiling UnliftIO.IORef ( src/UnliftIO/IORef.hs, nothing ) [10 of 23] Compiling UnliftIO.Internals.Async ( src/UnliftIO/Internals/Async.hs, nothing ) [11 of 23] Compiling UnliftIO.Async ( src/UnliftIO/Async.hs, nothing ) [12 of 23] Compiling UnliftIO.MVar ( src/UnliftIO/MVar.hs, nothing ) [13 of 23] Compiling UnliftIO.IO.File.Posix ( src/UnliftIO/IO/File/Posix.hs, nothing ) [14 of 23] Compiling UnliftIO.IO.File ( src/UnliftIO/IO/File.hs, nothing ) [15 of 23] Compiling UnliftIO.Concurrent ( src/UnliftIO/Concurrent.hs, nothing ) [16 of 23] Compiling UnliftIO.Memoize ( src/UnliftIO/Memoize.hs, nothing ) [17 of 23] Compiling UnliftIO.Process ( src/UnliftIO/Process.hs, nothing ) [18 of 23] Compiling UnliftIO.QSem ( src/UnliftIO/QSem.hs, nothing ) [19 of 23] Compiling UnliftIO.QSemN ( src/UnliftIO/QSemN.hs, nothing ) [20 of 23] Compiling UnliftIO.STM ( src/UnliftIO/STM.hs, nothing ) [21 of 23] Compiling UnliftIO.Temporary ( src/UnliftIO/Temporary.hs, nothing ) [22 of 23] Compiling UnliftIO.Timeout ( src/UnliftIO/Timeout.hs, nothing ) [23 of 23] Compiling UnliftIO ( src/UnliftIO.hs, nothing ) Haddock coverage: 100% ( 8 / 8) in 'UnliftIO.Chan' 85% ( 60 / 70) in 'UnliftIO.Directory' Missing documentation for: Permissions emptyPermissions readable writable executable searchable setOwnerReadable setOwnerWritable setOwnerExecutable setOwnerSearchable 100% ( 11 / 11) in 'UnliftIO.Environment' Warning: 'SyncExceptionWrapper' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'AsyncExceptionWrapper' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'StringException' is ambiguous. It is defined * at src/UnliftIO/Exception.hs:571:24 * at src/UnliftIO/Exception.hs:571:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/UnliftIO/Exception.hs:571:1 Warning: 'm' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 75 / 75) in 'UnliftIO.Exception' Warning: 'MonadCatch' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 7 / 7) in 'UnliftIO.Exception.Lens' 64% (181 /282) in 'UnliftIO.Foreign' Missing documentation for: charIsRepresentable eOK e2BIG eACCES eADDRINUSE eADDRNOTAVAIL eADV eAFNOSUPPORT eAGAIN eALREADY eBADF eBADMSG eBADRPC eBUSY eCHILD eCOMM eCONNABORTED eCONNREFUSED eCONNRESET eDEADLK eDESTADDRREQ eDIRTY eDOM eDQUOT eEXIST eFAULT eFBIG eFTYPE eHOSTDOWN eHOSTUNREACH eIDRM eILSEQ eINPROGRESS eINTR eINVAL eIO eISCONN eISDIR eLOOP eMFILE eMLINK eMSGSIZE eMULTIHOP eNAMETOOLONG eNETDOWN eNETRESET eNETUNREACH eNFILE eNOBUFS eNODATA eNODEV eNOENT eNOEXEC eNOLCK eNOLINK eNOMEM eNOMSG eNONET eNOPROTOOPT eNOSPC eNOSR eNOSTR eNOSYS eNOTBLK eNOTCONN eNOTDIR eNOTEMPTY eNOTSOCK eNOTTY eNXIO eOPNOTSUPP ePERM ePFNOSUPPORT ePIPE ePROCLIM ePROCUNAVAIL ePROGMISMATCH ePROGUNAVAIL ePROTO ePROTONOSUPPORT ePROTOTYPE eRANGE eREMCHG eREMOTE eROFS eRPCMISMATCH eRREMOTE eSHUTDOWN eSOCKTNOSUPPORT eSPIPE eSRCH eSRMNT eSTALE eTIME eTIMEDOUT eTOOMANYREFS eTXTBSY eUSERS eWOULDBLOCK eXDEV FinalizerEnvPtr 90% ( 28 / 31) in 'UnliftIO.IO' Missing documentation for: stdin stdout stderr 100% ( 11 / 11) in 'UnliftIO.IORef' Warning: 'Concurrently' is ambiguous. It is defined * at src/UnliftIO/Internals/Async.hs:255:28 * at src/UnliftIO/Internals/Async.hs:255:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/UnliftIO/Internals/Async.hs:255:1 85% ( 65 / 76) in 'UnliftIO.Internals.Async' Missing documentation for: Module header dlistConcat (src/UnliftIO/Internals/Async.hs:590) dlistCons (src/UnliftIO/Internals/Async.hs:594) dlistConcatAll (src/UnliftIO/Internals/Async.hs:598) dlistToList (src/UnliftIO/Internals/Async.hs:602) dlistSingleton (src/UnliftIO/Internals/Async.hs:606) dlistEmpty (src/UnliftIO/Internals/Async.hs:610) pooledMapConcurrentlyIO (src/UnliftIO/Internals/Async.hs:940) pooledMapConcurrentlyIO' (src/UnliftIO/Internals/Async.hs:973) pooledMapConcurrentlyIO_' (src/UnliftIO/Internals/Async.hs:987) pooledMapConcurrentlyIO_ (src/UnliftIO/Internals/Async.hs:992) 100% ( 79 / 79) in 'UnliftIO.Async' 100% ( 19 / 19) in 'UnliftIO.MVar' Warning: 'Fd' is ambiguous. It is defined * in System.Posix.Types * in System.Posix.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in System.Posix.Types Warning: 'DirFd' is ambiguous. It is defined * at src/UnliftIO/IO/File/Posix.hs:131:17 * at src/UnliftIO/IO/File/Posix.hs:131:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/UnliftIO/IO/File/Posix.hs:131:1 100% ( 10 / 10) in 'UnliftIO.IO.File' 100% ( 34 / 34) in 'UnliftIO.Concurrent' Warning: 'Memoized' is ambiguous. It is defined * at src/UnliftIO/Memoize.hs:33:22 * at src/UnliftIO/Memoize.hs:33:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/UnliftIO/Memoize.hs:33:1 100% ( 5 / 5) in 'UnliftIO.Memoize' 90% ( 27 / 30) in 'UnliftIO.Process' Missing documentation for: CreateProcess CmdSpec StdStream 100% ( 6 / 6) in 'UnliftIO.QSem' 100% ( 6 / 6) in 'UnliftIO.QSemN' 100% ( 76 / 76) in 'UnliftIO.STM' 100% ( 5 / 5) in 'UnliftIO.Temporary' 100% ( 2 / 2) in 'UnliftIO.Timeout' 100% ( 14 / 14) in 'UnliftIO' Warning: UnliftIO.Exception: could not find link destinations for: - GHC.IOPort.IOPortException Warning: UnliftIO.Exception.Lens: could not find link destinations for: - UnliftIO.Exception.Lens.Getting Warning: UnliftIO.Foreign: could not find link destinations for: - GHC.Generics.D:R:UReckPtrp0 - GHC.Generics.Rep_R:UReckPtrp - GHC.Generics.Rep1_R:UReckPtrp - System.Posix.Files.Common.CTimeSpec - System.Posix.Files.Common.CTimeVal Warning: UnliftIO.Internals.Async: could not find link destinations for: - UnliftIO.Internals.Async.Rep_ConcException Warning: UnliftIO.Async: could not find link destinations for: - UnliftIO.Internals.Async.Rep_ConcException Warning: UnliftIO.Temporary: could not find link destinations for: - UnliftIO.Temporary.getCanonicalTemporaryDirectory Documentation created: dist/doc/html/unliftio/, dist/doc/html/unliftio/unliftio.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/unliftio-0.2.25.1-6Y2v4j3V3MUH5MYSj85STp Completed unliftio-0.2.25.1 Configuring typed-process-0.2.13.0... Preprocessing library for typed-process-0.2.13.0.. Building library for typed-process-0.2.13.0.. [1 of 3] Compiling Paths_typed_process ( dist/build/autogen/Paths_typed_process.hs, dist/build/Paths_typed_process.o, dist/build/Paths_typed_process.dyn_o ) [2 of 3] Compiling System.Process.Typed.Internal ( src/System/Process/Typed/Internal.hs, dist/build/System/Process/Typed/Internal.o, dist/build/System/Process/Typed/Internal.dyn_o ) [3 of 3] Compiling System.Process.Typed ( src/System/Process/Typed.hs, dist/build/System/Process/Typed.o, dist/build/System/Process/Typed.dyn_o ) Preprocessing library for typed-process-0.2.13.0.. Running Haddock on library for typed-process-0.2.13.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Paths_typed_process ( dist/build/autogen/Paths_typed_process.hs, nothing ) [2 of 3] Compiling System.Process.Typed.Internal ( src/System/Process/Typed/Internal.hs, nothing ) [3 of 3] Compiling System.Process.Typed ( src/System/Process/Typed.hs, nothing ) Haddock coverage: Warning: 'ExitCodeException' is ambiguous. It is defined * at src/System/Process/Typed/Internal.hs:607:26 * at src/System/Process/Typed/Internal.hs:607:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Process/Typed/Internal.hs:607:1 Warning: 'StreamSpec' is ambiguous. It is defined * at src/System/Process/Typed/Internal.hs:147:48 * at src/System/Process/Typed/Internal.hs:147:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Process/Typed/Internal.hs:147:1 Warning: 'Process' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ProcessConfig' is ambiguous. It is defined * at src/System/Process/Typed/Internal.hs:70:42 * at src/System/Process/Typed/Internal.hs:70:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Process/Typed/Internal.hs:70:1 Warning: 'stopProcess' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ByteStringOutputException' is ambiguous. It is defined * at src/System/Process/Typed/Internal.hs:639:34 * at src/System/Process/Typed/Internal.hs:639:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Process/Typed/Internal.hs:639:1 Warning: 'withProcessInterleave' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 95% ( 42 / 44) in 'System.Process.Typed.Internal' Missing documentation for: bracket (src/System/Process/Typed/Internal.hs:644) finally (src/System/Process/Typed/Internal.hs:647) Warning: 'ProcessConfig' is ambiguous. It is defined * at src/System/Process/Typed/Internal.hs:70:42 * at src/System/Process/Typed/Internal.hs:70:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Process/Typed/Internal.hs:70:1 Warning: 'ExitCodeException' is ambiguous. It is defined * at src/System/Process/Typed/Internal.hs:607:26 * at src/System/Process/Typed/Internal.hs:607:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Process/Typed/Internal.hs:607:1 Warning: 'Process' is ambiguous. It is defined * at src/System/Process/Typed.hs:167:36 * at src/System/Process/Typed.hs:167:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/System/Process/Typed.hs:167:1 98% ( 91 / 92) in 'System.Process.Typed' Missing documentation for: StdStream Warning: System.Process.Typed: could not find link destinations for: - GHC.IO.Exception.Rep_ExitCode Documentation created: dist/doc/html/typed-process/, dist/doc/html/typed-process/typed-process.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/typed-process-0.2.13.0-9A9XYtsEOjBEe0NYl0oK4V Completed typed-process-0.2.13.0 Configuring streaming-commons-0.2.3.1... Preprocessing library for streaming-commons-0.2.3.1.. Building library for streaming-commons-0.2.3.1.. [ 1 of 11] Compiling Data.Streaming.ByteString.Builder.Buffer ( Data/Streaming/ByteString/Builder/Buffer.hs, dist/build/Data/Streaming/ByteString/Builder/Buffer.o, dist/build/Data/Streaming/ByteString/Builder/Buffer.dyn_o ) [ 2 of 11] Compiling Data.Streaming.ByteString.Builder ( Data/Streaming/ByteString/Builder.hs, dist/build/Data/Streaming/ByteString/Builder.o, dist/build/Data/Streaming/ByteString/Builder.dyn_o ) [ 3 of 11] Compiling Data.Streaming.FileRead ( Data/Streaming/FileRead.hs, dist/build/Data/Streaming/FileRead.o, dist/build/Data/Streaming/FileRead.dyn_o ) [ 4 of 11] Compiling Data.Streaming.Filesystem ( Data/Streaming/Filesystem.hs, dist/build/Data/Streaming/Filesystem.o, dist/build/Data/Streaming/Filesystem.dyn_o ) [ 5 of 11] Compiling Data.Streaming.Network.Internal ( Data/Streaming/Network/Internal.hs, dist/build/Data/Streaming/Network/Internal.o, dist/build/Data/Streaming/Network/Internal.dyn_o ) [ 6 of 11] Compiling Data.Streaming.Network ( Data/Streaming/Network.hs, dist/build/Data/Streaming/Network.o, dist/build/Data/Streaming/Network.dyn_o ) [ 7 of 11] Compiling Data.Streaming.Process.Internal ( Data/Streaming/Process/Internal.hs, dist/build/Data/Streaming/Process/Internal.o, dist/build/Data/Streaming/Process/Internal.dyn_o ) [ 8 of 11] Compiling Data.Streaming.Process ( Data/Streaming/Process.hs, dist/build/Data/Streaming/Process.o, dist/build/Data/Streaming/Process.dyn_o ) [ 9 of 11] Compiling Data.Streaming.Text ( Data/Streaming/Text.hs, dist/build/Data/Streaming/Text.o, dist/build/Data/Streaming/Text.dyn_o ) [10 of 11] Compiling Data.Streaming.Zlib.Lowlevel ( Data/Streaming/Zlib/Lowlevel.hs, dist/build/Data/Streaming/Zlib/Lowlevel.o, dist/build/Data/Streaming/Zlib/Lowlevel.dyn_o ) Data/Streaming/Zlib/Lowlevel.hs:105:1: warning: [GHC-53633] [-Woverlapping-patterns] Pattern match is redundant In an equation for wbToInt: wbToInt _ = ... | 105 | wbToInt _ = 15 | ^^^^^^^^^^^^^^ [11 of 11] Compiling Data.Streaming.Zlib ( Data/Streaming/Zlib.hs, dist/build/Data/Streaming/Zlib.o, dist/build/Data/Streaming/Zlib.dyn_o ) Preprocessing library for streaming-commons-0.2.3.1.. Running Haddock on library for streaming-commons-0.2.3.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 11] Compiling Data.Streaming.ByteString.Builder.Buffer ( Data/Streaming/ByteString/Builder/Buffer.hs, nothing ) [ 2 of 11] Compiling Data.Streaming.ByteString.Builder ( Data/Streaming/ByteString/Builder.hs, nothing ) [ 3 of 11] Compiling Data.Streaming.FileRead ( Data/Streaming/FileRead.hs, nothing ) [ 4 of 11] Compiling Data.Streaming.Filesystem ( Data/Streaming/Filesystem.hs, nothing ) [ 5 of 11] Compiling Data.Streaming.Network.Internal ( Data/Streaming/Network/Internal.hs, nothing ) [ 6 of 11] Compiling Data.Streaming.Network ( Data/Streaming/Network.hs, nothing ) [ 7 of 11] Compiling Data.Streaming.Process.Internal ( Data/Streaming/Process/Internal.hs, nothing ) [ 8 of 11] Compiling Data.Streaming.Process ( Data/Streaming/Process.hs, nothing ) [ 9 of 11] Compiling Data.Streaming.Text ( Data/Streaming/Text.hs, nothing ) [10 of 11] Compiling Data.Streaming.Zlib.Lowlevel ( Data/Streaming/Zlib/Lowlevel.hs, nothing ) [11 of 11] Compiling Data.Streaming.Zlib ( Data/Streaming/Zlib.hs, nothing ) Haddock coverage: Warning: 'Builder' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 95% ( 19 / 20) in 'Data.Streaming.ByteString.Builder.Buffer' Missing documentation for: defaultStrategy (Data/Streaming/ByteString/Builder/Buffer.hs:199) Warning: 'toLazyByteStringWith' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 82% ( 23 / 28) in 'Data.Streaming.ByteString.Builder' Missing documentation for: BuilderRecv (Data/Streaming/ByteString/Builder.hs:75) BuilderFinish (Data/Streaming/ByteString/Builder.hs:77) newBuilderRecv (Data/Streaming/ByteString/Builder.hs:80) newByteStringBuilderRecv (Data/Streaming/ByteString/Builder.hs:84) defaultStrategy (Data/Streaming/ByteString/Builder/Buffer.hs:199) 20% ( 1 / 5) in 'Data.Streaming.FileRead' Missing documentation for: ReadHandle (Data/Streaming/FileRead.hs:26) openFile (Data/Streaming/FileRead.hs:29) closeFile (Data/Streaming/FileRead.hs:32) readChunk (Data/Streaming/FileRead.hs:35) 42% ( 3 / 7) in 'Data.Streaming.Filesystem' Missing documentation for: DirStream readDirStream (Data/Streaming/Filesystem.hs:67) FileType (Data/Streaming/Filesystem.hs:94) getFileType (Data/Streaming/Filesystem.hs:76) 88% ( 8 / 9) in 'Data.Streaming.Network.Internal' Missing documentation for: Module header Warning: 'maxListenQueue' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 68% ( 52 / 76) in 'Data.Streaming.Network' Missing documentation for: Module header message (Data/Streaming/Network.hs:453) HasPort (Data/Streaming/Network.hs:455) HasAfterBind (Data/Streaming/Network.hs:505) HasReadWrite (Data/Streaming/Network.hs:619) HasPath (Data/Streaming/Network.hs:486) setPort (Data/Streaming/Network.hs:466) setHost (Data/Streaming/Network.hs:469) setAfterBind (Data/Streaming/Network.hs:516) setNeedLocalAddr (Data/Streaming/Network.hs:500) setPath (Data/Streaming/Network.hs:497) getPort (Data/Streaming/Network.hs:463) getHost (Data/Streaming/Network.hs:472) getAfterBind (Data/Streaming/Network.hs:513) getNeedLocalAddr (Data/Streaming/Network.hs:503) getPath (Data/Streaming/Network.hs:494) appRead (Data/Streaming/Network.hs:630) appWrite (Data/Streaming/Network.hs:633) appSockAddr (Data/Streaming/Network.hs:604) appLocalAddr (Data/Streaming/Network.hs:601) unassignedPorts (Data/Streaming/Network.hs:213) safeRecv (Data/Streaming/Network.hs:319) ConnectionHandle (Data/Streaming/Network.hs:546) runTCPServerWithHandle (Data/Streaming/Network.hs:549) 75% ( 3 / 4) in 'Data.Streaming.Process.Internal' Missing documentation for: Module header Warning: 'UseProvidedHandle' is ambiguous. It is defined * at Data/Streaming/Process.hs:73:26 * at Data/Streaming/Process.hs:73:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Streaming/Process.hs:73:1 Warning: 'ProcessExitedUnsuccessfully' is ambiguous. It is defined * at Data/Streaming/Process.hs:196:36 * at Data/Streaming/Process.hs:196:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Streaming/Process.hs:196:1 100% ( 24 / 24) in 'Data.Streaming.Process' 90% ( 9 / 10) in 'Data.Streaming.Text' Missing documentation for: DecodeResult (Data/Streaming/Text.hs:91) 0% ( 0 / 21) in 'Data.Streaming.Zlib.Lowlevel' Missing documentation for: Module header ZStreamStruct (Data/Streaming/Zlib/Lowlevel.hs:31) ZStream' (Data/Streaming/Zlib/Lowlevel.hs:32) zstreamNew (Data/Streaming/Zlib/Lowlevel.hs:42) Strategy (Data/Streaming/Zlib/Lowlevel.hs:34) deflateInit2 (Data/Streaming/Zlib/Lowlevel.hs:50) inflateInit2 (Data/Streaming/Zlib/Lowlevel.hs:59) c_free_z_stream_inflate (Data/Streaming/Zlib/Lowlevel.hs:61) c_free_z_stream_deflate (Data/Streaming/Zlib/Lowlevel.hs:64) c_set_avail_in (Data/Streaming/Zlib/Lowlevel.hs:67) c_set_avail_out (Data/Streaming/Zlib/Lowlevel.hs:70) c_get_avail_out (Data/Streaming/Zlib/Lowlevel.hs:73) c_get_avail_in (Data/Streaming/Zlib/Lowlevel.hs:76) c_get_next_in (Data/Streaming/Zlib/Lowlevel.hs:79) c_call_inflate_noflush (Data/Streaming/Zlib/Lowlevel.hs:82) c_call_deflate_noflush (Data/Streaming/Zlib/Lowlevel.hs:85) c_call_deflate_finish (Data/Streaming/Zlib/Lowlevel.hs:88) c_call_deflate_flush (Data/Streaming/Zlib/Lowlevel.hs:91) c_call_deflate_full_flush (Data/Streaming/Zlib/Lowlevel.hs:94) c_call_deflate_set_dictionary (Data/Streaming/Zlib/Lowlevel.hs:97) c_call_inflate_set_dictionary (Data/Streaming/Zlib/Lowlevel.hs:100) Warning: 'WindowBits' is ambiguous. It is defined * in Codec.Compression.Zlib.Stream * in Codec.Compression.Zlib.Stream You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Codec.Compression.Zlib.Stream Warning: 'Inflate' is ambiguous. It is defined * at Data/Streaming/Zlib.hs:64:16 * at Data/Streaming/Zlib.hs:64:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Streaming/Zlib.hs:64:1 Warning: 'Deflate' is ambiguous. It is defined * at Data/Streaming/Zlib.hs:72:19 * at Data/Streaming/Zlib.hs:72:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Streaming/Zlib.hs:72:1 95% ( 23 / 24) in 'Data.Streaming.Zlib' Missing documentation for: PopperRes (Data/Streaming/Zlib.hs:218) Warning: Data.Streaming.Zlib: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_WindowBits Documentation created: dist/doc/html/streaming-commons/, dist/doc/html/streaming-commons/streaming-commons.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/streaming-commons-0.2.3.1-24OpMaheYh8GczZhL2Py4J Completed streaming-commons-0.2.3.1 Configuring quickcheck-io-0.2.0... Preprocessing library for quickcheck-io-0.2.0.. Building library for quickcheck-io-0.2.0.. [1 of 2] Compiling Paths_quickcheck_io ( dist/build/autogen/Paths_quickcheck_io.hs, dist/build/Paths_quickcheck_io.o, dist/build/Paths_quickcheck_io.dyn_o ) [2 of 2] Compiling Test.QuickCheck.IO ( src/Test/QuickCheck/IO.hs, dist/build/Test/QuickCheck/IO.o, dist/build/Test/QuickCheck/IO.dyn_o ) Preprocessing library for quickcheck-io-0.2.0.. Running Haddock on library for quickcheck-io-0.2.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 2] Compiling Paths_quickcheck_io ( dist/build/autogen/Paths_quickcheck_io.hs, nothing ) [2 of 2] Compiling Test.QuickCheck.IO ( src/Test/QuickCheck/IO.hs, nothing ) Haddock coverage: 0% ( 0 / 2) in 'Test.QuickCheck.IO' Missing documentation for: Module header propertyIO (src/Test/QuickCheck/IO.hs:18) Documentation created: dist/doc/html/quickcheck-io/, dist/doc/html/quickcheck-io/quickcheck-io.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/quickcheck-io-0.2.0-BcLLiI5bdZdIMQGhzPZTi3 Completed quickcheck-io-0.2.0 Configuring bifunctors-5.6.2... Preprocessing library for bifunctors-5.6.2.. Building library for bifunctors-5.6.2.. [ 1 of 15] Compiling Data.Biapplicative ( src/Data/Biapplicative.hs, dist/build/Data/Biapplicative.o, dist/build/Data/Biapplicative.dyn_o ) [ 2 of 15] Compiling Data.Bifunctor.Biap ( src/Data/Bifunctor/Biap.hs, dist/build/Data/Bifunctor/Biap.o, dist/build/Data/Bifunctor/Biap.dyn_o ) [ 3 of 15] Compiling Data.Bifunctor.Biff ( src/Data/Bifunctor/Biff.hs, dist/build/Data/Bifunctor/Biff.o, dist/build/Data/Bifunctor/Biff.dyn_o ) [ 4 of 15] Compiling Data.Bifunctor.Clown ( src/Data/Bifunctor/Clown.hs, dist/build/Data/Bifunctor/Clown.o, dist/build/Data/Bifunctor/Clown.dyn_o ) [ 5 of 15] Compiling Data.Bifunctor.Fix ( src/Data/Bifunctor/Fix.hs, dist/build/Data/Bifunctor/Fix.o, dist/build/Data/Bifunctor/Fix.dyn_o ) [ 6 of 15] Compiling Data.Bifunctor.Functor ( src/Data/Bifunctor/Functor.hs, dist/build/Data/Bifunctor/Functor.o, dist/build/Data/Bifunctor/Functor.dyn_o ) [ 7 of 15] Compiling Data.Bifunctor.Flip ( src/Data/Bifunctor/Flip.hs, dist/build/Data/Bifunctor/Flip.o, dist/build/Data/Bifunctor/Flip.dyn_o ) [ 8 of 15] Compiling Data.Bifunctor.Join ( src/Data/Bifunctor/Join.hs, dist/build/Data/Bifunctor/Join.o, dist/build/Data/Bifunctor/Join.dyn_o ) [ 9 of 15] Compiling Data.Bifunctor.Joker ( src/Data/Bifunctor/Joker.hs, dist/build/Data/Bifunctor/Joker.o, dist/build/Data/Bifunctor/Joker.dyn_o ) [10 of 15] Compiling Data.Bifunctor.Product ( src/Data/Bifunctor/Product.hs, dist/build/Data/Bifunctor/Product.o, dist/build/Data/Bifunctor/Product.dyn_o ) [11 of 15] Compiling Data.Bifunctor.Sum ( src/Data/Bifunctor/Sum.hs, dist/build/Data/Bifunctor/Sum.o, dist/build/Data/Bifunctor/Sum.dyn_o ) [12 of 15] Compiling Data.Bifunctor.TH.Internal ( src/Data/Bifunctor/TH/Internal.hs, dist/build/Data/Bifunctor/TH/Internal.o, dist/build/Data/Bifunctor/TH/Internal.dyn_o ) [13 of 15] Compiling Data.Bifunctor.TH ( src/Data/Bifunctor/TH.hs, dist/build/Data/Bifunctor/TH.o, dist/build/Data/Bifunctor/TH.dyn_o ) [14 of 15] Compiling Data.Bifunctor.Tannen ( src/Data/Bifunctor/Tannen.hs, dist/build/Data/Bifunctor/Tannen.o, dist/build/Data/Bifunctor/Tannen.dyn_o ) [15 of 15] Compiling Data.Bifunctor.Wrapped ( src/Data/Bifunctor/Wrapped.hs, dist/build/Data/Bifunctor/Wrapped.o, dist/build/Data/Bifunctor/Wrapped.dyn_o ) Preprocessing library for bifunctors-5.6.2.. Running Haddock on library for bifunctors-5.6.2.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 15] Compiling Data.Biapplicative ( src/Data/Biapplicative.hs, nothing ) [ 2 of 15] Compiling Data.Bifunctor.Biap ( src/Data/Bifunctor/Biap.hs, nothing ) [ 3 of 15] Compiling Data.Bifunctor.Biff ( src/Data/Bifunctor/Biff.hs, nothing ) [ 4 of 15] Compiling Data.Bifunctor.Clown ( src/Data/Bifunctor/Clown.hs, nothing ) [ 5 of 15] Compiling Data.Bifunctor.Fix ( src/Data/Bifunctor/Fix.hs, nothing ) [ 6 of 15] Compiling Data.Bifunctor.Functor ( src/Data/Bifunctor/Functor.hs, nothing ) [ 7 of 15] Compiling Data.Bifunctor.Flip ( src/Data/Bifunctor/Flip.hs, nothing ) [ 8 of 15] Compiling Data.Bifunctor.Join ( src/Data/Bifunctor/Join.hs, nothing ) [ 9 of 15] Compiling Data.Bifunctor.Joker ( src/Data/Bifunctor/Joker.hs, nothing ) [10 of 15] Compiling Data.Bifunctor.Product ( src/Data/Bifunctor/Product.hs, nothing ) [11 of 15] Compiling Data.Bifunctor.Sum ( src/Data/Bifunctor/Sum.hs, nothing ) [12 of 15] Compiling Data.Bifunctor.TH.Internal ( src/Data/Bifunctor/TH/Internal.hs, nothing ) [13 of 15] Compiling Data.Bifunctor.TH ( src/Data/Bifunctor/TH.hs, nothing ) [14 of 15] Compiling Data.Bifunctor.Tannen ( src/Data/Bifunctor/Tannen.hs, nothing ) [15 of 15] Compiling Data.Bifunctor.Wrapped ( src/Data/Bifunctor/Wrapped.hs, nothing ) Haddock coverage: 70% ( 7 / 10) in 'Data.Biapplicative' Missing documentation for: Biapplicative (src/Data/Biapplicative.hs:44) <<$>> (src/Data/Biapplicative.hs:41) <<**>> (src/Data/Biapplicative.hs:74) Warning: 'Biap' is ambiguous. It is defined * at src/Data/Bifunctor/Biap.hs:67:23 * at src/Data/Bifunctor/Biap.hs:67:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Bifunctor/Biap.hs:67:1 100% ( 2 / 2) in 'Data.Bifunctor.Biap' 100% ( 2 / 2) in 'Data.Bifunctor.Biff' 100% ( 2 / 2) in 'Data.Bifunctor.Clown' 100% ( 2 / 2) in 'Data.Bifunctor.Fix' 14% ( 1 / 7) in 'Data.Bifunctor.Functor' Missing documentation for: Module header BifunctorFunctor (src/Data/Bifunctor/Functor.hs:19) BifunctorMonad (src/Data/Bifunctor/Functor.hs:22) biliftM (src/Data/Bifunctor/Functor.hs:31) BifunctorComonad (src/Data/Bifunctor/Functor.hs:34) biliftW (src/Data/Bifunctor/Functor.hs:43) 100% ( 2 / 2) in 'Data.Bifunctor.Flip' 100% ( 2 / 2) in 'Data.Bifunctor.Join' 100% ( 2 / 2) in 'Data.Bifunctor.Joker' 100% ( 2 / 2) in 'Data.Bifunctor.Product' 0% ( 0 / 2) in 'Data.Bifunctor.Sum' Missing documentation for: Module header Sum (src/Data/Bifunctor/Sum.hs:22) Warning: 'Name' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax Warning: 'Options' is ambiguous. It is defined * at src/Data/Bifunctor/TH.hs:77:19 * at src/Data/Bifunctor/TH.hs:77:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Bifunctor/TH.hs:77:1 Warning: 'bimap' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'bifoldMap' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'bifoldr' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'bifoldl' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'bitraverse' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'bisequenceA' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'makeBitraverseA' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'bimapM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'bisequence' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Name' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax 96% ( 32 / 33) in 'Data.Bifunctor.TH' Missing documentation for: makeBifold (src/Data/Bifunctor/TH.hs:217) 100% ( 2 / 2) in 'Data.Bifunctor.Tannen' 100% ( 2 / 2) in 'Data.Bifunctor.Wrapped' Warning: Data.Bifunctor.Biap: could not find link destinations for: - Data.Bifunctor.Biap.Rep_Biap - Data.Bifunctor.Biap.Rep1_Biap Warning: Data.Bifunctor.Biff: could not find link destinations for: - Data.Bifunctor.Biff.Rep1_Biff - Data.Bifunctor.Biff.Rep_Biff Warning: Data.Bifunctor.Clown: could not find link destinations for: - Data.Bifunctor.Clown.Rep_Clown - Data.Bifunctor.Clown.Rep1_Clown Warning: Data.Bifunctor.Fix: could not find link destinations for: - Data.Bifunctor.Fix.Rep_Fix Warning: Data.Bifunctor.Flip: could not find link destinations for: - Data.Bifunctor.Flip.Rep_Flip Warning: Data.Bifunctor.Join: could not find link destinations for: - Data.Bifunctor.Join.Rep_Join Warning: Data.Bifunctor.Joker: could not find link destinations for: - Data.Bifunctor.Joker.Rep_Joker - Data.Bifunctor.Joker.Rep1_Joker Warning: Data.Bifunctor.Product: could not find link destinations for: - Data.Bifunctor.Product.Rep_Product - Data.Bifunctor.Product.Rep1_Product Warning: Data.Bifunctor.Sum: could not find link destinations for: - Data.Bifunctor.Sum.Rep_Sum - Data.Bifunctor.Sum.Rep1_Sum Warning: Data.Bifunctor.TH: could not find link destinations for: - Data.Bifunctor.TH.Bifunctor - Data.Bifunctor.TH.Bifoldable - Data.Bifunctor.TH.Bitraversable Warning: Data.Bifunctor.Tannen: could not find link destinations for: - Data.Bifunctor.Tannen.Rep1_Tannen - Data.Bifunctor.Tannen.Rep_Tannen Warning: Data.Bifunctor.Wrapped: could not find link destinations for: - Data.Bifunctor.Wrapped.Rep_WrappedBifunctor - Data.Bifunctor.Wrapped.Rep1_WrappedBifunctor Documentation created: dist/doc/html/bifunctors/, dist/doc/html/bifunctors/bifunctors.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/bifunctors-5.6.2-GFSN9WtyvrIH3Py3OMWv09 Completed bifunctors-5.6.2 Configuring lifted-base-0.2.3.12... Preprocessing library for lifted-base-0.2.3.12.. Building library for lifted-base-0.2.3.12.. [1 of 9] Compiling Control.Concurrent.Chan.Lifted ( Control/Concurrent/Chan/Lifted.hs, dist/build/Control/Concurrent/Chan/Lifted.o, dist/build/Control/Concurrent/Chan/Lifted.dyn_o ) [2 of 9] Compiling Control.Concurrent.MVar.Lifted ( Control/Concurrent/MVar/Lifted.hs, dist/build/Control/Concurrent/MVar/Lifted.o, dist/build/Control/Concurrent/MVar/Lifted.dyn_o ) [3 of 9] Compiling Control.Concurrent.QSem.Lifted ( Control/Concurrent/QSem/Lifted.hs, dist/build/Control/Concurrent/QSem/Lifted.o, dist/build/Control/Concurrent/QSem/Lifted.dyn_o ) [4 of 9] Compiling Control.Concurrent.QSemN.Lifted ( Control/Concurrent/QSemN/Lifted.hs, dist/build/Control/Concurrent/QSemN/Lifted.o, dist/build/Control/Concurrent/QSemN/Lifted.dyn_o ) [5 of 9] Compiling Control.Exception.Lifted ( Control/Exception/Lifted.hs, dist/build/Control/Exception/Lifted.o, dist/build/Control/Exception/Lifted.dyn_o ) [6 of 9] Compiling Control.Concurrent.Lifted ( Control/Concurrent/Lifted.hs, dist/build/Control/Concurrent/Lifted.o, dist/build/Control/Concurrent/Lifted.dyn_o ) [7 of 9] Compiling Data.IORef.Lifted ( Data/IORef/Lifted.hs, dist/build/Data/IORef/Lifted.o, dist/build/Data/IORef/Lifted.dyn_o ) [8 of 9] Compiling Foreign.Marshal.Utils.Lifted ( Foreign/Marshal/Utils/Lifted.hs, dist/build/Foreign/Marshal/Utils/Lifted.o, dist/build/Foreign/Marshal/Utils/Lifted.dyn_o ) [9 of 9] Compiling System.Timeout.Lifted ( System/Timeout/Lifted.hs, dist/build/System/Timeout/Lifted.o, dist/build/System/Timeout/Lifted.dyn_o ) Preprocessing library for lifted-base-0.2.3.12.. Running Haddock on library for lifted-base-0.2.3.12.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 9] Compiling Control.Concurrent.Chan.Lifted ( Control/Concurrent/Chan/Lifted.hs, nothing ) [2 of 9] Compiling Control.Concurrent.MVar.Lifted ( Control/Concurrent/MVar/Lifted.hs, nothing ) [3 of 9] Compiling Control.Concurrent.QSem.Lifted ( Control/Concurrent/QSem/Lifted.hs, nothing ) [4 of 9] Compiling Control.Concurrent.QSemN.Lifted ( Control/Concurrent/QSemN/Lifted.hs, nothing ) [5 of 9] Compiling Control.Exception.Lifted ( Control/Exception/Lifted.hs, nothing ) [6 of 9] Compiling Control.Concurrent.Lifted ( Control/Concurrent/Lifted.hs, nothing ) [7 of 9] Compiling Data.IORef.Lifted ( Data/IORef/Lifted.hs, nothing ) [8 of 9] Compiling Foreign.Marshal.Utils.Lifted ( Foreign/Marshal/Utils/Lifted.hs, nothing ) [9 of 9] Compiling System.Timeout.Lifted ( System/Timeout/Lifted.hs, nothing ) Haddock coverage: 100% ( 8 / 8) in 'Control.Concurrent.Chan.Lifted' 100% ( 19 / 19) in 'Control.Concurrent.MVar.Lifted' 100% ( 5 / 5) in 'Control.Concurrent.QSem.Lifted' 100% ( 5 / 5) in 'Control.Concurrent.QSemN.Lifted' Warning: 'liftBaseOp' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 64 / 64) in 'Control.Exception.Lifted' 100% ( 36 / 36) in 'Control.Concurrent.Lifted' 100% ( 11 / 11) in 'Data.IORef.Lifted' Warning: 'MonadBase' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 2 / 2) in 'Foreign.Marshal.Utils.Lifted' 100% ( 2 / 2) in 'System.Timeout.Lifted' Warning: Control.Exception.Lifted: could not find link destinations for: - GHC.IOPort.IOPortException Documentation created: dist/doc/html/lifted-base/, dist/doc/html/lifted-base/lifted-base.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/lifted-base-0.2.3.12-iHp5K1HUqL4vslGQBQOkt Completed lifted-base-0.2.3.12 Configuring optparse-applicative-0.19.0.0... Preprocessing library for optparse-applicative-0.19.0.0.. Building library for optparse-applicative-0.19.0.0.. [ 1 of 17] Compiling Options.Applicative.Help.Levenshtein ( src/Options/Applicative/Help/Levenshtein.hs, dist/build/Options/Applicative/Help/Levenshtein.o, dist/build/Options/Applicative/Help/Levenshtein.dyn_o ) src/Options/Applicative/Help/Levenshtein.hs:24:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 24 | oneDiag a b (head uppers) (-1 : head lowers) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:24:39: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 24 | oneDiag a b (head uppers) (-1 : head lowers) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:40:53: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:40:62: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:48:27: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 48 | 1 + min3 (head w) nw (head n) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:48:39: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 48 | 1 + min3 (head w) nw (head n) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:50:35: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 50 | me : doDiag as bs me (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:50:44: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 50 | me : doDiag as bs me (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:52:24: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 52 | firstelt = 1 + head diagBelow | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:53:64: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 53 | thisdiag = firstelt : doDiag a' b' firstelt diagAbove (tail diagBelow) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:59:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 59 | nextDiag = head (tail diags) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:59:26: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 59 | nextDiag = head (tail diags) | ^^^^ [ 2 of 17] Compiling Options.Applicative.Help.Pretty ( src/Options/Applicative/Help/Pretty.hs, dist/build/Options/Applicative/Help/Pretty.o, dist/build/Options/Applicative/Help/Pretty.dyn_o ) [ 3 of 17] Compiling Options.Applicative.Help.Chunk ( src/Options/Applicative/Help/Chunk.hs, dist/build/Options/Applicative/Help/Chunk.o, dist/build/Options/Applicative/Help/Chunk.dyn_o ) [ 4 of 17] Compiling Options.Applicative.Help.Types ( src/Options/Applicative/Help/Types.hs, dist/build/Options/Applicative/Help/Types.o, dist/build/Options/Applicative/Help/Types.dyn_o ) [ 5 of 17] Compiling Options.Applicative.Types ( src/Options/Applicative/Types.hs, dist/build/Options/Applicative/Types.o, dist/build/Options/Applicative/Types.dyn_o ) src/Options/Applicative/Types.hs:59:31: warning: [GHC-61689] [-Wdodgy-imports] Module Data.Semigroup does not export Option. | 59 | import Data.Semigroup hiding (Option) | ^^^^^^ [ 6 of 17] Compiling Options.Applicative.NonEmpty ( src/Options/Applicative/NonEmpty.hs, dist/build/Options/Applicative/NonEmpty.o, dist/build/Options/Applicative/NonEmpty.dyn_o ) [ 7 of 17] Compiling Options.Applicative.Internal ( src/Options/Applicative/Internal.hs, dist/build/Options/Applicative/Internal.o, dist/build/Options/Applicative/Internal.dyn_o ) [ 8 of 17] Compiling Options.Applicative.Common ( src/Options/Applicative/Common.hs, dist/build/Options/Applicative/Common.o, dist/build/Options/Applicative/Common.dyn_o ) [ 9 of 17] Compiling Options.Applicative.Help.Core ( src/Options/Applicative/Help/Core.hs, dist/build/Options/Applicative/Help/Core.o, dist/build/Options/Applicative/Help/Core.dyn_o ) [10 of 17] Compiling Options.Applicative.Help ( src/Options/Applicative/Help.hs, dist/build/Options/Applicative/Help.o, dist/build/Options/Applicative/Help.dyn_o ) [11 of 17] Compiling Options.Applicative.Builder.Internal ( src/Options/Applicative/Builder/Internal.hs, dist/build/Options/Applicative/Builder/Internal.o, dist/build/Options/Applicative/Builder/Internal.dyn_o ) src/Options/Applicative/Builder/Internal.hs:29:31: warning: [GHC-61689] [-Wdodgy-imports] Module Data.Semigroup does not export Option. | 29 | import Data.Semigroup hiding (Option) | ^^^^^^ [12 of 17] Compiling Options.Applicative.Builder.Completer ( src/Options/Applicative/Builder/Completer.hs, dist/build/Options/Applicative/Builder/Completer.o, dist/build/Options/Applicative/Builder/Completer.dyn_o ) [13 of 17] Compiling Options.Applicative.Builder ( src/Options/Applicative/Builder.hs, dist/build/Options/Applicative/Builder.o, dist/build/Options/Applicative/Builder.dyn_o ) [14 of 17] Compiling Options.Applicative.BashCompletion ( src/Options/Applicative/BashCompletion.hs, dist/build/Options/Applicative/BashCompletion.o, dist/build/Options/Applicative/BashCompletion.dyn_o ) src/Options/Applicative/BashCompletion.hs:16:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Foldable is redundant except perhaps to import instances from Data.Foldable To import instances alone, use: import Data.Foldable() | 16 | import Data.Foldable ( asum ) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [15 of 17] Compiling Options.Applicative.Extra ( src/Options/Applicative/Extra.hs, dist/build/Options/Applicative/Extra.o, dist/build/Options/Applicative/Extra.dyn_o ) [16 of 17] Compiling Options.Applicative ( src/Options/Applicative.hs, dist/build/Options/Applicative.o, dist/build/Options/Applicative.dyn_o ) [17 of 17] Compiling Options.Applicative.Arrows ( src/Options/Applicative/Arrows.hs, dist/build/Options/Applicative/Arrows.o, dist/build/Options/Applicative/Arrows.dyn_o ) Preprocessing library for optparse-applicative-0.19.0.0.. Running Haddock on library for optparse-applicative-0.19.0.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 17] Compiling Options.Applicative.Help.Levenshtein ( src/Options/Applicative/Help/Levenshtein.hs, nothing ) src/Options/Applicative/Help/Levenshtein.hs:24:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 24 | oneDiag a b (head uppers) (-1 : head lowers) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:24:39: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 24 | oneDiag a b (head uppers) (-1 : head lowers) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:40:53: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:40:62: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 40 | = nw : doDiag (ach' : as) (bch' : bs) nw (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:48:27: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 48 | 1 + min3 (head w) nw (head n) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:48:39: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 48 | 1 + min3 (head w) nw (head n) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:50:35: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 50 | me : doDiag as bs me (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:50:44: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 50 | me : doDiag as bs me (tail n) (tail w) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:52:24: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 52 | firstelt = 1 + head diagBelow | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:53:64: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 53 | thisdiag = firstelt : doDiag a' b' firstelt diagAbove (tail diagBelow) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:59:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 59 | nextDiag = head (tail diags) | ^^^^ src/Options/Applicative/Help/Levenshtein.hs:59:26: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 59 | nextDiag = head (tail diags) | ^^^^ [ 2 of 17] Compiling Options.Applicative.Help.Pretty ( src/Options/Applicative/Help/Pretty.hs, nothing ) [ 3 of 17] Compiling Options.Applicative.Help.Chunk ( src/Options/Applicative/Help/Chunk.hs, nothing ) [ 4 of 17] Compiling Options.Applicative.Help.Types ( src/Options/Applicative/Help/Types.hs, nothing ) [ 5 of 17] Compiling Options.Applicative.Types ( src/Options/Applicative/Types.hs, nothing ) src/Options/Applicative/Types.hs:59:31: warning: [GHC-61689] [-Wdodgy-imports] Module Data.Semigroup does not export Option. | 59 | import Data.Semigroup hiding (Option) | ^^^^^^ [ 6 of 17] Compiling Options.Applicative.NonEmpty ( src/Options/Applicative/NonEmpty.hs, nothing ) [ 7 of 17] Compiling Options.Applicative.Internal ( src/Options/Applicative/Internal.hs, nothing ) [ 8 of 17] Compiling Options.Applicative.Common ( src/Options/Applicative/Common.hs, nothing ) [ 9 of 17] Compiling Options.Applicative.Help.Core ( src/Options/Applicative/Help/Core.hs, nothing ) [10 of 17] Compiling Options.Applicative.Help ( src/Options/Applicative/Help.hs, nothing ) [11 of 17] Compiling Options.Applicative.Builder.Internal ( src/Options/Applicative/Builder/Internal.hs, nothing ) src/Options/Applicative/Builder/Internal.hs:29:31: warning: [GHC-61689] [-Wdodgy-imports] Module Data.Semigroup does not export Option. | 29 | import Data.Semigroup hiding (Option) | ^^^^^^ [12 of 17] Compiling Options.Applicative.Builder.Completer ( src/Options/Applicative/Builder/Completer.hs, nothing ) [13 of 17] Compiling Options.Applicative.Builder ( src/Options/Applicative/Builder.hs, nothing ) [14 of 17] Compiling Options.Applicative.BashCompletion ( src/Options/Applicative/BashCompletion.hs, nothing ) src/Options/Applicative/BashCompletion.hs:16:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Foldable is redundant except perhaps to import instances from Data.Foldable To import instances alone, use: import Data.Foldable() | 16 | import Data.Foldable ( asum ) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [15 of 17] Compiling Options.Applicative.Extra ( src/Options/Applicative/Extra.hs, nothing ) [16 of 17] Compiling Options.Applicative ( src/Options/Applicative.hs, nothing ) [17 of 17] Compiling Options.Applicative.Arrows ( src/Options/Applicative/Arrows.hs, nothing ) Haddock coverage: 50% ( 1 / 2) in 'Options.Applicative.Help.Levenshtein' Missing documentation for: Module header 93% ( 85 / 91) in 'Options.Applicative.Help.Pretty' Missing documentation for: Module header Doc (src/Options/Applicative/Help/Pretty.hs:29) SimpleDoc (src/Options/Applicative/Help/Pretty.hs:30) .$. (src/Options/Applicative/Help/Pretty.hs:36) (src/Options/Applicative/Help/Pretty.hs:38) prettyString (src/Options/Applicative/Help/Pretty.hs:113) Warning: 'Chunk' is ambiguous. It is defined * at src/Options/Applicative/Help/Chunk.hs:26:19 * at src/Options/Applicative/Help/Chunk.hs:26:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Help/Chunk.hs:26:1 92% ( 12 / 13) in 'Options.Applicative.Help.Chunk' Missing documentation for: Module header 33% ( 1 / 3) in 'Options.Applicative.Help.Types' Missing documentation for: Module header ParserHelp (src/Options/Applicative/Help/Types.hs:12) Warning: 'OptReader' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:254:5 * at src/Options/Applicative/Types.hs:253:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:253:1 Warning: 'Completer' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:325:21 * at src/Options/Applicative/Types.hs:325:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:325:1 40% ( 18 / 45) in 'Options.Applicative.Types' Missing documentation for: Module header ParseError (src/Options/Applicative/Types.hs:69) OptName (src/Options/Applicative/Types.hs:134) isShortName (src/Options/Applicative/Types.hs:139) isLongName (src/Options/Applicative/Types.hs:143) Backtracking (src/Options/Applicative/Types.hs:105) CReader (src/Options/Applicative/Types.hs:245) ParserM (src/Options/Applicative/Types.hs:288) CompletionResult (src/Options/Applicative/Types.hs:340) ParserFailure (src/Options/Applicative/Types.hs:347) overFailure (src/Options/Applicative/Types.hs:374) Args (src/Options/Applicative/Types.hs:389) ArgumentReachability (src/Options/Applicative/Types.hs:416) OptTree (src/Options/Applicative/Types.hs:426) ParserHelp (src/Options/Applicative/Help/Types.hs:12) SomeParser (src/Options/Applicative/Types.hs:190) IsCmdStart (src/Options/Applicative/Types.hs:78) fromM (src/Options/Applicative/Types.hs:303) oneM (src/Options/Applicative/Types.hs:306) manyM (src/Options/Applicative/Types.hs:309) someM (src/Options/Applicative/Types.hs:316) filterOptional (src/Options/Applicative/Types.hs:434) optVisibility (src/Options/Applicative/Types.hs:447) optMetaVar (src/Options/Applicative/Types.hs:453) optHelp (src/Options/Applicative/Types.hs:450) optShowDefault (src/Options/Applicative/Types.hs:456) optDescMod (src/Options/Applicative/Types.hs:459) 50% ( 1 / 2) in 'Options.Applicative.NonEmpty' Missing documentation for: Module header 4% ( 1 / 22) in 'Options.Applicative.Internal' Missing documentation for: Module header P (src/Options/Applicative/Internal.hs:55) MonadP (src/Options/Applicative/Internal.hs:46) ParseError (src/Options/Applicative/Types.hs:69) uncons (src/Options/Applicative/Internal.hs:100) hoistMaybe (src/Options/Applicative/Internal.hs:91) hoistEither (src/Options/Applicative/Internal.hs:94) runReadM (src/Options/Applicative/Internal.hs:104) withReadM (src/Options/Applicative/Internal.hs:107) runP (src/Options/Applicative/Internal.hs:97) Completion (src/Options/Applicative/Internal.hs:131) runCompletion (src/Options/Applicative/Internal.hs:163) contextNames (src/Options/Applicative/Internal.hs:77) ListT (src/Options/Applicative/Internal.hs:170) takeListT (src/Options/Applicative/Internal.hs:182) runListT (src/Options/Applicative/Internal.hs:186) hoistList (src/Options/Applicative/Internal.hs:271) NondetT (src/Options/Applicative/Internal.hs:226) cut (src/Options/Applicative/Internal.hs:258) (src/Options/Applicative/Internal.hs:252) disamb (src/Options/Applicative/Internal.hs:261) 68% ( 13 / 19) in 'Options.Applicative.Common' Missing documentation for: Module header showOption (src/Options/Applicative/Common.hs:66) runParserInfo (src/Options/Applicative/Common.hs:240) runParserFully (src/Options/Applicative/Common.hs:243) runParserStep (src/Options/Applicative/Common.hs:230) optionNames (src/Options/Applicative/Common.hs:70) 38% ( 7 / 18) in 'Options.Applicative.Help.Core' Missing documentation for: Module header ParserHelp (src/Options/Applicative/Help/Types.hs:12) errorHelp (src/Options/Applicative/Help/Core.hs:362) headerHelp (src/Options/Applicative/Help/Core.hs:365) suggestionsHelp (src/Options/Applicative/Help/Core.hs:368) usageHelp (src/Options/Applicative/Help/Core.hs:374) descriptionHelp (src/Options/Applicative/Help/Core.hs:377) bodyHelp (src/Options/Applicative/Help/Core.hs:380) footerHelp (src/Options/Applicative/Help/Core.hs:383) globalsHelp (src/Options/Applicative/Help/Core.hs:371) parserGlobals (src/Options/Applicative/Help/Core.hs:405) 91% ( 11 / 12) in 'Options.Applicative.Help' Missing documentation for: Module header Warning: 'OptionFields' is ambiguous. It is defined * at src/Options/Applicative/Builder/Internal.hs:35:23 * at src/Options/Applicative/Builder/Internal.hs:35:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Builder/Internal.hs:35:1 Warning: 'FlagFields' is ambiguous. It is defined * at src/Options/Applicative/Builder/Internal.hs:40:21 * at src/Options/Applicative/Builder/Internal.hs:40:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Builder/Internal.hs:40:1 23% ( 5 / 21) in 'Options.Applicative.Builder.Internal' Missing documentation for: Module header HasName (src/Options/Applicative/Builder/Internal.hs:51) HasCompleter (src/Options/Applicative/Builder/Internal.hs:60) HasValue (src/Options/Applicative/Builder/Internal.hs:69) HasMetavar (src/Options/Applicative/Builder/Internal.hs:77) OptionFields (src/Options/Applicative/Builder/Internal.hs:35) FlagFields (src/Options/Applicative/Builder/Internal.hs:40) CommandFields (src/Options/Applicative/Builder/Internal.hs:44) ArgumentFields (src/Options/Applicative/Builder/Internal.hs:48) DefaultProp (src/Options/Applicative/Builder/Internal.hs:88) optionMod (src/Options/Applicative/Builder/Internal.hs:131) fieldMod (src/Options/Applicative/Builder/Internal.hs:134) mkCommand (src/Options/Applicative/Builder/Internal.hs:158) mkParser (src/Options/Applicative/Builder/Internal.hs:167) mkOption (src/Options/Applicative/Builder/Internal.hs:177) mkProps (src/Options/Applicative/Builder/Internal.hs:182) Warning: 'Completer' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:325:21 * at src/Options/Applicative/Types.hs:325:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:325:1 85% ( 6 / 7) in 'Options.Applicative.Builder.Completer' Missing documentation for: Module header Warning: 'ParserInfo' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:90:21 * at src/Options/Applicative/Types.hs:90:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:90:1 Warning: 'Option' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:185:17 * at src/Options/Applicative/Types.hs:185:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:185:1 Warning: 'OptProperties' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:159:22 * at src/Options/Applicative/Types.hs:159:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:159:1 Warning: 'ParserPrefs' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:112:20 * at src/Options/Applicative/Types.hs:112:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:112:1 87% ( 74 / 85) in 'Options.Applicative.Builder' Missing documentation for: Module header ParseError (src/Options/Applicative/Types.hs:69) PrefsMod (src/Options/Applicative/Builder.hs:523) OptionFields (src/Options/Applicative/Builder/Internal.hs:35) FlagFields (src/Options/Applicative/Builder/Internal.hs:40) ArgumentFields (src/Options/Applicative/Builder/Internal.hs:48) CommandFields (src/Options/Applicative/Builder/Internal.hs:44) HasName (src/Options/Applicative/Builder/Internal.hs:51) HasCompleter (src/Options/Applicative/Builder/Internal.hs:60) HasValue (src/Options/Applicative/Builder/Internal.hs:69) HasMetavar (src/Options/Applicative/Builder/Internal.hs:77) 80% ( 4 / 5) in 'Options.Applicative.BashCompletion' Missing documentation for: bashCompletionParser (src/Options/Applicative/BashCompletion.hs:39) Warning: 'ParserInfo' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:90:21 * at src/Options/Applicative/Types.hs:90:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:90:1 Warning: 'ParserFailure' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:347:27 * at src/Options/Applicative/Types.hs:347:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:347:1 Warning: 'Context' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:195:16 * at src/Options/Applicative/Types.hs:195:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:195:1 73% ( 14 / 19) in 'Options.Applicative.Extra' Missing documentation for: Module header renderFailure (src/Options/Applicative/Extra.hs:345) ParserFailure (src/Options/Applicative/Types.hs:347) overFailure (src/Options/Applicative/Types.hs:374) CompletionResult (src/Options/Applicative/Types.hs:340) Warning: 'ParserInfo' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:90:21 * at src/Options/Applicative/Types.hs:90:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:90:1 Warning: 'ParserPrefs' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:112:20 * at src/Options/Applicative/Types.hs:112:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:112:1 Warning: 'Completer' is ambiguous. It is defined * at src/Options/Applicative/Types.hs:325:21 * at src/Options/Applicative/Types.hs:325:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Types.hs:325:1 86% (107 /123) in 'Options.Applicative' Missing documentation for: Module header OptionFields (src/Options/Applicative/Builder/Internal.hs:35) FlagFields (src/Options/Applicative/Builder/Internal.hs:40) ArgumentFields (src/Options/Applicative/Builder/Internal.hs:48) CommandFields (src/Options/Applicative/Builder/Internal.hs:44) HasName (src/Options/Applicative/Builder/Internal.hs:51) HasCompleter (src/Options/Applicative/Builder/Internal.hs:60) HasValue (src/Options/Applicative/Builder/Internal.hs:69) HasMetavar (src/Options/Applicative/Builder/Internal.hs:77) renderFailure (src/Options/Applicative/Extra.hs:345) overFailure (src/Options/Applicative/Types.hs:374) PrefsMod (src/Options/Applicative/Builder.hs:523) ParseError (src/Options/Applicative/Types.hs:69) ParserHelp (src/Options/Applicative/Help/Types.hs:12) ParserFailure (src/Options/Applicative/Types.hs:347) CompletionResult (src/Options/Applicative/Types.hs:340) Warning: 'A' is ambiguous. It is defined * at src/Options/Applicative/Arrows.hs:47:19 * at src/Options/Applicative/Arrows.hs:47:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Options/Applicative/Arrows.hs:47:1 100% ( 6 / 6) in 'Options.Applicative.Arrows' Warning: Options.Applicative.Help.Pretty: could not find link destinations for: - Prettyprinter.Internal.Rep_SimpleDocStream Documentation created: dist/doc/html/optparse-applicative/, dist/doc/html/optparse-applicative/optparse-applicative.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/optparse-applicative-0.19.0.0-5c46VkbBJNABJCSsMkcBhu Completed optparse-applicative-0.19.0.0 Configuring replace-megaparsec-1.5.0.1... Preprocessing library for replace-megaparsec-1.5.0.1.. Building library for replace-megaparsec-1.5.0.1.. [1 of 3] Compiling Replace.Megaparsec.Internal.ByteString ( src/Replace/Megaparsec/Internal/ByteString.hs, dist/build/Replace/Megaparsec/Internal/ByteString.o, dist/build/Replace/Megaparsec/Internal/ByteString.dyn_o ) [2 of 3] Compiling Replace.Megaparsec.Internal.Text ( src/Replace/Megaparsec/Internal/Text.hs, dist/build/Replace/Megaparsec/Internal/Text.o, dist/build/Replace/Megaparsec/Internal/Text.dyn_o ) [3 of 3] Compiling Replace.Megaparsec ( src/Replace/Megaparsec.hs, dist/build/Replace/Megaparsec.o, dist/build/Replace/Megaparsec.dyn_o ) Preprocessing library for replace-megaparsec-1.5.0.1.. Running Haddock on library for replace-megaparsec-1.5.0.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Replace.Megaparsec.Internal.ByteString ( src/Replace/Megaparsec/Internal/ByteString.hs, nothing ) [2 of 3] Compiling Replace.Megaparsec.Internal.Text ( src/Replace/Megaparsec/Internal/Text.hs, nothing ) [3 of 3] Compiling Replace.Megaparsec ( src/Replace/Megaparsec.hs, nothing ) Haddock coverage: 50% ( 2 / 4) in 'Replace.Megaparsec.Internal.ByteString' Missing documentation for: sepCapByteString (src/Replace/Megaparsec/Internal/ByteString.hs:36) anyTillByteString (src/Replace/Megaparsec/Internal/ByteString.hs:83) 50% ( 2 / 4) in 'Replace.Megaparsec.Internal.Text' Missing documentation for: sepCapText (src/Replace/Megaparsec/Internal/Text.hs:37) anyTillText (src/Replace/Megaparsec/Internal/Text.hs:84) 100% ( 15 / 15) in 'Replace.Megaparsec' Documentation created: dist/doc/html/replace-megaparsec/, dist/doc/html/replace-megaparsec/replace-megaparsec.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/replace-megaparsec-1.5.0.1-Cms2SLlj9nkF3M0kVpXHix Completed replace-megaparsec-1.5.0.1 Configuring http-api-data-0.6.2... Preprocessing library for http-api-data-0.6.2.. Building library for http-api-data-0.6.2.. [1 of 4] Compiling Web.Internal.HttpApiData ( src/Web/Internal/HttpApiData.hs, dist/build/Web/Internal/HttpApiData.o, dist/build/Web/Internal/HttpApiData.dyn_o ) src/Web/Internal/HttpApiData.hs:35:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 35 | import Data.Semigroup (Semigroup (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 4] Compiling Web.Internal.FormUrlEncoded ( src/Web/Internal/FormUrlEncoded.hs, dist/build/Web/Internal/FormUrlEncoded.o, dist/build/Web/Internal/FormUrlEncoded.dyn_o ) src/Web/Internal/FormUrlEncoded.hs:40:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 40 | import Data.Semigroup (Semigroup (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Web/Internal/FormUrlEncoded.hs:58:1: warning: [GHC-66111] [-Wunused-imports] The import of Numeric.Natural is redundant except perhaps to import instances from Numeric.Natural To import instances alone, use: import Numeric.Natural() | 58 | import Numeric.Natural (Natural) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Web/Internal/FormUrlEncoded.hs:336:23: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 336 | class GToForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:336:28: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 336 | class GToForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:484:25: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 484 | class GFromForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:484:30: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 484 | class GFromForm t (f :: * -> *) where | ^ [3 of 4] Compiling Web.FormUrlEncoded ( src/Web/FormUrlEncoded.hs, dist/build/Web/FormUrlEncoded.o, dist/build/Web/FormUrlEncoded.dyn_o ) [4 of 4] Compiling Web.HttpApiData ( src/Web/HttpApiData.hs, dist/build/Web/HttpApiData.o, dist/build/Web/HttpApiData.dyn_o ) Preprocessing library for http-api-data-0.6.2.. Running Haddock on library for http-api-data-0.6.2.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling Web.Internal.HttpApiData ( src/Web/Internal/HttpApiData.hs, nothing ) src/Web/Internal/HttpApiData.hs:35:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 35 | import Data.Semigroup (Semigroup (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [2 of 4] Compiling Web.Internal.FormUrlEncoded ( src/Web/Internal/FormUrlEncoded.hs, nothing ) src/Web/Internal/FormUrlEncoded.hs:40:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 40 | import Data.Semigroup (Semigroup (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Web/Internal/FormUrlEncoded.hs:58:1: warning: [GHC-66111] [-Wunused-imports] The import of Numeric.Natural is redundant except perhaps to import instances from Numeric.Natural To import instances alone, use: import Numeric.Natural() | 58 | import Numeric.Natural (Natural) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Web/Internal/FormUrlEncoded.hs:336:23: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 336 | class GToForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:336:28: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 336 | class GToForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:484:25: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 484 | class GFromForm t (f :: * -> *) where | ^ src/Web/Internal/FormUrlEncoded.hs:484:30: warning: [GHC-39567] [-Wstar-is-type] Using * (or its Unicode variant) to mean Data.Kind.Type relies on the StarIsType extension, which will become deprecated in the future. Suggested fix: Use Type from Data.Kind instead. | 484 | class GFromForm t (f :: * -> *) where | ^ [3 of 4] Compiling Web.FormUrlEncoded ( src/Web/FormUrlEncoded.hs, nothing ) [4 of 4] Compiling Web.HttpApiData ( src/Web/HttpApiData.hs, nothing ) Haddock coverage: 93% ( 31 / 33) in 'Web.Internal.HttpApiData' Missing documentation for: runTT (src/Web/Internal/HttpApiData.hs:901) runFT (src/Web/Internal/HttpApiData.hs:904) Warning: 'FormOptions' is ambiguous. It is defined * at src/Web/Internal/FormUrlEncoded.hs:766:20 * at src/Web/Internal/FormUrlEncoded.hs:766:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Web/Internal/FormUrlEncoded.hs:766:1 Warning: 'toLower' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Form' is ambiguous. It is defined * at src/Web/Internal/FormUrlEncoded.hs:208:16 * at src/Web/Internal/FormUrlEncoded.hs:208:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Web/Internal/FormUrlEncoded.hs:208:1 Warning: 'escapeURIString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'isUnreserved' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unEscapeString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 82% ( 28 / 34) in 'Web.Internal.FormUrlEncoded' Missing documentation for: Module header Proxy3 (src/Web/Internal/FormUrlEncoded.hs:289) NotSupported (src/Web/Internal/FormUrlEncoded.hs:291) GToForm (src/Web/Internal/FormUrlEncoded.hs:336) GFromForm (src/Web/Internal/FormUrlEncoded.hs:484) sortOn (src/Web/Internal/FormUrlEncoded.hs:784) Warning: 'Form' is ambiguous. It is defined * at src/Web/Internal/FormUrlEncoded.hs:208:16 * at src/Web/Internal/FormUrlEncoded.hs:208:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Web/Internal/FormUrlEncoded.hs:208:1 Warning: 'Generic' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 35 / 35) in 'Web.FormUrlEncoded' 100% ( 32 / 32) in 'Web.HttpApiData' Warning: Web.Internal.FormUrlEncoded: could not find link destinations for: - Web.Internal.FormUrlEncoded.D:R:ItemForm - Web.Internal.FormUrlEncoded.Rep_Form Warning: Web.FormUrlEncoded: could not find link destinations for: - Web.Internal.FormUrlEncoded.D:R:ItemForm - Web.Internal.FormUrlEncoded.Rep_Form Documentation created: dist/doc/html/http-api-data/, dist/doc/html/http-api-data/http-api-data.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/http-api-data-0.6.2-70YP7Dg7uuoKIQBzoiCuM3 Completed http-api-data-0.6.2 Configuring hspec-core-2.11.14... Preprocessing library for hspec-core-2.11.14.. Building library for hspec-core-2.11.14.. [ 1 of 51] Compiling Control.Concurrent.Async ( vendor/Control/Concurrent/Async.hs, dist/build/Control/Concurrent/Async.o, dist/build/Control/Concurrent/Async.dyn_o ) [ 2 of 51] Compiling Data.Algorithm.Diff ( vendor/Data/Algorithm/Diff.hs, dist/build/Data/Algorithm/Diff.o, dist/build/Data/Algorithm/Diff.dyn_o ) [ 3 of 51] Compiling Paths_hspec_core ( dist/build/autogen/Paths_hspec_core.hs, dist/build/Paths_hspec_core.o, dist/build/Paths_hspec_core.dyn_o ) [ 4 of 51] Compiling Test.Hspec.Core.Compat ( src/Test/Hspec/Core/Compat.hs, dist/build/Test/Hspec/Core/Compat.o, dist/build/Test/Hspec/Core/Compat.dyn_o ) [ 5 of 51] Compiling Test.Hspec.Core.Clock ( src/Test/Hspec/Core/Clock.hs, dist/build/Test/Hspec/Core/Clock.o, dist/build/Test/Hspec/Core/Clock.dyn_o ) [ 6 of 51] Compiling Test.Hspec.Core.Annotations ( src/Test/Hspec/Core/Annotations.hs, dist/build/Test/Hspec/Core/Annotations.o, dist/build/Test/Hspec/Core/Annotations.dyn_o ) [ 7 of 51] Compiling NonEmpty ( src/NonEmpty.hs, dist/build/NonEmpty.o, dist/build/NonEmpty.dyn_o ) [ 8 of 51] Compiling GetOpt.Declarative.Types ( src/GetOpt/Declarative/Types.hs, dist/build/GetOpt/Declarative/Types.o, dist/build/GetOpt/Declarative/Types.dyn_o ) [ 9 of 51] Compiling GetOpt.Declarative.Environment ( src/GetOpt/Declarative/Environment.hs, dist/build/GetOpt/Declarative/Environment.o, dist/build/GetOpt/Declarative/Environment.dyn_o ) [10 of 51] Compiling Test.Hspec.Core.Example.Location ( src/Test/Hspec/Core/Example/Location.hs, dist/build/Test/Hspec/Core/Example/Location.o, dist/build/Test/Hspec/Core/Example/Location.dyn_o ) [11 of 51] Compiling Test.Hspec.Core.Formatters.Diff ( src/Test/Hspec/Core/Formatters/Diff.hs, dist/build/Test/Hspec/Core/Formatters/Diff.o, dist/build/Test/Hspec/Core/Formatters/Diff.dyn_o ) [12 of 51] Compiling Test.Hspec.Core.Formatters.Pretty.Parser ( src/Test/Hspec/Core/Formatters/Pretty/Parser.hs, dist/build/Test/Hspec/Core/Formatters/Pretty/Parser.o, dist/build/Test/Hspec/Core/Formatters/Pretty/Parser.dyn_o ) [13 of 51] Compiling Test.Hspec.Core.Formatters.Pretty.Unicode ( src/Test/Hspec/Core/Formatters/Pretty/Unicode.hs, dist/build/Test/Hspec/Core/Formatters/Pretty/Unicode.o, dist/build/Test/Hspec/Core/Formatters/Pretty/Unicode.dyn_o ) [14 of 51] Compiling Test.Hspec.Core.Formatters.Pretty ( src/Test/Hspec/Core/Formatters/Pretty.hs, dist/build/Test/Hspec/Core/Formatters/Pretty.o, dist/build/Test/Hspec/Core/Formatters/Pretty.dyn_o ) [15 of 51] Compiling Test.Hspec.Core.Formatters.V1.Free ( src/Test/Hspec/Core/Formatters/V1/Free.hs, dist/build/Test/Hspec/Core/Formatters/V1/Free.o, dist/build/Test/Hspec/Core/Formatters/V1/Free.dyn_o ) [16 of 51] Compiling Test.Hspec.Core.Runner.JobQueue ( src/Test/Hspec/Core/Runner/JobQueue.hs, dist/build/Test/Hspec/Core/Runner/JobQueue.o, dist/build/Test/Hspec/Core/Runner/JobQueue.dyn_o ) [17 of 51] Compiling Test.Hspec.Core.Timer ( src/Test/Hspec/Core/Timer.hs, dist/build/Test/Hspec/Core/Timer.o, dist/build/Test/Hspec/Core/Timer.dyn_o ) [18 of 51] Compiling Test.Hspec.Core.Util ( src/Test/Hspec/Core/Util.hs, dist/build/Test/Hspec/Core/Util.o, dist/build/Test/Hspec/Core/Util.dyn_o ) [19 of 51] Compiling Test.Hspec.Core.QuickCheck.Util ( src/Test/Hspec/Core/QuickCheck/Util.hs, dist/build/Test/Hspec/Core/QuickCheck/Util.o, dist/build/Test/Hspec/Core/QuickCheck/Util.dyn_o ) [20 of 51] Compiling Test.Hspec.Core.Example ( src/Test/Hspec/Core/Example.hs, dist/build/Test/Hspec/Core/Example.o, dist/build/Test/Hspec/Core/Example.dyn_o ) [21 of 51] Compiling Test.Hspec.Core.Tree ( src/Test/Hspec/Core/Tree.hs, dist/build/Test/Hspec/Core/Tree.o, dist/build/Test/Hspec/Core/Tree.dyn_o ) [22 of 51] Compiling Test.Hspec.Core.Shuffle ( src/Test/Hspec/Core/Shuffle.hs, dist/build/Test/Hspec/Core/Shuffle.o, dist/build/Test/Hspec/Core/Shuffle.dyn_o ) [23 of 51] Compiling Test.Hspec.Core.Format ( src/Test/Hspec/Core/Format.hs, dist/build/Test/Hspec/Core/Format.o, dist/build/Test/Hspec/Core/Format.dyn_o ) [24 of 51] Compiling Test.Hspec.Core.Runner.Result ( src/Test/Hspec/Core/Runner/Result.hs, dist/build/Test/Hspec/Core/Runner/Result.o, dist/build/Test/Hspec/Core/Runner/Result.dyn_o ) [25 of 51] Compiling Test.Hspec.Core.Formatters.V1.Monad ( src/Test/Hspec/Core/Formatters/V1/Monad.hs, dist/build/Test/Hspec/Core/Formatters/V1/Monad.o, dist/build/Test/Hspec/Core/Formatters/V1/Monad.dyn_o ) [26 of 51] Compiling Test.Hspec.Core.Formatters.Internal ( src/Test/Hspec/Core/Formatters/Internal.hs, dist/build/Test/Hspec/Core/Formatters/Internal.o, dist/build/Test/Hspec/Core/Formatters/Internal.dyn_o ) [27 of 51] Compiling Test.Hspec.Core.Formatters.V2 ( src/Test/Hspec/Core/Formatters/V2.hs, dist/build/Test/Hspec/Core/Formatters/V2.o, dist/build/Test/Hspec/Core/Formatters/V2.dyn_o ) [28 of 51] Compiling Test.Hspec.Core.Runner.PrintSlowSpecItems ( src/Test/Hspec/Core/Runner/PrintSlowSpecItems.hs, dist/build/Test/Hspec/Core/Runner/PrintSlowSpecItems.o, dist/build/Test/Hspec/Core/Runner/PrintSlowSpecItems.dyn_o ) [29 of 51] Compiling Test.Hspec.Core.Formatters.V1.Internal ( src/Test/Hspec/Core/Formatters/V1/Internal.hs, dist/build/Test/Hspec/Core/Formatters/V1/Internal.o, dist/build/Test/Hspec/Core/Formatters/V1/Internal.dyn_o ) [30 of 51] Compiling Test.Hspec.Core.Formatters.V1 ( src/Test/Hspec/Core/Formatters/V1.hs, dist/build/Test/Hspec/Core/Formatters/V1.o, dist/build/Test/Hspec/Core/Formatters/V1.dyn_o ) [31 of 51] Compiling Test.Hspec.Core.Formatters ( src/Test/Hspec/Core/Formatters.hs, dist/build/Test/Hspec/Core/Formatters.o, dist/build/Test/Hspec/Core/Formatters.dyn_o ) [32 of 51] Compiling GetOpt.Declarative.Util ( src/GetOpt/Declarative/Util.hs, dist/build/GetOpt/Declarative/Util.o, dist/build/GetOpt/Declarative/Util.dyn_o ) [33 of 51] Compiling GetOpt.Declarative.Interpret ( src/GetOpt/Declarative/Interpret.hs, dist/build/GetOpt/Declarative/Interpret.o, dist/build/GetOpt/Declarative/Interpret.dyn_o ) [34 of 51] Compiling GetOpt.Declarative ( src/GetOpt/Declarative.hs, dist/build/GetOpt/Declarative.o, dist/build/GetOpt/Declarative.dyn_o ) [35 of 51] Compiling Test.Hspec.Core.Config.Definition ( src/Test/Hspec/Core/Config/Definition.hs, dist/build/Test/Hspec/Core/Config/Definition.o, dist/build/Test/Hspec/Core/Config/Definition.dyn_o ) [36 of 51] Compiling Test.Hspec.Core.Spec.Monad ( src/Test/Hspec/Core/Spec/Monad.hs, dist/build/Test/Hspec/Core/Spec/Monad.o, dist/build/Test/Hspec/Core/Spec/Monad.dyn_o ) [37 of 51] Compiling Test.Hspec.Core.QuickCheck ( src/Test/Hspec/Core/QuickCheck.hs, dist/build/Test/Hspec/Core/QuickCheck.o, dist/build/Test/Hspec/Core/QuickCheck.dyn_o ) [38 of 51] Compiling Test.Hspec.Core.Hooks ( src/Test/Hspec/Core/Hooks.hs, dist/build/Test/Hspec/Core/Hooks.o, dist/build/Test/Hspec/Core/Hooks.dyn_o ) [39 of 51] Compiling Test.Hspec.Core.Spec ( src/Test/Hspec/Core/Spec.hs, dist/build/Test/Hspec/Core/Spec.o, dist/build/Test/Hspec/Core/Spec.dyn_o ) [40 of 51] Compiling Test.Hspec.Core.Runner.Eval ( src/Test/Hspec/Core/Runner/Eval.hs, dist/build/Test/Hspec/Core/Runner/Eval.o, dist/build/Test/Hspec/Core/Runner/Eval.dyn_o ) [41 of 51] Compiling Test.Hspec.Core.Extension.Tree ( src/Test/Hspec/Core/Extension/Tree.hs, dist/build/Test/Hspec/Core/Extension/Tree.o, dist/build/Test/Hspec/Core/Extension/Tree.dyn_o ) [42 of 51] Compiling Test.Hspec.Core.Extension.Spec ( src/Test/Hspec/Core/Extension/Spec.hs, dist/build/Test/Hspec/Core/Extension/Spec.o, dist/build/Test/Hspec/Core/Extension/Spec.dyn_o ) [43 of 51] Compiling Test.Hspec.Core.Extension.Item ( src/Test/Hspec/Core/Extension/Item.hs, dist/build/Test/Hspec/Core/Extension/Item.o, dist/build/Test/Hspec/Core/Extension/Item.dyn_o ) [44 of 51] Compiling Test.Hspec.Core.FailureReport ( src/Test/Hspec/Core/FailureReport.hs, dist/build/Test/Hspec/Core/FailureReport.o, dist/build/Test/Hspec/Core/FailureReport.dyn_o ) [45 of 51] Compiling Test.Hspec.Core.Extension.Config.Type ( src/Test/Hspec/Core/Extension/Config/Type.hs, dist/build/Test/Hspec/Core/Extension/Config/Type.o, dist/build/Test/Hspec/Core/Extension/Config/Type.dyn_o ) [46 of 51] Compiling Test.Hspec.Core.Extension.Option ( src/Test/Hspec/Core/Extension/Option.hs, dist/build/Test/Hspec/Core/Extension/Option.o, dist/build/Test/Hspec/Core/Extension/Option.dyn_o ) [47 of 51] Compiling Test.Hspec.Core.Extension.Config ( src/Test/Hspec/Core/Extension/Config.hs, dist/build/Test/Hspec/Core/Extension/Config.o, dist/build/Test/Hspec/Core/Extension/Config.dyn_o ) [48 of 51] Compiling Test.Hspec.Core.Extension ( src/Test/Hspec/Core/Extension.hs, dist/build/Test/Hspec/Core/Extension.o, dist/build/Test/Hspec/Core/Extension.dyn_o ) [49 of 51] Compiling Test.Hspec.Core.Config.Options ( src/Test/Hspec/Core/Config/Options.hs, dist/build/Test/Hspec/Core/Config/Options.o, dist/build/Test/Hspec/Core/Config/Options.dyn_o ) [50 of 51] Compiling Test.Hspec.Core.Config ( src/Test/Hspec/Core/Config.hs, dist/build/Test/Hspec/Core/Config.o, dist/build/Test/Hspec/Core/Config.dyn_o ) [51 of 51] Compiling Test.Hspec.Core.Runner ( src/Test/Hspec/Core/Runner.hs, dist/build/Test/Hspec/Core/Runner.o, dist/build/Test/Hspec/Core/Runner.dyn_o ) Preprocessing library for hspec-core-2.11.14.. Running Haddock on library for hspec-core-2.11.14.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 51] Compiling Control.Concurrent.Async ( vendor/Control/Concurrent/Async.hs, nothing ) [ 2 of 51] Compiling Data.Algorithm.Diff ( vendor/Data/Algorithm/Diff.hs, nothing ) [ 3 of 51] Compiling Paths_hspec_core ( dist/build/autogen/Paths_hspec_core.hs, nothing ) [ 4 of 51] Compiling Test.Hspec.Core.Compat ( src/Test/Hspec/Core/Compat.hs, nothing ) [ 5 of 51] Compiling Test.Hspec.Core.Clock ( src/Test/Hspec/Core/Clock.hs, nothing ) [ 6 of 51] Compiling Test.Hspec.Core.Annotations ( src/Test/Hspec/Core/Annotations.hs, nothing ) [ 7 of 51] Compiling NonEmpty ( src/NonEmpty.hs, nothing ) [ 8 of 51] Compiling GetOpt.Declarative.Types ( src/GetOpt/Declarative/Types.hs, nothing ) [ 9 of 51] Compiling GetOpt.Declarative.Environment ( src/GetOpt/Declarative/Environment.hs, nothing ) [10 of 51] Compiling Test.Hspec.Core.Example.Location ( src/Test/Hspec/Core/Example/Location.hs, nothing ) [11 of 51] Compiling Test.Hspec.Core.Formatters.Diff ( src/Test/Hspec/Core/Formatters/Diff.hs, nothing ) [12 of 51] Compiling Test.Hspec.Core.Formatters.Pretty.Parser ( src/Test/Hspec/Core/Formatters/Pretty/Parser.hs, nothing ) [13 of 51] Compiling Test.Hspec.Core.Formatters.Pretty.Unicode ( src/Test/Hspec/Core/Formatters/Pretty/Unicode.hs, nothing ) [14 of 51] Compiling Test.Hspec.Core.Formatters.Pretty ( src/Test/Hspec/Core/Formatters/Pretty.hs, nothing ) [15 of 51] Compiling Test.Hspec.Core.Formatters.V1.Free ( src/Test/Hspec/Core/Formatters/V1/Free.hs, nothing ) [16 of 51] Compiling Test.Hspec.Core.Runner.JobQueue ( src/Test/Hspec/Core/Runner/JobQueue.hs, nothing ) [17 of 51] Compiling Test.Hspec.Core.Timer ( src/Test/Hspec/Core/Timer.hs, nothing ) [18 of 51] Compiling Test.Hspec.Core.Util ( src/Test/Hspec/Core/Util.hs, nothing ) [19 of 51] Compiling Test.Hspec.Core.QuickCheck.Util ( src/Test/Hspec/Core/QuickCheck/Util.hs, nothing ) [20 of 51] Compiling Test.Hspec.Core.Example ( src/Test/Hspec/Core/Example.hs, nothing ) [21 of 51] Compiling Test.Hspec.Core.Tree ( src/Test/Hspec/Core/Tree.hs, nothing ) [22 of 51] Compiling Test.Hspec.Core.Shuffle ( src/Test/Hspec/Core/Shuffle.hs, nothing ) [23 of 51] Compiling Test.Hspec.Core.Format ( src/Test/Hspec/Core/Format.hs, nothing ) [24 of 51] Compiling Test.Hspec.Core.Runner.Result ( src/Test/Hspec/Core/Runner/Result.hs, nothing ) [25 of 51] Compiling Test.Hspec.Core.Formatters.V1.Monad ( src/Test/Hspec/Core/Formatters/V1/Monad.hs, nothing ) [26 of 51] Compiling Test.Hspec.Core.Formatters.Internal ( src/Test/Hspec/Core/Formatters/Internal.hs, nothing ) [27 of 51] Compiling Test.Hspec.Core.Formatters.V2 ( src/Test/Hspec/Core/Formatters/V2.hs, nothing ) [28 of 51] Compiling Test.Hspec.Core.Runner.PrintSlowSpecItems ( src/Test/Hspec/Core/Runner/PrintSlowSpecItems.hs, nothing ) [29 of 51] Compiling Test.Hspec.Core.Formatters.V1.Internal ( src/Test/Hspec/Core/Formatters/V1/Internal.hs, nothing ) [30 of 51] Compiling Test.Hspec.Core.Formatters.V1 ( src/Test/Hspec/Core/Formatters/V1.hs, nothing ) [31 of 51] Compiling Test.Hspec.Core.Formatters ( src/Test/Hspec/Core/Formatters.hs, nothing ) [32 of 51] Compiling GetOpt.Declarative.Util ( src/GetOpt/Declarative/Util.hs, nothing ) [33 of 51] Compiling GetOpt.Declarative.Interpret ( src/GetOpt/Declarative/Interpret.hs, nothing ) [34 of 51] Compiling GetOpt.Declarative ( src/GetOpt/Declarative.hs, nothing ) [35 of 51] Compiling Test.Hspec.Core.Config.Definition ( src/Test/Hspec/Core/Config/Definition.hs, nothing ) [36 of 51] Compiling Test.Hspec.Core.Spec.Monad ( src/Test/Hspec/Core/Spec/Monad.hs, nothing ) [37 of 51] Compiling Test.Hspec.Core.QuickCheck ( src/Test/Hspec/Core/QuickCheck.hs, nothing ) [38 of 51] Compiling Test.Hspec.Core.Hooks ( src/Test/Hspec/Core/Hooks.hs, nothing ) [39 of 51] Compiling Test.Hspec.Core.Spec ( src/Test/Hspec/Core/Spec.hs, nothing ) [40 of 51] Compiling Test.Hspec.Core.Runner.Eval ( src/Test/Hspec/Core/Runner/Eval.hs, nothing ) [41 of 51] Compiling Test.Hspec.Core.Extension.Tree ( src/Test/Hspec/Core/Extension/Tree.hs, nothing ) [42 of 51] Compiling Test.Hspec.Core.Extension.Spec ( src/Test/Hspec/Core/Extension/Spec.hs, nothing ) [43 of 51] Compiling Test.Hspec.Core.Extension.Item ( src/Test/Hspec/Core/Extension/Item.hs, nothing ) [44 of 51] Compiling Test.Hspec.Core.FailureReport ( src/Test/Hspec/Core/FailureReport.hs, nothing ) [45 of 51] Compiling Test.Hspec.Core.Extension.Config.Type ( src/Test/Hspec/Core/Extension/Config/Type.hs, nothing ) [46 of 51] Compiling Test.Hspec.Core.Extension.Option ( src/Test/Hspec/Core/Extension/Option.hs, nothing ) [47 of 51] Compiling Test.Hspec.Core.Extension.Config ( src/Test/Hspec/Core/Extension/Config.hs, nothing ) [48 of 51] Compiling Test.Hspec.Core.Extension ( src/Test/Hspec/Core/Extension.hs, nothing ) [49 of 51] Compiling Test.Hspec.Core.Config.Options ( src/Test/Hspec/Core/Config/Options.hs, nothing ) [50 of 51] Compiling Test.Hspec.Core.Config ( src/Test/Hspec/Core/Config.hs, nothing ) [51 of 51] Compiling Test.Hspec.Core.Runner ( src/Test/Hspec/Core/Runner.hs, nothing ) Haddock coverage: Warning: 'Async' is ambiguous. It is defined * at vendor/Control/Concurrent/Async.hs:233:16 * at vendor/Control/Concurrent/Async.hs:233:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at vendor/Control/Concurrent/Async.hs:233:1 Warning: 'Concurrently' is ambiguous. It is defined * at vendor/Control/Concurrent/Async.hs:899:26 * at vendor/Control/Concurrent/Async.hs:899:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at vendor/Control/Concurrent/Async.hs:899:1 Warning: 'ThreadId' is ambiguous. It is defined * in GHC.Conc.Sync * in GHC.Conc.Sync You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Conc.Sync Warning: 'ExceptionInLinkedThread' is ambiguous. It is defined * at vendor/Control/Concurrent/Async.hs:606:3 * at vendor/Control/Concurrent/Async.hs:605:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at vendor/Control/Concurrent/Async.hs:605:1 Warning: 'AsyncCancelled' is ambiguous. It is defined * at vendor/Control/Concurrent/Async.hs:427:23 * at vendor/Control/Concurrent/Async.hs:427:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at vendor/Control/Concurrent/Async.hs:427:1 Warning: 'IO' is ambiguous. It is defined * in GHC.Types * in GHC.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Types Warning: Test.Hspec.Core.Compat: Could not find documentation for exported module: Test.Hspec.Core.Compat Warning: 'n' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 15 / 15) in 'Test.Hspec.Core.Util' Warning: 'Result' is ambiguous. It is defined * at src/Test/Hspec/Core/Example.hs:128:15 * at src/Test/Hspec/Core/Example.hs:128:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Example.hs:128:1 38% ( 5 / 13) in 'Test.Hspec.Core.Format' Missing documentation for: Format (src/Test/Hspec/Core/Format.hs:38) defaultFormatConfig (src/Test/Hspec/Core/Format.hs:85) Event (src/Test/Hspec/Core/Format.hs:53) Seconds (src/Test/Hspec/Core/Clock.hs:26) Item (src/Test/Hspec/Core/Format.hs:40) Result (src/Test/Hspec/Core/Format.hs:47) FailureReason (src/Test/Hspec/Core/Example.hs:139) monadic (src/Test/Hspec/Core/Format.hs:106) Warning: 'Summary' is ambiguous. It is defined * at src/Test/Hspec/Core/Runner/Result.hs:82:16 * at src/Test/Hspec/Core/Runner/Result.hs:82:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Runner/Result.hs:82:1 73% ( 42 / 57) in 'Test.Hspec.Core.Formatters.V2' Missing documentation for: silent (src/Test/Hspec/Core/Formatters/V2.hs:160) checks (src/Test/Hspec/Core/Formatters/V2.hs:171) specdoc (src/Test/Hspec/Core/Formatters/V2.hs:213) progress (src/Test/Hspec/Core/Formatters/V2.hs:259) failed_examples (src/Test/Hspec/Core/Formatters/V2.hs:269) Formatter (src/Test/Hspec/Core/Formatters/Internal.hs:73) Item (src/Test/Hspec/Core/Format.hs:40) Result (src/Test/Hspec/Core/Format.hs:47) FailureReason (src/Test/Hspec/Core/Example.hs:139) FormatM (src/Test/Hspec/Core/Formatters/Internal.hs:219) formatterToFormat (src/Test/Hspec/Core/Formatters/Internal.hs:103) FailureRecord (src/Test/Hspec/Core/Formatters/Internal.hs:96) Seconds (src/Test/Hspec/Core/Clock.hs:26) writeTransient (src/Test/Hspec/Core/Formatters/Internal.hs:272) formatLocation (src/Test/Hspec/Core/Formatters/V2.hs:436) 68% ( 26 / 38) in 'Test.Hspec.Core.Formatters.V1' Missing documentation for: silent (src/Test/Hspec/Core/Formatters/V1/Internal.hs:163) checks (src/Test/Hspec/Core/Formatters/V1/Internal.hs:177) specdoc (src/Test/Hspec/Core/Formatters/V1/Internal.hs:211) progress (src/Test/Hspec/Core/Formatters/V1/Internal.hs:250) failed_examples (src/Test/Hspec/Core/Formatters/V1/Internal.hs:260) Formatter (src/Test/Hspec/Core/Formatters/V1/Monad.hs:59) FailureReason (src/Test/Hspec/Core/Formatters/V1/Monad.hs:52) FormatM (src/Test/Hspec/Core/Formatters/V1/Monad.hs:136) formatterToFormat (src/Test/Hspec/Core/Formatters/V1/Internal.hs:109) FailureRecord (src/Test/Hspec/Core/Formatters/V1/Monad.hs:91) Seconds (src/Test/Hspec/Core/Clock.hs:26) writeTransient (src/Test/Hspec/Core/Formatters/V1/Monad.hs:232) 50% ( 1 / 2) in 'Test.Hspec.Core.Formatters' Missing documentation for: Module header Warning: GetOpt.Declarative: Could not find documentation for exported module: GetOpt.Declarative Warning: 'SpecM' is ambiguous. It is defined * at src/Test/Hspec/Core/Spec/Monad.hs:67:21 * at src/Test/Hspec/Core/Spec/Monad.hs:67:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Spec/Monad.hs:67:1 Warning: 'Params' is ambiguous. It is defined * at src/Test/Hspec/Core/Example.hs:103:15 * at src/Test/Hspec/Core/Example.hs:103:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Example.hs:103:1 Warning: 'Env' is ambiguous. It is defined * at src/Test/Hspec/Core/Spec/Monad.hs:108:15 * at src/Test/Hspec/Core/Spec/Monad.hs:108:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Spec/Monad.hs:108:1 Warning: 'Args' is ambiguous. It is defined * in Test.QuickCheck.Test * in Test.QuickCheck.Test You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Test.QuickCheck.Test 100% ( 6 / 6) in 'Test.Hspec.Core.QuickCheck' Warning: 'SpecM' is ambiguous. It is defined * at src/Test/Hspec/Core/Spec/Monad.hs:67:21 * at src/Test/Hspec/Core/Spec/Monad.hs:67:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Spec/Monad.hs:67:1 100% ( 24 / 24) in 'Test.Hspec.Core.Hooks' 74% ( 49 / 66) in 'Test.Hspec.Core.Spec' Missing documentation for: mapSpecForest (src/Test/Hspec/Core/Spec/Monad.hs:94) mapSpecItem_ (src/Test/Hspec/Core/Spec/Monad.hs:102) defaultParams (src/Test/Hspec/Core/Example.hs:109) ResultStatus (src/Test/Hspec/Core/Example.hs:133) FailureReason (src/Test/Hspec/Core/Example.hs:139) safeEvaluate (src/Test/Hspec/Core/Example.hs:170) safeEvaluateExample (src/Test/Hspec/Core/Example.hs:167) bimapTree (src/Test/Hspec/Core/Tree.hs:58) bimapForest (src/Test/Hspec/Core/Tree.hs:55) filterTree (src/Test/Hspec/Core/Tree.hs:66) filterForest (src/Test/Hspec/Core/Tree.hs:69) filterTreeWithLabels (src/Test/Hspec/Core/Tree.hs:72) filterForestWithLabels (src/Test/Hspec/Core/Tree.hs:75) pruneTree (src/Test/Hspec/Core/Tree.hs:90) pruneForest (src/Test/Hspec/Core/Tree.hs:87) location (src/Test/Hspec/Core/Tree.hs:158) Expectation 0% ( 0 / 4) in 'Test.Hspec.Core.Extension.Tree' Missing documentation for: Module header SpecTree (src/Test/Hspec/Core/Extension/Tree.hs:13) mapItems (src/Test/Hspec/Core/Extension/Tree.hs:16) filterItems (src/Test/Hspec/Core/Extension/Tree.hs:19) 0% ( 0 / 2) in 'Test.Hspec.Core.Extension.Spec' Missing documentation for: Module header mapItems (src/Test/Hspec/Core/Extension/Spec.hs:10) 52% ( 9 / 17) in 'Test.Hspec.Core.Extension.Item' Missing documentation for: Module header ResultStatus (src/Test/Hspec/Core/Example.hs:133) FailureReason (src/Test/Hspec/Core/Example.hs:139) isFocused (src/Test/Hspec/Core/Extension/Item.hs:28) pending (src/Test/Hspec/Core/Extension/Item.hs:31) pendingWith (src/Test/Hspec/Core/Extension/Item.hs:37) setAnnotation (src/Test/Hspec/Core/Extension/Item.hs:43) getAnnotation (src/Test/Hspec/Core/Extension/Item.hs:46) 0% ( 0 / 6) in 'Test.Hspec.Core.Extension.Option' Missing documentation for: Module header Option (src/Test/Hspec/Core/Extension/Config/Type.hs:23) flag (src/Test/Hspec/Core/Extension/Option.hs:18) argument (src/Test/Hspec/Core/Extension/Option.hs:21) noArgument (src/Test/Hspec/Core/Extension/Option.hs:27) optionalArgument (src/Test/Hspec/Core/Extension/Option.hs:24) 33% ( 3 / 9) in 'Test.Hspec.Core.Extension.Config' Missing documentation for: Module header Config (src/Test/Hspec/Core/Config/Definition.hs:80) ColorMode (src/Test/Hspec/Core/Config/Definition.hs:74) UnicodeMode (src/Test/Hspec/Core/Config/Definition.hs:77) setAnnotation (src/Test/Hspec/Core/Extension/Config/Type.hs:26) getAnnotation (src/Test/Hspec/Core/Extension/Config/Type.hs:29) Warning: 'Item' is ambiguous. It is defined * at src/Test/Hspec/Core/Tree.hs:107:15 * at src/Test/Hspec/Core/Tree.hs:107:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Tree.hs:107:1 82% ( 19 / 23) in 'Test.Hspec.Core.Extension' Missing documentation for: Option (src/Test/Hspec/Core/Extension/Config/Type.hs:23) registerOptions (src/Test/Hspec/Core/Extension.hs:93) Config (src/Test/Hspec/Core/Config/Definition.hs:80) SpecTree (src/Test/Hspec/Core/Extension/Tree.hs:13) Warning: 'Config' is ambiguous. It is defined * at src/Test/Hspec/Core/Config/Definition.hs:80:15 * at src/Test/Hspec/Core/Config/Definition.hs:80:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Config/Definition.hs:80:1 Warning: 'Config' is ambiguous. It is defined * at src/Test/Hspec/Core/Config/Definition.hs:80:15 * at src/Test/Hspec/Core/Config/Definition.hs:80:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Config/Definition.hs:80:1 Warning: 'Summary' is ambiguous. It is defined * at src/Test/Hspec/Core/Runner/Result.hs:82:16 * at src/Test/Hspec/Core/Runner/Result.hs:82:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Test/Hspec/Core/Runner/Result.hs:82:1 83% ( 36 / 43) in 'Test.Hspec.Core.Runner' Missing documentation for: evaluateResult (src/Test/Hspec/Core/Runner.hs:217) toSummary (src/Test/Hspec/Core/Runner/Result.hs:101) ResultItemStatus (src/Test/Hspec/Core/Runner/Result.hs:61) Config (src/Test/Hspec/Core/Config/Definition.hs:80) ColorMode (src/Test/Hspec/Core/Config/Definition.hs:74) UnicodeMode (src/Test/Hspec/Core/Config/Definition.hs:77) defaultConfig (src/Test/Hspec/Core/Config.hs:39) Warning: Test.Hspec.Core.Formatters.V1: could not find link destinations for: - Test.Hspec.Core.Formatters.V1.Free.Free - Test.Hspec.Core.Formatters.V1.Monad.FormatF Warning: Test.Hspec.Core.QuickCheck: could not find link destinations for: - Test.Hspec.Core.QuickCheck.D:R:ArgFUN - Test.Hspec.Core.QuickCheck.D:R:ArgProperty Warning: Test.Hspec.Core.Spec: could not find link destinations for: - Test.Hspec.Core.Annotations.Annotations - Test.Hspec.Core.Example.D:R:ArgFUN - Test.Hspec.Core.Example.D:R:ArgIO - Test.Hspec.Core.Example.D:R:ArgFUN0 - Test.Hspec.Core.Example.D:R:ArgBool - Test.Hspec.Core.Example.D:R:ArgFUN1 - Test.Hspec.Core.Example.D:R:ArgResult - Test.Hspec.Core.Spec.Monad.Env - Test.Hspec.Core.QuickCheck.D:R:ArgFUN - Test.Hspec.Core.QuickCheck.D:R:ArgProperty Warning: Test.Hspec.Core.Extension.Item: could not find link destinations for: - Test.Hspec.Core.Annotations.Annotations - Test.Hspec.Core.Example.D:R:ArgFUN1 - Test.Hspec.Core.Example.D:R:ArgResult Warning: Test.Hspec.Core.Extension.Config: could not find link destinations for: - Test.Hspec.Core.Annotations.Annotations Warning: Test.Hspec.Core.Runner: could not find link destinations for: - Test.Hspec.Core.Annotations.Annotations Documentation created: dist/doc/html/hspec-core/, dist/doc/html/hspec-core/hspec-core.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-core-2.11.14-KY3bOnxQPsR985XbsTcuIt Completed hspec-core-2.11.14 Configuring semigroupoids-6.0.1... Preprocessing library for semigroupoids-6.0.1.. Building library for semigroupoids-6.0.1.. [ 1 of 27] Compiling Data.Functor.Extend ( src/Data/Functor/Extend.hs, dist/build/Data/Functor/Extend.o, dist/build/Data/Functor/Extend.dyn_o ) [ 2 of 27] Compiling Data.Semigroup.Foldable.Class ( src/Data/Semigroup/Foldable/Class.hs, dist/build/Data/Semigroup/Foldable/Class.o, dist/build/Data/Semigroup/Foldable/Class.dyn_o ) [ 3 of 27] Compiling Data.Traversable.Instances ( src/Data/Traversable/Instances.hs, dist/build/Data/Traversable/Instances.o, dist/build/Data/Traversable/Instances.dyn_o ) [ 4 of 27] Compiling Semigroupoids.Internal ( src/Semigroupoids/Internal.hs, dist/build/Semigroupoids/Internal.o, dist/build/Semigroupoids/Internal.dyn_o ) [ 5 of 27] Compiling Data.Functor.Bind.Class ( src/Data/Functor/Bind/Class.hs, dist/build/Data/Functor/Bind/Class.o, dist/build/Data/Functor/Bind/Class.dyn_o ) [ 6 of 27] Compiling Data.Functor.Apply ( src/Data/Functor/Apply.hs, dist/build/Data/Functor/Apply.o, dist/build/Data/Functor/Apply.dyn_o ) [ 7 of 27] Compiling Data.Semigroup.Bifoldable ( src/Data/Semigroup/Bifoldable.hs, dist/build/Data/Semigroup/Bifoldable.o, dist/build/Data/Semigroup/Bifoldable.dyn_o ) [ 8 of 27] Compiling Data.Functor.Contravariant.Divise ( src/Data/Functor/Contravariant/Divise.hs, dist/build/Data/Functor/Contravariant/Divise.o, dist/build/Data/Functor/Contravariant/Divise.dyn_o ) [ 9 of 27] Compiling Data.Functor.Contravariant.Decide ( src/Data/Functor/Contravariant/Decide.hs, dist/build/Data/Functor/Contravariant/Decide.o, dist/build/Data/Functor/Contravariant/Decide.dyn_o ) [10 of 27] Compiling Data.Functor.Contravariant.Conclude ( src/Data/Functor/Contravariant/Conclude.hs, dist/build/Data/Functor/Contravariant/Conclude.o, dist/build/Data/Functor/Contravariant/Conclude.dyn_o ) [11 of 27] Compiling Data.Functor.Bind ( src/Data/Functor/Bind.hs, dist/build/Data/Functor/Bind.o, dist/build/Data/Functor/Bind.dyn_o ) [12 of 27] Compiling Data.Semigroupoid ( src/Data/Semigroupoid.hs, dist/build/Data/Semigroupoid.o, dist/build/Data/Semigroupoid.dyn_o ) [13 of 27] Compiling Data.Semigroupoid.Ob ( src/Data/Semigroupoid/Ob.hs, dist/build/Data/Semigroupoid/Ob.o, dist/build/Data/Semigroupoid/Ob.dyn_o ) [14 of 27] Compiling Data.Semigroupoid.Dual ( src/Data/Semigroupoid/Dual.hs, dist/build/Data/Semigroupoid/Dual.o, dist/build/Data/Semigroupoid/Dual.dyn_o ) [15 of 27] Compiling Data.Semigroupoid.Categorical ( src/Data/Semigroupoid/Categorical.hs, dist/build/Data/Semigroupoid/Categorical.o, dist/build/Data/Semigroupoid/Categorical.dyn_o ) [16 of 27] Compiling Data.Groupoid ( src/Data/Groupoid.hs, dist/build/Data/Groupoid.o, dist/build/Data/Groupoid.dyn_o ) [17 of 27] Compiling Data.Isomorphism ( src/Data/Isomorphism.hs, dist/build/Data/Isomorphism.o, dist/build/Data/Isomorphism.dyn_o ) [18 of 27] Compiling Data.Functor.Bind.Trans ( src/Data/Functor/Bind/Trans.hs, dist/build/Data/Functor/Bind/Trans.o, dist/build/Data/Functor/Bind/Trans.dyn_o ) [19 of 27] Compiling Data.Bifunctor.Apply ( src/Data/Bifunctor/Apply.hs, dist/build/Data/Bifunctor/Apply.o, dist/build/Data/Bifunctor/Apply.dyn_o ) [20 of 27] Compiling Data.Functor.Alt ( src/Data/Functor/Alt.hs, dist/build/Data/Functor/Alt.o, dist/build/Data/Functor/Alt.dyn_o ) [21 of 27] Compiling Data.Semigroup.Foldable ( src/Data/Semigroup/Foldable.hs, dist/build/Data/Semigroup/Foldable.o, dist/build/Data/Semigroup/Foldable.dyn_o ) [22 of 27] Compiling Data.Semigroup.Traversable.Class ( src/Data/Semigroup/Traversable/Class.hs, dist/build/Data/Semigroup/Traversable/Class.o, dist/build/Data/Semigroup/Traversable/Class.dyn_o ) [23 of 27] Compiling Data.Semigroup.Traversable ( src/Data/Semigroup/Traversable.hs, dist/build/Data/Semigroup/Traversable.o, dist/build/Data/Semigroup/Traversable.dyn_o ) [24 of 27] Compiling Data.Semigroup.Bitraversable ( src/Data/Semigroup/Bitraversable.hs, dist/build/Data/Semigroup/Bitraversable.o, dist/build/Data/Semigroup/Bitraversable.dyn_o ) [25 of 27] Compiling Data.Functor.Plus ( src/Data/Functor/Plus.hs, dist/build/Data/Functor/Plus.o, dist/build/Data/Functor/Plus.dyn_o ) [26 of 27] Compiling Semigroupoids.Do ( src/Semigroupoids/Do.hs, dist/build/Semigroupoids/Do.o, dist/build/Semigroupoids/Do.dyn_o ) [27 of 27] Compiling Data.Semigroupoid.Static ( src/Data/Semigroupoid/Static.hs, dist/build/Data/Semigroupoid/Static.o, dist/build/Data/Semigroupoid/Static.dyn_o ) Preprocessing library for semigroupoids-6.0.1.. Running Haddock on library for semigroupoids-6.0.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 27] Compiling Data.Functor.Extend ( src/Data/Functor/Extend.hs, nothing ) [ 2 of 27] Compiling Data.Semigroup.Foldable.Class ( src/Data/Semigroup/Foldable/Class.hs, nothing ) [ 3 of 27] Compiling Data.Traversable.Instances ( src/Data/Traversable/Instances.hs, nothing ) [ 4 of 27] Compiling Semigroupoids.Internal ( src/Semigroupoids/Internal.hs, nothing ) [ 5 of 27] Compiling Data.Functor.Bind.Class ( src/Data/Functor/Bind/Class.hs, nothing ) [ 6 of 27] Compiling Data.Functor.Apply ( src/Data/Functor/Apply.hs, nothing ) [ 7 of 27] Compiling Data.Semigroup.Bifoldable ( src/Data/Semigroup/Bifoldable.hs, nothing ) [ 8 of 27] Compiling Data.Functor.Contravariant.Divise ( src/Data/Functor/Contravariant/Divise.hs, nothing ) [ 9 of 27] Compiling Data.Functor.Contravariant.Decide ( src/Data/Functor/Contravariant/Decide.hs, nothing ) [10 of 27] Compiling Data.Functor.Contravariant.Conclude ( src/Data/Functor/Contravariant/Conclude.hs, nothing ) [11 of 27] Compiling Data.Functor.Bind ( src/Data/Functor/Bind.hs, nothing ) [12 of 27] Compiling Data.Semigroupoid ( src/Data/Semigroupoid.hs, nothing ) [13 of 27] Compiling Data.Semigroupoid.Ob ( src/Data/Semigroupoid/Ob.hs, nothing ) [14 of 27] Compiling Data.Semigroupoid.Dual ( src/Data/Semigroupoid/Dual.hs, nothing ) [15 of 27] Compiling Data.Semigroupoid.Categorical ( src/Data/Semigroupoid/Categorical.hs, nothing ) [16 of 27] Compiling Data.Groupoid ( src/Data/Groupoid.hs, nothing ) [17 of 27] Compiling Data.Isomorphism ( src/Data/Isomorphism.hs, nothing ) [18 of 27] Compiling Data.Functor.Bind.Trans ( src/Data/Functor/Bind/Trans.hs, nothing ) [19 of 27] Compiling Data.Bifunctor.Apply ( src/Data/Bifunctor/Apply.hs, nothing ) [20 of 27] Compiling Data.Functor.Alt ( src/Data/Functor/Alt.hs, nothing ) [21 of 27] Compiling Data.Semigroup.Foldable ( src/Data/Semigroup/Foldable.hs, nothing ) [22 of 27] Compiling Data.Semigroup.Traversable.Class ( src/Data/Semigroup/Traversable/Class.hs, nothing ) [23 of 27] Compiling Data.Semigroup.Traversable ( src/Data/Semigroup/Traversable.hs, nothing ) [24 of 27] Compiling Data.Semigroup.Bitraversable ( src/Data/Semigroup/Bitraversable.hs, nothing ) [25 of 27] Compiling Data.Functor.Plus ( src/Data/Functor/Plus.hs, nothing ) [26 of 27] Compiling Semigroupoids.Do ( src/Semigroupoids/Do.hs, nothing ) [27 of 27] Compiling Data.Semigroupoid.Static ( src/Data/Semigroupoid/Static.hs, nothing ) Haddock coverage: 83% ( 5 / 6) in 'Data.Functor.Extend' Missing documentation for: Extend (src/Data/Functor/Extend.hs:55) 66% ( 2 / 3) in 'Data.Semigroup.Foldable.Class' Missing documentation for: Bifoldable1 100% ( 1 / 1) in 'Data.Traversable.Instances' Warning: 'MaybeApply' is ambiguous. It is defined * at src/Data/Functor/Bind/Class.hs:411:26 * at src/Data/Functor/Bind/Class.hs:411:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Functor/Bind/Class.hs:411:1 Warning: 'K1' is ambiguous. It is defined * in GHC.Generics * in GHC.Generics You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Generics Warning: 'StoreT' is ambiguous. It is defined * in Control.Comonad.Trans.Store * in Control.Comonad.Trans.Store You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Comonad.Trans.Store Warning: 'EnvT' is ambiguous. It is defined * in Control.Comonad.Trans.Env * in Control.Comonad.Trans.Env You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Comonad.Trans.Env Warning: 'Const' is ambiguous. It is defined * in Data.Functor.Const * in Data.Functor.Const You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Const Warning: '(,)' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Constant' is ambiguous. It is defined * in Data.Functor.Constant * in Data.Functor.Constant You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Constant 80% ( 12 / 15) in 'Data.Functor.Bind.Class' Missing documentation for: apDefault (src/Data/Functor/Bind/Class.hs:540) returning (src/Data/Functor/Bind/Class.hs:537) Biapply (src/Data/Functor/Bind/Class.hs:753) 100% ( 16 / 16) in 'Data.Functor.Apply' 33% ( 2 / 6) in 'Data.Semigroup.Bifoldable' Missing documentation for: Bifoldable1 bitraverse1_ (src/Data/Semigroup/Bifoldable.hs:46) bifor1_ (src/Data/Semigroup/Bifoldable.hs:50) bisequenceA1_ (src/Data/Semigroup/Bifoldable.hs:58) Warning: 'Day' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 6 / 6) in 'Data.Functor.Contravariant.Divise' Warning: 'Alt' is ambiguous. It is defined * in Data.Semigroup.Internal * in Data.Semigroup.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Semigroup.Internal Warning: 'EitherDay' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Conclude' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 5 / 5) in 'Data.Functor.Contravariant.Decide' Warning: 'Plus' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 5 / 5) in 'Data.Functor.Contravariant.Conclude' Warning: ':*:' is ambiguous. It is defined * in GHC.Generics * in GHC.Generics You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Generics 75% ( 15 / 20) in 'Data.Functor.Bind' Missing documentation for: -<< (src/Data/Functor/Bind.hs:53) -<- (src/Data/Functor/Bind.hs:59) ->- (src/Data/Functor/Bind.hs:56) apDefault (src/Data/Functor/Bind/Class.hs:540) returning (src/Data/Functor/Bind/Class.hs:537) 50% ( 2 / 4) in 'Data.Semigroupoid' Missing documentation for: WrappedCategory (src/Data/Semigroupoid.hs:71) Semi (src/Data/Semigroupoid.hs:80) 50% ( 1 / 2) in 'Data.Semigroupoid.Ob' Missing documentation for: Ob (src/Data/Semigroupoid/Ob.hs:29) 50% ( 1 / 2) in 'Data.Semigroupoid.Dual' Missing documentation for: Dual (src/Data/Semigroupoid/Dual.hs:21) 100% ( 3 / 3) in 'Data.Semigroupoid.Categorical' 100% ( 2 / 2) in 'Data.Groupoid' 50% ( 1 / 2) in 'Data.Isomorphism' Missing documentation for: Iso (src/Data/Isomorphism.hs:23) 100% ( 2 / 2) in 'Data.Functor.Bind.Trans' 62% ( 5 / 8) in 'Data.Bifunctor.Apply' Missing documentation for: Biapply (src/Data/Functor/Bind/Class.hs:753) <<$>> <<..>> (src/Data/Bifunctor/Apply.hs:28) Warning: 'ExceptT' is ambiguous. It is defined * in Control.Monad.Trans.Except * in Control.Monad.Trans.Except You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Except Warning: 'Identity' is ambiguous. It is defined * in Data.Functor.Identity * in Data.Functor.Identity You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Identity Warning: 'Bind' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 5 / 5) in 'Data.Functor.Alt' 71% ( 10 / 14) in 'Data.Semigroup.Foldable' Missing documentation for: traverse1_ (src/Data/Semigroup/Foldable.hs:78) for1_ (src/Data/Semigroup/Foldable.hs:82) sequenceA1_ (src/Data/Semigroup/Foldable.hs:86) asum1 (src/Data/Semigroup/Foldable.hs:104) 33% ( 1 / 3) in 'Data.Semigroup.Traversable.Class' Missing documentation for: Bitraversable1 (src/Data/Semigroup/Traversable/Class.hs:59) Traversable1 (src/Data/Semigroup/Traversable/Class.hs:139) Warning: 'foldMap1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 88% ( 8 / 9) in 'Data.Semigroup.Traversable' Missing documentation for: Traversable1 (src/Data/Semigroup/Traversable/Class.hs:139) 33% ( 1 / 3) in 'Data.Semigroup.Bitraversable' Missing documentation for: Bitraversable1 (src/Data/Semigroup/Traversable/Class.hs:59) bifoldMap1Default (src/Data/Semigroup/Bitraversable.hs:25) 100% ( 5 / 5) in 'Data.Functor.Plus' Warning: 'Applicative' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Monad' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 90% ( 10 / 11) in 'Semigroupoids.Do' Missing documentation for: join 50% ( 1 / 2) in 'Data.Semigroupoid.Static' Missing documentation for: Static (src/Data/Semigroupoid/Static.hs:35) Warning: Data.Functor.Apply: could not find link destinations for: - Text.ParserCombinators.ReadP.P - Data.Biapplicative.Mag - Data.Graph.SetM Warning: Data.Functor.Bind: could not find link destinations for: - Text.ParserCombinators.ReadP.P - Data.Biapplicative.Mag - Data.Graph.SetM Documentation created: dist/doc/html/semigroupoids/, dist/doc/html/semigroupoids/semigroupoids.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED Completed semigroupoids-6.0.1 Configuring tasty-1.5.3... Preprocessing library for tasty-1.5.3.. Building library for tasty-1.5.3.. [ 1 of 25] Compiling Control.Concurrent.Async ( Control/Concurrent/Async.hs, dist/build/Control/Concurrent/Async.o, dist/build/Control/Concurrent/Async.dyn_o ) [ 2 of 25] Compiling Test.Tasty.Options ( Test/Tasty/Options.hs, dist/build/Test/Tasty/Options.o, dist/build/Test/Tasty/Options.dyn_o ) [ 3 of 25] Compiling Test.Tasty.Parallel ( Test/Tasty/Parallel.hs, dist/build/Test/Tasty/Parallel.o, dist/build/Test/Tasty/Parallel.dyn_o ) [ 4 of 25] Compiling Test.Tasty.Patterns.Expr ( Test/Tasty/Patterns/Expr.hs, dist/build/Test/Tasty/Patterns/Expr.o, dist/build/Test/Tasty/Patterns/Expr.dyn_o ) [ 5 of 25] Compiling Test.Tasty.Patterns.Types ( Test/Tasty/Patterns/Types.hs, dist/build/Test/Tasty/Patterns/Types.o, dist/build/Test/Tasty/Patterns/Types.dyn_o ) [ 6 of 25] Compiling Test.Tasty.Patterns.Printer ( Test/Tasty/Patterns/Printer.hs, dist/build/Test/Tasty/Patterns/Printer.o, dist/build/Test/Tasty/Patterns/Printer.dyn_o ) [ 7 of 25] Compiling Test.Tasty.Patterns.Parser ( Test/Tasty/Patterns/Parser.hs, dist/build/Test/Tasty/Patterns/Parser.o, dist/build/Test/Tasty/Patterns/Parser.dyn_o ) [ 8 of 25] Compiling Test.Tasty.Patterns.Eval ( Test/Tasty/Patterns/Eval.hs, dist/build/Test/Tasty/Patterns/Eval.o, dist/build/Test/Tasty/Patterns/Eval.dyn_o ) [ 9 of 25] Compiling Test.Tasty.Patterns ( Test/Tasty/Patterns.hs, dist/build/Test/Tasty/Patterns.o, dist/build/Test/Tasty/Patterns.dyn_o ) [10 of 25] Compiling Test.Tasty.Options.Core ( Test/Tasty/Options/Core.hs, dist/build/Test/Tasty/Options/Core.o, dist/build/Test/Tasty/Options/Core.dyn_o ) [11 of 25] Compiling Test.Tasty.Providers.ConsoleFormat ( Test/Tasty/Providers/ConsoleFormat.hs, dist/build/Test/Tasty/Providers/ConsoleFormat.o, dist/build/Test/Tasty/Providers/ConsoleFormat.dyn_o ) [12 of 25] Compiling Test.Tasty.Core ( Test/Tasty/Core.hs, dist/build/Test/Tasty/Core.o, dist/build/Test/Tasty/Core.dyn_o ) [13 of 25] Compiling Test.Tasty.Providers ( Test/Tasty/Providers.hs, dist/build/Test/Tasty/Providers.o, dist/build/Test/Tasty/Providers.dyn_o ) [14 of 25] Compiling Test.Tasty.Runners.Reducers ( Test/Tasty/Runners/Reducers.hs, dist/build/Test/Tasty/Runners/Reducers.o, dist/build/Test/Tasty/Runners/Reducers.dyn_o ) [15 of 25] Compiling Test.Tasty.Runners.Utils ( Test/Tasty/Runners/Utils.hs, dist/build/Test/Tasty/Runners/Utils.o, dist/build/Test/Tasty/Runners/Utils.dyn_o ) [16 of 25] Compiling Test.Tasty.Run ( Test/Tasty/Run.hs, dist/build/Test/Tasty/Run.o, dist/build/Test/Tasty/Run.dyn_o ) [17 of 25] Compiling Test.Tasty.Ingredients ( Test/Tasty/Ingredients.hs, dist/build/Test/Tasty/Ingredients.o, dist/build/Test/Tasty/Ingredients.dyn_o ) [18 of 25] Compiling Test.Tasty.Options.Env ( Test/Tasty/Options/Env.hs, dist/build/Test/Tasty/Options/Env.o, dist/build/Test/Tasty/Options/Env.dyn_o ) [19 of 25] Compiling Test.Tasty.Ingredients.ListTests ( Test/Tasty/Ingredients/ListTests.hs, dist/build/Test/Tasty/Ingredients/ListTests.o, dist/build/Test/Tasty/Ingredients/ListTests.dyn_o ) [20 of 25] Compiling Test.Tasty.Ingredients.IncludingOptions ( Test/Tasty/Ingredients/IncludingOptions.hs, dist/build/Test/Tasty/Ingredients/IncludingOptions.o, dist/build/Test/Tasty/Ingredients/IncludingOptions.dyn_o ) [21 of 25] Compiling Test.Tasty.Ingredients.ConsoleReporter ( Test/Tasty/Ingredients/ConsoleReporter.hs, dist/build/Test/Tasty/Ingredients/ConsoleReporter.o, dist/build/Test/Tasty/Ingredients/ConsoleReporter.dyn_o ) [22 of 25] Compiling Test.Tasty.Ingredients.Basic ( Test/Tasty/Ingredients/Basic.hs, dist/build/Test/Tasty/Ingredients/Basic.o, dist/build/Test/Tasty/Ingredients/Basic.dyn_o ) [23 of 25] Compiling Test.Tasty.CmdLine ( Test/Tasty/CmdLine.hs, dist/build/Test/Tasty/CmdLine.o, dist/build/Test/Tasty/CmdLine.dyn_o ) [24 of 25] Compiling Test.Tasty.Runners ( Test/Tasty/Runners.hs, dist/build/Test/Tasty/Runners.o, dist/build/Test/Tasty/Runners.dyn_o ) [25 of 25] Compiling Test.Tasty ( Test/Tasty.hs, dist/build/Test/Tasty.o, dist/build/Test/Tasty.dyn_o ) Preprocessing library for tasty-1.5.3.. Running Haddock on library for tasty-1.5.3.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 25] Compiling Control.Concurrent.Async ( Control/Concurrent/Async.hs, nothing ) [ 2 of 25] Compiling Test.Tasty.Options ( Test/Tasty/Options.hs, nothing ) [ 3 of 25] Compiling Test.Tasty.Parallel ( Test/Tasty/Parallel.hs, nothing ) [ 4 of 25] Compiling Test.Tasty.Patterns.Expr ( Test/Tasty/Patterns/Expr.hs, nothing ) [ 5 of 25] Compiling Test.Tasty.Patterns.Types ( Test/Tasty/Patterns/Types.hs, nothing ) [ 6 of 25] Compiling Test.Tasty.Patterns.Printer ( Test/Tasty/Patterns/Printer.hs, nothing ) [ 7 of 25] Compiling Test.Tasty.Patterns.Parser ( Test/Tasty/Patterns/Parser.hs, nothing ) [ 8 of 25] Compiling Test.Tasty.Patterns.Eval ( Test/Tasty/Patterns/Eval.hs, nothing ) [ 9 of 25] Compiling Test.Tasty.Patterns ( Test/Tasty/Patterns.hs, nothing ) [10 of 25] Compiling Test.Tasty.Options.Core ( Test/Tasty/Options/Core.hs, nothing ) [11 of 25] Compiling Test.Tasty.Providers.ConsoleFormat ( Test/Tasty/Providers/ConsoleFormat.hs, nothing ) [12 of 25] Compiling Test.Tasty.Core ( Test/Tasty/Core.hs, nothing ) [13 of 25] Compiling Test.Tasty.Providers ( Test/Tasty/Providers.hs, nothing ) [14 of 25] Compiling Test.Tasty.Runners.Reducers ( Test/Tasty/Runners/Reducers.hs, nothing ) [15 of 25] Compiling Test.Tasty.Runners.Utils ( Test/Tasty/Runners/Utils.hs, nothing ) [16 of 25] Compiling Test.Tasty.Run ( Test/Tasty/Run.hs, nothing ) [17 of 25] Compiling Test.Tasty.Ingredients ( Test/Tasty/Ingredients.hs, nothing ) [18 of 25] Compiling Test.Tasty.Options.Env ( Test/Tasty/Options/Env.hs, nothing ) [19 of 25] Compiling Test.Tasty.Ingredients.ListTests ( Test/Tasty/Ingredients/ListTests.hs, nothing ) [20 of 25] Compiling Test.Tasty.Ingredients.IncludingOptions ( Test/Tasty/Ingredients/IncludingOptions.hs, nothing ) [21 of 25] Compiling Test.Tasty.Ingredients.ConsoleReporter ( Test/Tasty/Ingredients/ConsoleReporter.hs, nothing ) [22 of 25] Compiling Test.Tasty.Ingredients.Basic ( Test/Tasty/Ingredients/Basic.hs, nothing ) [23 of 25] Compiling Test.Tasty.CmdLine ( Test/Tasty/CmdLine.hs, nothing ) [24 of 25] Compiling Test.Tasty.Runners ( Test/Tasty/Runners.hs, nothing ) [25 of 25] Compiling Test.Tasty ( Test/Tasty.hs, nothing ) Haddock coverage: Warning: 'ThreadId' is ambiguous. It is defined * in GHC.Conc.Sync * in GHC.Conc.Sync You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Conc.Sync Warning: 'Async' is ambiguous. It is defined * at Control/Concurrent/Async.hs:60:16 * at Control/Concurrent/Async.hs:60:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Concurrent/Async.hs:60:1 Warning: 'OptionSet' is ambiguous. It is defined * at Test/Tasty/Options.hs:101:21 * at Test/Tasty/Options.hs:101:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Options.hs:101:1 100% ( 17 / 17) in 'Test.Tasty.Options' Warning: 'Action' is ambiguous. It is defined * at Test/Tasty/Parallel.hs:21:15 * at Test/Tasty/Parallel.hs:21:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Parallel.hs:21:1 100% ( 2 / 2) in 'Test.Tasty.Patterns.Types' 100% ( 2 / 2) in 'Test.Tasty.Patterns.Printer' Warning: 'Parser' is ambiguous. It is defined * at Test/Tasty/Patterns/Parser.hs:32:20 * at Test/Tasty/Patterns/Parser.hs:32:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Patterns/Parser.hs:32:1 100% ( 6 / 6) in 'Test.Tasty.Patterns.Parser' 100% ( 5 / 5) in 'Test.Tasty.Patterns.Eval' Warning: 'Timeout' is ambiguous. It is defined * at Test/Tasty/Options/Core.hs:56:5 * at Test/Tasty/Options/Core.hs:55:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Options/Core.hs:55:1 Warning: 'TestPattern' is ambiguous. It is defined * at Test/Tasty/Patterns.hs:33:3 * at Test/Tasty/Patterns.hs:31:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Patterns.hs:31:1 Warning: 'Map' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 10 / 10) in 'Test.Tasty.Providers.ConsoleFormat' Warning: 'ResourceSpec' is ambiguous. It is defined * at Test/Tasty/Core.hs:226:23 * at Test/Tasty/Core.hs:226:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Core.hs:226:1 Warning: 'Result' is ambiguous. It is defined * at Test/Tasty/Core.hs:91:15 * at Test/Tasty/Core.hs:91:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Core.hs:91:1 Warning: 'Result' is ambiguous. It is defined * at Test/Tasty/Core.hs:91:15 * at Test/Tasty/Core.hs:91:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Core.hs:91:1 100% ( 10 / 10) in 'Test.Tasty.Providers' Warning: 'SignalException' is ambiguous. It is defined * at Test/Tasty/Runners/Utils.hs:104:27 * at Test/Tasty/Runners/Utils.hs:104:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Runners/Utils.hs:104:1 Warning: 'TestAction' is ambiguous. It is defined * at Test/Tasty/Run.hs:305:23 * at Test/Tasty/Run.hs:305:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Run.hs:305:1 Warning: 'Initializer' is ambiguous. It is defined * at Test/Tasty/Run.hs:96:5 * at Test/Tasty/Run.hs:95:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Run.hs:95:1 Warning: 'Finalizer' is ambiguous. It is defined * at Test/Tasty/Run.hs:100:5 * at Test/Tasty/Run.hs:99:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Run.hs:99:1 Warning: 'Action' is ambiguous. It is defined * at Test/Tasty/Parallel.hs:21:15 * at Test/Tasty/Parallel.hs:21:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Parallel.hs:21:1 Warning: 'Dependency' is ambiguous. It is defined * at Test/Tasty/Run.hs:282:19 * at Test/Tasty/Run.hs:282:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Run.hs:282:1 Warning: 'NumThreads' is ambiguous. It is defined * at Test/Tasty/Options/Core.hs:38:22 * at Test/Tasty/Options/Core.hs:38:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Options/Core.hs:38:1 Warning: 'NumThreads' is ambiguous. It is defined * at Test/Tasty/Options/Core.hs:38:22 * at Test/Tasty/Options/Core.hs:38:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Options/Core.hs:38:1 100% ( 7 / 7) in 'Test.Tasty.Ingredients' Warning: 'Statistics' is ambiguous. It is defined * at Test/Tasty/Ingredients/ConsoleReporter.hs:382:19 * at Test/Tasty/Ingredients/ConsoleReporter.hs:382:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Ingredients/ConsoleReporter.hs:382:1 Warning: 'Result' is ambiguous. It is defined * at Test/Tasty/Core.hs:91:15 * at Test/Tasty/Core.hs:91:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Test/Tasty/Core.hs:91:1 100% ( 22 / 22) in 'Test.Tasty.Ingredients.ConsoleReporter' 100% ( 12 / 12) in 'Test.Tasty.Ingredients.Basic' 100% ( 58 / 58) in 'Test.Tasty.Runners' 100% ( 26 / 26) in 'Test.Tasty' Warning: Test.Tasty.Patterns.Types: could not find link destinations for: - Test.Tasty.Patterns.Types.Rep_Expr Warning: Test.Tasty.Patterns.Eval: could not find link destinations for: - Test.Tasty.Patterns.Eval.M - Test.Tasty.Patterns.Eval.Value Warning: Test.Tasty.Runners: could not find link destinations for: - Test.Tasty.Core.Rep_Outcome Documentation created: dist/doc/html/tasty/, dist/doc/html/tasty/tasty.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/tasty-1.5.3-8bGipBEqvCZ29fR2jkj5jz Completed tasty-1.5.3 Configuring hspec-2.11.14... Preprocessing library for hspec-2.11.14.. Building library for hspec-2.11.14.. [1 of 6] Compiling Paths_hspec ( dist/build/autogen/Paths_hspec.hs, dist/build/Paths_hspec.o, dist/build/Paths_hspec.dyn_o ) [2 of 6] Compiling Test.Hspec.Discover ( src/Test/Hspec/Discover.hs, dist/build/Test/Hspec/Discover.o, dist/build/Test/Hspec/Discover.dyn_o ) [3 of 6] Compiling Test.Hspec.Formatters ( src/Test/Hspec/Formatters.hs, dist/build/Test/Hspec/Formatters.o, dist/build/Test/Hspec/Formatters.dyn_o ) [4 of 6] Compiling Test.Hspec.Runner ( src/Test/Hspec/Runner.hs, dist/build/Test/Hspec/Runner.o, dist/build/Test/Hspec/Runner.dyn_o ) [5 of 6] Compiling Test.Hspec ( src/Test/Hspec.hs, dist/build/Test/Hspec.o, dist/build/Test/Hspec.dyn_o ) [6 of 6] Compiling Test.Hspec.QuickCheck ( src/Test/Hspec/QuickCheck.hs, dist/build/Test/Hspec/QuickCheck.o, dist/build/Test/Hspec/QuickCheck.dyn_o ) Preprocessing library for hspec-2.11.14.. Running Haddock on library for hspec-2.11.14.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling Paths_hspec ( dist/build/autogen/Paths_hspec.hs, nothing ) [2 of 6] Compiling Test.Hspec.Discover ( src/Test/Hspec/Discover.hs, nothing ) [3 of 6] Compiling Test.Hspec.Formatters ( src/Test/Hspec/Formatters.hs, nothing ) [4 of 6] Compiling Test.Hspec.Runner ( src/Test/Hspec/Runner.hs, nothing ) [5 of 6] Compiling Test.Hspec ( src/Test/Hspec.hs, nothing ) [6 of 6] Compiling Test.Hspec.QuickCheck ( src/Test/Hspec/QuickCheck.hs, nothing ) Haddock coverage: 50% ( 4 / 8) in 'Test.Hspec.Discover' Missing documentation for: Module header IsFormatter (src/Test/Hspec/Discover.hs:19) hspecWithFormatter (src/Test/Hspec/Discover.hs:29) postProcessSpec (src/Test/Hspec/Discover.hs:34) 100% ( 2 / 2) in 'Test.Hspec.Formatters' 50% ( 1 / 2) in 'Test.Hspec.Runner' Missing documentation for: Module header 100% ( 53 / 53) in 'Test.Hspec' 90% ( 10 / 11) in 'Test.Hspec.QuickCheck' Missing documentation for: Module header Warning: Test.Hspec: could not find link destinations for: - Test.Hspec.Core.Example.D:R:ArgBool - Test.Hspec.Core.Example.D:R:ArgFUN - Test.Hspec.Core.Example.D:R:ArgFUN0 - Test.Hspec.Core.Example.D:R:ArgFUN1 - Test.Hspec.Core.Example.D:R:ArgIO - Test.Hspec.Core.Example.D:R:ArgResult Documentation created: dist/doc/html/hspec/, dist/doc/html/hspec/hspec.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/hspec-2.11.14-CDruTqWzqueKvxtG5EcYex Completed hspec-2.11.14 Configuring vector-0.13.2.0... Preprocessing library for vector-0.13.2.0.. Building library for vector-0.13.2.0.. [ 1 of 23] Compiling Data.Vector.Fusion.Stream.Monadic ( src/Data/Vector/Fusion/Stream/Monadic.hs, dist/build/Data/Vector/Fusion/Stream/Monadic.o, dist/build/Data/Vector/Fusion/Stream/Monadic.dyn_o ) [ 2 of 23] Compiling Data.Vector.Fusion.Util ( src/Data/Vector/Fusion/Util.hs, dist/build/Data/Vector/Fusion/Util.o, dist/build/Data/Vector/Fusion/Util.dyn_o ) [ 3 of 23] Compiling Data.Vector.Fusion.Bundle.Size ( src/Data/Vector/Fusion/Bundle/Size.hs, dist/build/Data/Vector/Fusion/Bundle/Size.o, dist/build/Data/Vector/Fusion/Bundle/Size.dyn_o ) [ 4 of 23] Compiling Data.Vector.Generic.Mutable.Base ( src/Data/Vector/Generic/Mutable/Base.hs, dist/build/Data/Vector/Generic/Mutable/Base.o, dist/build/Data/Vector/Generic/Mutable/Base.dyn_o ) [ 5 of 23] Compiling Data.Vector.Generic.Base ( src/Data/Vector/Generic/Base.hs, dist/build/Data/Vector/Generic/Base.o, dist/build/Data/Vector/Generic/Base.dyn_o ) [ 6 of 23] Compiling Data.Vector.Internal.Check ( src/Data/Vector/Internal/Check.hs, dist/build/Data/Vector/Internal/Check.o, dist/build/Data/Vector/Internal/Check.dyn_o ) [ 7 of 23] Compiling Data.Vector.Fusion.Bundle.Monadic ( src/Data/Vector/Fusion/Bundle/Monadic.hs, dist/build/Data/Vector/Fusion/Bundle/Monadic.o, dist/build/Data/Vector/Fusion/Bundle/Monadic.dyn_o ) [ 8 of 23] Compiling Data.Vector.Fusion.Bundle ( src/Data/Vector/Fusion/Bundle.hs, dist/build/Data/Vector/Fusion/Bundle.o, dist/build/Data/Vector/Fusion/Bundle.dyn_o ) [ 9 of 23] Compiling Data.Vector.Generic.Mutable ( src/Data/Vector/Generic/Mutable.hs, dist/build/Data/Vector/Generic/Mutable.o, dist/build/Data/Vector/Generic/Mutable.dyn_o ) [10 of 23] Compiling Data.Vector.Generic.New ( src/Data/Vector/Generic/New.hs, dist/build/Data/Vector/Generic/New.o, dist/build/Data/Vector/Generic/New.dyn_o ) [11 of 23] Compiling Data.Vector.Generic ( src/Data/Vector/Generic.hs, dist/build/Data/Vector/Generic.o, dist/build/Data/Vector/Generic.dyn_o ) [12 of 23] Compiling Data.Vector.Mutable ( src/Data/Vector/Mutable.hs, dist/build/Data/Vector/Mutable.o, dist/build/Data/Vector/Mutable.dyn_o ) [13 of 23] Compiling Data.Vector ( src/Data/Vector.hs, dist/build/Data/Vector.o, dist/build/Data/Vector.dyn_o ) [14 of 23] Compiling Data.Vector.Primitive.Mutable ( src/Data/Vector/Primitive/Mutable.hs, dist/build/Data/Vector/Primitive/Mutable.o, dist/build/Data/Vector/Primitive/Mutable.dyn_o ) [15 of 23] Compiling Data.Vector.Primitive ( src/Data/Vector/Primitive.hs, dist/build/Data/Vector/Primitive.o, dist/build/Data/Vector/Primitive.dyn_o ) [16 of 23] Compiling Data.Vector.Storable.Internal ( src/Data/Vector/Storable/Internal.hs, dist/build/Data/Vector/Storable/Internal.o, dist/build/Data/Vector/Storable/Internal.dyn_o ) [17 of 23] Compiling Data.Vector.Storable.Mutable ( src/Data/Vector/Storable/Mutable.hs, dist/build/Data/Vector/Storable/Mutable.o, dist/build/Data/Vector/Storable/Mutable.dyn_o ) [18 of 23] Compiling Data.Vector.Storable ( src/Data/Vector/Storable.hs, dist/build/Data/Vector/Storable.o, dist/build/Data/Vector/Storable.dyn_o ) [19 of 23] Compiling Data.Vector.Strict.Mutable ( src/Data/Vector/Strict/Mutable.hs, dist/build/Data/Vector/Strict/Mutable.o, dist/build/Data/Vector/Strict/Mutable.dyn_o ) [20 of 23] Compiling Data.Vector.Strict ( src/Data/Vector/Strict.hs, dist/build/Data/Vector/Strict.o, dist/build/Data/Vector/Strict.dyn_o ) [21 of 23] Compiling Data.Vector.Unboxed.Base ( src/Data/Vector/Unboxed/Base.hs, dist/build/Data/Vector/Unboxed/Base.o, dist/build/Data/Vector/Unboxed/Base.dyn_o ) [22 of 23] Compiling Data.Vector.Unboxed ( src/Data/Vector/Unboxed.hs, dist/build/Data/Vector/Unboxed.o, dist/build/Data/Vector/Unboxed.dyn_o ) [23 of 23] Compiling Data.Vector.Unboxed.Mutable ( src/Data/Vector/Unboxed/Mutable.hs, dist/build/Data/Vector/Unboxed/Mutable.o, dist/build/Data/Vector/Unboxed/Mutable.dyn_o ) Preprocessing library 'benchmarks-O2' for vector-0.13.2.0.. Building library 'benchmarks-O2' for vector-0.13.2.0.. [ 1 of 14] Compiling Bench.Vector.Algo.AwShCC ( benchlib/Bench/Vector/Algo/AwShCC.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/AwShCC.o, dist/build/benchmarks-O2/Bench/Vector/Algo/AwShCC.dyn_o ) [ 2 of 14] Compiling Bench.Vector.Algo.FindIndexR ( benchlib/Bench/Vector/Algo/FindIndexR.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/FindIndexR.o, dist/build/benchmarks-O2/Bench/Vector/Algo/FindIndexR.dyn_o ) [ 3 of 14] Compiling Bench.Vector.Algo.HybCC ( benchlib/Bench/Vector/Algo/HybCC.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/HybCC.o, dist/build/benchmarks-O2/Bench/Vector/Algo/HybCC.dyn_o ) [ 4 of 14] Compiling Bench.Vector.Algo.Leaffix ( benchlib/Bench/Vector/Algo/Leaffix.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/Leaffix.o, dist/build/benchmarks-O2/Bench/Vector/Algo/Leaffix.dyn_o ) [ 5 of 14] Compiling Bench.Vector.Algo.ListRank ( benchlib/Bench/Vector/Algo/ListRank.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/ListRank.o, dist/build/benchmarks-O2/Bench/Vector/Algo/ListRank.dyn_o ) [ 6 of 14] Compiling Bench.Vector.Algo.MutableSet ( benchlib/Bench/Vector/Algo/MutableSet.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/MutableSet.o, dist/build/benchmarks-O2/Bench/Vector/Algo/MutableSet.dyn_o ) [ 7 of 14] Compiling Bench.Vector.Algo.NextPermutation ( benchlib/Bench/Vector/Algo/NextPermutation.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/NextPermutation.o, dist/build/benchmarks-O2/Bench/Vector/Algo/NextPermutation.dyn_o ) [ 8 of 14] Compiling Bench.Vector.Algo.Quickhull ( benchlib/Bench/Vector/Algo/Quickhull.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/Quickhull.o, dist/build/benchmarks-O2/Bench/Vector/Algo/Quickhull.dyn_o ) [ 9 of 14] Compiling Bench.Vector.Algo.Rootfix ( benchlib/Bench/Vector/Algo/Rootfix.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/Rootfix.o, dist/build/benchmarks-O2/Bench/Vector/Algo/Rootfix.dyn_o ) [10 of 14] Compiling Bench.Vector.Algo.Spectral ( benchlib/Bench/Vector/Algo/Spectral.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/Spectral.o, dist/build/benchmarks-O2/Bench/Vector/Algo/Spectral.dyn_o ) [11 of 14] Compiling Bench.Vector.Algo.Tridiag ( benchlib/Bench/Vector/Algo/Tridiag.hs, dist/build/benchmarks-O2/Bench/Vector/Algo/Tridiag.o, dist/build/benchmarks-O2/Bench/Vector/Algo/Tridiag.dyn_o ) [12 of 14] Compiling Bench.Vector.Tasty ( benchlib/Bench/Vector/Tasty.hs, dist/build/benchmarks-O2/Bench/Vector/Tasty.o, dist/build/benchmarks-O2/Bench/Vector/Tasty.dyn_o ) [13 of 14] Compiling Bench.Vector.TestData.Graph ( benchlib/Bench/Vector/TestData/Graph.hs, dist/build/benchmarks-O2/Bench/Vector/TestData/Graph.o, dist/build/benchmarks-O2/Bench/Vector/TestData/Graph.dyn_o ) [14 of 14] Compiling Bench.Vector.TestData.ParenTree ( benchlib/Bench/Vector/TestData/ParenTree.hs, dist/build/benchmarks-O2/Bench/Vector/TestData/ParenTree.o, dist/build/benchmarks-O2/Bench/Vector/TestData/ParenTree.dyn_o ) Preprocessing library for vector-0.13.2.0.. Running Haddock on library for vector-0.13.2.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 23] Compiling Data.Vector.Fusion.Stream.Monadic ( src/Data/Vector/Fusion/Stream/Monadic.hs, nothing ) [ 2 of 23] Compiling Data.Vector.Fusion.Util ( src/Data/Vector/Fusion/Util.hs, nothing ) [ 3 of 23] Compiling Data.Vector.Fusion.Bundle.Size ( src/Data/Vector/Fusion/Bundle/Size.hs, nothing ) [ 4 of 23] Compiling Data.Vector.Generic.Mutable.Base ( src/Data/Vector/Generic/Mutable/Base.hs, nothing ) [ 5 of 23] Compiling Data.Vector.Generic.Base ( src/Data/Vector/Generic/Base.hs, nothing ) [ 6 of 23] Compiling Data.Vector.Internal.Check ( src/Data/Vector/Internal/Check.hs, nothing ) [ 7 of 23] Compiling Data.Vector.Fusion.Bundle.Monadic ( src/Data/Vector/Fusion/Bundle/Monadic.hs, nothing ) [ 8 of 23] Compiling Data.Vector.Fusion.Bundle ( src/Data/Vector/Fusion/Bundle.hs, nothing ) [ 9 of 23] Compiling Data.Vector.Generic.Mutable ( src/Data/Vector/Generic/Mutable.hs, nothing ) [10 of 23] Compiling Data.Vector.Generic.New ( src/Data/Vector/Generic/New.hs, nothing ) [11 of 23] Compiling Data.Vector.Generic ( src/Data/Vector/Generic.hs, nothing ) [12 of 23] Compiling Data.Vector.Mutable ( src/Data/Vector/Mutable.hs, nothing ) [13 of 23] Compiling Data.Vector ( src/Data/Vector.hs, nothing ) [14 of 23] Compiling Data.Vector.Primitive.Mutable ( src/Data/Vector/Primitive/Mutable.hs, nothing ) [15 of 23] Compiling Data.Vector.Primitive ( src/Data/Vector/Primitive.hs, nothing ) [16 of 23] Compiling Data.Vector.Storable.Internal ( src/Data/Vector/Storable/Internal.hs, nothing ) [17 of 23] Compiling Data.Vector.Storable.Mutable ( src/Data/Vector/Storable/Mutable.hs, nothing ) [18 of 23] Compiling Data.Vector.Storable ( src/Data/Vector/Storable.hs, nothing ) [19 of 23] Compiling Data.Vector.Strict.Mutable ( src/Data/Vector/Strict/Mutable.hs, nothing ) [20 of 23] Compiling Data.Vector.Strict ( src/Data/Vector/Strict.hs, nothing ) [21 of 23] Compiling Data.Vector.Unboxed.Base ( src/Data/Vector/Unboxed/Base.hs, nothing ) [22 of 23] Compiling Data.Vector.Unboxed ( src/Data/Vector/Unboxed.hs, nothing ) [23 of 23] Compiling Data.Vector.Unboxed.Mutable ( src/Data/Vector/Unboxed/Mutable.hs, nothing ) Haddock coverage: 100% ( 2 / 2) in 'Data.Vector.Fusion.Stream.Monadic' 83% ( 5 / 6) in 'Data.Vector.Fusion.Util' Missing documentation for: liftBox 100% ( 9 / 9) in 'Data.Vector.Fusion.Bundle.Size' Warning: 'unsafeSlice' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'overlaps' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unsafeNew' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unsafeRead' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unsafeWrite' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'clear' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'set' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unsafeCopy' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unsafeMove' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'grow' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unsafeGrow' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 2 / 2) in 'Data.Vector.Generic.Mutable.Base' Warning: 'basicUnsafeWrite' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Bundle' is ambiguous. It is defined * at src/Data/Vector/Fusion/Bundle/Monadic.hs:121:21 * at src/Data/Vector/Fusion/Bundle/Monadic.hs:121:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vector/Fusion/Bundle/Monadic.hs:121:1 79% (110 /139) in 'Data.Vector.Fusion.Bundle.Monadic' Missing documentation for: Chunk (src/Data/Vector/Fusion/Bundle/Monadic.hs:118) generate (src/Data/Vector/Fusion/Bundle/Monadic.hs:207) unbox (src/Data/Vector/Fusion/Bundle/Monadic.hs:320) concatMap (src/Data/Vector/Fusion/Bundle/Monadic.hs:629) zipWithM_ (src/Data/Vector/Fusion/Bundle/Monadic.hs:351) zipWith3M (src/Data/Vector/Fusion/Bundle/Monadic.hs:355) zipWith4M (src/Data/Vector/Fusion/Bundle/Monadic.hs:364) zipWith5M (src/Data/Vector/Fusion/Bundle/Monadic.hs:371) zipWith6M (src/Data/Vector/Fusion/Bundle/Monadic.hs:378) zipWith (src/Data/Vector/Fusion/Bundle/Monadic.hs:384) zipWith3 (src/Data/Vector/Fusion/Bundle/Monadic.hs:389) zipWith4 (src/Data/Vector/Fusion/Bundle/Monadic.hs:395) zipWith5 (src/Data/Vector/Fusion/Bundle/Monadic.hs:401) zipWith6 (src/Data/Vector/Fusion/Bundle/Monadic.hs:407) zip (src/Data/Vector/Fusion/Bundle/Monadic.hs:411) zip3 (src/Data/Vector/Fusion/Bundle/Monadic.hs:415) zip4 (src/Data/Vector/Fusion/Bundle/Monadic.hs:420) zip5 (src/Data/Vector/Fusion/Bundle/Monadic.hs:425) zip6 (src/Data/Vector/Fusion/Bundle/Monadic.hs:430) and (src/Data/Vector/Fusion/Bundle/Monadic.hs:621) or (src/Data/Vector/Fusion/Bundle/Monadic.hs:625) concatMapM (src/Data/Vector/Fusion/Bundle/Monadic.hs:633) fromVector (src/Data/Vector/Fusion/Bundle/Monadic.hs:1086) reVector (src/Data/Vector/Fusion/Bundle/Monadic.hs:1166) fromVectors (src/Data/Vector/Fusion/Bundle/Monadic.hs:1105) concatVectors (src/Data/Vector/Fusion/Bundle/Monadic.hs:1133) fromStream (src/Data/Vector/Fusion/Bundle/Monadic.hs:136) chunks (src/Data/Vector/Fusion/Bundle/Monadic.hs:143) elements (src/Data/Vector/Fusion/Bundle/Monadic.hs:147) Warning: 'Nothing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Just' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 79% ( 90 /113) in 'Data.Vector.Fusion.Bundle' Missing documentation for: Chunk (src/Data/Vector/Fusion/Bundle/Monadic.hs:118) inplace (src/Data/Vector/Fusion/Bundle.hs:113) concatMap (src/Data/Vector/Fusion/Bundle.hs:256) unbox (src/Data/Vector/Fusion/Bundle.hs:252) zipWith4 (src/Data/Vector/Fusion/Bundle.hs:286) zipWith5 (src/Data/Vector/Fusion/Bundle.hs:292) zipWith6 (src/Data/Vector/Fusion/Bundle.hs:298) zip (src/Data/Vector/Fusion/Bundle.hs:302) zip3 (src/Data/Vector/Fusion/Bundle.hs:306) zip4 (src/Data/Vector/Fusion/Bundle.hs:311) zip5 (src/Data/Vector/Fusion/Bundle.hs:316) zip6 (src/Data/Vector/Fusion/Bundle.hs:321) and (src/Data/Vector/Fusion/Bundle.hs:406) or (src/Data/Vector/Fusion/Bundle.hs:410) unsafeFromList (src/Data/Vector/Fusion/Bundle.hs:632) fromVector (src/Data/Vector/Fusion/Bundle.hs:636) reVector (src/Data/Vector/Fusion/Bundle.hs:640) fromVectors (src/Data/Vector/Fusion/Bundle.hs:644) concatVectors (src/Data/Vector/Fusion/Bundle.hs:648) zipWithM (src/Data/Vector/Fusion/Bundle.hs:535) zipWithM_ (src/Data/Vector/Fusion/Bundle.hs:539) eqBy (src/Data/Vector/Fusion/Bundle.hs:492) cmpBy (src/Data/Vector/Fusion/Bundle.hs:501) 86% ( 93 /108) in 'Data.Vector.Generic.Mutable' Missing documentation for: mstream (src/Data/Vector/Generic/Mutable.hs:139) mstreamR (src/Data/Vector/Generic/Mutable.hs:168) transform (src/Data/Vector/Generic/Mutable.hs:164) transformR (src/Data/Vector/Generic/Mutable.hs:199) fill (src/Data/Vector/Generic/Mutable.hs:151) fillR (src/Data/Vector/Generic/Mutable.hs:182) unsafeAccum (src/Data/Vector/Generic/Mutable.hs:1020) accum (src/Data/Vector/Generic/Mutable.hs:997) unsafeUpdate (src/Data/Vector/Generic/Mutable.hs:1031) update (src/Data/Vector/Generic/Mutable.hs:1009) reverse (src/Data/Vector/Generic/Mutable.hs:1039) unstablePartition (src/Data/Vector/Generic/Mutable.hs:1049) unstablePartitionBundle (src/Data/Vector/Generic/Mutable.hs:1078) partitionBundle (src/Data/Vector/Generic/Mutable.hs:1105) partitionWithBundle (src/Data/Vector/Generic/Mutable.hs:1165) 21% ( 5 / 23) in 'Data.Vector.Generic.New' Missing documentation for: create (src/Data/Vector/Generic/New.hs:62) run (src/Data/Vector/Generic/New.hs:66) runPrim (src/Data/Vector/Generic/New.hs:70) apply (src/Data/Vector/Generic/New.hs:74) modify (src/Data/Vector/Generic/New.hs:78) modifyWithBundle (src/Data/Vector/Generic/New.hs:83) unstream (src/Data/Vector/Generic/New.hs:87) transform (src/Data/Vector/Generic/New.hs:93) unstreamR (src/Data/Vector/Generic/New.hs:113) transformR (src/Data/Vector/Generic/New.hs:119) slice (src/Data/Vector/Generic/New.hs:139) init (src/Data/Vector/Generic/New.hs:143) tail (src/Data/Vector/Generic/New.hs:147) take (src/Data/Vector/Generic/New.hs:151) drop (src/Data/Vector/Generic/New.hs:155) unsafeSlice (src/Data/Vector/Generic/New.hs:159) unsafeInit (src/Data/Vector/Generic/New.hs:163) unsafeTail (src/Data/Vector/Generic/New.hs:167) Warning: 'a' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'b' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Left' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Right' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Foldable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'True' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 93% (259 /278) in 'Data.Vector.Generic' Missing documentation for: zipWith4 (src/Data/Vector/Generic.hs:1190) zipWith5 (src/Data/Vector/Generic.hs:1201) zipWith6 (src/Data/Vector/Generic.hs:1213) izipWith4 (src/Data/Vector/Generic.hs:1242) izipWith5 (src/Data/Vector/Generic.hs:1253) izipWith6 (src/Data/Vector/Generic.hs:1265) zip4 (src/Data/Vector/Generic.hs:1287) zip5 (src/Data/Vector/Generic.hs:1293) zip6 (src/Data/Vector/Generic.hs:1299) unzip3 (src/Data/Vector/Generic.hs:1348) unzip4 (src/Data/Vector/Generic.hs:1356) unzip5 (src/Data/Vector/Generic.hs:1365) unzip6 (src/Data/Vector/Generic.hs:1375) liftShowsPrec (src/Data/Vector/Generic.hs:2686) gunfold (src/Data/Vector/Generic.hs:2728) dataCast (src/Data/Vector/Generic.hs:2735) mkVecType (src/Data/Vector/Generic.hs:2717) mkVecConstr (src/Data/Vector/Generic.hs:2713) mkType (src/Data/Vector/Generic.hs:2722) Warning: 'IO' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ST' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Nothing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% ( 88 / 90) in 'Data.Vector.Mutable' Missing documentation for: IOVector (src/Data/Vector/Mutable.hs:101) STVector (src/Data/Vector/Mutable.hs:102) Warning: 'Nothing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Just' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'a' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'b' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Left' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Right' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Foldable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'True' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Array' is ambiguous. It is defined * in Data.Primitive.Array * in Data.Primitive.Array You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Primitive.Array 94% (245 /258) in 'Data.Vector' Missing documentation for: zipWith4 (src/Data/Vector.hs:1173) zipWith5 (src/Data/Vector.hs:1179) zipWith6 (src/Data/Vector.hs:1185) izipWith4 (src/Data/Vector.hs:1202) izipWith5 (src/Data/Vector.hs:1208) izipWith6 (src/Data/Vector.hs:1214) zip4 (src/Data/Vector.hs:1229) zip5 (src/Data/Vector.hs:1234) zip6 (src/Data/Vector.hs:1239) unzip3 (src/Data/Vector.hs:1251) unzip4 (src/Data/Vector.hs:1255) unzip5 (src/Data/Vector.hs:1260) unzip6 (src/Data/Vector.hs:1265) Warning: 'Nothing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% ( 89 / 91) in 'Data.Vector.Primitive.Mutable' Missing documentation for: IOVector (src/Data/Vector/Primitive/Mutable.hs:117) STVector (src/Data/Vector/Primitive/Mutable.hs:118) Warning: 'Nothing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Just' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'a' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'b' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'flip' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Left' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Right' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Foldable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% (228 /234) in 'Data.Vector.Primitive' Missing documentation for: zipWith4 (src/Data/Vector/Primitive.hs:967) zipWith5 (src/Data/Vector/Primitive.hs:975) zipWith6 (src/Data/Vector/Primitive.hs:983) izipWith4 (src/Data/Vector/Primitive.hs:1003) izipWith5 (src/Data/Vector/Primitive.hs:1011) izipWith6 (src/Data/Vector/Primitive.hs:1019) Warning: 'Storable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Nothing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% ( 95 / 97) in 'Data.Vector.Storable.Mutable' Missing documentation for: IOVector (src/Data/Vector/Storable/Mutable.hs:136) STVector (src/Data/Vector/Storable/Mutable.hs:137) Warning: 'Nothing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Just' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'a' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'b' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'flip' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Left' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Right' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Foldable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'True' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% (239 /245) in 'Data.Vector.Storable' Missing documentation for: zipWith4 (src/Data/Vector/Storable.hs:978) zipWith5 (src/Data/Vector/Storable.hs:986) zipWith6 (src/Data/Vector/Storable.hs:994) izipWith4 (src/Data/Vector/Storable.hs:1014) izipWith5 (src/Data/Vector/Storable.hs:1022) izipWith6 (src/Data/Vector/Storable.hs:1030) Warning: 'IO' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ST' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Nothing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 97% ( 91 / 93) in 'Data.Vector.Strict.Mutable' Missing documentation for: IOVector (src/Data/Vector/Strict/Mutable.hs:99) STVector (src/Data/Vector/Strict/Mutable.hs:100) Warning: 'Nothing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Just' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'a' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'b' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Left' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Right' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Foldable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'True' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Array' is ambiguous. It is defined * in Data.Primitive.Array * in Data.Primitive.Array You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Primitive.Array 95% (248 /261) in 'Data.Vector.Strict' Missing documentation for: zipWith4 (src/Data/Vector/Strict.hs:1267) zipWith5 (src/Data/Vector/Strict.hs:1273) zipWith6 (src/Data/Vector/Strict.hs:1279) izipWith4 (src/Data/Vector/Strict.hs:1300) izipWith5 (src/Data/Vector/Strict.hs:1306) izipWith6 (src/Data/Vector/Strict.hs:1312) zip4 (src/Data/Vector/Strict.hs:1331) zip5 (src/Data/Vector/Strict.hs:1336) zip6 (src/Data/Vector/Strict.hs:1341) unzip3 (src/Data/Vector/Strict.hs:1355) unzip4 (src/Data/Vector/Strict.hs:1359) unzip5 (src/Data/Vector/Strict.hs:1364) unzip6 (src/Data/Vector/Strict.hs:1369) Warning: 'DoNotUnboxLazy' is ambiguous. It is defined * at src/Data/Vector/Unboxed/Base.hs:810:28 * at src/Data/Vector/Unboxed/Base.hs:810:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:810:1 Warning: 'DoNotUnboxStrict' is ambiguous. It is defined * at src/Data/Vector/Unboxed/Base.hs:895:30 * at src/Data/Vector/Unboxed/Base.hs:895:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:895:1 Warning: 'DoNotUnboxNormalForm' is ambiguous. It is defined * at src/Data/Vector/Unboxed/Base.hs:981:34 * at src/Data/Vector/Unboxed/Base.hs:981:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:981:1 Warning: 'As' is ambiguous. It is defined * at src/Data/Vector/Unboxed/Base.hs:350:38 * at src/Data/Vector/Unboxed/Base.hs:350:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:350:1 Warning: 'As' is ambiguous. It is defined * at src/Data/Vector/Unboxed/Base.hs:350:38 * at src/Data/Vector/Unboxed/Base.hs:350:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:350:1 Warning: 'UnboxViaPrim' is ambiguous. It is defined * at src/Data/Vector/Unboxed/Base.hs:223:26 * at src/Data/Vector/Unboxed/Base.hs:223:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:223:1 Warning: 'DoNotUnboxStrict' is ambiguous. It is defined * at src/Data/Vector/Unboxed/Base.hs:895:30 * at src/Data/Vector/Unboxed/Base.hs:895:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:895:1 Warning: 'DoNotUnboxLazy' is ambiguous. It is defined * at src/Data/Vector/Unboxed/Base.hs:810:28 * at src/Data/Vector/Unboxed/Base.hs:810:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:810:1 Warning: 'DoNotUnboxNormalForm' is ambiguous. It is defined * at src/Data/Vector/Unboxed/Base.hs:981:34 * at src/Data/Vector/Unboxed/Base.hs:981:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Vector/Unboxed/Base.hs:981:1 Warning: 'Complex' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'RealFloat' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Nothing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Just' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'a' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'b' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'flip' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Left' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Right' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Foldable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'True' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 96% (253 /262) in 'Data.Vector.Unboxed' Missing documentation for: Vector (src/Data/Vector/Unboxed/Base.hs:73) MVector (src/Data/Vector/Unboxed/Base.hs:72) Unbox (src/Data/Vector/Unboxed/Base.hs:80) zipWith4 (src/Data/Vector/Unboxed.hs:1027) zipWith5 (src/Data/Vector/Unboxed.hs:1034) zipWith6 (src/Data/Vector/Unboxed.hs:1041) izipWith4 (src/Data/Vector/Unboxed.hs:1061) izipWith5 (src/Data/Vector/Unboxed.hs:1068) izipWith6 (src/Data/Vector/Unboxed.hs:1075) Warning: 'Nothing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 96% ( 96 /100) in 'Data.Vector.Unboxed.Mutable' Missing documentation for: MVector (src/Data/Vector/Unboxed/Base.hs:72) IOVector (src/Data/Vector/Unboxed/Base.hs:75) STVector (src/Data/Vector/Unboxed/Base.hs:76) Unbox (src/Data/Vector/Unboxed/Base.hs:80) Warning: Data.Vector.Generic.Mutable: could not find link destinations for: - Control.Monad.Primitive.D:R:PrimStateAccumT - Control.Monad.Primitive.D:R:PrimStateContT - Control.Monad.Primitive.D:R:PrimStateExceptT - Control.Monad.Primitive.D:R:PrimStateIO - Control.Monad.Primitive.D:R:PrimStateIdentityT - Control.Monad.Primitive.D:R:PrimStateMaybeT - Control.Monad.Primitive.D:R:PrimStateRWST - Control.Monad.Primitive.D:R:PrimStateRWST0 - Control.Monad.Primitive.D:R:PrimStateRWST1 - Control.Monad.Primitive.D:R:PrimStateReaderT - Control.Monad.Primitive.D:R:PrimStateST - Control.Monad.Primitive.D:R:PrimStateST0 - Control.Monad.Primitive.D:R:PrimStateSelectT - Control.Monad.Primitive.D:R:PrimStateStateT - Control.Monad.Primitive.D:R:PrimStateStateT0 - Control.Monad.Primitive.D:R:PrimStateWriterT - Control.Monad.Primitive.D:R:PrimStateWriterT0 - Control.Monad.Primitive.D:R:PrimStateWriterT1 Warning: Data.Vector.Mutable: could not find link destinations for: - Control.Monad.Primitive.D:R:PrimStateAccumT - Control.Monad.Primitive.D:R:PrimStateContT - Control.Monad.Primitive.D:R:PrimStateExceptT - Control.Monad.Primitive.D:R:PrimStateIO - Control.Monad.Primitive.D:R:PrimStateIdentityT - Control.Monad.Primitive.D:R:PrimStateMaybeT - Control.Monad.Primitive.D:R:PrimStateRWST - Control.Monad.Primitive.D:R:PrimStateRWST0 - Control.Monad.Primitive.D:R:PrimStateRWST1 - Control.Monad.Primitive.D:R:PrimStateReaderT - Control.Monad.Primitive.D:R:PrimStateST - Control.Monad.Primitive.D:R:PrimStateST0 - Control.Monad.Primitive.D:R:PrimStateSelectT - Control.Monad.Primitive.D:R:PrimStateStateT - Control.Monad.Primitive.D:R:PrimStateStateT0 - Control.Monad.Primitive.D:R:PrimStateWriterT - Control.Monad.Primitive.D:R:PrimStateWriterT0 - Control.Monad.Primitive.D:R:PrimStateWriterT1 Warning: Data.Vector: could not find link destinations for: - Data.Vector.D:R:ItemVector Warning: Data.Vector.Primitive.Mutable: could not find link destinations for: - Control.Monad.Primitive.D:R:PrimStateAccumT - Control.Monad.Primitive.D:R:PrimStateContT - Control.Monad.Primitive.D:R:PrimStateExceptT - Control.Monad.Primitive.D:R:PrimStateIO - Control.Monad.Primitive.D:R:PrimStateIdentityT - Control.Monad.Primitive.D:R:PrimStateMaybeT - Control.Monad.Primitive.D:R:PrimStateRWST - Control.Monad.Primitive.D:R:PrimStateRWST0 - Control.Monad.Primitive.D:R:PrimStateRWST1 - Control.Monad.Primitive.D:R:PrimStateReaderT - Control.Monad.Primitive.D:R:PrimStateST - Control.Monad.Primitive.D:R:PrimStateST0 - Control.Monad.Primitive.D:R:PrimStateSelectT - Control.Monad.Primitive.D:R:PrimStateStateT - Control.Monad.Primitive.D:R:PrimStateStateT0 - Control.Monad.Primitive.D:R:PrimStateWriterT - Control.Monad.Primitive.D:R:PrimStateWriterT0 - Control.Monad.Primitive.D:R:PrimStateWriterT1 Warning: Data.Vector.Primitive: could not find link destinations for: - Data.Vector.Primitive.D:R:ItemVector Warning: Data.Vector.Storable.Mutable: could not find link destinations for: - Control.Monad.Primitive.D:R:PrimStateAccumT - Control.Monad.Primitive.D:R:PrimStateContT - Control.Monad.Primitive.D:R:PrimStateExceptT - Control.Monad.Primitive.D:R:PrimStateIO - Control.Monad.Primitive.D:R:PrimStateIdentityT - Control.Monad.Primitive.D:R:PrimStateMaybeT - Control.Monad.Primitive.D:R:PrimStateRWST - Control.Monad.Primitive.D:R:PrimStateRWST0 - Control.Monad.Primitive.D:R:PrimStateRWST1 - Control.Monad.Primitive.D:R:PrimStateReaderT - Control.Monad.Primitive.D:R:PrimStateST - Control.Monad.Primitive.D:R:PrimStateST0 - Control.Monad.Primitive.D:R:PrimStateSelectT - Control.Monad.Primitive.D:R:PrimStateStateT - Control.Monad.Primitive.D:R:PrimStateStateT0 - Control.Monad.Primitive.D:R:PrimStateWriterT - Control.Monad.Primitive.D:R:PrimStateWriterT0 - Control.Monad.Primitive.D:R:PrimStateWriterT1 Warning: Data.Vector.Storable: could not find link destinations for: - Data.Vector.Storable.D:R:ItemVector Warning: Data.Vector.Strict.Mutable: could not find link destinations for: - Control.Monad.Primitive.D:R:PrimStateAccumT - Control.Monad.Primitive.D:R:PrimStateContT - Control.Monad.Primitive.D:R:PrimStateExceptT - Control.Monad.Primitive.D:R:PrimStateIO - Control.Monad.Primitive.D:R:PrimStateIdentityT - Control.Monad.Primitive.D:R:PrimStateMaybeT - Control.Monad.Primitive.D:R:PrimStateRWST - Control.Monad.Primitive.D:R:PrimStateRWST0 - Control.Monad.Primitive.D:R:PrimStateRWST1 - Control.Monad.Primitive.D:R:PrimStateReaderT - Control.Monad.Primitive.D:R:PrimStateST - Control.Monad.Primitive.D:R:PrimStateST0 - Control.Monad.Primitive.D:R:PrimStateSelectT - Control.Monad.Primitive.D:R:PrimStateStateT - Control.Monad.Primitive.D:R:PrimStateStateT0 - Control.Monad.Primitive.D:R:PrimStateWriterT - Control.Monad.Primitive.D:R:PrimStateWriterT0 - Control.Monad.Primitive.D:R:PrimStateWriterT1 Warning: Data.Vector.Strict: could not find link destinations for: - Data.Vector.Strict.D:R:ItemVector Warning: Data.Vector.Unboxed: could not find link destinations for: - Data.Vector.Unboxed.Base.V_6 - Data.Vector.Unboxed.Base.V_5 - Data.Vector.Unboxed.Base.V_4 - Data.Vector.Unboxed.Base.V_3 - Data.Vector.Unboxed.Base.V_2 - Data.Vector.Unboxed.Base.V_Compose - Data.Vector.Unboxed.Base.V_Alt - Data.Vector.Unboxed.Base.V_Const - Data.Vector.Unboxed.Base.V_All - Data.Vector.Unboxed.Base.V_Any - Data.Vector.Unboxed.Base.V_DoNotUnboxNormalForm - Data.Vector.Unboxed.Base.V_DoNotUnboxStrict - Data.Vector.Unboxed.Base.V_DoNotUnboxLazy - Data.Vector.Unboxed.Base.V_Arg - Data.Vector.Unboxed.Base.V_WrappedMonoid - Data.Vector.Unboxed.Base.V_Last - Data.Vector.Unboxed.Base.V_First - Data.Vector.Unboxed.Base.V_Max - Data.Vector.Unboxed.Base.V_Min - Data.Vector.Unboxed.Base.V_Product - Data.Vector.Unboxed.Base.V_Sum - Data.Vector.Unboxed.Base.V_Dual - Data.Vector.Unboxed.Base.V_Down - Data.Vector.Unboxed.Base.V_Identity - Data.Vector.Unboxed.Base.V_Complex - Data.Vector.Unboxed.Base.V_Bool - Data.Vector.Unboxed.Base.V_Char - Data.Vector.Unboxed.Base.V_Double - Data.Vector.Unboxed.Base.V_Float - Data.Vector.Unboxed.Base.V_Word64 - Data.Vector.Unboxed.Base.V_Word32 - Data.Vector.Unboxed.Base.V_Word16 - Data.Vector.Unboxed.Base.V_Word8 - Data.Vector.Unboxed.Base.V_Word - Data.Vector.Unboxed.Base.V_Int64 - Data.Vector.Unboxed.Base.V_Int32 - Data.Vector.Unboxed.Base.V_Int16 - Data.Vector.Unboxed.Base.V_Int8 - Data.Vector.Unboxed.Base.V_Int - Data.Vector.Unboxed.Base.V_Unit - Data.Vector.Unboxed.Base.D:R:MVectorsTuple60 - Data.Vector.Unboxed.Base.D:R:MVectorsTuple50 - Data.Vector.Unboxed.Base.D:R:MVectorsTuple40 - Data.Vector.Unboxed.Base.D:R:MVectorsTuple30 - Data.Vector.Unboxed.Base.D:R:MVectorsTuple20 - Data.Vector.Unboxed.Base.D:R:MVectorsCompose0 - Data.Vector.Unboxed.Base.D:R:MVectorsAlt0 - Data.Vector.Unboxed.Base.D:R:MVectorsConst0 - Data.Vector.Unboxed.Base.D:R:MVectorsAll0 - Data.Vector.Unboxed.Base.D:R:MVectorsAny0 - Data.Vector.Unboxed.Base.D:R:MVectorsArg0 - Data.Vector.Unboxed.Base.D:R:MVectorsWrappedMonoid0 - Data.Vector.Unboxed.Base.D:R:MVectorsLast0 - Data.Vector.Unboxed.Base.D:R:MVectorsFirst0 - Data.Vector.Unboxed.Base.D:R:MVectorsMax0 - Data.Vector.Unboxed.Base.D:R:MVectorsMin0 - Data.Vector.Unboxed.Base.D:R:MVectorsProduct0 - Data.Vector.Unboxed.Base.D:R:MVectorsSum0 - Data.Vector.Unboxed.Base.D:R:MVectorsDual0 - Data.Vector.Unboxed.Base.D:R:MVectorsDown0 - Data.Vector.Unboxed.Base.D:R:MVectorsIdentity0 - Data.Vector.Unboxed.Base.D:R:MVectorsComplex0 - Data.Vector.Unboxed.Base.D:R:MVectorsBool0 - Data.Vector.Unboxed.Base.D:R:MVectorsChar0 - Data.Vector.Unboxed.Base.D:R:MVectorsDouble0 - Data.Vector.Unboxed.Base.D:R:MVectorsFloat0 - Data.Vector.Unboxed.Base.D:R:MVectorsWord640 - Data.Vector.Unboxed.Base.D:R:MVectorsWord320 - Data.Vector.Unboxed.Base.D:R:MVectorsWord160 - Data.Vector.Unboxed.Base.D:R:MVectorsWord80 - Data.Vector.Unboxed.Base.D:R:MVectorsWord0 - Data.Vector.Unboxed.Base.D:R:MVectorsInt640 - Data.Vector.Unboxed.Base.D:R:MVectorsInt320 - Data.Vector.Unboxed.Base.D:R:MVectorsInt160 - Data.Vector.Unboxed.Base.D:R:MVectorsInt80 - Data.Vector.Unboxed.Base.D:R:MVectorsInt0 - Data.Vector.Unboxed.Base.D:R:MVectorsUnit0 - Data.Vector.Unboxed.Base.D:R:VectorTuple60 - Data.Vector.Unboxed.Base.D:R:VectorTuple50 - Data.Vector.Unboxed.Base.D:R:VectorTuple40 - Data.Vector.Unboxed.Base.D:R:VectorTuple30 - Data.Vector.Unboxed.Base.D:R:VectorTuple20 - Data.Vector.Unboxed.Base.D:R:VectorCompose0 - Data.Vector.Unboxed.Base.D:R:VectorAlt0 - Data.Vector.Unboxed.Base.D:R:VectorConst0 - Data.Vector.Unboxed.Base.D:R:VectorAll0 - Data.Vector.Unboxed.Base.D:R:VectorAny0 - Data.Vector.Unboxed.Base.D:R:VectorArg0 - Data.Vector.Unboxed.Base.D:R:VectorWrappedMonoid0 - Data.Vector.Unboxed.Base.D:R:VectorLast0 - Data.Vector.Unboxed.Base.D:R:VectorFirst0 - Data.Vector.Unboxed.Base.D:R:VectorMax0 - Data.Vector.Unboxed.Base.D:R:VectorMin0 - Data.Vector.Unboxed.Base.D:R:VectorProduct0 - Data.Vector.Unboxed.Base.D:R:VectorSum0 - Data.Vector.Unboxed.Base.D:R:VectorDual0 - Data.Vector.Unboxed.Base.D:R:VectorDown0 - Data.Vector.Unboxed.Base.D:R:VectorIdentity0 - Data.Vector.Unboxed.Base.D:R:VectorComplex0 - Data.Vector.Unboxed.Base.D:R:VectorBool0 - Data.Vector.Unboxed.Base.D:R:VectorChar0 - Data.Vector.Unboxed.Base.D:R:VectorDouble0 - Data.Vector.Unboxed.Base.D:R:VectorFloat0 - Data.Vector.Unboxed.Base.D:R:VectorWord640 - Data.Vector.Unboxed.Base.D:R:VectorWord320 - Data.Vector.Unboxed.Base.D:R:VectorWord160 - Data.Vector.Unboxed.Base.D:R:VectorWord80 - Data.Vector.Unboxed.Base.D:R:VectorWord0 - Data.Vector.Unboxed.Base.D:R:VectorInt640 - Data.Vector.Unboxed.Base.D:R:VectorInt320 - Data.Vector.Unboxed.Base.D:R:VectorInt160 - Data.Vector.Unboxed.Base.D:R:VectorInt80 - Data.Vector.Unboxed.Base.D:R:VectorInt0 - Data.Vector.Unboxed.Base.D:R:VectorUnit0 - Data.Vector.Unboxed.Base.D:R:VectorUnboxViaPrim0 - Data.Vector.Unboxed.Base.D:R:MVectorsUnboxViaPrim0 - Data.Vector.Unboxed.Base.D:R:VectorAs0 - Data.Vector.Unboxed.Base.D:R:MVectorsAs0 - Data.Vector.Unboxed.Base.D:R:VectorDoNotUnboxLazy0 - Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxLazy0 - Data.Vector.Unboxed.Base.D:R:VectorDoNotUnboxStrict0 - Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxStrict0 - Data.Vector.Unboxed.Base.D:R:VectorDoNotUnboxNormalForm0 - Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxNormalForm0 - Data.Vector.Unboxed.D:R:ItemVector Warning: Data.Vector.Unboxed.Mutable: could not find link destinations for: - Control.Monad.Primitive.D:R:PrimStateAccumT - Control.Monad.Primitive.D:R:PrimStateContT - Control.Monad.Primitive.D:R:PrimStateExceptT - Control.Monad.Primitive.D:R:PrimStateIO - Control.Monad.Primitive.D:R:PrimStateIdentityT - Control.Monad.Primitive.D:R:PrimStateMaybeT - Control.Monad.Primitive.D:R:PrimStateRWST - Control.Monad.Primitive.D:R:PrimStateRWST0 - Control.Monad.Primitive.D:R:PrimStateRWST1 - Control.Monad.Primitive.D:R:PrimStateReaderT - Control.Monad.Primitive.D:R:PrimStateST - Control.Monad.Primitive.D:R:PrimStateST0 - Control.Monad.Primitive.D:R:PrimStateSelectT - Control.Monad.Primitive.D:R:PrimStateStateT - Control.Monad.Primitive.D:R:PrimStateStateT0 - Control.Monad.Primitive.D:R:PrimStateWriterT - Control.Monad.Primitive.D:R:PrimStateWriterT0 - Control.Monad.Primitive.D:R:PrimStateWriterT1 - Data.Vector.Unboxed.Base.D:R:MVectorsTuple60 - Data.Vector.Unboxed.Base.D:R:MVectorsTuple50 - Data.Vector.Unboxed.Base.D:R:MVectorsTuple40 - Data.Vector.Unboxed.Base.D:R:MVectorsTuple30 - Data.Vector.Unboxed.Base.D:R:MVectorsTuple20 - Data.Vector.Unboxed.Base.D:R:MVectorsCompose0 - Data.Vector.Unboxed.Base.D:R:MVectorsAlt0 - Data.Vector.Unboxed.Base.D:R:MVectorsConst0 - Data.Vector.Unboxed.Base.D:R:MVectorsAll0 - Data.Vector.Unboxed.Base.D:R:MVectorsAny0 - Data.Vector.Unboxed.Base.D:R:MVectorsArg0 - Data.Vector.Unboxed.Base.D:R:MVectorsWrappedMonoid0 - Data.Vector.Unboxed.Base.D:R:MVectorsLast0 - Data.Vector.Unboxed.Base.D:R:MVectorsFirst0 - Data.Vector.Unboxed.Base.D:R:MVectorsMax0 - Data.Vector.Unboxed.Base.D:R:MVectorsMin0 - Data.Vector.Unboxed.Base.D:R:MVectorsProduct0 - Data.Vector.Unboxed.Base.D:R:MVectorsSum0 - Data.Vector.Unboxed.Base.D:R:MVectorsDual0 - Data.Vector.Unboxed.Base.D:R:MVectorsDown0 - Data.Vector.Unboxed.Base.D:R:MVectorsIdentity0 - Data.Vector.Unboxed.Base.D:R:MVectorsComplex0 - Data.Vector.Unboxed.Base.D:R:MVectorsBool0 - Data.Vector.Unboxed.Base.D:R:MVectorsChar0 - Data.Vector.Unboxed.Base.D:R:MVectorsDouble0 - Data.Vector.Unboxed.Base.D:R:MVectorsFloat0 - Data.Vector.Unboxed.Base.D:R:MVectorsWord640 - Data.Vector.Unboxed.Base.D:R:MVectorsWord320 - Data.Vector.Unboxed.Base.D:R:MVectorsWord160 - Data.Vector.Unboxed.Base.D:R:MVectorsWord80 - Data.Vector.Unboxed.Base.D:R:MVectorsWord0 - Data.Vector.Unboxed.Base.D:R:MVectorsInt640 - Data.Vector.Unboxed.Base.D:R:MVectorsInt320 - Data.Vector.Unboxed.Base.D:R:MVectorsInt160 - Data.Vector.Unboxed.Base.D:R:MVectorsInt80 - Data.Vector.Unboxed.Base.D:R:MVectorsInt0 - Data.Vector.Unboxed.Base.D:R:MVectorsUnit0 - Data.Vector.Unboxed.Base.D:R:MVectorsUnboxViaPrim0 - Data.Vector.Unboxed.Base.D:R:MVectorsAs0 - Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxLazy0 - Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxStrict0 - Data.Vector.Unboxed.Base.D:R:MVectorsDoNotUnboxNormalForm0 Documentation created: dist/doc/html/vector/, dist/doc/html/vector/vector.txt Preprocessing library 'benchmarks-O2' for vector-0.13.2.0.. Running Haddock on library 'benchmarks-O2' for vector-0.13.2.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 14] Compiling Bench.Vector.Algo.AwShCC ( benchlib/Bench/Vector/Algo/AwShCC.hs, nothing ) [ 2 of 14] Compiling Bench.Vector.Algo.FindIndexR ( benchlib/Bench/Vector/Algo/FindIndexR.hs, nothing ) [ 3 of 14] Compiling Bench.Vector.Algo.HybCC ( benchlib/Bench/Vector/Algo/HybCC.hs, nothing ) [ 4 of 14] Compiling Bench.Vector.Algo.Leaffix ( benchlib/Bench/Vector/Algo/Leaffix.hs, nothing ) [ 5 of 14] Compiling Bench.Vector.Algo.ListRank ( benchlib/Bench/Vector/Algo/ListRank.hs, nothing ) [ 6 of 14] Compiling Bench.Vector.Algo.MutableSet ( benchlib/Bench/Vector/Algo/MutableSet.hs, nothing ) [ 7 of 14] Compiling Bench.Vector.Algo.NextPermutation ( benchlib/Bench/Vector/Algo/NextPermutation.hs, nothing ) [ 8 of 14] Compiling Bench.Vector.Algo.Quickhull ( benchlib/Bench/Vector/Algo/Quickhull.hs, nothing ) [ 9 of 14] Compiling Bench.Vector.Algo.Rootfix ( benchlib/Bench/Vector/Algo/Rootfix.hs, nothing ) [10 of 14] Compiling Bench.Vector.Algo.Spectral ( benchlib/Bench/Vector/Algo/Spectral.hs, nothing ) [11 of 14] Compiling Bench.Vector.Algo.Tridiag ( benchlib/Bench/Vector/Algo/Tridiag.hs, nothing ) [12 of 14] Compiling Bench.Vector.Tasty ( benchlib/Bench/Vector/Tasty.hs, nothing ) [13 of 14] Compiling Bench.Vector.TestData.Graph ( benchlib/Bench/Vector/TestData/Graph.hs, nothing ) [14 of 14] Compiling Bench.Vector.TestData.ParenTree ( benchlib/Bench/Vector/TestData/ParenTree.hs, nothing ) Haddock coverage: 0% ( 0 / 2) in 'Bench.Vector.Algo.AwShCC' Missing documentation for: Module header awshcc (benchlib/Bench/Vector/Algo/AwShCC.hs:8) 0% ( 0 / 4) in 'Bench.Vector.Algo.FindIndexR' Missing documentation for: Module header findIndexR (benchlib/Bench/Vector/Algo/FindIndexR.hs:9) findIndexR_naive (benchlib/Bench/Vector/Algo/FindIndexR.hs:13) findIndexR_manual (benchlib/Bench/Vector/Algo/FindIndexR.hs:20) 0% ( 0 / 2) in 'Bench.Vector.Algo.HybCC' Missing documentation for: Module header hybcc (benchlib/Bench/Vector/Algo/HybCC.hs:7) 0% ( 0 / 2) in 'Bench.Vector.Algo.Leaffix' Missing documentation for: Module header leaffix (benchlib/Bench/Vector/Algo/Leaffix.hs:7) 0% ( 0 / 2) in 'Bench.Vector.Algo.ListRank' Missing documentation for: Module header listRank (benchlib/Bench/Vector/Algo/ListRank.hs:8) 0% ( 0 / 2) in 'Bench.Vector.Algo.MutableSet' Missing documentation for: Module header mutableSet (benchlib/Bench/Vector/Algo/MutableSet.hs:12) Warning: 'Int32' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 50% ( 1 / 2) in 'Bench.Vector.Algo.NextPermutation' Missing documentation for: Module header 0% ( 0 / 2) in 'Bench.Vector.Algo.Quickhull' Missing documentation for: Module header quickhull (benchlib/Bench/Vector/Algo/Quickhull.hs:7) 0% ( 0 / 2) in 'Bench.Vector.Algo.Rootfix' Missing documentation for: Module header rootfix (benchlib/Bench/Vector/Algo/Rootfix.hs:7) 0% ( 0 / 2) in 'Bench.Vector.Algo.Spectral' Missing documentation for: Module header spectral (benchlib/Bench/Vector/Algo/Spectral.hs:9) 0% ( 0 / 2) in 'Bench.Vector.Algo.Tridiag' Missing documentation for: Module header tridiag (benchlib/Bench/Vector/Algo/Tridiag.hs:8) 100% ( 3 / 3) in 'Bench.Vector.Tasty' 0% ( 0 / 2) in 'Bench.Vector.TestData.Graph' Missing documentation for: Module header randomGraph (benchlib/Bench/Vector/TestData/Graph.hs:15) 0% ( 0 / 2) in 'Bench.Vector.TestData.ParenTree' Missing documentation for: Module header parenTree (benchlib/Bench/Vector/TestData/ParenTree.hs:6) Documentation created: dist/doc/html/vector/, dist/doc/html/vector/vector.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/vector-0.13.2.0-Gv6yXNwqQAj3b8A12fweIW Installing internal library benchmarks-O2 in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/vector-0.13.2.0-Gv6yXNwqQAj3b8A12fweIW Completed vector-0.13.2.0 Configuring th-lift-instances-0.1.20... Preprocessing library for th-lift-instances-0.1.20.. Building library for th-lift-instances-0.1.20.. [1 of 1] Compiling Instances.TH.Lift ( src/Instances/TH/Lift.hs, dist/build/Instances/TH/Lift.o, dist/build/Instances/TH/Lift.dyn_o ) Preprocessing library for th-lift-instances-0.1.20.. Running Haddock on library for th-lift-instances-0.1.20.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Instances.TH.Lift ( src/Instances/TH/Lift.hs, nothing ) Haddock coverage: Warning: 'Word8' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Word16' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Word32' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Word64' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Int8' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Int16' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Int32' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Int64' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'NonEmpty' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Void' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 91% ( 11 / 12) in 'Instances.TH.Lift' Missing documentation for: Module header Warning: Instances.TH.Lift: could not find link destinations for: - Data.Vector.Vector - Data.Vector.Primitive.Vector - Data.Vector.Storable.Vector - Data.Vector.Unboxed.Base.Unbox - Data.Vector.Unboxed.Base.Vector Documentation created: dist/doc/html/th-lift-instances/, dist/doc/html/th-lift-instances/th-lift-instances.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/th-lift-instances-0.1.20-LycI5KkgZjXEzXZEXUQll5 Completed th-lift-instances-0.1.20 Configuring quickcheck-instances-0.3.33... Preprocessing library for quickcheck-instances-0.3.33.. Building library for quickcheck-instances-0.3.33.. [ 1 of 26] Compiling Test.QuickCheck.Instances.Containers ( src/Test/QuickCheck/Instances/Containers.hs, dist/build/Test/QuickCheck/Instances/Containers.o, dist/build/Test/QuickCheck/Instances/Containers.dyn_o ) [ 2 of 26] Compiling Test.QuickCheck.Instances.CustomPrelude ( src/Test/QuickCheck/Instances/CustomPrelude.hs, dist/build/Test/QuickCheck/Instances/CustomPrelude.o, dist/build/Test/QuickCheck/Instances/CustomPrelude.dyn_o ) [ 3 of 26] Compiling Test.QuickCheck.Instances.CaseInsensitive ( src/Test/QuickCheck/Instances/CaseInsensitive.hs, dist/build/Test/QuickCheck/Instances/CaseInsensitive.o, dist/build/Test/QuickCheck/Instances/CaseInsensitive.dyn_o ) [ 4 of 26] Compiling Test.QuickCheck.Instances.ByteString ( src/Test/QuickCheck/Instances/ByteString.hs, dist/build/Test/QuickCheck/Instances/ByteString.o, dist/build/Test/QuickCheck/Instances/ByteString.dyn_o ) [ 5 of 26] Compiling Test.QuickCheck.Instances.Array ( src/Test/QuickCheck/Instances/Array.hs, dist/build/Test/QuickCheck/Instances/Array.o, dist/build/Test/QuickCheck/Instances/Array.dyn_o ) [ 6 of 26] Compiling Test.QuickCheck.Instances.DataFix ( src/Test/QuickCheck/Instances/DataFix.hs, dist/build/Test/QuickCheck/Instances/DataFix.o, dist/build/Test/QuickCheck/Instances/DataFix.dyn_o ) [ 7 of 26] Compiling Test.QuickCheck.Instances.Hashable ( src/Test/QuickCheck/Instances/Hashable.hs, dist/build/Test/QuickCheck/Instances/Hashable.o, dist/build/Test/QuickCheck/Instances/Hashable.dyn_o ) [ 8 of 26] Compiling Test.QuickCheck.Instances.Natural ( src/Test/QuickCheck/Instances/Natural.hs, dist/build/Test/QuickCheck/Instances/Natural.o, dist/build/Test/QuickCheck/Instances/Natural.dyn_o ) [ 9 of 26] Compiling Test.QuickCheck.Instances.OldTime ( src/Test/QuickCheck/Instances/OldTime.hs, dist/build/Test/QuickCheck/Instances/OldTime.o, dist/build/Test/QuickCheck/Instances/OldTime.dyn_o ) [10 of 26] Compiling Test.QuickCheck.Instances.Primitive ( src/Test/QuickCheck/Instances/Primitive.hs, dist/build/Test/QuickCheck/Instances/Primitive.o, dist/build/Test/QuickCheck/Instances/Primitive.dyn_o ) [11 of 26] Compiling Test.QuickCheck.Instances.Array.Byte ( src/Test/QuickCheck/Instances/Array/Byte.hs, dist/build/Test/QuickCheck/Instances/Array/Byte.o, dist/build/Test/QuickCheck/Instances/Array/Byte.dyn_o ) [12 of 26] Compiling Test.QuickCheck.Instances.Scientific ( src/Test/QuickCheck/Instances/Scientific.hs, dist/build/Test/QuickCheck/Instances/Scientific.o, dist/build/Test/QuickCheck/Instances/Scientific.dyn_o ) [13 of 26] Compiling Test.QuickCheck.Instances.Semigroup ( src/Test/QuickCheck/Instances/Semigroup.hs, dist/build/Test/QuickCheck/Instances/Semigroup.o, dist/build/Test/QuickCheck/Instances/Semigroup.dyn_o ) [14 of 26] Compiling Test.QuickCheck.Instances.Solo ( src/Test/QuickCheck/Instances/Solo.hs, dist/build/Test/QuickCheck/Instances/Solo.o, dist/build/Test/QuickCheck/Instances/Solo.dyn_o ) [15 of 26] Compiling Test.QuickCheck.Instances.Strict ( src/Test/QuickCheck/Instances/Strict.hs, dist/build/Test/QuickCheck/Instances/Strict.o, dist/build/Test/QuickCheck/Instances/Strict.dyn_o ) [16 of 26] Compiling Test.QuickCheck.Instances.Tagged ( src/Test/QuickCheck/Instances/Tagged.hs, dist/build/Test/QuickCheck/Instances/Tagged.o, dist/build/Test/QuickCheck/Instances/Tagged.dyn_o ) [17 of 26] Compiling Test.QuickCheck.Instances.Text ( src/Test/QuickCheck/Instances/Text.hs, dist/build/Test/QuickCheck/Instances/Text.o, dist/build/Test/QuickCheck/Instances/Text.dyn_o ) [18 of 26] Compiling Test.QuickCheck.Instances.Text.Short ( src/Test/QuickCheck/Instances/Text/Short.hs, dist/build/Test/QuickCheck/Instances/Text/Short.o, dist/build/Test/QuickCheck/Instances/Text/Short.dyn_o ) [19 of 26] Compiling Test.QuickCheck.Instances.These ( src/Test/QuickCheck/Instances/These.hs, dist/build/Test/QuickCheck/Instances/These.o, dist/build/Test/QuickCheck/Instances/These.dyn_o ) [20 of 26] Compiling Test.QuickCheck.Instances.Time ( src/Test/QuickCheck/Instances/Time.hs, dist/build/Test/QuickCheck/Instances/Time.o, dist/build/Test/QuickCheck/Instances/Time.dyn_o ) [21 of 26] Compiling Test.QuickCheck.Instances.Transformer ( src/Test/QuickCheck/Instances/Transformer.hs, dist/build/Test/QuickCheck/Instances/Transformer.o, dist/build/Test/QuickCheck/Instances/Transformer.dyn_o ) [22 of 26] Compiling Test.QuickCheck.Instances.UUID ( src/Test/QuickCheck/Instances/UUID.hs, dist/build/Test/QuickCheck/Instances/UUID.o, dist/build/Test/QuickCheck/Instances/UUID.dyn_o ) [23 of 26] Compiling Test.QuickCheck.Instances.UnorderedContainers ( src/Test/QuickCheck/Instances/UnorderedContainers.hs, dist/build/Test/QuickCheck/Instances/UnorderedContainers.o, dist/build/Test/QuickCheck/Instances/UnorderedContainers.dyn_o ) [24 of 26] Compiling Test.QuickCheck.Instances.Vector ( src/Test/QuickCheck/Instances/Vector.hs, dist/build/Test/QuickCheck/Instances/Vector.o, dist/build/Test/QuickCheck/Instances/Vector.dyn_o ) [25 of 26] Compiling Test.QuickCheck.Instances.Void ( src/Test/QuickCheck/Instances/Void.hs, dist/build/Test/QuickCheck/Instances/Void.o, dist/build/Test/QuickCheck/Instances/Void.dyn_o ) [26 of 26] Compiling Test.QuickCheck.Instances ( src/Test/QuickCheck/Instances.hs, dist/build/Test/QuickCheck/Instances.o, dist/build/Test/QuickCheck/Instances.dyn_o ) Preprocessing library for quickcheck-instances-0.3.33.. Running Haddock on library for quickcheck-instances-0.3.33.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 26] Compiling Test.QuickCheck.Instances.Containers ( src/Test/QuickCheck/Instances/Containers.hs, nothing ) [ 2 of 26] Compiling Test.QuickCheck.Instances.CustomPrelude ( src/Test/QuickCheck/Instances/CustomPrelude.hs, nothing ) [ 3 of 26] Compiling Test.QuickCheck.Instances.CaseInsensitive ( src/Test/QuickCheck/Instances/CaseInsensitive.hs, nothing ) [ 4 of 26] Compiling Test.QuickCheck.Instances.ByteString ( src/Test/QuickCheck/Instances/ByteString.hs, nothing ) [ 5 of 26] Compiling Test.QuickCheck.Instances.Array ( src/Test/QuickCheck/Instances/Array.hs, nothing ) [ 6 of 26] Compiling Test.QuickCheck.Instances.DataFix ( src/Test/QuickCheck/Instances/DataFix.hs, nothing ) [ 7 of 26] Compiling Test.QuickCheck.Instances.Hashable ( src/Test/QuickCheck/Instances/Hashable.hs, nothing ) [ 8 of 26] Compiling Test.QuickCheck.Instances.Natural ( src/Test/QuickCheck/Instances/Natural.hs, nothing ) [ 9 of 26] Compiling Test.QuickCheck.Instances.OldTime ( src/Test/QuickCheck/Instances/OldTime.hs, nothing ) [10 of 26] Compiling Test.QuickCheck.Instances.Primitive ( src/Test/QuickCheck/Instances/Primitive.hs, nothing ) [11 of 26] Compiling Test.QuickCheck.Instances.Array.Byte ( src/Test/QuickCheck/Instances/Array/Byte.hs, nothing ) [12 of 26] Compiling Test.QuickCheck.Instances.Scientific ( src/Test/QuickCheck/Instances/Scientific.hs, nothing ) [13 of 26] Compiling Test.QuickCheck.Instances.Semigroup ( src/Test/QuickCheck/Instances/Semigroup.hs, nothing ) [14 of 26] Compiling Test.QuickCheck.Instances.Solo ( src/Test/QuickCheck/Instances/Solo.hs, nothing ) [15 of 26] Compiling Test.QuickCheck.Instances.Strict ( src/Test/QuickCheck/Instances/Strict.hs, nothing ) [16 of 26] Compiling Test.QuickCheck.Instances.Tagged ( src/Test/QuickCheck/Instances/Tagged.hs, nothing ) [17 of 26] Compiling Test.QuickCheck.Instances.Text ( src/Test/QuickCheck/Instances/Text.hs, nothing ) [18 of 26] Compiling Test.QuickCheck.Instances.Text.Short ( src/Test/QuickCheck/Instances/Text/Short.hs, nothing ) [19 of 26] Compiling Test.QuickCheck.Instances.These ( src/Test/QuickCheck/Instances/These.hs, nothing ) [20 of 26] Compiling Test.QuickCheck.Instances.Time ( src/Test/QuickCheck/Instances/Time.hs, nothing ) [21 of 26] Compiling Test.QuickCheck.Instances.Transformer ( src/Test/QuickCheck/Instances/Transformer.hs, nothing ) [22 of 26] Compiling Test.QuickCheck.Instances.UUID ( src/Test/QuickCheck/Instances/UUID.hs, nothing ) [23 of 26] Compiling Test.QuickCheck.Instances.UnorderedContainers ( src/Test/QuickCheck/Instances/UnorderedContainers.hs, nothing ) [24 of 26] Compiling Test.QuickCheck.Instances.Vector ( src/Test/QuickCheck/Instances/Vector.hs, nothing ) [25 of 26] Compiling Test.QuickCheck.Instances.Void ( src/Test/QuickCheck/Instances/Void.hs, nothing ) [26 of 26] Compiling Test.QuickCheck.Instances ( src/Test/QuickCheck/Instances.hs, nothing ) Haddock coverage: 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Containers' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.CaseInsensitive' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.ByteString' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Array' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.DataFix' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Hashable' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Natural' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.OldTime' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Primitive' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Array.Byte' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Scientific' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Semigroup' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Solo' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Strict' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Tagged' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Text' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Text.Short' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.These' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Time' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Transformer' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.UUID' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.UnorderedContainers' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Vector' Missing documentation for: Module header 0% ( 0 / 1) in 'Test.QuickCheck.Instances.Void' Missing documentation for: Module header 100% ( 1 / 1) in 'Test.QuickCheck.Instances' Warning: Test.QuickCheck.Instances.Vector: could not find link destinations for: - Data.Vector.Vector - Data.Vector.Primitive.Vector - Data.Vector.Storable.Vector - Data.Vector.Unboxed.Base.Unbox - Data.Vector.Unboxed.Base.Vector - Data.Vector.Strict.Vector Documentation created: dist/doc/html/quickcheck-instances/, dist/doc/html/quickcheck-instances/quickcheck-instances.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/quickcheck-instances-0.3.33-JFu1wWE0lus5MOqwme9beT Completed quickcheck-instances-0.3.33 Configuring indexed-traversable-instances-0.1.2... Preprocessing library for indexed-traversable-instances-0.1.2.. Building library for indexed-traversable-instances-0.1.2.. [1 of 1] Compiling Data.Functor.WithIndex.Instances ( src/Data/Functor/WithIndex/Instances.hs, dist/build/Data/Functor/WithIndex/Instances.o, dist/build/Data/Functor/WithIndex/Instances.dyn_o ) Preprocessing library for indexed-traversable-instances-0.1.2.. Running Haddock on library for indexed-traversable-instances-0.1.2.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Data.Functor.WithIndex.Instances ( src/Data/Functor/WithIndex/Instances.hs, nothing ) Haddock coverage: 100% ( 1 / 1) in 'Data.Functor.WithIndex.Instances' Warning: Data.Functor.WithIndex.Instances: could not find link destinations for: - Data.Vector.Vector Documentation created: dist/doc/html/indexed-traversable-instances/, dist/doc/html/indexed-traversable-instances/indexed-traversable-instances.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/indexed-traversable-instances-0.1.2-8QDHQF8Wv0TEs7ZwptR1dp Completed indexed-traversable-instances-0.1.2 Configuring bitvec-1.1.5.0... Preprocessing library for bitvec-1.1.5.0.. Building library for bitvec-1.1.5.0.. [ 1 of 13] Compiling Data.Bit.PdepPext ( src/Data/Bit/PdepPext.hs, dist/build/Data/Bit/PdepPext.o, dist/build/Data/Bit/PdepPext.dyn_o ) [ 2 of 13] Compiling Data.Bit.SIMD ( src/Data/Bit/SIMD.hs, dist/build/Data/Bit/SIMD.o, dist/build/Data/Bit/SIMD.dyn_o ) [ 3 of 13] Compiling Data.Bit.Utils ( src/Data/Bit/Utils.hs, dist/build/Data/Bit/Utils.o, dist/build/Data/Bit/Utils.dyn_o ) [ 4 of 13] Compiling Data.Bit.InternalTS ( src/Data/Bit/InternalTS.hs, dist/build/Data/Bit/InternalTS.o, dist/build/Data/Bit/InternalTS.dyn_o ) [ 5 of 13] Compiling Data.Bit.MutableTS ( src/Data/Bit/MutableTS.hs, dist/build/Data/Bit/MutableTS.o, dist/build/Data/Bit/MutableTS.dyn_o ) [ 6 of 13] Compiling Data.Bit.Internal ( src/Data/Bit/Internal.hs, dist/build/Data/Bit/Internal.o, dist/build/Data/Bit/Internal.dyn_o ) [ 7 of 13] Compiling Data.Bit.Mutable ( src/Data/Bit/Mutable.hs, dist/build/Data/Bit/Mutable.o, dist/build/Data/Bit/Mutable.dyn_o ) [ 8 of 13] Compiling Data.Bit.ImmutableTS ( src/Data/Bit/ImmutableTS.hs, dist/build/Data/Bit/ImmutableTS.o, dist/build/Data/Bit/ImmutableTS.dyn_o ) [ 9 of 13] Compiling Data.Bit.Immutable ( src/Data/Bit/Immutable.hs, dist/build/Data/Bit/Immutable.o, dist/build/Data/Bit/Immutable.dyn_o ) [10 of 13] Compiling Data.Bit.F2PolyTS ( src/Data/Bit/F2PolyTS.hs, dist/build/Data/Bit/F2PolyTS.o, dist/build/Data/Bit/F2PolyTS.dyn_o ) [11 of 13] Compiling Data.Bit.ThreadSafe ( src/Data/Bit/ThreadSafe.hs, dist/build/Data/Bit/ThreadSafe.o, dist/build/Data/Bit/ThreadSafe.dyn_o ) [12 of 13] Compiling Data.Bit.F2Poly ( src/Data/Bit/F2Poly.hs, dist/build/Data/Bit/F2Poly.o, dist/build/Data/Bit/F2Poly.dyn_o ) [13 of 13] Compiling Data.Bit ( src/Data/Bit.hs, dist/build/Data/Bit.o, dist/build/Data/Bit.dyn_o ) Preprocessing library for bitvec-1.1.5.0.. Running Haddock on library for bitvec-1.1.5.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 13] Compiling Data.Bit.PdepPext ( src/Data/Bit/PdepPext.hs, nothing ) [ 2 of 13] Compiling Data.Bit.SIMD ( src/Data/Bit/SIMD.hs, nothing ) [ 3 of 13] Compiling Data.Bit.Utils ( src/Data/Bit/Utils.hs, nothing ) [ 4 of 13] Compiling Data.Bit.InternalTS ( src/Data/Bit/InternalTS.hs, nothing ) [ 5 of 13] Compiling Data.Bit.MutableTS ( src/Data/Bit/MutableTS.hs, nothing ) [ 6 of 13] Compiling Data.Bit.Internal ( src/Data/Bit/Internal.hs, nothing ) [ 7 of 13] Compiling Data.Bit.Mutable ( src/Data/Bit/Mutable.hs, nothing ) [ 8 of 13] Compiling Data.Bit.ImmutableTS ( src/Data/Bit/ImmutableTS.hs, nothing ) [ 9 of 13] Compiling Data.Bit.Immutable ( src/Data/Bit/Immutable.hs, nothing ) [10 of 13] Compiling Data.Bit.F2PolyTS ( src/Data/Bit/F2PolyTS.hs, nothing ) [11 of 13] Compiling Data.Bit.ThreadSafe ( src/Data/Bit/ThreadSafe.hs, nothing ) [12 of 13] Compiling Data.Bit.F2Poly ( src/Data/Bit/F2Poly.hs, nothing ) [13 of 13] Compiling Data.Bit ( src/Data/Bit.hs, nothing ) Haddock coverage: Warning: 'Bit' is ambiguous. It is defined * at src/Data/Bit/Internal.hs:81:15 * at src/Data/Bit/Internal.hs:81:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Bit/Internal.hs:81:1 Warning: Data.Bit.InternalTS: Couldn't find .haddock for export Vector Warning: Data.Bit.InternalTS: Couldn't find .haddock for export MVector Warning: 'Bit' is ambiguous. It is defined * at src/Data/Bit/Internal.hs:63:15 * at src/Data/Bit/Internal.hs:63:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Bit/Internal.hs:63:1 Warning: Data.Bit.Internal: Couldn't find .haddock for export Vector Warning: Data.Bit.Internal: Couldn't find .haddock for export MVector Warning: 'Bit' is ambiguous. It is defined * at src/Data/Bit/Internal.hs:81:15 * at src/Data/Bit/Internal.hs:81:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Bit/Internal.hs:81:1 Warning: 'F2Poly' is ambiguous. It is defined * at src/Data/Bit/F2Poly.hs:69:18 * at src/Data/Bit/F2Poly.hs:69:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Bit/F2Poly.hs:69:1 Warning: Data.Bit.ThreadSafe: Couldn't find .haddock for export Vector Warning: Data.Bit.ThreadSafe: Couldn't find .haddock for export MVector 95% ( 40 / 42) in 'Data.Bit.ThreadSafe' Warning: 'Bit' is ambiguous. It is defined * at src/Data/Bit/Internal.hs:63:15 * at src/Data/Bit/Internal.hs:63:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Bit/Internal.hs:63:1 Warning: 'F2Poly' is ambiguous. It is defined * at src/Data/Bit/F2Poly.hs:69:18 * at src/Data/Bit/F2Poly.hs:69:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Bit/F2Poly.hs:69:1 Warning: Data.Bit: Couldn't find .haddock for export Vector Warning: Data.Bit: Couldn't find .haddock for export MVector 95% ( 40 / 42) in 'Data.Bit' Warning: Data.Bit.ThreadSafe: could not find link destinations for: - Data.Vector.Generic.Base.Vector - Data.Vector.Generic.Base.Mutable - Data.Vector.Unboxed.Base.Unbox - Data.Vector.Generic.Mutable.Base.MVector - Data.Vector.Generic.Base.basicLength - Data.Vector.Generic.Base.basicUnsafeCopy - Data.Vector.Generic.Base.basicUnsafeFreeze - Data.Vector.Generic.Base.basicUnsafeIndexM - Data.Vector.Generic.Base.basicUnsafeSlice - Data.Vector.Generic.Base.basicUnsafeThaw - Data.Vector.Generic.Base.elemseq - Data.Vector.Generic.Mutable.Base.basicClear - Data.Vector.Generic.Mutable.Base.basicInitialize - Data.Vector.Generic.Mutable.Base.basicLength - Data.Vector.Generic.Mutable.Base.basicOverlaps - Data.Vector.Generic.Mutable.Base.basicSet - Data.Vector.Generic.Mutable.Base.basicUnsafeCopy - Data.Vector.Generic.Mutable.Base.basicUnsafeGrow - Data.Vector.Generic.Mutable.Base.basicUnsafeMove - Data.Vector.Generic.Mutable.Base.basicUnsafeNew - Data.Vector.Generic.Mutable.Base.basicUnsafeRead - Data.Vector.Generic.Mutable.Base.basicUnsafeReplicate - Data.Vector.Generic.Mutable.Base.basicUnsafeSlice - Data.Vector.Generic.Mutable.Base.basicUnsafeWrite - Data.Bit.InternalTS.D:R:VectorBit0 - Data.Bit.InternalTS.D:R:MVectorsBit0 - Data.Bit.InternalTS.Rep_Bit - Data.Bit.F2PolyTS.Rep_F2Poly Warning: Data.Bit: could not find link destinations for: - Data.Vector.Generic.Base.Vector - Data.Vector.Generic.Base.Mutable - Data.Vector.Unboxed.Base.Unbox - Data.Vector.Generic.Mutable.Base.MVector - Data.Vector.Generic.Base.basicLength - Data.Vector.Generic.Base.basicUnsafeCopy - Data.Vector.Generic.Base.basicUnsafeFreeze - Data.Vector.Generic.Base.basicUnsafeIndexM - Data.Vector.Generic.Base.basicUnsafeSlice - Data.Vector.Generic.Base.basicUnsafeThaw - Data.Vector.Generic.Base.elemseq - Data.Vector.Generic.Mutable.Base.basicClear - Data.Vector.Generic.Mutable.Base.basicInitialize - Data.Vector.Generic.Mutable.Base.basicLength - Data.Vector.Generic.Mutable.Base.basicOverlaps - Data.Vector.Generic.Mutable.Base.basicSet - Data.Vector.Generic.Mutable.Base.basicUnsafeCopy - Data.Vector.Generic.Mutable.Base.basicUnsafeGrow - Data.Vector.Generic.Mutable.Base.basicUnsafeMove - Data.Vector.Generic.Mutable.Base.basicUnsafeNew - Data.Vector.Generic.Mutable.Base.basicUnsafeRead - Data.Vector.Generic.Mutable.Base.basicUnsafeReplicate - Data.Vector.Generic.Mutable.Base.basicUnsafeSlice - Data.Vector.Generic.Mutable.Base.basicUnsafeWrite - Data.Bit.Internal.D:R:VectorBit0 - Data.Bit.Internal.D:R:MVectorsBit0 - Data.Bit.Internal.Rep_Bit - Data.Bit.F2Poly.Rep_F2Poly Documentation created: dist/doc/html/bitvec/, dist/doc/html/bitvec/bitvec.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/bitvec-1.1.5.0-16tovMFNw5V8l9RJJYP11Q Completed bitvec-1.1.5.0 Configuring witherable-0.5... Preprocessing library for witherable-0.5.. Building library for witherable-0.5.. [1 of 1] Compiling Witherable ( src/Witherable.hs, dist/build/Witherable.o, dist/build/Witherable.dyn_o ) Preprocessing library for witherable-0.5.. Running Haddock on library for witherable-0.5.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 1] Compiling Witherable ( src/Witherable.hs, nothing ) Haddock coverage: Warning: 'Compose' is ambiguous. It is defined * in Data.Functor.Compose * in Data.Functor.Compose You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Functor.Compose 93% ( 14 / 15) in 'Witherable' Missing documentation for: WrappedFoldable (src/Witherable.hs:733) Warning: Witherable: could not find link destinations for: - Data.Vector.Vector Documentation created: dist/doc/html/witherable/, dist/doc/html/witherable/witherable.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/witherable-0.5-BJAgps63cBwLnJIjspneCX Completed witherable-0.5 Configuring semialign-1.3.1... Preprocessing library for semialign-1.3.1.. Building library for semialign-1.3.1.. [1 of 6] Compiling Data.Semialign.Internal ( src/Data/Semialign/Internal.hs, dist/build/Data/Semialign/Internal.o, dist/build/Data/Semialign/Internal.dyn_o ) [2 of 6] Compiling Data.Semialign.Indexed ( src/Data/Semialign/Indexed.hs, dist/build/Data/Semialign/Indexed.o, dist/build/Data/Semialign/Indexed.dyn_o ) [3 of 6] Compiling Data.Semialign ( src/Data/Semialign.hs, dist/build/Data/Semialign.o, dist/build/Data/Semialign.dyn_o ) [4 of 6] Compiling Data.Align ( src/Data/Align.hs, dist/build/Data/Align.o, dist/build/Data/Align.dyn_o ) [5 of 6] Compiling Data.Crosswalk ( src/Data/Crosswalk.hs, dist/build/Data/Crosswalk.o, dist/build/Data/Crosswalk.dyn_o ) [6 of 6] Compiling Data.Zip ( src/Data/Zip.hs, dist/build/Data/Zip.o, dist/build/Data/Zip.dyn_o ) Preprocessing library for semialign-1.3.1.. Running Haddock on library for semialign-1.3.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling Data.Semialign.Internal ( src/Data/Semialign/Internal.hs, nothing ) [2 of 6] Compiling Data.Semialign.Indexed ( src/Data/Semialign/Indexed.hs, nothing ) [3 of 6] Compiling Data.Semialign ( src/Data/Semialign.hs, nothing ) [4 of 6] Compiling Data.Align ( src/Data/Align.hs, nothing ) [5 of 6] Compiling Data.Crosswalk ( src/Data/Crosswalk.hs, nothing ) [6 of 6] Compiling Data.Zip ( src/Data/Zip.hs, nothing ) Haddock coverage: Warning: 'tabulate' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'These' is ambiguous. It is defined * in Data.These * in Data.These You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.These Warning: 'Foldable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'join' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'liftA2' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 4 / 4) in 'Data.Semialign.Indexed' 88% ( 16 / 18) in 'Data.Semialign' Missing documentation for: unzipDefault (src/Data/Semialign/Internal.hs:308) alignVectorWith (src/Data/Semialign/Internal.hs:718) Warning: 'These' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 92% ( 12 / 13) in 'Data.Align' Missing documentation for: alignVectorWith (src/Data/Semialign/Internal.hs:718) 80% ( 4 / 5) in 'Data.Crosswalk' Missing documentation for: Module header 71% ( 5 / 7) in 'Data.Zip' Missing documentation for: unzipDefault (src/Data/Semialign/Internal.hs:308) Zippy (src/Data/Zip.hs:30) Warning: Data.Semialign.Indexed: could not find link destinations for: - Data.Vector.Vector Warning: Data.Semialign: could not find link destinations for: - Data.Vector.Generic.Base.Vector - Data.Vector.Vector - Data.Vector.Fusion.Bundle.Monadic.Bundle Warning: Data.Align: could not find link destinations for: - Data.Vector.Generic.Base.Vector - Data.Vector.Vector - Data.Vector.Fusion.Bundle.Monadic.Bundle Warning: Data.Crosswalk: could not find link destinations for: - Data.Vector.Vector Warning: Data.Zip: could not find link destinations for: - Data.Vector.Vector - Data.Vector.Fusion.Bundle.Monadic.Bundle Documentation created: dist/doc/html/semialign/, dist/doc/html/semialign/semialign.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/semialign-1.3.1-EMpnNMFzv586EMkrFKW60z Completed semialign-1.3.1 Configuring vector-algorithms-0.9.1.0... Preprocessing library for vector-algorithms-0.9.1.0.. Building library for vector-algorithms-0.9.1.0.. [ 1 of 11] Compiling Data.Vector.Algorithms.Common ( src/Data/Vector/Algorithms/Common.hs, dist/build/Data/Vector/Algorithms/Common.o, dist/build/Data/Vector/Algorithms/Common.dyn_o ) [ 2 of 11] Compiling Data.Vector.Algorithms.Optimal ( src/Data/Vector/Algorithms/Optimal.hs, dist/build/Data/Vector/Algorithms/Optimal.o, dist/build/Data/Vector/Algorithms/Optimal.dyn_o ) [ 3 of 11] Compiling Data.Vector.Algorithms.Insertion ( src/Data/Vector/Algorithms/Insertion.hs, dist/build/Data/Vector/Algorithms/Insertion.o, dist/build/Data/Vector/Algorithms/Insertion.dyn_o ) [ 4 of 11] Compiling Data.Vector.Algorithms.Merge ( src/Data/Vector/Algorithms/Merge.hs, dist/build/Data/Vector/Algorithms/Merge.o, dist/build/Data/Vector/Algorithms/Merge.dyn_o ) [ 5 of 11] Compiling Data.Vector.Algorithms.AmericanFlag ( src/Data/Vector/Algorithms/AmericanFlag.hs, dist/build/Data/Vector/Algorithms/AmericanFlag.o, dist/build/Data/Vector/Algorithms/AmericanFlag.dyn_o ) [ 6 of 11] Compiling Data.Vector.Algorithms.Heap ( src/Data/Vector/Algorithms/Heap.hs, dist/build/Data/Vector/Algorithms/Heap.o, dist/build/Data/Vector/Algorithms/Heap.dyn_o ) [ 7 of 11] Compiling Data.Vector.Algorithms.Intro ( src/Data/Vector/Algorithms/Intro.hs, dist/build/Data/Vector/Algorithms/Intro.o, dist/build/Data/Vector/Algorithms/Intro.dyn_o ) [ 8 of 11] Compiling Data.Vector.Algorithms.Radix ( src/Data/Vector/Algorithms/Radix.hs, dist/build/Data/Vector/Algorithms/Radix.o, dist/build/Data/Vector/Algorithms/Radix.dyn_o ) [ 9 of 11] Compiling Data.Vector.Algorithms.Search ( src/Data/Vector/Algorithms/Search.hs, dist/build/Data/Vector/Algorithms/Search.o, dist/build/Data/Vector/Algorithms/Search.dyn_o ) [10 of 11] Compiling Data.Vector.Algorithms ( src/Data/Vector/Algorithms.hs, dist/build/Data/Vector/Algorithms.o, dist/build/Data/Vector/Algorithms.dyn_o ) [11 of 11] Compiling Data.Vector.Algorithms.Tim ( src/Data/Vector/Algorithms/Tim.hs, dist/build/Data/Vector/Algorithms/Tim.o, dist/build/Data/Vector/Algorithms/Tim.dyn_o ) Preprocessing library for vector-algorithms-0.9.1.0.. Running Haddock on library for vector-algorithms-0.9.1.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 11] Compiling Data.Vector.Algorithms.Common ( src/Data/Vector/Algorithms/Common.hs, nothing ) [ 2 of 11] Compiling Data.Vector.Algorithms.Optimal ( src/Data/Vector/Algorithms/Optimal.hs, nothing ) [ 3 of 11] Compiling Data.Vector.Algorithms.Insertion ( src/Data/Vector/Algorithms/Insertion.hs, nothing ) [ 4 of 11] Compiling Data.Vector.Algorithms.Merge ( src/Data/Vector/Algorithms/Merge.hs, nothing ) [ 5 of 11] Compiling Data.Vector.Algorithms.AmericanFlag ( src/Data/Vector/Algorithms/AmericanFlag.hs, nothing ) [ 6 of 11] Compiling Data.Vector.Algorithms.Heap ( src/Data/Vector/Algorithms/Heap.hs, nothing ) [ 7 of 11] Compiling Data.Vector.Algorithms.Intro ( src/Data/Vector/Algorithms/Intro.hs, nothing ) [ 8 of 11] Compiling Data.Vector.Algorithms.Radix ( src/Data/Vector/Algorithms/Radix.hs, nothing ) [ 9 of 11] Compiling Data.Vector.Algorithms.Search ( src/Data/Vector/Algorithms/Search.hs, nothing ) [10 of 11] Compiling Data.Vector.Algorithms ( src/Data/Vector/Algorithms.hs, nothing ) [11 of 11] Compiling Data.Vector.Algorithms.Tim ( src/Data/Vector/Algorithms/Tim.hs, nothing ) Haddock coverage: Warning: 'off' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'lower' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 8 / 8) in 'Data.Vector.Algorithms.Optimal' 100% ( 8 / 8) in 'Data.Vector.Algorithms.Insertion' 100% ( 6 / 6) in 'Data.Vector.Algorithms.Merge' Warning: 'n' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 7 / 7) in 'Data.Vector.Algorithms.AmericanFlag' Warning: 'lowest' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 22 / 22) in 'Data.Vector.Algorithms.Heap' 100% ( 16 / 16) in 'Data.Vector.Algorithms.Intro' 75% ( 3 / 4) in 'Data.Vector.Algorithms.Radix' Missing documentation for: Radix (src/Data/Vector/Algorithms/Radix.hs:58) 100% ( 17 / 17) in 'Data.Vector.Algorithms.Search' Warning: 'sortByUniq' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 75% ( 3 / 4) in 'Data.Vector.Algorithms' Missing documentation for: Module header 100% ( 5 / 5) in 'Data.Vector.Algorithms.Tim' Warning: Data.Vector.Algorithms.Optimal: could not find link destinations for: - Data.Vector.Generic.Mutable.Base.MVector Warning: Data.Vector.Algorithms.Insertion: could not find link destinations for: - Data.Vector.Generic.Mutable.Base.MVector Warning: Data.Vector.Algorithms.Merge: could not find link destinations for: - Data.Vector.Generic.Mutable.Base.MVector Warning: Data.Vector.Algorithms.AmericanFlag: could not find link destinations for: - Data.Vector.Generic.Mutable.Base.MVector Warning: Data.Vector.Algorithms.Heap: could not find link destinations for: - Data.Vector.Generic.Mutable.Base.MVector Warning: Data.Vector.Algorithms.Intro: could not find link destinations for: - Data.Vector.Generic.Mutable.Base.MVector Warning: Data.Vector.Algorithms.Radix: could not find link destinations for: - Data.Vector.Generic.Mutable.Base.MVector Warning: Data.Vector.Algorithms.Search: could not find link destinations for: - Data.Vector.Generic.Mutable.Base.MVector Warning: Data.Vector.Algorithms: could not find link destinations for: - Data.Vector.Generic.Mutable.Base.MVector - Data.Vector.Generic.Base.Vector Warning: Data.Vector.Algorithms.Tim: could not find link destinations for: - Data.Vector.Generic.Mutable.Base.MVector Documentation created: dist/doc/html/vector-algorithms/, dist/doc/html/vector-algorithms/vector-algorithms.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/vector-algorithms-0.9.1.0-IKEFzbTPqd52yfYetGbtgo Completed vector-algorithms-0.9.1.0 Configuring aeson-2.2.3.0... Preprocessing library for aeson-2.2.3.0.. Building library for aeson-2.2.3.0.. [ 1 of 32] Compiling Data.Aeson.Internal.ByteString ( src/Data/Aeson/Internal/ByteString.hs, dist/build/Data/Aeson/Internal/ByteString.o, dist/build/Data/Aeson/Internal/ByteString.dyn_o ) [ 2 of 32] Compiling Data.Aeson.Internal.Functions ( src/Data/Aeson/Internal/Functions.hs, dist/build/Data/Aeson/Internal/Functions.o, dist/build/Data/Aeson/Internal/Functions.dyn_o ) [ 3 of 32] Compiling Data.Aeson.Internal.Prelude ( src/Data/Aeson/Internal/Prelude.hs, dist/build/Data/Aeson/Internal/Prelude.o, dist/build/Data/Aeson/Internal/Prelude.dyn_o ) [ 4 of 32] Compiling Data.Aeson.Internal.Scientific ( src/Data/Aeson/Internal/Scientific.hs, dist/build/Data/Aeson/Internal/Scientific.o, dist/build/Data/Aeson/Internal/Scientific.dyn_o ) [ 5 of 32] Compiling Data.Aeson.Internal.TH ( src/Data/Aeson/Internal/TH.hs, dist/build/Data/Aeson/Internal/TH.o, dist/build/Data/Aeson/Internal/TH.dyn_o ) [ 6 of 32] Compiling Data.Aeson.Internal.Text ( src/Data/Aeson/Internal/Text.hs, dist/build/Data/Aeson/Internal/Text.o, dist/build/Data/Aeson/Internal/Text.dyn_o ) [ 7 of 32] Compiling Data.Aeson.Internal.Unescape ( src/Data/Aeson/Internal/Unescape.hs, dist/build/Data/Aeson/Internal/Unescape.o, dist/build/Data/Aeson/Internal/Unescape.dyn_o ) [ 8 of 32] Compiling Data.Aeson.Internal.UnescapeFromText ( src/Data/Aeson/Internal/UnescapeFromText.hs, dist/build/Data/Aeson/Internal/UnescapeFromText.o, dist/build/Data/Aeson/Internal/UnescapeFromText.dyn_o ) [ 9 of 32] Compiling Data.Aeson.Key ( src/Data/Aeson/Key.hs, dist/build/Data/Aeson/Key.o, dist/build/Data/Aeson/Key.dyn_o ) [10 of 32] Compiling Data.Aeson.Decoding.Tokens ( src/Data/Aeson/Decoding/Tokens.hs, dist/build/Data/Aeson/Decoding/Tokens.o, dist/build/Data/Aeson/Decoding/Tokens.dyn_o ) [11 of 32] Compiling Data.Aeson.Decoding.Internal ( src/Data/Aeson/Decoding/Internal.hs, dist/build/Data/Aeson/Decoding/Internal.o, dist/build/Data/Aeson/Decoding/Internal.dyn_o ) [12 of 32] Compiling Data.Aeson.Decoding.Text ( src/Data/Aeson/Decoding/Text.hs, dist/build/Data/Aeson/Decoding/Text.o, dist/build/Data/Aeson/Decoding/Text.dyn_o ) [13 of 32] Compiling Data.Aeson.Decoding.ByteString.Lazy ( src/Data/Aeson/Decoding/ByteString/Lazy.hs, dist/build/Data/Aeson/Decoding/ByteString/Lazy.o, dist/build/Data/Aeson/Decoding/ByteString/Lazy.dyn_o ) [14 of 32] Compiling Data.Aeson.Decoding.ByteString ( src/Data/Aeson/Decoding/ByteString.hs, dist/build/Data/Aeson/Decoding/ByteString.o, dist/build/Data/Aeson/Decoding/ByteString.dyn_o ) [15 of 32] Compiling Data.Aeson.KeyMap ( src/Data/Aeson/KeyMap.hs, dist/build/Data/Aeson/KeyMap.o, dist/build/Data/Aeson/KeyMap.dyn_o ) [16 of 32] Compiling Data.Aeson.Types.Generic ( src/Data/Aeson/Types/Generic.hs, dist/build/Data/Aeson/Types/Generic.o, dist/build/Data/Aeson/Types/Generic.dyn_o ) [17 of 32] Compiling Data.Aeson.Types.Internal ( src/Data/Aeson/Types/Internal.hs, dist/build/Data/Aeson/Types/Internal.o, dist/build/Data/Aeson/Types/Internal.dyn_o ) [18 of 32] Compiling Data.Aeson.Parser.Time ( src/Data/Aeson/Parser/Time.hs, dist/build/Data/Aeson/Parser/Time.o, dist/build/Data/Aeson/Parser/Time.dyn_o ) [19 of 32] Compiling Data.Aeson.Encoding.Builder ( src/Data/Aeson/Encoding/Builder.hs, dist/build/Data/Aeson/Encoding/Builder.o, dist/build/Data/Aeson/Encoding/Builder.dyn_o ) [20 of 32] Compiling Data.Aeson.Encoding.Internal ( src/Data/Aeson/Encoding/Internal.hs, dist/build/Data/Aeson/Encoding/Internal.o, dist/build/Data/Aeson/Encoding/Internal.dyn_o ) [21 of 32] Compiling Data.Aeson.Encoding ( src/Data/Aeson/Encoding.hs, dist/build/Data/Aeson/Encoding.o, dist/build/Data/Aeson/Encoding.dyn_o ) [22 of 32] Compiling Data.Aeson.Decoding.Conversion ( src/Data/Aeson/Decoding/Conversion.hs, dist/build/Data/Aeson/Decoding/Conversion.o, dist/build/Data/Aeson/Decoding/Conversion.dyn_o ) [23 of 32] Compiling Data.Aeson.Types.FromJSON ( src/Data/Aeson/Types/FromJSON.hs, dist/build/Data/Aeson/Types/FromJSON.o, dist/build/Data/Aeson/Types/FromJSON.dyn_o ) [24 of 32] Compiling Data.Aeson.Types.ToJSON ( src/Data/Aeson/Types/ToJSON.hs, dist/build/Data/Aeson/Types/ToJSON.o, dist/build/Data/Aeson/Types/ToJSON.dyn_o ) src/Data/Aeson/Types/ToJSON.hs:1615:23: warning: [GHC-68441] [-Wdeprecations] In the use of data constructor Solo (imported from Data.Tuple.Solo, but defined in GHC.Tuple): Deprecated: "The Solo constructor has been renamed to MkSolo to avoid punning." | 1615 | liftToJSON _ t _ (Solo a) = t a | ^^^^ src/Data/Aeson/Types/ToJSON.hs:1618:27: warning: [GHC-68441] [-Wdeprecations] In the use of data constructor Solo (imported from Data.Tuple.Solo, but defined in GHC.Tuple): Deprecated: "The Solo constructor has been renamed to MkSolo to avoid punning." | 1618 | liftToEncoding _ t _ (Solo a) = t a | ^^^^ [25 of 32] Compiling Data.Aeson.Types.Class ( src/Data/Aeson/Types/Class.hs, dist/build/Data/Aeson/Types/Class.o, dist/build/Data/Aeson/Types/Class.dyn_o ) [26 of 32] Compiling Data.Aeson.Types ( src/Data/Aeson/Types.hs, dist/build/Data/Aeson/Types.o, dist/build/Data/Aeson/Types.dyn_o ) [27 of 32] Compiling Data.Aeson.Text ( src/Data/Aeson/Text.hs, dist/build/Data/Aeson/Text.o, dist/build/Data/Aeson/Text.dyn_o ) [28 of 32] Compiling Data.Aeson.Decoding ( src/Data/Aeson/Decoding.hs, dist/build/Data/Aeson/Decoding.o, dist/build/Data/Aeson/Decoding.dyn_o ) [29 of 32] Compiling Data.Aeson ( src/Data/Aeson.hs, dist/build/Data/Aeson.o, dist/build/Data/Aeson.dyn_o ) [30 of 32] Compiling Data.Aeson.RFC8785 ( src/Data/Aeson/RFC8785.hs, dist/build/Data/Aeson/RFC8785.o, dist/build/Data/Aeson/RFC8785.dyn_o ) [31 of 32] Compiling Data.Aeson.QQ.Simple ( src/Data/Aeson/QQ/Simple.hs, dist/build/Data/Aeson/QQ/Simple.o, dist/build/Data/Aeson/QQ/Simple.dyn_o ) [32 of 32] Compiling Data.Aeson.TH ( src/Data/Aeson/TH.hs, dist/build/Data/Aeson/TH.o, dist/build/Data/Aeson/TH.dyn_o ) src/Data/Aeson/TH.hs:948:7: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type [Q Exp] not matched: [] | 948 | x:xs = [ lookupField argTy | ^^^^^^^^^^^^^^^^^^^^^^^^^^... src/Data/Aeson/TH.hs:1064:14: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type [Q Exp] not matched: [] | 1064 | let x:xs = [ dispatchParseJSON jc conName tvMap argTy | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^... Preprocessing library for aeson-2.2.3.0.. Running Haddock on library for aeson-2.2.3.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 32] Compiling Data.Aeson.Internal.ByteString ( src/Data/Aeson/Internal/ByteString.hs, nothing ) [ 2 of 32] Compiling Data.Aeson.Internal.Functions ( src/Data/Aeson/Internal/Functions.hs, nothing ) [ 3 of 32] Compiling Data.Aeson.Internal.Prelude ( src/Data/Aeson/Internal/Prelude.hs, nothing ) [ 4 of 32] Compiling Data.Aeson.Internal.Scientific ( src/Data/Aeson/Internal/Scientific.hs, nothing ) [ 5 of 32] Compiling Data.Aeson.Internal.TH ( src/Data/Aeson/Internal/TH.hs, nothing ) [ 6 of 32] Compiling Data.Aeson.Internal.Text ( src/Data/Aeson/Internal/Text.hs, nothing ) [ 7 of 32] Compiling Data.Aeson.Internal.Unescape ( src/Data/Aeson/Internal/Unescape.hs, nothing ) [ 8 of 32] Compiling Data.Aeson.Internal.UnescapeFromText ( src/Data/Aeson/Internal/UnescapeFromText.hs, nothing ) [ 9 of 32] Compiling Data.Aeson.Key ( src/Data/Aeson/Key.hs, nothing ) [10 of 32] Compiling Data.Aeson.Decoding.Tokens ( src/Data/Aeson/Decoding/Tokens.hs, nothing ) [11 of 32] Compiling Data.Aeson.Decoding.Internal ( src/Data/Aeson/Decoding/Internal.hs, nothing ) [12 of 32] Compiling Data.Aeson.Decoding.Text ( src/Data/Aeson/Decoding/Text.hs, nothing ) [13 of 32] Compiling Data.Aeson.Decoding.ByteString.Lazy ( src/Data/Aeson/Decoding/ByteString/Lazy.hs, nothing ) [14 of 32] Compiling Data.Aeson.Decoding.ByteString ( src/Data/Aeson/Decoding/ByteString.hs, nothing ) [15 of 32] Compiling Data.Aeson.KeyMap ( src/Data/Aeson/KeyMap.hs, nothing ) [16 of 32] Compiling Data.Aeson.Types.Generic ( src/Data/Aeson/Types/Generic.hs, nothing ) [17 of 32] Compiling Data.Aeson.Types.Internal ( src/Data/Aeson/Types/Internal.hs, nothing ) [18 of 32] Compiling Data.Aeson.Parser.Time ( src/Data/Aeson/Parser/Time.hs, nothing ) [19 of 32] Compiling Data.Aeson.Encoding.Builder ( src/Data/Aeson/Encoding/Builder.hs, nothing ) [20 of 32] Compiling Data.Aeson.Encoding.Internal ( src/Data/Aeson/Encoding/Internal.hs, nothing ) [21 of 32] Compiling Data.Aeson.Encoding ( src/Data/Aeson/Encoding.hs, nothing ) [22 of 32] Compiling Data.Aeson.Decoding.Conversion ( src/Data/Aeson/Decoding/Conversion.hs, nothing ) [23 of 32] Compiling Data.Aeson.Types.FromJSON ( src/Data/Aeson/Types/FromJSON.hs, nothing ) [24 of 32] Compiling Data.Aeson.Types.ToJSON ( src/Data/Aeson/Types/ToJSON.hs, nothing ) src/Data/Aeson/Types/ToJSON.hs:1615:23: warning: [GHC-68441] [-Wdeprecations] In the use of data constructor Solo (imported from Data.Tuple.Solo, but defined in GHC.Tuple): Deprecated: "The Solo constructor has been renamed to MkSolo to avoid punning." | 1615 | liftToJSON _ t _ (Solo a) = t a | ^^^^ src/Data/Aeson/Types/ToJSON.hs:1618:27: warning: [GHC-68441] [-Wdeprecations] In the use of data constructor Solo (imported from Data.Tuple.Solo, but defined in GHC.Tuple): Deprecated: "The Solo constructor has been renamed to MkSolo to avoid punning." | 1618 | liftToEncoding _ t _ (Solo a) = t a | ^^^^ [25 of 32] Compiling Data.Aeson.Types.Class ( src/Data/Aeson/Types/Class.hs, nothing ) [26 of 32] Compiling Data.Aeson.Types ( src/Data/Aeson/Types.hs, nothing ) [27 of 32] Compiling Data.Aeson.Text ( src/Data/Aeson/Text.hs, nothing ) [28 of 32] Compiling Data.Aeson.Decoding ( src/Data/Aeson/Decoding.hs, nothing ) [29 of 32] Compiling Data.Aeson ( src/Data/Aeson.hs, nothing ) [30 of 32] Compiling Data.Aeson.RFC8785 ( src/Data/Aeson/RFC8785.hs, nothing ) [31 of 32] Compiling Data.Aeson.QQ.Simple ( src/Data/Aeson/QQ/Simple.hs, nothing ) [32 of 32] Compiling Data.Aeson.TH ( src/Data/Aeson/TH.hs, nothing ) Haddock coverage: Warning: Data.Aeson.Internal.Prelude: Could not find documentation for exported module: Data.Vector Warning: Data.Aeson.Internal.Prelude: Couldn't find .haddock for export Vector Warning: 'letE' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Key' is ambiguous. It is defined * at src/Data/Aeson/Key.hs:44:15 * at src/Data/Aeson/Key.hs:44:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Key.hs:44:1 Warning: 'Coercible' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'coercing' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 44% ( 4 / 9) in 'Data.Aeson.Key' Missing documentation for: Key (src/Data/Aeson/Key.hs:44) fromString (src/Data/Aeson/Key.hs:48) toString (src/Data/Aeson/Key.hs:51) toText (src/Data/Aeson/Key.hs:57) fromText (src/Data/Aeson/Key.hs:54) 100% ( 7 / 7) in 'Data.Aeson.Decoding.Tokens' Warning: 'Text' is ambiguous. It is defined * in Data.Text.Internal * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Text.Internal Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 2 / 2) in 'Data.Aeson.Decoding.Text' 100% ( 2 / 2) in 'Data.Aeson.Decoding.ByteString.Lazy' 100% ( 2 / 2) in 'Data.Aeson.Decoding.ByteString' Warning: 'v' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'KeyMap' is ambiguous. It is defined * at src/Data/Aeson/KeyMap.hs:143:20 * at src/Data/Aeson/KeyMap.hs:143:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/KeyMap.hs:143:1 Warning: 'const' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 88% ( 61 / 69) in 'Data.Aeson.KeyMap' Missing documentation for: coercionToHashMap (src/Data/Aeson/KeyMap.hs:317) coercionToMap (src/Data/Aeson/KeyMap.hs:321) foldr (src/Data/Aeson/KeyMap.hs:206) foldr' (src/Data/Aeson/KeyMap.hs:209) foldl (src/Data/Aeson/KeyMap.hs:212) foldl' (src/Data/Aeson/KeyMap.hs:215) foldMapWithKey (src/Data/Aeson/KeyMap.hs:203) Key (src/Data/Aeson/Key.hs:44) Warning: 'ToJSON1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FromJSON1' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ToJSON' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FromJSON' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'throwDecode' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'JSONKeyOptions' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:804:23 * at src/Data/Aeson/Types/Internal.hs:804:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:804:1 Warning: 'ToJSONKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'toJSONKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'genericToJSONKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FromJSONKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'fromJSONKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'genericFromJSONKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'omittedField' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'allowOmittedFieds' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Object' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:366:14 * at src/Data/Aeson/Types/Internal.hs:360:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:360:1 Warning: 'Parser' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:278:20 * at src/Data/Aeson/Types/Internal.hs:278:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:278:1 Warning: 'Array' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:367:14 * at src/Data/Aeson/Types/Internal.hs:363:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:363:1 Warning: 'String' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:368:14 * in GHC.Base You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:368:14 Warning: '(.:)' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Options' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:705:16 * at src/Data/Aeson/Types/Internal.hs:705:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:705:1 Warning: 'API' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'hashable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: '.=' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Value' is ambiguous. It is defined * at src/Data/Aeson/Encoding/Internal.hs:130:15 * at src/Data/Aeson/Types/Internal.hs:366:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:366:1 Warning: 'unsafePair' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 25% ( 21 / 82) in 'Data.Aeson.Encoding.Internal' Missing documentation for: Module header encodingToLazyByteString (src/Data/Aeson/Encoding/Internal.hs:98) retagEncoding (src/Data/Aeson/Encoding/Internal.hs:102) pair (src/Data/Aeson/Encoding/Internal.hs:134) pairStr (src/Data/Aeson/Encoding/Internal.hs:138) pair' (src/Data/Aeson/Encoding/Internal.hs:142) nullEncoding (src/Data/Aeson/Encoding/Internal.hs:168) emptyArray_ (src/Data/Aeson/Encoding/Internal.hs:171) emptyObject_ (src/Data/Aeson/Encoding/Internal.hs:174) wrapObject (src/Data/Aeson/Encoding/Internal.hs:180) wrapArray (src/Data/Aeson/Encoding/Internal.hs:177) null_ (src/Data/Aeson/Encoding/Internal.hs:183) bool (src/Data/Aeson/Encoding/Internal.hs:186) key (src/Data/Aeson/Encoding/Internal.hs:247) text (src/Data/Aeson/Encoding/Internal.hs:250) lazyText (src/Data/Aeson/Encoding/Internal.hs:253) string (src/Data/Aeson/Encoding/Internal.hs:266) list (src/Data/Aeson/Encoding/Internal.hs:196) empty (src/Data/Aeson/Encoding/Internal.hs:225) >< (src/Data/Aeson/Encoding/Internal.hs:232) econcat (src/Data/Aeson/Encoding/Internal.hs:228) int8 (src/Data/Aeson/Encoding/Internal.hs:285) int16 (src/Data/Aeson/Encoding/Internal.hs:288) int32 (src/Data/Aeson/Encoding/Internal.hs:291) int64 (src/Data/Aeson/Encoding/Internal.hs:294) int (src/Data/Aeson/Encoding/Internal.hs:297) word8 (src/Data/Aeson/Encoding/Internal.hs:300) word16 (src/Data/Aeson/Encoding/Internal.hs:303) word32 (src/Data/Aeson/Encoding/Internal.hs:306) word64 (src/Data/Aeson/Encoding/Internal.hs:309) word (src/Data/Aeson/Encoding/Internal.hs:312) integer (src/Data/Aeson/Encoding/Internal.hs:315) float (src/Data/Aeson/Encoding/Internal.hs:318) scientific (src/Data/Aeson/Encoding/Internal.hs:338) int8Text (src/Data/Aeson/Encoding/Internal.hs:352) int16Text (src/Data/Aeson/Encoding/Internal.hs:355) int32Text (src/Data/Aeson/Encoding/Internal.hs:358) int64Text (src/Data/Aeson/Encoding/Internal.hs:361) intText (src/Data/Aeson/Encoding/Internal.hs:364) word8Text (src/Data/Aeson/Encoding/Internal.hs:367) word16Text (src/Data/Aeson/Encoding/Internal.hs:370) word32Text (src/Data/Aeson/Encoding/Internal.hs:373) word64Text (src/Data/Aeson/Encoding/Internal.hs:376) wordText (src/Data/Aeson/Encoding/Internal.hs:379) integerText (src/Data/Aeson/Encoding/Internal.hs:382) floatText (src/Data/Aeson/Encoding/Internal.hs:385) scientificText (src/Data/Aeson/Encoding/Internal.hs:409) day (src/Data/Aeson/Encoding/Internal.hs:416) month (src/Data/Aeson/Encoding/Internal.hs:419) quarter (src/Data/Aeson/Encoding/Internal.hs:422) localTime (src/Data/Aeson/Encoding/Internal.hs:425) utcTime (src/Data/Aeson/Encoding/Internal.hs:428) timeOfDay (src/Data/Aeson/Encoding/Internal.hs:431) zonedTime (src/Data/Aeson/Encoding/Internal.hs:434) value (src/Data/Aeson/Encoding/Internal.hs:441) comma (src/Data/Aeson/Encoding/Internal.hs:273) colon (src/Data/Aeson/Encoding/Internal.hs:274) openBracket (src/Data/Aeson/Encoding/Internal.hs:275) closeBracket (src/Data/Aeson/Encoding/Internal.hs:276) openCurly (src/Data/Aeson/Encoding/Internal.hs:277) closeCurly (src/Data/Aeson/Encoding/Internal.hs:278) Warning: 'Encoding' is ambiguous. It is defined * at src/Data/Aeson/Encoding/Internal.hs:82:25 * at src/Data/Aeson/Encoding/Internal.hs:88:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Encoding/Internal.hs:88:1 Warning: 'Text' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 27% ( 18 / 65) in 'Data.Aeson.Encoding' Missing documentation for: encodingToLazyByteString (src/Data/Aeson/Encoding/Internal.hs:98) pair (src/Data/Aeson/Encoding/Internal.hs:134) pairStr (src/Data/Aeson/Encoding/Internal.hs:138) pair' (src/Data/Aeson/Encoding/Internal.hs:142) nullEncoding (src/Data/Aeson/Encoding/Internal.hs:168) emptyArray_ (src/Data/Aeson/Encoding/Internal.hs:171) emptyObject_ (src/Data/Aeson/Encoding/Internal.hs:174) text (src/Data/Aeson/Encoding/Internal.hs:250) lazyText (src/Data/Aeson/Encoding/Internal.hs:253) string (src/Data/Aeson/Encoding/Internal.hs:266) list (src/Data/Aeson/Encoding/Internal.hs:196) null_ (src/Data/Aeson/Encoding/Internal.hs:183) bool (src/Data/Aeson/Encoding/Internal.hs:186) int8 (src/Data/Aeson/Encoding/Internal.hs:285) int16 (src/Data/Aeson/Encoding/Internal.hs:288) int32 (src/Data/Aeson/Encoding/Internal.hs:291) int64 (src/Data/Aeson/Encoding/Internal.hs:294) int (src/Data/Aeson/Encoding/Internal.hs:297) word8 (src/Data/Aeson/Encoding/Internal.hs:300) word16 (src/Data/Aeson/Encoding/Internal.hs:303) word32 (src/Data/Aeson/Encoding/Internal.hs:306) word64 (src/Data/Aeson/Encoding/Internal.hs:309) word (src/Data/Aeson/Encoding/Internal.hs:312) integer (src/Data/Aeson/Encoding/Internal.hs:315) float (src/Data/Aeson/Encoding/Internal.hs:318) scientific (src/Data/Aeson/Encoding/Internal.hs:338) int8Text (src/Data/Aeson/Encoding/Internal.hs:352) int16Text (src/Data/Aeson/Encoding/Internal.hs:355) int32Text (src/Data/Aeson/Encoding/Internal.hs:358) int64Text (src/Data/Aeson/Encoding/Internal.hs:361) intText (src/Data/Aeson/Encoding/Internal.hs:364) word8Text (src/Data/Aeson/Encoding/Internal.hs:367) word16Text (src/Data/Aeson/Encoding/Internal.hs:370) word32Text (src/Data/Aeson/Encoding/Internal.hs:373) word64Text (src/Data/Aeson/Encoding/Internal.hs:376) wordText (src/Data/Aeson/Encoding/Internal.hs:379) integerText (src/Data/Aeson/Encoding/Internal.hs:382) floatText (src/Data/Aeson/Encoding/Internal.hs:385) scientificText (src/Data/Aeson/Encoding/Internal.hs:409) day (src/Data/Aeson/Encoding/Internal.hs:416) month (src/Data/Aeson/Encoding/Internal.hs:419) quarter (src/Data/Aeson/Encoding/Internal.hs:422) localTime (src/Data/Aeson/Encoding/Internal.hs:425) utcTime (src/Data/Aeson/Encoding/Internal.hs:428) timeOfDay (src/Data/Aeson/Encoding/Internal.hs:431) zonedTime (src/Data/Aeson/Encoding/Internal.hs:434) value (src/Data/Aeson/Encoding/Internal.hs:441) Warning: 'ConsParseJSON' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Generically1' is ambiguous. It is defined * in GHC.Generics * in GHC.Generics You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Generics Warning: 'ToJSONKeyFunction' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ToJSONKeyValue' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ToJSONKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ToJSONKeyText' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'String' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:368:14 * in GHC.Base You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:368:14 Warning: 'Object' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:366:14 * at src/Data/Aeson/Types/Internal.hs:360:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:360:1 Warning: 'Array' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:367:14 * at src/Data/Aeson/Types/Internal.hs:363:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:363:1 Warning: 'Generically' is ambiguous. It is defined * in GHC.Generics * in GHC.Generics You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Generics Warning: 'genericToJSONKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Bool' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:370:14 * in GHC.Types You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:370:14 Warning: 'Boolean' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Map' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'HashMap' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FromJSONKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Foo' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'String' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:368:14 * in GHC.Base You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:368:14 Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'showsList' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'pairs' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Generically' is ambiguous. It is defined * in GHC.Generics * in GHC.Generics You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in GHC.Generics Warning: 'Object' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:366:14 * at src/Data/Aeson/Types/Internal.hs:360:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:360:1 93% (138 /148) in 'Data.Aeson.Types' Missing documentation for: Key (src/Data/Aeson/Key.hs:44) ToJSONKeyFunction (src/Data/Aeson/Types/ToJSON.hs:532) GToJSONKey (src/Data/Aeson/Types/ToJSON.hs:596) genericToJSONKey (src/Data/Aeson/Types/ToJSON.hs:594) GFromJSONKey (src/Data/Aeson/Types/FromJSON.hs:521) omitField1 (src/Data/Aeson/Types/ToJSON.hs:691) omitField2 (src/Data/Aeson/Types/ToJSON.hs:724) GToJSON (src/Data/Aeson/Types/Class.hs:120) GToEncoding (src/Data/Aeson/Types/Class.hs:121) JSONPath (src/Data/Aeson/Types/Internal.hs:116) Warning: 'encode' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'fromEncoding' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 3 / 3) in 'Data.Aeson.Text' Warning: 'AesonException' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:923:26 * at src/Data/Aeson/Types/Internal.hs:923:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:923:1 100% ( 12 / 12) in 'Data.Aeson.Decoding' Warning: 'json' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'AesonException' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:923:26 * at src/Data/Aeson/Types/Internal.hs:923:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:923:1 Warning: 'Generic' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'name' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Object' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:366:14 * at src/Data/Aeson/Types/Internal.hs:360:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:360:1 Cannot find documentation for: $optionsFields 92% (132 /143) in 'Data.Aeson' Missing documentation for: Key (src/Data/Aeson/Key.hs:44) JSONPath (src/Data/Aeson/Types/Internal.hs:116) ToJSONKeyFunction (src/Data/Aeson/Types/ToJSON.hs:532) GToJSONKey (src/Data/Aeson/Types/ToJSON.hs:596) genericToJSONKey (src/Data/Aeson/Types/ToJSON.hs:594) GFromJSONKey (src/Data/Aeson/Types/FromJSON.hs:521) omitField1 (src/Data/Aeson/Types/ToJSON.hs:691) omitField2 (src/Data/Aeson/Types/ToJSON.hs:724) GToJSON (src/Data/Aeson/Types/Class.hs:120) GToEncoding (src/Data/Aeson/Types/Class.hs:121) parseIndexedJSON (src/Data/Aeson/Types/FromJSON.hs:171) Warning: 'Value' is ambiguous. It is defined * at src/Data/Aeson/Encoding/Internal.hs:130:15 * at src/Data/Aeson/Types/Internal.hs:366:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:366:1 100% ( 2 / 2) in 'Data.Aeson.RFC8785' 100% ( 2 / 2) in 'Data.Aeson.QQ.Simple' Warning: 'ToJSON' is ambiguous. It is defined * at src/Data/Aeson/TH.hs:1906:16 * at src/Data/Aeson/Types/ToJSON.hs:291:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/ToJSON.hs:291:1 Warning: 'Value' is ambiguous. It is defined * at src/Data/Aeson/TH.hs:1909:18 * at src/Data/Aeson/Types/Internal.hs:366:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:366:1 Warning: 'Object' is ambiguous. It is defined * at src/Data/Aeson/Types/Internal.hs:366:14 * at src/Data/Aeson/Types/Internal.hs:360:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Aeson/Types/Internal.hs:360:1 Warning: 'FromJSON3' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 25 / 25) in 'Data.Aeson.TH' Warning: Data.Aeson.KeyMap: could not find link destinations for: - Data.Aeson.KeyMap.D:R:ItemKeyMap Warning: Data.Aeson.Encoding.Internal: could not find link destinations for: - Data.Aeson.Types.ToJSON.EncodeProduct - Data.Aeson.Types.ToJSON.gToJSON Warning: Data.Aeson.Encoding: could not find link destinations for: - Data.Aeson.Types.ToJSON.EncodeProduct - Data.Aeson.Types.ToJSON.gToJSON Warning: Data.Aeson.Types: could not find link destinations for: - Data.Vector.Vector - Data.Vector.Generic.Base.Vector - Data.Aeson.Types.Generic.ProductSize - Data.Aeson.Types.Generic.AllNullary - Data.Aeson.Types.Internal.Rep_Value - Data.Vector.Primitive.Vector - Data.Vector.Storable.Vector - Data.Vector.Unboxed.Base.Vector - Data.Aeson.Types.FromJSON.ConstructorNames - Data.Aeson.Types.FromJSON.SumFromString - Data.Aeson.Types.FromJSON.GFromJSON' - Data.Aeson.Types.FromJSON.gParseJSON - Data.Aeson.Types.FromJSON.withBoundedScientific - Data.Aeson.Types.ToJSON.EncodeProduct - Data.Aeson.Types.ToJSON.WriteProduct - Data.Aeson.Types.ToJSON.ConsToJSON - Data.Aeson.Types.ToJSON.GetConName - Data.Aeson.Types.ToJSON.SumToJSON - Data.Aeson.Types.ToJSON.gToJSON Warning: Data.Aeson: could not find link destinations for: - Data.Vector.Vector - Data.Vector.Generic.Base.Vector - Data.Aeson.Types.Generic.ProductSize - Data.Aeson.Types.Generic.AllNullary - Data.Aeson.Types.Internal.Rep_Value - Data.Vector.Primitive.Vector - Data.Vector.Storable.Vector - Data.Vector.Unboxed.Base.Vector - Data.Aeson.Types.FromJSON.ConstructorNames - Data.Aeson.Types.FromJSON.SumFromString - Data.Aeson.Types.FromJSON.GFromJSON' - Data.Aeson.Types.FromJSON.gParseJSON - Data.Aeson.Types.FromJSON.withBoundedScientific - Data.Aeson.Types.ToJSON.EncodeProduct - Data.Aeson.Types.ToJSON.WriteProduct - Data.Aeson.Types.ToJSON.ConsToJSON - Data.Aeson.Types.ToJSON.GetConName - Data.Aeson.Types.ToJSON.SumToJSON - Data.Aeson.Types.ToJSON.gToJSON Documentation created: dist/doc/html/aeson/, dist/doc/html/aeson/aeson.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/aeson-2.2.3.0-9n2w8nqVcGrLltjAw6OkWr Completed aeson-2.2.3.0 Configuring mono-traversable-1.0.21.0... Preprocessing library for mono-traversable-1.0.21.0.. Building library for mono-traversable-1.0.21.0.. [1 of 6] Compiling Data.MonoTraversable ( src/Data/MonoTraversable.hs, dist/build/Data/MonoTraversable.o, dist/build/Data/MonoTraversable.dyn_o ) src/Data/MonoTraversable.hs:1354:5: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type ViewL a not matched: EmptyL | 1354 | oextract ~(x :< _) = x | ^^^^^^^^^^^^^^^^^^^^^^ src/Data/MonoTraversable.hs:1356:5: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type ViewL a not matched: EmptyL | 1356 | oextend f w@(~(_ :< xxs)) = | ^^^^^^^^^^^^^^^^^^^^^^^^^^^... src/Data/MonoTraversable.hs:1364:5: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type ViewR a not matched: EmptyR | 1364 | oextract ~(_ :> x) = x | ^^^^^^^^^^^^^^^^^^^^^^ src/Data/MonoTraversable.hs:1366:5: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a pattern binding: Patterns of type ViewR a not matched: EmptyR | 1366 | oextend f w@(~(xxs :> _)) = | ^^^^^^^^^^^^^^^^^^^^^^^^^^^... [2 of 6] Compiling Data.Containers ( src/Data/Containers.hs, dist/build/Data/Containers.o, dist/build/Data/Containers.dyn_o ) [3 of 6] Compiling Data.MonoTraversable.Unprefixed ( src/Data/MonoTraversable/Unprefixed.hs, dist/build/Data/MonoTraversable/Unprefixed.o, dist/build/Data/MonoTraversable/Unprefixed.dyn_o ) [4 of 6] Compiling Data.Sequences ( src/Data/Sequences.hs, dist/build/Data/Sequences.o, dist/build/Data/Sequences.dyn_o ) [5 of 6] Compiling Data.NonNull ( src/Data/NonNull.hs, dist/build/Data/NonNull.o, dist/build/Data/NonNull.dyn_o ) [6 of 6] Compiling Paths_mono_traversable ( dist/build/autogen/Paths_mono_traversable.hs, dist/build/Paths_mono_traversable.o, dist/build/Paths_mono_traversable.dyn_o ) Preprocessing library for mono-traversable-1.0.21.0.. Running Haddock on library for mono-traversable-1.0.21.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 6] Compiling Data.MonoTraversable ( src/Data/MonoTraversable.hs, nothing ) [2 of 6] Compiling Data.Containers ( src/Data/Containers.hs, nothing ) [3 of 6] Compiling Data.MonoTraversable.Unprefixed ( src/Data/MonoTraversable/Unprefixed.hs, nothing ) [4 of 6] Compiling Data.Sequences ( src/Data/Sequences.hs, nothing ) [5 of 6] Compiling Data.NonNull ( src/Data/NonNull.hs, nothing ) [6 of 6] Compiling Paths_mono_traversable ( dist/build/autogen/Paths_mono_traversable.hs, nothing ) Haddock coverage: Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Text' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Foldable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'foldlUnwrap' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'intercalate' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'WrappedMono' is ambiguous. It is defined * at src/Data/MonoTraversable.hs:1461:5 * at src/Data/MonoTraversable.hs:1460:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/MonoTraversable.hs:1460:1 94% ( 34 / 36) in 'Data.MonoTraversable' Missing documentation for: replaceElemStrictText (src/Data/MonoTraversable.hs:287) replaceElemLazyText (src/Data/MonoTraversable.hs:290) 87% ( 7 / 8) in 'Data.Containers' Missing documentation for: Module header 100% ( 32 / 32) in 'Data.MonoTraversable.Unprefixed' Warning: 'a' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'b' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'c' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'not' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Vector' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'z' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Text' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'seq' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'NonNull' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SemiGroup' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'NonEmpty' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'nfilter' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'String' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'intercalate' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'true' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 80% ( 40 / 50) in 'Data.Sequences' Missing documentation for: splitElemStrictBS (src/Data/Sequences.hs:1525) stripPrefixStrictBS (src/Data/Sequences.hs:1530) stripSuffixStrictBS (src/Data/Sequences.hs:1535) splitSeqLazyBS (src/Data/Sequences.hs:1547) stripPrefixLazyBS (src/Data/Sequences.hs:1552) stripSuffixLazyBS (src/Data/Sequences.hs:1557) splitSeqStrictText (src/Data/Sequences.hs:1571) replaceSeqStrictText (src/Data/Sequences.hs:1576) splitSeqLazyText (src/Data/Sequences.hs:1590) replaceSeqLazyText (src/Data/Sequences.hs:1595) Warning: 'NonNull' is ambiguous. It is defined * at src/Data/NonNull.hs:58:24 * at src/Data/NonNull.hs:58:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/NonNull.hs:58:1 Warning: 'NonEmpty' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'foldl1'' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 30 / 30) in 'Data.NonNull' Warning: Data.MonoTraversable: could not find link destinations for: - Data.Vector.Vector - Data.Vector.Unboxed.Base.Unbox - Data.Vector.Storable.Vector - Data.Vector.Strict.Vector Warning: Data.Containers: could not find link destinations for: - Data.Containers.D:R:ContainerKeyIntSet - Data.Containers.D:R:ContainerKeyHashSet - Data.Containers.D:R:ContainerKeySet - Data.Containers.D:R:ContainerKeyIntMap - Data.Containers.D:R:ContainerKeyHashMap - Data.Containers.D:R:ContainerKeyMap - Data.Containers.D:R:BPMKeyConstraintMapkey - Data.Containers.D:R:MapValueList - Data.Containers.D:R:MapValueIntMap - Data.Containers.D:R:MapValueHashMap - Data.Containers.D:R:MapValueMap - Data.Containers.D:R:BPMKeyConstraintHashMapkey - Data.Containers.D:R:ContainerKeyList - Data.Containers.D:R:KeySetHashMap - Data.Containers.D:R:KeySetIntMap - Data.Containers.D:R:KeySetMap Warning: Data.Sequences: could not find link destinations for: - Data.Vector.Vector - Data.Vector.Generic.Base.Vector - Data.Vector.Unboxed.Base.Unbox - Data.Vector.Storable.Vector - Data.Vector.Strict.Vector - Data.Sequences.D:R:IndexVector - Data.Sequences.D:R:IndexVector0 - Data.Sequences.D:R:IndexVector1 - Data.Sequences.D:R:IndexVector2 - Data.Sequences.D:R:IndexSeq - Data.Sequences.D:R:IndexText - Data.Sequences.D:R:IndexByteString - Data.Sequences.D:R:IndexText0 - Data.Sequences.D:R:IndexByteString0 - Data.Sequences.D:R:IndexNonEmpty - Data.Sequences.D:R:IndexList - Data.NonNull.D:R:IndexNonNull Warning: Data.NonNull: could not find link destinations for: - Data.Vector.Vector - Data.Vector.Unboxed.Base.Unbox - Data.Vector.Storable.Vector - Data.Vector.Strict.Vector - Data.NonNull.D:R:IndexNonNull Documentation created: dist/doc/html/mono-traversable/, dist/doc/html/mono-traversable/mono-traversable.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/mono-traversable-1.0.21.0-CXXMYFMoWuUKrYZFMKy0q1 Completed mono-traversable-1.0.21.0 Configuring attoparsec-aeson-2.2.2.0... Preprocessing library for attoparsec-aeson-2.2.2.0.. Building library for attoparsec-aeson-2.2.2.0.. [1 of 4] Compiling Data.Aeson.Internal.ByteString ( src/Data/Aeson/Internal/ByteString.hs, dist/build/Data/Aeson/Internal/ByteString.o, dist/build/Data/Aeson/Internal/ByteString.dyn_o ) [2 of 4] Compiling Data.Aeson.Internal.Text ( src/Data/Aeson/Internal/Text.hs, dist/build/Data/Aeson/Internal/Text.o, dist/build/Data/Aeson/Internal/Text.dyn_o ) [3 of 4] Compiling Data.Aeson.Parser.Internal ( src/Data/Aeson/Parser/Internal.hs, dist/build/Data/Aeson/Parser/Internal.o, dist/build/Data/Aeson/Parser/Internal.dyn_o ) [4 of 4] Compiling Data.Aeson.Parser ( src/Data/Aeson/Parser.hs, dist/build/Data/Aeson/Parser.o, dist/build/Data/Aeson/Parser.dyn_o ) Preprocessing library for attoparsec-aeson-2.2.2.0.. Running Haddock on library for attoparsec-aeson-2.2.2.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 4] Compiling Data.Aeson.Internal.ByteString ( src/Data/Aeson/Internal/ByteString.hs, nothing ) [2 of 4] Compiling Data.Aeson.Internal.Text ( src/Data/Aeson/Internal/Text.hs, nothing ) [3 of 4] Compiling Data.Aeson.Parser.Internal ( src/Data/Aeson/Parser/Internal.hs, nothing ) [4 of 4] Compiling Data.Aeson.Parser ( src/Data/Aeson/Parser.hs, nothing ) Haddock coverage: Warning: 'Object' is ambiguous. It is defined * in Data.Aeson.Types.Internal * in Data.Aeson.Types.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Aeson.Types.Internal Warning: 'fromListNoDup' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 86% ( 26 / 30) in 'Data.Aeson.Parser.Internal' Missing documentation for: decodeWith (src/Data/Aeson/Parser/Internal.hs:349) decodeStrictWith (src/Data/Aeson/Parser/Internal.hs:359) eitherDecodeWith (src/Data/Aeson/Parser/Internal.hs:367) eitherDecodeStrictWith (src/Data/Aeson/Parser/Internal.hs:403) 84% ( 22 / 26) in 'Data.Aeson.Parser' Missing documentation for: decodeWith (src/Data/Aeson/Parser/Internal.hs:349) decodeStrictWith (src/Data/Aeson/Parser/Internal.hs:359) eitherDecodeWith (src/Data/Aeson/Parser/Internal.hs:367) eitherDecodeStrictWith (src/Data/Aeson/Parser/Internal.hs:403) Documentation created: dist/doc/html/attoparsec-aeson/, dist/doc/html/attoparsec-aeson/attoparsec-aeson.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/attoparsec-aeson-2.2.2.0-JKfn7weovyuAC2d0fJJ1js Completed attoparsec-aeson-2.2.2.0 Configuring conduit-1.3.6.1... Preprocessing library for conduit-1.3.6.1.. Building library for conduit-1.3.6.1.. [ 1 of 14] Compiling Data.Conduit.Internal.Pipe ( src/Data/Conduit/Internal/Pipe.hs, dist/build/Data/Conduit/Internal/Pipe.o, dist/build/Data/Conduit/Internal/Pipe.dyn_o ) src/Data/Conduit/Internal/Pipe.hs:48:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 48 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Pipe.hs:56:51: warning: [GHC-38856] [-Wunused-imports] The import of MonadUnliftIO from module Control.Monad.IO.Unlift is redundant | 56 | import Control.Monad.IO.Unlift (MonadIO (liftIO), MonadUnliftIO, withRunInIO) | ^^^^^^^^^^^^^ src/Data/Conduit/Internal/Pipe.hs:59:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 59 | import Data.Monoid (Monoid (mappend, mempty)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Pipe.hs:60:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 60 | import Data.Semigroup (Semigroup ((<>))) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [ 2 of 14] Compiling Data.Conduit.Internal.Conduit ( src/Data/Conduit/Internal/Conduit.hs, dist/build/Data/Conduit/Internal/Conduit.o, dist/build/Data/Conduit/Internal/Conduit.dyn_o ) src/Data/Conduit/Internal/Conduit.hs:93:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 93 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Conduit.hs:104:51: warning: [GHC-38856] [-Wunused-imports] The import of MonadUnliftIO from module Control.Monad.IO.Unlift is redundant | 104 | import Control.Monad.IO.Unlift (MonadIO (liftIO), MonadUnliftIO, withRunInIO) | ^^^^^^^^^^^^^ src/Data/Conduit/Internal/Conduit.hs:108:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 108 | import Data.Monoid (Monoid (mappend, mempty)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Conduit.hs:109:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 109 | import Data.Semigroup (Semigroup ((<>))) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Conduit.hs:114:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Traversable is redundant except perhaps to import instances from Data.Traversable To import instances alone, use: import Data.Traversable() | 114 | import Data.Traversable (Traversable (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Conduit.hs:739:20: warning: [GHC-63397] [-Wname-shadowing] This binding for p shadows the existing binding bound at src/Data/Conduit/Internal/Conduit.hs:736:25 | 739 | go (HaveOutput p o) = pure $ Just (o, SealedConduitT p) | ^ src/Data/Conduit/Internal/Conduit.hs:743:18: warning: [GHC-63397] [-Wname-shadowing] This binding for p shadows the existing binding bound at src/Data/Conduit/Internal/Conduit.hs:736:25 | 743 | go (Leftover p ()) = go p | ^ src/Data/Conduit/Internal/Conduit.hs:756:20: warning: [GHC-63397] [-Wname-shadowing] This binding for p shadows the existing binding bound at src/Data/Conduit/Internal/Conduit.hs:753:31 | 756 | go (HaveOutput p o) = pure $ Right (o, SealedConduitT p) | ^ src/Data/Conduit/Internal/Conduit.hs:760:18: warning: [GHC-63397] [-Wname-shadowing] This binding for p shadows the existing binding bound at src/Data/Conduit/Internal/Conduit.hs:753:31 | 760 | go (Leftover p ()) = go p | ^ [ 3 of 14] Compiling Data.Conduit.Internal.Fusion ( src/Data/Conduit/Internal/Fusion.hs, dist/build/Data/Conduit/Internal/Fusion.o, dist/build/Data/Conduit/Internal/Fusion.dyn_o ) src/Data/Conduit/Internal/Fusion.hs:78:23: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 78 | unstream left =$= unstream right = unstream (fuseStream left right) | ^^^ src/Data/Conduit/Internal/Fusion.hs:129:23: warning: [GHC-68441] [-Wdeprecations] In the use of $$ (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use runConduit and .|" | 129 | unstream left $$ unstream right = connectStream left right | ^^ src/Data/Conduit/Internal/Fusion.hs:154:23: warning: [GHC-68441] [-Wdeprecations] In the use of $$ (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use runConduit and .|" | 154 | unstream left $$ right = connectStream1 left right | ^^ src/Data/Conduit/Internal/Fusion.hs:161:35: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 161 | runConduit (unstream left =$= right) = connectStream1 left right | ^^^ src/Data/Conduit/Internal/Fusion.hs:171:39: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 171 | runConduitPure (unstream left =$= right) = runIdentity (connectStream1 left right) | ^^^ src/Data/Conduit/Internal/Fusion.hs:181:38: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 181 | runConduitRes (unstream left =$= right) = runResourceT (connectStream1 left right) | ^^^ src/Data/Conduit/Internal/Fusion.hs:214:14: warning: [GHC-68441] [-Wdeprecations] In the use of $$ (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use runConduit and .|" | 214 | left $$ unstream right = connectStream2 left right | ^^ src/Data/Conduit/Internal/Fusion.hs:224:26: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 224 | runConduit (left =$= unstream right) = connectStream2 left right | ^^^ src/Data/Conduit/Internal/Fusion.hs:234:30: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 234 | runConduitPure (left =$= unstream right) = runIdentity (connectStream2 left right) | ^^^ src/Data/Conduit/Internal/Fusion.hs:244:29: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 244 | runConduitRes (left =$= unstream right) = runResourceT (connectStream2 left right) | ^^^ [ 4 of 14] Compiling Data.Conduit.Internal.List.Stream ( src/Data/Conduit/Internal/List/Stream.hs, dist/build/Data/Conduit/Internal/List/Stream.o, dist/build/Data/Conduit/Internal/List/Stream.dyn_o ) [ 5 of 14] Compiling Data.Conduit.Combinators.Stream ( src/Data/Conduit/Combinators/Stream.hs, dist/build/Data/Conduit/Combinators/Stream.o, dist/build/Data/Conduit/Combinators/Stream.dyn_o ) src/Data/Conduit/Combinators/Stream.hs:362:61: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 362 | slidingWindowS :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> StreamConduit a m seq | ^ [ 6 of 14] Compiling Data.Conduit ( src/Data/Conduit.hs, dist/build/Data/Conduit.o, dist/build/Data/Conduit.dyn_o ) src/Data/Conduit.hs:105:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor.Identity is redundant except perhaps to import instances from Data.Functor.Identity To import instances alone, use: import Data.Functor.Identity() | 105 | import Data.Functor.Identity (Identity, runIdentity) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit.hs:106:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Monad.Trans.Resource is redundant except perhaps to import instances from Control.Monad.Trans.Resource To import instances alone, use: import Control.Monad.Trans.Resource() | 106 | import Control.Monad.Trans.Resource (ResourceT, runResourceT) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit.hs:107:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Monad.IO.Unlift is redundant except perhaps to import instances from Control.Monad.IO.Unlift To import instances alone, use: import Control.Monad.IO.Unlift() | 107 | import Control.Monad.IO.Unlift (MonadUnliftIO) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [ 7 of 14] Compiling Data.Conduit.Internal ( src/Data/Conduit/Internal.hs, dist/build/Data/Conduit/Internal.o, dist/build/Data/Conduit/Internal.dyn_o ) [ 8 of 14] Compiling Data.Conduit.Lift ( src/Data/Conduit/Lift.hs, dist/build/Data/Conduit/Lift.o, dist/build/Data/Conduit/Lift.dyn_o ) src/Data/Conduit/Lift.hs:67:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 67 | import Data.Monoid (Monoid(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [ 9 of 14] Compiling Data.Conduit.List ( src/Data/Conduit/List.hs, dist/build/Data/Conduit/List.o, dist/build/Data/Conduit/List.dyn_o ) [10 of 14] Compiling Data.Streaming.FileRead ( src/Data/Streaming/FileRead.hs, dist/build/Data/Streaming/FileRead.o, dist/build/Data/Streaming/FileRead.dyn_o ) [11 of 14] Compiling Data.Streaming.Filesystem ( src/Data/Streaming/Filesystem.hs, dist/build/Data/Streaming/Filesystem.o, dist/build/Data/Streaming/Filesystem.dyn_o ) [12 of 14] Compiling Data.Conduit.Combinators ( src/Data/Conduit/Combinators.hs, dist/build/Data/Conduit/Combinators.o, dist/build/Data/Conduit/Combinators.dyn_o ) src/Data/Conduit/Combinators.hs:901:43: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 901 | foldl1E :: (Monad m, MonoFoldable mono, a ~ Element mono) | ^ src/Data/Conduit/Combinators.hs:907:40: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 907 | foldMaybeNull :: (MonoFoldable mono, e ~ Element mono) | ^ src/Data/Conduit/Combinators.hs:992:51: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 992 | andE :: (Monad m, MonoFoldable mono, Element mono ~ Bool) | ^ src/Data/Conduit/Combinators.hs:1013:50: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1013 | orE :: (Monad m, MonoFoldable mono, Element mono ~ Bool) | ^ src/Data/Conduit/Combinators.hs:1801:76: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1801 | slidingWindow, slidingWindowC :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> ConduitT a seq m () | ^ src/Data/Conduit/Combinators.hs:2036:51: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2036 | line :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) | ^ src/Data/Conduit/Combinators.hs:2045:56: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2045 | lineAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) | ^ src/Data/Conduit/Combinators.hs:2082:54: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2082 | unlines :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) => ConduitT seq seq m () | ^ src/Data/Conduit/Combinators.hs:2090:59: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2090 | unlinesAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) => ConduitT seq seq m () | ^ src/Data/Conduit/Combinators.hs:2126:61: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2126 | linesUnbounded :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) | ^ src/Data/Conduit/Combinators.hs:2135:66: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2135 | linesUnboundedAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) | ^ src/Data/Conduit/Combinators.hs:2437:71: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2437 | vectorBuilder :: (PrimMonad m, PrimMonad n, V.Vector v e, PrimState m ~ PrimState n) | ^ [13 of 14] Compiling Data.Conduit.Combinators.Unqualified ( src/Data/Conduit/Combinators/Unqualified.hs, dist/build/Data/Conduit/Combinators/Unqualified.o, dist/build/Data/Conduit/Combinators/Unqualified.dyn_o ) src/Data/Conduit/Combinators/Unqualified.hs:461:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 461 | andCE :: (Monad m, MonoFoldable mono, Element mono ~ Bool) | ^ src/Data/Conduit/Combinators/Unqualified.hs:480:51: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 480 | orCE :: (Monad m, MonoFoldable mono, Element mono ~ Bool) | ^ src/Data/Conduit/Combinators/Unqualified.hs:993:61: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 993 | slidingWindowC :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> ConduitT a seq m () | ^ src/Data/Conduit/Combinators/Unqualified.hs:1135:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1135 | lineC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) | ^ src/Data/Conduit/Combinators/Unqualified.hs:1144:57: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1144 | lineAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) | ^ src/Data/Conduit/Combinators/Unqualified.hs:1153:55: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1153 | unlinesC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) => ConduitT seq seq m () | ^ src/Data/Conduit/Combinators/Unqualified.hs:1160:60: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1160 | unlinesAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) => ConduitT seq seq m () | ^ src/Data/Conduit/Combinators/Unqualified.hs:1170:62: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1170 | linesUnboundedC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) | ^ src/Data/Conduit/Combinators/Unqualified.hs:1178:67: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1178 | linesUnboundedAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) | ^ src/Data/Conduit/Combinators/Unqualified.hs:1201:72: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1201 | vectorBuilderC :: (PrimMonad m, V.Vector v e, PrimMonad n, PrimState m ~ PrimState n) | ^ [14 of 14] Compiling Conduit ( src/Conduit.hs, dist/build/Conduit.o, dist/build/Conduit.dyn_o ) Preprocessing library for conduit-1.3.6.1.. Running Haddock on library for conduit-1.3.6.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 14] Compiling Data.Conduit.Internal.Pipe ( src/Data/Conduit/Internal/Pipe.hs, nothing ) src/Data/Conduit/Internal/Pipe.hs:48:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 48 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Pipe.hs:56:51: warning: [GHC-38856] [-Wunused-imports] The import of MonadUnliftIO from module Control.Monad.IO.Unlift is redundant | 56 | import Control.Monad.IO.Unlift (MonadIO (liftIO), MonadUnliftIO, withRunInIO) | ^^^^^^^^^^^^^ src/Data/Conduit/Internal/Pipe.hs:59:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 59 | import Data.Monoid (Monoid (mappend, mempty)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Pipe.hs:60:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 60 | import Data.Semigroup (Semigroup ((<>))) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [ 2 of 14] Compiling Data.Conduit.Internal.Conduit ( src/Data/Conduit/Internal/Conduit.hs, nothing ) src/Data/Conduit/Internal/Conduit.hs:93:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Applicative is redundant except perhaps to import instances from Control.Applicative To import instances alone, use: import Control.Applicative() | 93 | import Control.Applicative (Applicative (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Conduit.hs:104:51: warning: [GHC-38856] [-Wunused-imports] The import of MonadUnliftIO from module Control.Monad.IO.Unlift is redundant | 104 | import Control.Monad.IO.Unlift (MonadIO (liftIO), MonadUnliftIO, withRunInIO) | ^^^^^^^^^^^^^ src/Data/Conduit/Internal/Conduit.hs:108:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 108 | import Data.Monoid (Monoid (mappend, mempty)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Conduit.hs:109:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Semigroup is redundant except perhaps to import instances from Data.Semigroup To import instances alone, use: import Data.Semigroup() | 109 | import Data.Semigroup (Semigroup ((<>))) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Conduit.hs:114:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Traversable is redundant except perhaps to import instances from Data.Traversable To import instances alone, use: import Data.Traversable() | 114 | import Data.Traversable (Traversable (..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit/Internal/Conduit.hs:739:20: warning: [GHC-63397] [-Wname-shadowing] This binding for p shadows the existing binding bound at src/Data/Conduit/Internal/Conduit.hs:736:25 | 739 | go (HaveOutput p o) = pure $ Just (o, SealedConduitT p) | ^ src/Data/Conduit/Internal/Conduit.hs:743:18: warning: [GHC-63397] [-Wname-shadowing] This binding for p shadows the existing binding bound at src/Data/Conduit/Internal/Conduit.hs:736:25 | 743 | go (Leftover p ()) = go p | ^ src/Data/Conduit/Internal/Conduit.hs:756:20: warning: [GHC-63397] [-Wname-shadowing] This binding for p shadows the existing binding bound at src/Data/Conduit/Internal/Conduit.hs:753:31 | 756 | go (HaveOutput p o) = pure $ Right (o, SealedConduitT p) | ^ src/Data/Conduit/Internal/Conduit.hs:760:18: warning: [GHC-63397] [-Wname-shadowing] This binding for p shadows the existing binding bound at src/Data/Conduit/Internal/Conduit.hs:753:31 | 760 | go (Leftover p ()) = go p | ^ [ 3 of 14] Compiling Data.Conduit.Internal.Fusion ( src/Data/Conduit/Internal/Fusion.hs, nothing ) src/Data/Conduit/Internal/Fusion.hs:78:23: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 78 | unstream left =$= unstream right = unstream (fuseStream left right) | ^^^ src/Data/Conduit/Internal/Fusion.hs:129:23: warning: [GHC-68441] [-Wdeprecations] In the use of $$ (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use runConduit and .|" | 129 | unstream left $$ unstream right = connectStream left right | ^^ src/Data/Conduit/Internal/Fusion.hs:154:23: warning: [GHC-68441] [-Wdeprecations] In the use of $$ (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use runConduit and .|" | 154 | unstream left $$ right = connectStream1 left right | ^^ src/Data/Conduit/Internal/Fusion.hs:161:35: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 161 | runConduit (unstream left =$= right) = connectStream1 left right | ^^^ src/Data/Conduit/Internal/Fusion.hs:171:39: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 171 | runConduitPure (unstream left =$= right) = runIdentity (connectStream1 left right) | ^^^ src/Data/Conduit/Internal/Fusion.hs:181:38: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 181 | runConduitRes (unstream left =$= right) = runResourceT (connectStream1 left right) | ^^^ src/Data/Conduit/Internal/Fusion.hs:214:14: warning: [GHC-68441] [-Wdeprecations] In the use of $$ (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use runConduit and .|" | 214 | left $$ unstream right = connectStream2 left right | ^^ src/Data/Conduit/Internal/Fusion.hs:224:26: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 224 | runConduit (left =$= unstream right) = connectStream2 left right | ^^^ src/Data/Conduit/Internal/Fusion.hs:234:30: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 234 | runConduitPure (left =$= unstream right) = runIdentity (connectStream2 left right) | ^^^ src/Data/Conduit/Internal/Fusion.hs:244:29: warning: [GHC-68441] [-Wdeprecations] In the use of =$= (imported from Data.Conduit.Internal.Conduit): Deprecated: "Use .|" | 244 | runConduitRes (left =$= unstream right) = runResourceT (connectStream2 left right) | ^^^ [ 4 of 14] Compiling Data.Conduit.Internal.List.Stream ( src/Data/Conduit/Internal/List/Stream.hs, nothing ) [ 5 of 14] Compiling Data.Conduit.Combinators.Stream ( src/Data/Conduit/Combinators/Stream.hs, nothing ) src/Data/Conduit/Combinators/Stream.hs:362:61: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 362 | slidingWindowS :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> StreamConduit a m seq | ^ [ 6 of 14] Compiling Data.Conduit ( src/Data/Conduit.hs, nothing ) src/Data/Conduit.hs:105:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor.Identity is redundant except perhaps to import instances from Data.Functor.Identity To import instances alone, use: import Data.Functor.Identity() | 105 | import Data.Functor.Identity (Identity, runIdentity) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit.hs:106:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Monad.Trans.Resource is redundant except perhaps to import instances from Control.Monad.Trans.Resource To import instances alone, use: import Control.Monad.Trans.Resource() | 106 | import Control.Monad.Trans.Resource (ResourceT, runResourceT) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/Data/Conduit.hs:107:1: warning: [GHC-66111] [-Wunused-imports] The import of Control.Monad.IO.Unlift is redundant except perhaps to import instances from Control.Monad.IO.Unlift To import instances alone, use: import Control.Monad.IO.Unlift() | 107 | import Control.Monad.IO.Unlift (MonadUnliftIO) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [ 7 of 14] Compiling Data.Conduit.Internal ( src/Data/Conduit/Internal.hs, nothing ) [ 8 of 14] Compiling Data.Conduit.Lift ( src/Data/Conduit/Lift.hs, nothing ) src/Data/Conduit/Lift.hs:67:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Monoid is redundant except perhaps to import instances from Data.Monoid To import instances alone, use: import Data.Monoid() | 67 | import Data.Monoid (Monoid(..)) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [ 9 of 14] Compiling Data.Conduit.List ( src/Data/Conduit/List.hs, nothing ) [10 of 14] Compiling Data.Streaming.FileRead ( src/Data/Streaming/FileRead.hs, nothing ) [11 of 14] Compiling Data.Streaming.Filesystem ( src/Data/Streaming/Filesystem.hs, nothing ) [12 of 14] Compiling Data.Conduit.Combinators ( src/Data/Conduit/Combinators.hs, nothing ) src/Data/Conduit/Combinators.hs:901:43: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 901 | foldl1E :: (Monad m, MonoFoldable mono, a ~ Element mono) | ^ src/Data/Conduit/Combinators.hs:907:40: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 907 | foldMaybeNull :: (MonoFoldable mono, e ~ Element mono) | ^ src/Data/Conduit/Combinators.hs:992:51: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 992 | andE :: (Monad m, MonoFoldable mono, Element mono ~ Bool) | ^ src/Data/Conduit/Combinators.hs:1013:50: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1013 | orE :: (Monad m, MonoFoldable mono, Element mono ~ Bool) | ^ src/Data/Conduit/Combinators.hs:1801:76: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1801 | slidingWindow, slidingWindowC :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> ConduitT a seq m () | ^ src/Data/Conduit/Combinators.hs:2036:51: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2036 | line :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) | ^ src/Data/Conduit/Combinators.hs:2045:56: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2045 | lineAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) | ^ src/Data/Conduit/Combinators.hs:2082:54: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2082 | unlines :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) => ConduitT seq seq m () | ^ src/Data/Conduit/Combinators.hs:2090:59: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2090 | unlinesAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) => ConduitT seq seq m () | ^ src/Data/Conduit/Combinators.hs:2126:61: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2126 | linesUnbounded :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) | ^ src/Data/Conduit/Combinators.hs:2135:66: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2135 | linesUnboundedAscii :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) | ^ src/Data/Conduit/Combinators.hs:2437:71: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 2437 | vectorBuilder :: (PrimMonad m, PrimMonad n, V.Vector v e, PrimState m ~ PrimState n) | ^ [13 of 14] Compiling Data.Conduit.Combinators.Unqualified ( src/Data/Conduit/Combinators/Unqualified.hs, nothing ) src/Data/Conduit/Combinators/Unqualified.hs:461:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 461 | andCE :: (Monad m, MonoFoldable mono, Element mono ~ Bool) | ^ src/Data/Conduit/Combinators/Unqualified.hs:480:51: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 480 | orCE :: (Monad m, MonoFoldable mono, Element mono ~ Bool) | ^ src/Data/Conduit/Combinators/Unqualified.hs:993:61: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 993 | slidingWindowC :: (Monad m, Seq.IsSequence seq, Element seq ~ a) => Int -> ConduitT a seq m () | ^ src/Data/Conduit/Combinators/Unqualified.hs:1135:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1135 | lineC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) | ^ src/Data/Conduit/Combinators/Unqualified.hs:1144:57: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1144 | lineAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) | ^ src/Data/Conduit/Combinators/Unqualified.hs:1153:55: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1153 | unlinesC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) => ConduitT seq seq m () | ^ src/Data/Conduit/Combinators/Unqualified.hs:1160:60: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1160 | unlinesAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) => ConduitT seq seq m () | ^ src/Data/Conduit/Combinators/Unqualified.hs:1170:62: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1170 | linesUnboundedC :: (Monad m, Seq.IsSequence seq, Element seq ~ Char) | ^ src/Data/Conduit/Combinators/Unqualified.hs:1178:67: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1178 | linesUnboundedAsciiC :: (Monad m, Seq.IsSequence seq, Element seq ~ Word8) | ^ src/Data/Conduit/Combinators/Unqualified.hs:1201:72: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 1201 | vectorBuilderC :: (PrimMonad m, V.Vector v e, PrimMonad n, PrimState m ~ PrimState n) | ^ [14 of 14] Compiling Conduit ( src/Conduit.hs, nothing ) Haddock coverage: Warning: 'hoist' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Source' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Conduit' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'catchC' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'tryC' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ZipConduit' is ambiguous. It is defined * at src/Data/Conduit/Internal/Conduit.hs:1229:30 * at src/Data/Conduit/Internal/Conduit.hs:1229:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Conduit/Internal/Conduit.hs:1229:1 Warning: 'ConduitT' is ambiguous. It is defined * at src/Data/Conduit/Internal/Conduit.hs:123:28 * at src/Data/Conduit/Internal/Conduit.hs:123:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Conduit/Internal/Conduit.hs:123:1 Warning: 'SealedConduitT' is ambiguous. It is defined * at src/Data/Conduit/Internal/Conduit.hs:138:34 * at src/Data/Conduit/Internal/Conduit.hs:138:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Conduit/Internal/Conduit.hs:138:1 18% ( 3 / 16) in 'Data.Conduit.Internal.Fusion' Missing documentation for: Module header Stream (src/Data/Conduit/Internal/Fusion.hs:39) ConduitWithStream (src/Data/Conduit/Internal/Fusion.hs:43) StreamConduitT (src/Data/Conduit/Internal/Fusion.hs:47) StreamConduit (src/Data/Conduit/Internal/Fusion.hs:49) StreamSource (src/Data/Conduit/Internal/Fusion.hs:51) StreamProducer (src/Data/Conduit/Internal/Fusion.hs:53) StreamSink (src/Data/Conduit/Internal/Fusion.hs:55) StreamConsumer (src/Data/Conduit/Internal/Fusion.hs:57) streamConduit (src/Data/Conduit/Internal/Fusion.hs:250) streamSource (src/Data/Conduit/Internal/Fusion.hs:257) streamSourcePure (src/Data/Conduit/Internal/Fusion.hs:275) unstream (src/Data/Conduit/Internal/Fusion.hs:60) 0% ( 0 / 41) in 'Data.Conduit.Internal.List.Stream' Missing documentation for: Module header unfoldS (src/Data/Conduit/Internal/List/Stream.hs:17) unfoldEitherS (src/Data/Conduit/Internal/List/Stream.hs:30) unfoldMS (src/Data/Conduit/Internal/List/Stream.hs:43) unfoldEitherMS (src/Data/Conduit/Internal/List/Stream.hs:57) sourceListS (src/Data/Conduit/Internal/List/Stream.hs:67) enumFromToS (src/Data/Conduit/Internal/List/Stream.hs:78) enumFromToS_int (src/Data/Conduit/Internal/List/Stream.hs:90) iterateS (src/Data/Conduit/Internal/List/Stream.hs:101) replicateS (src/Data/Conduit/Internal/List/Stream.hs:110) replicateMS (src/Data/Conduit/Internal/List/Stream.hs:119) foldS (src/Data/Conduit/Internal/List/Stream.hs:128) foldMS (src/Data/Conduit/Internal/List/Stream.hs:140) mapM_S (src/Data/Conduit/Internal/List/Stream.hs:156) dropS (src/Data/Conduit/Internal/List/Stream.hs:170) takeS (src/Data/Conduit/Internal/List/Stream.hs:185) headS (src/Data/Conduit/Internal/List/Stream.hs:198) mapS (src/Data/Conduit/Internal/List/Stream.hs:210) mapMS (src/Data/Conduit/Internal/List/Stream.hs:222) iterMS (src/Data/Conduit/Internal/List/Stream.hs:234) mapMaybeS (src/Data/Conduit/Internal/List/Stream.hs:246) mapMaybeMS (src/Data/Conduit/Internal/List/Stream.hs:261) catMaybesS (src/Data/Conduit/Internal/List/Stream.hs:277) concatS (src/Data/Conduit/Internal/List/Stream.hs:290) concatMapS (src/Data/Conduit/Internal/List/Stream.hs:303) concatMapMS (src/Data/Conduit/Internal/List/Stream.hs:316) concatMapAccumS (src/Data/Conduit/Internal/List/Stream.hs:331) mapAccumS (src/Data/Conduit/Internal/List/Stream.hs:346) mapAccumMS (src/Data/Conduit/Internal/List/Stream.hs:360) concatMapAccumMS (src/Data/Conduit/Internal/List/Stream.hs:374) mapFoldableS (src/Data/Conduit/Internal/List/Stream.hs:389) mapFoldableMS (src/Data/Conduit/Internal/List/Stream.hs:402) consumeS (src/Data/Conduit/Internal/List/Stream.hs:417) groupByS (src/Data/Conduit/Internal/List/Stream.hs:429) groupOn1S (src/Data/Conduit/Internal/List/Stream.hs:433) GroupByState (src/Data/Conduit/Internal/List/Stream.hs:436) groupBy1S (src/Data/Conduit/Internal/List/Stream.hs:442) isolateS (src/Data/Conduit/Internal/List/Stream.hs:463) filterS (src/Data/Conduit/Internal/List/Stream.hs:476) sinkNullS (src/Data/Conduit/Internal/List/Stream.hs:489) sourceNullS (src/Data/Conduit/Internal/List/Stream.hs:501) 11% ( 3 / 27) in 'Data.Conduit.Combinators.Stream' Missing documentation for: yieldManyS (src/Data/Conduit/Combinators/Stream.hs:71) repeatMS (src/Data/Conduit/Combinators/Stream.hs:81) repeatWhileMS (src/Data/Conduit/Combinators/Stream.hs:91) foldl1S (src/Data/Conduit/Combinators/Stream.hs:104) allS (src/Data/Conduit/Combinators/Stream.hs:118) anyS (src/Data/Conduit/Combinators/Stream.hs:124) sinkLazyS (src/Data/Conduit/Combinators/Stream.hs:132) sinkVectorS (src/Data/Conduit/Combinators/Stream.hs:137) sinkVectorNS (src/Data/Conduit/Combinators/Stream.hs:163) sinkLazyBuilderS (src/Data/Conduit/Combinators/Stream.hs:182) lastS (src/Data/Conduit/Combinators/Stream.hs:187) lastES (src/Data/Conduit/Combinators/Stream.hs:200) findS (src/Data/Conduit/Combinators/Stream.hs:214) concatMapS (src/Data/Conduit/Combinators/Stream.hs:231) concatMapMS (src/Data/Conduit/Combinators/Stream.hs:246) concatS (src/Data/Conduit/Combinators/Stream.hs:262) scanlS (src/Data/Conduit/Combinators/Stream.hs:270) scanlMS (src/Data/Conduit/Combinators/Stream.hs:285) mapAccumWhileS (src/Data/Conduit/Combinators/Stream.hs:301) mapAccumWhileMS (src/Data/Conduit/Combinators/Stream.hs:316) intersperseS (src/Data/Conduit/Combinators/Stream.hs:337) slidingWindowS (src/Data/Conduit/Combinators/Stream.hs:363) filterMS (src/Data/Conduit/Combinators/Stream.hs:394) splitOnUnboundedES (src/Data/Conduit/Combinators/Stream.hs:420) 97% ( 78 / 80) in 'Data.Conduit' Missing documentation for: sealConduitT (src/Data/Conduit/Internal/Conduit.hs:298) unsealConduitT (src/Data/Conduit/Internal/Conduit.hs:301) 91% ( 81 / 89) in 'Data.Conduit.Internal' Missing documentation for: Module header enumFromTo (src/Data/Conduit/Internal/Pipe.hs:500) yieldM (src/Data/Conduit/Internal/Pipe.hs:251) sealConduitT (src/Data/Conduit/Internal/Conduit.hs:298) unsealConduitT (src/Data/Conduit/Internal/Conduit.hs:301) sourceToPipe (src/Data/Conduit/Internal/Conduit.hs:333) sinkToPipe (src/Data/Conduit/Internal/Conduit.hs:343) conduitToPipe (src/Data/Conduit/Internal/Conduit.hs:353) 100% ( 42 / 42) in 'Data.Conduit.Lift' Warning: 'succ' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Foldable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 60 / 60) in 'Data.Conduit.List' Warning: 'ResourceT' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'chunkSize' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Flush' is ambiguous. It is defined * at src/Data/Conduit/Internal/Conduit.hs:1093:26 * at src/Data/Conduit/Internal/Conduit.hs:1093:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at src/Data/Conduit/Internal/Conduit.hs:1093:1 100% (167 /167) in 'Data.Conduit.Combinators' Warning: 'succ' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'iterM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'takeExactly' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'takeExactlyE' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'take' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'takeE' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'concatMap' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'chunkSize' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'chunksOfExactlyE' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'chunksOfE' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mapM_' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'concatMapM' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'line' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'unlines' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'linesUnbounded' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% (171 /171) in 'Conduit' Warning: Data.Conduit.Combinators.Stream: could not find link destinations for: - Data.Vector.Generic.Base.Vector Warning: Data.Conduit: could not find link destinations for: - GHC.Generics.Rep_Void - Data.Conduit.Internal.Conduit.D:R:PrimStateConduitT Warning: Data.Conduit.Internal: could not find link destinations for: - Data.Conduit.Internal.Pipe.D:R:PrimStatePipe - Data.Conduit.Internal.Conduit.D:R:PrimStateConduitT Warning: Data.Conduit.Combinators: could not find link destinations for: - Data.Vector.Generic.Base.Vector - Data.Conduit.Combinators.Buffer Warning: Conduit: could not find link destinations for: - Data.Functor.Identity.Rep_Identity - Data.Functor.Identity.Rep1_Identity - Control.Monad.Primitive.D:R:PrimStateAccumT - Control.Monad.Primitive.D:R:PrimStateContT - Control.Monad.Primitive.D:R:PrimStateExceptT - Control.Monad.Primitive.D:R:PrimStateIO - Control.Monad.Primitive.D:R:PrimStateIdentityT - Control.Monad.Primitive.D:R:PrimStateMaybeT - Control.Monad.Primitive.D:R:PrimStateRWST - Control.Monad.Primitive.D:R:PrimStateRWST0 - Control.Monad.Primitive.D:R:PrimStateRWST1 - Control.Monad.Primitive.D:R:PrimStateReaderT - Control.Monad.Primitive.D:R:PrimStateST - Control.Monad.Primitive.D:R:PrimStateST0 - Control.Monad.Primitive.D:R:PrimStateSelectT - Control.Monad.Primitive.D:R:PrimStateStateT - Control.Monad.Primitive.D:R:PrimStateStateT0 - Control.Monad.Primitive.D:R:PrimStateWriterT - Control.Monad.Primitive.D:R:PrimStateWriterT0 - Control.Monad.Primitive.D:R:PrimStateWriterT1 - Control.Monad.Trans.Resource.Internal.D:R:PrimStateResourceT - Data.Conduit.Internal.Pipe.D:R:PrimStatePipe - Data.Conduit.Internal.Conduit.D:R:PrimStateConduitT - Data.Vector.Unboxed.Base.Unbox - Data.Vector.Generic.Base.Vector - Data.Vector.Generic.Base.Mutable - Data.Vector.Generic.Base.basicLength - Data.Vector.Generic.Base.basicUnsafeCopy - Data.Vector.Generic.Base.basicUnsafeFreeze - Data.Vector.Generic.Base.basicUnsafeIndexM - Data.Vector.Generic.Base.basicUnsafeSlice - Data.Vector.Generic.Base.basicUnsafeThaw - Data.Vector.Generic.Base.elemseq - Data.Vector.Generic.Mutable.Base.MVector - Data.Vector.Generic.Mutable.Base.basicClear - Data.Vector.Generic.Mutable.Base.basicInitialize - Data.Vector.Generic.Mutable.Base.basicLength - Data.Vector.Generic.Mutable.Base.basicOverlaps - Data.Vector.Generic.Mutable.Base.basicSet - Data.Vector.Generic.Mutable.Base.basicUnsafeCopy - Data.Vector.Generic.Mutable.Base.basicUnsafeGrow - Data.Vector.Generic.Mutable.Base.basicUnsafeMove - Data.Vector.Generic.Mutable.Base.basicUnsafeNew - Data.Vector.Generic.Mutable.Base.basicUnsafeRead - Data.Vector.Generic.Mutable.Base.basicUnsafeReplicate - Data.Vector.Generic.Mutable.Base.basicUnsafeSlice - Data.Vector.Generic.Mutable.Base.basicUnsafeWrite - Data.Vector.Unboxed.Base.MV_Identity - Data.Vector.Unboxed.Base.V_Identity - Data.Vector.Unboxed.Base.D:R:MVectorsIdentity0 - Data.Vector.Unboxed.Base.D:R:VectorIdentity0 - Data.Conduit.Combinators.Buffer Documentation created: dist/doc/html/conduit/, dist/doc/html/conduit/conduit.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/conduit-1.3.6.1-GEs17EA0Zy6JnvHx8IYLOM Completed conduit-1.3.6.1 Configuring conduit-extra-1.3.8... Preprocessing library for conduit-extra-1.3.8.. Building library for conduit-extra-1.3.8.. [ 1 of 13] Compiling Data.Conduit.Attoparsec ( Data/Conduit/Attoparsec.hs, dist/build/Data/Conduit/Attoparsec.o, dist/build/Data/Conduit/Attoparsec.dyn_o ) [ 2 of 13] Compiling Data.Conduit.Binary ( Data/Conduit/Binary.hs, dist/build/Data/Conduit/Binary.o, dist/build/Data/Conduit/Binary.dyn_o ) [ 3 of 13] Compiling Data.Conduit.ByteString.Builder ( Data/Conduit/ByteString/Builder.hs, dist/build/Data/Conduit/ByteString/Builder.o, dist/build/Data/Conduit/ByteString/Builder.dyn_o ) [ 4 of 13] Compiling Data.Conduit.Filesystem ( Data/Conduit/Filesystem.hs, dist/build/Data/Conduit/Filesystem.o, dist/build/Data/Conduit/Filesystem.dyn_o ) [ 5 of 13] Compiling Data.Conduit.Foldl ( Data/Conduit/Foldl.hs, dist/build/Data/Conduit/Foldl.o, dist/build/Data/Conduit/Foldl.dyn_o ) [ 6 of 13] Compiling Data.Conduit.Lazy ( Data/Conduit/Lazy.hs, dist/build/Data/Conduit/Lazy.o, dist/build/Data/Conduit/Lazy.dyn_o ) [ 7 of 13] Compiling Data.Conduit.Network ( Data/Conduit/Network.hs, dist/build/Data/Conduit/Network.o, dist/build/Data/Conduit/Network.dyn_o ) [ 8 of 13] Compiling Data.Conduit.Network.UDP ( Data/Conduit/Network/UDP.hs, dist/build/Data/Conduit/Network/UDP.o, dist/build/Data/Conduit/Network/UDP.dyn_o ) [ 9 of 13] Compiling Data.Conduit.Network.Unix ( Data/Conduit/Network/Unix.hs, dist/build/Data/Conduit/Network/Unix.o, dist/build/Data/Conduit/Network/Unix.dyn_o ) [10 of 13] Compiling Data.Conduit.Process ( Data/Conduit/Process.hs, dist/build/Data/Conduit/Process.o, dist/build/Data/Conduit/Process.dyn_o ) Data/Conduit/Process.hs:48:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:48:32: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:49:20: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 49 | isStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> sinkHandle h, Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:50:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:50:22: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:50:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:51:20: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 51 | isStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> (sinkHandle h, liftIO $ hClose h), Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:66:24: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 66 | instance (MonadIO m, r ~ ()) => InputSource (BuilderInput o m r) where | ^ Data/Conduit/Process.hs:67:18: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 67 | isStdStream = (\(Just h) -> return $ BuilderInput $ sinkHandleBuilder h, Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:68:35: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where | ^ Data/Conduit/Process.hs:68:44: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where | ^ Data/Conduit/Process.hs:69:18: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 69 | isStdStream = (\(Just h) -> return (BuilderInput $ sinkHandleBuilder h, liftIO $ hClose h), Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:70:24: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 70 | instance (MonadIO m, r ~ ()) => InputSource (FlushInput o m r) where | ^ Data/Conduit/Process.hs:71:18: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 71 | isStdStream = (\(Just h) -> return $ FlushInput $ sinkHandleFlush h, Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:72:35: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where | ^ Data/Conduit/Process.hs:72:44: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where | ^ Data/Conduit/Process.hs:73:18: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 73 | isStdStream = (\(Just h) -> return (FlushInput $ sinkHandleFlush h, liftIO $ hClose h), Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:75:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:75:32: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:76:20: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 76 | osStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> sourceHandle h, Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Data/Conduit/Process.hs:77:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:77:22: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:77:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:78:20: warning: [GHC-62161] [-Wincomplete-uni-patterns] Pattern match(es) are non-exhaustive In a lambda abstraction: Patterns of type Maybe GHC.IO.Handle.Types.Handle not matched: Nothing | 78 | osStdStream = (\(Just h) -> hSetBuffering h NoBuffering $> (sourceHandle h, liftIO $ hClose h), Just CreatePipe) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [11 of 13] Compiling Data.Conduit.Process.Typed ( Data/Conduit/Process/Typed.hs, dist/build/Data/Conduit/Process/Typed.o, dist/build/Data/Conduit/Process/Typed.dyn_o ) [12 of 13] Compiling Data.Conduit.Text ( Data/Conduit/Text.hs, dist/build/Data/Conduit/Text.o, dist/build/Data/Conduit/Text.dyn_o ) [13 of 13] Compiling Data.Conduit.Zlib ( Data/Conduit/Zlib.hs, dist/build/Data/Conduit/Zlib.o, dist/build/Data/Conduit/Zlib.dyn_o ) Preprocessing library for conduit-extra-1.3.8.. Running Haddock on library for conduit-extra-1.3.8.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 13] Compiling Data.Conduit.Attoparsec ( Data/Conduit/Attoparsec.hs, nothing ) [ 2 of 13] Compiling Data.Conduit.Binary ( Data/Conduit/Binary.hs, nothing ) [ 3 of 13] Compiling Data.Conduit.ByteString.Builder ( Data/Conduit/ByteString/Builder.hs, nothing ) [ 4 of 13] Compiling Data.Conduit.Filesystem ( Data/Conduit/Filesystem.hs, nothing ) [ 5 of 13] Compiling Data.Conduit.Foldl ( Data/Conduit/Foldl.hs, nothing ) [ 6 of 13] Compiling Data.Conduit.Lazy ( Data/Conduit/Lazy.hs, nothing ) [ 7 of 13] Compiling Data.Conduit.Network ( Data/Conduit/Network.hs, nothing ) [ 8 of 13] Compiling Data.Conduit.Network.UDP ( Data/Conduit/Network/UDP.hs, nothing ) [ 9 of 13] Compiling Data.Conduit.Network.Unix ( Data/Conduit/Network/Unix.hs, nothing ) [10 of 13] Compiling Data.Conduit.Process ( Data/Conduit/Process.hs, nothing ) Data/Conduit/Process.hs:48:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:48:32: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 48 | instance (r ~ (), MonadIO m, i ~ ByteString) => InputSource (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:50:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:50:22: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:50:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 50 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, i ~ ByteString) => InputSource (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:66:24: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 66 | instance (MonadIO m, r ~ ()) => InputSource (BuilderInput o m r) where | ^ Data/Conduit/Process.hs:68:35: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where | ^ Data/Conduit/Process.hs:68:44: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 68 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (BuilderInput o m r, n r') where | ^ Data/Conduit/Process.hs:70:24: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 70 | instance (MonadIO m, r ~ ()) => InputSource (FlushInput o m r) where | ^ Data/Conduit/Process.hs:72:35: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where | ^ Data/Conduit/Process.hs:72:44: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 72 | instance (MonadIO m, MonadIO n, r ~ (), r' ~ ()) => InputSource (FlushInput o m r, n r') where | ^ Data/Conduit/Process.hs:75:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:75:32: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 75 | instance (r ~ (), MonadIO m, o ~ ByteString) => OutputSink (ConduitM i o m r) where | ^ Data/Conduit/Process.hs:77:13: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:77:22: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ Data/Conduit/Process.hs:77:52: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 77 | instance (r ~ (), r' ~ (), MonadIO m, MonadIO n, o ~ ByteString) => OutputSink (ConduitM i o m r, n r') where | ^ [11 of 13] Compiling Data.Conduit.Process.Typed ( Data/Conduit/Process/Typed.hs, nothing ) [12 of 13] Compiling Data.Conduit.Text ( Data/Conduit/Text.hs, nothing ) [13 of 13] Compiling Data.Conduit.Zlib ( Data/Conduit/Zlib.hs, nothing ) Haddock coverage: Warning: 'ParseError' is ambiguous. It is defined * at Data/Conduit/Attoparsec.hs:44:19 * at Data/Conduit/Attoparsec.hs:44:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Data/Conduit/Attoparsec.hs:44:1 84% ( 11 / 13) in 'Data.Conduit.Attoparsec' Missing documentation for: Position (Data/Conduit/Attoparsec.hs:53) PositionRange (Data/Conduit/Attoparsec.hs:64) 100% ( 45 / 45) in 'Data.Conduit.Binary' 100% ( 12 / 12) in 'Data.Conduit.ByteString.Builder' 100% ( 3 / 3) in 'Data.Conduit.Filesystem' 100% ( 3 / 3) in 'Data.Conduit.Foldl' 100% ( 3 / 3) in 'Data.Conduit.Lazy' 52% ( 18 / 34) in 'Data.Conduit.Network' Missing documentation for: Module header appSource (Data/Conduit/Network.hs:88) appSink (Data/Conduit/Network.hs:99) appSockAddr appLocalAddr serverSettings (Data/Conduit/Network.hs:82) runTCPServerWithHandle clientSettings (Data/Conduit/Network.hs:85) getPort getHost getAfterBind getNeedLocalAddr setPort setHost setAfterBind setNeedLocalAddr 90% ( 10 / 11) in 'Data.Conduit.Network.UDP' Missing documentation for: Module header 59% ( 13 / 22) in 'Data.Conduit.Network.Unix' Missing documentation for: Module header appSource (Data/Conduit/Network.hs:88) appSink (Data/Conduit/Network.hs:99) serverSettings (Data/Conduit/Network/Unix.hs:36) clientSettings (Data/Conduit/Network/Unix.hs:33) getPath getAfterBind setPath setAfterBind 100% ( 12 / 12) in 'Data.Conduit.Process' 100% ( 9 / 9) in 'Data.Conduit.Process.Typed' 100% ( 25 / 25) in 'Data.Conduit.Text' Warning: 'WindowBits' is ambiguous. It is defined * in Codec.Compression.Zlib.Stream * in Codec.Compression.Zlib.Stream You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Codec.Compression.Zlib.Stream 100% ( 14 / 14) in 'Data.Conduit.Zlib' Warning: Data.Conduit.Attoparsec: could not find link destinations for: - Data.Conduit.Attoparsec.parseA - Data.Conduit.Attoparsec.feedA - Data.Conduit.Attoparsec.empty - Data.Conduit.Attoparsec.isNull - Data.Conduit.Attoparsec.getLinesCols - Data.Conduit.Attoparsec.stripFromEnd Warning: Data.Conduit.Binary: could not find link destinations for: - Data.Conduit.Binary.SinkStorableInsufficientBytes Warning: Data.Conduit.ByteString.Builder: could not find link destinations for: - Data.Conduit.Combinators.Buffer Warning: Data.Conduit.Zlib: could not find link destinations for: - Codec.Compression.Zlib.Stream.Rep_WindowBits Documentation created: dist/doc/html/conduit-extra/, dist/doc/html/conduit-extra/conduit-extra.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/conduit-extra-1.3.8-Zs3YSlDfwH9BRfJvfPrMl Completed conduit-extra-1.3.8 Configuring monad-logger-0.3.42... Preprocessing library for monad-logger-0.3.42.. Building library for monad-logger-0.3.42.. [1 of 3] Compiling Control.Monad.Logger ( Control/Monad/Logger.hs, dist/build/Control/Monad/Logger.o, dist/build/Control/Monad/Logger.dyn_o ) Control/Monad/Logger.hs:206:10: warning: [GHC-06201] [-Wmissing-methods] " No explicit implementation for Language.Haskell.TH.Syntax.liftTyped " In the instance declaration for Lift LogLevel | 206 | instance Lift LogLevel where | ^^^^^^^^^^^^^ Control/Monad/Logger.hs:228:104: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 228 | default monadLoggerLog :: (MonadLogger m', Trans.MonadTrans t, MonadLogger (t m'), ToLogStr msg, m ~ t m') | ^ Control/Monad/Logger.hs:243:68: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 243 | default askLoggerIO :: (Trans.MonadTrans t, MonadLoggerIO n, m ~ t n) | ^ [2 of 3] Compiling Control.Monad.Logger.CallStack ( Control/Monad/Logger/CallStack.hs, dist/build/Control/Monad/Logger/CallStack.o, dist/build/Control/Monad/Logger/CallStack.dyn_o ) [3 of 3] Compiling Paths_monad_logger ( dist/build/autogen/Paths_monad_logger.hs, dist/build/Paths_monad_logger.o, dist/build/Paths_monad_logger.dyn_o ) Preprocessing library for monad-logger-0.3.42.. Running Haddock on library for monad-logger-0.3.42.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [1 of 3] Compiling Control.Monad.Logger ( Control/Monad/Logger.hs, nothing ) Control/Monad/Logger.hs:206:10: warning: [GHC-06201] [-Wmissing-methods] " No explicit implementation for Language.Haskell.TH.Syntax.liftTyped " In the instance declaration for Lift LogLevel | 206 | instance Lift LogLevel where | ^^^^^^^^^^^^^ Control/Monad/Logger.hs:228:104: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 228 | default monadLoggerLog :: (MonadLogger m', Trans.MonadTrans t, MonadLogger (t m'), ToLogStr msg, m ~ t m') | ^ Control/Monad/Logger.hs:243:68: warning: [GHC-58520] [-Wtype-equality-requires-operators] The use of ~ without TypeOperators will become an error in a future GHC release. Suggested fix: Perhaps you intended to use TypeOperators | 243 | default askLoggerIO :: (Trans.MonadTrans t, MonadLoggerIO n, m ~ t n) | ^ [2 of 3] Compiling Control.Monad.Logger.CallStack ( Control/Monad/Logger/CallStack.hs, nothing ) [3 of 3] Compiling Paths_monad_logger ( dist/build/autogen/Paths_monad_logger.hs, nothing ) Haddock coverage: Warning: 'LoggingT' is ambiguous. It is defined * at Control/Monad/Logger.hs:583:24 * at Control/Monad/Logger.hs:583:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Logger.hs:583:1 Warning: 'NoLoggingT' is ambiguous. It is defined * at Control/Monad/Logger.hs:394:26 * at Control/Monad/Logger.hs:394:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Control/Monad/Logger.hs:394:1 Warning: 'Loc' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax 80% ( 57 / 71) in 'Control.Monad.Logger' Missing documentation for: LogLevel (Control/Monad/Logger.hs:183) LogSource (Control/Monad/Logger.hs:186) logDebugN (Control/Monad/Logger.hs:935) logInfoN (Control/Monad/Logger.hs:938) logWarnN (Control/Monad/Logger.hs:941) logErrorN (Control/Monad/Logger.hs:944) logOtherN (Control/Monad/Logger.hs:947) logDebugNS (Control/Monad/Logger.hs:950) logInfoNS (Control/Monad/Logger.hs:953) logWarnNS (Control/Monad/Logger.hs:956) logErrorNS (Control/Monad/Logger.hs:959) logOtherNS (Control/Monad/Logger.hs:962) defaultLogStr (Control/Monad/Logger.hs:744) Loc 76% ( 45 / 59) in 'Control.Monad.Logger.CallStack' Missing documentation for: Loc LogLevel (Control/Monad/Logger.hs:183) LogSource (Control/Monad/Logger.hs:186) logDebugN (Control/Monad/Logger.hs:935) logInfoN (Control/Monad/Logger.hs:938) logWarnN (Control/Monad/Logger.hs:941) logErrorN (Control/Monad/Logger.hs:944) logOtherN (Control/Monad/Logger.hs:947) logDebugNS (Control/Monad/Logger.hs:950) logInfoNS (Control/Monad/Logger.hs:953) logWarnNS (Control/Monad/Logger.hs:956) logErrorNS (Control/Monad/Logger.hs:959) logOtherNS (Control/Monad/Logger.hs:962) defaultLogStr (Control/Monad/Logger.hs:744) Warning: Control.Monad.Logger: could not find link destinations for: - Language.Haskell.TH.Syntax.Rep_Loc - Control.Monad.Logger.DList - Control.Monad.Logger.D:R:StTNoLoggingTa - Control.Monad.Logger.D:R:StTWriterLoggingTa - Control.Monad.Logger.D:R:StTLoggingTa Warning: Control.Monad.Logger.CallStack: could not find link destinations for: - Language.Haskell.TH.Syntax.Rep_Loc - Control.Monad.Logger.DList - Control.Monad.Logger.D:R:StTNoLoggingTa - Control.Monad.Logger.D:R:StTWriterLoggingTa - Control.Monad.Logger.D:R:StTLoggingTa Documentation created: dist/doc/html/monad-logger/, dist/doc/html/monad-logger/monad-logger.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/monad-logger-0.3.42-Ei5Q5CMyuyUBvwd8OvSer8 Completed monad-logger-0.3.42 Configuring persistent-2.18.0.0... Preprocessing library for persistent-2.18.0.0.. Building library for persistent-2.18.0.0.. [ 1 of 52] Compiling Database.Persist.Class.PersistConfig ( Database/Persist/Class/PersistConfig.hs, dist/build/Database/Persist/Class/PersistConfig.o, dist/build/Database/Persist/Class/PersistConfig.dyn_o ) [ 2 of 52] Compiling Database.Persist.Names ( Database/Persist/Names.hs, dist/build/Database/Persist/Names.o, dist/build/Database/Persist/Names.dyn_o ) [ 3 of 52] Compiling Database.Persist.PersistValue ( Database/Persist/PersistValue.hs, dist/build/Database/Persist/PersistValue.o, dist/build/Database/Persist/PersistValue.dyn_o ) [ 4 of 52] Compiling Database.Persist.Quasi.Internal.TypeParser ( Database/Persist/Quasi/Internal/TypeParser.hs, dist/build/Database/Persist/Quasi/Internal/TypeParser.o, dist/build/Database/Persist/Quasi/Internal/TypeParser.dyn_o ) [ 5 of 52] Compiling Database.Persist.SqlBackend.Internal.IsolationLevel ( Database/Persist/SqlBackend/Internal/IsolationLevel.hs, dist/build/Database/Persist/SqlBackend/Internal/IsolationLevel.o, dist/build/Database/Persist/SqlBackend/Internal/IsolationLevel.dyn_o ) [ 6 of 52] Compiling Database.Persist.SqlBackend.Internal.SqlPoolHooks ( Database/Persist/SqlBackend/Internal/SqlPoolHooks.hs, dist/build/Database/Persist/SqlBackend/Internal/SqlPoolHooks.o, dist/build/Database/Persist/SqlBackend/Internal/SqlPoolHooks.dyn_o ) [ 7 of 52] Compiling Database.Persist.Types.SourceSpan ( Database/Persist/Types/SourceSpan.hs, dist/build/Database/Persist/Types/SourceSpan.o, dist/build/Database/Persist/Types/SourceSpan.dyn_o ) [ 8 of 52] Compiling Database.Persist.Types.Base ( Database/Persist/Types/Base.hs, dist/build/Database/Persist/Types/Base.o, dist/build/Database/Persist/Types/Base.dyn_o ) [ 9 of 52] Compiling Database.Persist.SqlBackend.Internal.Statement ( Database/Persist/SqlBackend/Internal/Statement.hs, dist/build/Database/Persist/SqlBackend/Internal/Statement.o, dist/build/Database/Persist/SqlBackend/Internal/Statement.dyn_o ) Database/Persist/SqlBackend/Internal/Statement.hs:6:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Acquire is redundant except perhaps to import instances from Data.Acquire To import instances alone, use: import Data.Acquire() | 6 | import Data.Acquire | ^^^^^^^^^^^^^^^^^^^ [10 of 52] Compiling Database.Persist.SqlBackend.Internal.StatementCache ( Database/Persist/SqlBackend/Internal/StatementCache.hs, dist/build/Database/Persist/SqlBackend/Internal/StatementCache.o, dist/build/Database/Persist/SqlBackend/Internal/StatementCache.dyn_o ) [11 of 52] Compiling Database.Persist.SqlBackend.StatementCache ( Database/Persist/SqlBackend/StatementCache.hs, dist/build/Database/Persist/SqlBackend/StatementCache.o, dist/build/Database/Persist/SqlBackend/StatementCache.dyn_o ) [12 of 52] Compiling Database.Persist.SqlBackend.Internal.InsertSqlResult ( Database/Persist/SqlBackend/Internal/InsertSqlResult.hs, dist/build/Database/Persist/SqlBackend/Internal/InsertSqlResult.o, dist/build/Database/Persist/SqlBackend/Internal/InsertSqlResult.dyn_o ) [13 of 52] Compiling Database.Persist.SqlBackend.Internal.MkSqlBackend ( Database/Persist/SqlBackend/Internal/MkSqlBackend.hs, dist/build/Database/Persist/SqlBackend/Internal/MkSqlBackend.o, dist/build/Database/Persist/SqlBackend/Internal/MkSqlBackend.dyn_o ) [14 of 52] Compiling Database.Persist.FieldDef.Internal ( Database/Persist/FieldDef/Internal.hs, dist/build/Database/Persist/FieldDef/Internal.o, dist/build/Database/Persist/FieldDef/Internal.dyn_o ) [15 of 52] Compiling Database.Persist.FieldDef ( Database/Persist/FieldDef.hs, dist/build/Database/Persist/FieldDef.o, dist/build/Database/Persist/FieldDef.dyn_o ) [16 of 52] Compiling Database.Persist.EntityDef.Internal ( Database/Persist/EntityDef/Internal.hs, dist/build/Database/Persist/EntityDef/Internal.o, dist/build/Database/Persist/EntityDef/Internal.dyn_o ) [17 of 52] Compiling Database.Persist.EntityDef ( Database/Persist/EntityDef.hs, dist/build/Database/Persist/EntityDef.o, dist/build/Database/Persist/EntityDef.dyn_o ) [18 of 52] Compiling Database.Persist.Class.PersistField ( Database/Persist/Class/PersistField.hs, dist/build/Database/Persist/Class/PersistField.o, dist/build/Database/Persist/Class/PersistField.dyn_o ) Database/Persist/Class/PersistField.hs:39:1: warning: [GHC-66111] [-Wunused-imports] The import of Numeric.Natural is redundant except perhaps to import instances from Numeric.Natural To import instances alone, use: import Numeric.Natural() | 39 | import Numeric.Natural (Natural) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [19 of 52] Compiling Database.Persist.Class.PersistEntity ( Database/Persist/Class/PersistEntity.hs, dist/build/Database/Persist/Class/PersistEntity.o, dist/build/Database/Persist/Class/PersistEntity.dyn_o ) Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] entityVal is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] entityKey is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] Entity is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:50:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor.Constant is redundant except perhaps to import instances from Data.Functor.Constant To import instances alone, use: import Data.Functor.Constant() | 50 | import Data.Functor.Constant | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:85:1: warning: [GHC-66111] [-Wunused-imports] The import of GHC.Records is redundant except perhaps to import instances from GHC.Records To import instances alone, use: import GHC.Records() | 85 | import GHC.Records | ^^^^^^^^^^^^^^^^^^ [20 of 52] Compiling Database.Persist.Types ( Database/Persist/Types.hs, dist/build/Database/Persist/Types.o, dist/build/Database/Persist/Types.dyn_o ) [21 of 52] Compiling Database.Persist.Quasi.PersistSettings.Internal ( Database/Persist/Quasi/PersistSettings/Internal.hs, dist/build/Database/Persist/Quasi/PersistSettings/Internal.o, dist/build/Database/Persist/Quasi/PersistSettings/Internal.dyn_o ) Database/Persist/Quasi/PersistSettings/Internal.hs:3:1: warning: [GHC-38856] [-Wunused-imports] The import of isDigit, isLower, isSpace from module Data.Char is redundant | 3 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Quasi/PersistSettings/Internal.hs:9:1: warning: [GHC-66111] [-Wunused-imports] The import of Database.Persist.Types is redundant except perhaps to import instances from Database.Persist.Types To import instances alone, use: import Database.Persist.Types() | 9 | import Database.Persist.Types | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [22 of 52] Compiling Database.Persist.Quasi.PersistSettings ( Database/Persist/Quasi/PersistSettings.hs, dist/build/Database/Persist/Quasi/PersistSettings.o, dist/build/Database/Persist/Quasi/PersistSettings.dyn_o ) [23 of 52] Compiling Database.Persist.Class.PersistStore ( Database/Persist/Class/PersistStore.hs, dist/build/Database/Persist/Class/PersistStore.o, dist/build/Database/Persist/Class/PersistStore.dyn_o ) [24 of 52] Compiling Database.Persist.SqlBackend.Internal ( Database/Persist/SqlBackend/Internal.hs, dist/build/Database/Persist/SqlBackend/Internal.o, dist/build/Database/Persist/SqlBackend/Internal.dyn_o ) [25 of 52] Compiling Database.Persist.SqlBackend ( Database/Persist/SqlBackend.hs, dist/build/Database/Persist/SqlBackend.o, dist/build/Database/Persist/SqlBackend.dyn_o ) [26 of 52] Compiling Database.Persist.Class.PersistUnique ( Database/Persist/Class/PersistUnique.hs, dist/build/Database/Persist/Class/PersistUnique.o, dist/build/Database/Persist/Class/PersistUnique.dyn_o ) [27 of 52] Compiling Database.Persist.Class.PersistQuery ( Database/Persist/Class/PersistQuery.hs, dist/build/Database/Persist/Class/PersistQuery.o, dist/build/Database/Persist/Class/PersistQuery.dyn_o ) [28 of 52] Compiling Database.Persist.Class ( Database/Persist/Class.hs, dist/build/Database/Persist/Class.o, dist/build/Database/Persist/Class.dyn_o ) [29 of 52] Compiling Database.Persist.Sql.Types.Internal ( Database/Persist/Sql/Types/Internal.hs, dist/build/Database/Persist/Sql/Types/Internal.o, dist/build/Database/Persist/Sql/Types/Internal.dyn_o ) [30 of 52] Compiling Database.Persist.Sql.Types ( Database/Persist/Sql/Types.hs, dist/build/Database/Persist/Sql/Types.o, dist/build/Database/Persist/Sql/Types.dyn_o ) [31 of 52] Compiling Database.Persist.Sql.Internal ( Database/Persist/Sql/Internal.hs, dist/build/Database/Persist/Sql/Internal.o, dist/build/Database/Persist/Sql/Internal.dyn_o ) [32 of 52] Compiling Database.Persist ( Database/Persist.hs, dist/build/Database/Persist.o, dist/build/Database/Persist.dyn_o ) [33 of 52] Compiling Database.Persist.Sql.Util ( Database/Persist/Sql/Util.hs, dist/build/Database/Persist/Sql/Util.o, dist/build/Database/Persist/Sql/Util.dyn_o ) [34 of 52] Compiling Database.Persist.Sql.Class ( Database/Persist/Sql/Class.hs, dist/build/Database/Persist/Sql/Class.o, dist/build/Database/Persist/Sql/Class.dyn_o ) [35 of 52] Compiling Database.Persist.Sql.Raw ( Database/Persist/Sql/Raw.hs, dist/build/Database/Persist/Sql/Raw.o, dist/build/Database/Persist/Sql/Raw.dyn_o ) [36 of 52] Compiling Database.Persist.SqlBackend.SqlPoolHooks ( Database/Persist/SqlBackend/SqlPoolHooks.hs, dist/build/Database/Persist/SqlBackend/SqlPoolHooks.o, dist/build/Database/Persist/SqlBackend/SqlPoolHooks.dyn_o ) Database/Persist/SqlBackend/SqlPoolHooks.hs:121:1: warning: [GHC-40910] [-Wunused-top-binds] Defined but not used: modifyRunOnException | 121 | modifyRunOnException hooks f = hooks{runOnException = f $ runOnException hooks} | ^^^^^^^^^^^^^^^^^^^^ Database/Persist/SqlBackend/SqlPoolHooks.hs:127:1: warning: [GHC-40910] [-Wunused-top-binds] Defined but not used: setRunOnException | 127 | setRunOnException hooks f = hooks{runOnException = f} | ^^^^^^^^^^^^^^^^^ [37 of 52] Compiling Database.Persist.Sql.Run ( Database/Persist/Sql/Run.hs, dist/build/Database/Persist/Sql/Run.o, dist/build/Database/Persist/Sql/Run.dyn_o ) Database/Persist/Sql/Run.hs:164:13: warning: [GHC-68441] [-Wdeprecations] In the use of data constructor ReleaseException (imported from Data.Acquire, but defined in Data.Acquire.Internal): Deprecated: "Use `ReleaseExceptionWith`, which has the exception in the constructor. This pattern synonym hides the exception and can obscure problems." | 164 | ReleaseException -> do | ^^^^^^^^^^^^^^^^ Database/Persist/Sql/Run.hs:294:9: warning: [GHC-68441] [-Wdeprecations] In the use of createPool (imported from Data.Pool): Deprecated: "Use newPool instead" | 294 | createPool | ^^^^^^^^^^ [38 of 52] Compiling Database.Persist.Sql.Orphan.PersistStore ( Database/Persist/Sql/Orphan/PersistStore.hs, dist/build/Database/Persist/Sql/Orphan/PersistStore.o, dist/build/Database/Persist/Sql/Orphan/PersistStore.dyn_o ) [39 of 52] Compiling Database.Persist.Sql.Orphan.PersistUnique ( Database/Persist/Sql/Orphan/PersistUnique.hs, dist/build/Database/Persist/Sql/Orphan/PersistUnique.o, dist/build/Database/Persist/Sql/Orphan/PersistUnique.dyn_o ) Database/Persist/Sql/Orphan/PersistUnique.hs:54:30: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 54 | return $ head x | ^^^^ Database/Persist/Sql/Orphan/PersistUnique.hs:81:41: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 81 | uKeys = persistUniqueKeys . head $ rsD | ^^^^ [40 of 52] Compiling Database.Persist.Sql.Orphan.PersistQuery ( Database/Persist/Sql/Orphan/PersistQuery.hs, dist/build/Database/Persist/Sql/Orphan/PersistQuery.o, dist/build/Database/Persist/Sql/Orphan/PersistQuery.dyn_o ) Database/Persist/Sql/Orphan/PersistQuery.hs:414:46: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 414 | zs = tail (inits (toList $ compositeFields pdef)) | ^^^^ Database/Persist/Sql/Orphan/PersistQuery.hs:428:65: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 428 | (wrapSql sqlcl, concat (tail (inits xs))) | ^^^^ [41 of 52] Compiling Database.Persist.Sql.Migration ( Database/Persist/Sql/Migration.hs, dist/build/Database/Persist/Sql/Migration.o, dist/build/Database/Persist/Sql/Migration.dyn_o ) [42 of 52] Compiling Database.Persist.ImplicitIdDef.Internal ( Database/Persist/ImplicitIdDef/Internal.hs, dist/build/Database/Persist/ImplicitIdDef/Internal.o, dist/build/Database/Persist/ImplicitIdDef/Internal.dyn_o ) Database/Persist/ImplicitIdDef/Internal.hs:205:13: warning: [GHC-53633] [-Woverlapping-patterns] Pattern match is redundant In a case alternative: Fun _ _ -> ... | 205 | Fun _ _ -> | ^^^^^^^^^^... [43 of 52] Compiling Database.Persist.ImplicitIdDef ( Database/Persist/ImplicitIdDef.hs, dist/build/Database/Persist/ImplicitIdDef.o, dist/build/Database/Persist/ImplicitIdDef.dyn_o ) [44 of 52] Compiling Database.Persist.Compatible.Types ( Database/Persist/Compatible/Types.hs, dist/build/Database/Persist/Compatible/Types.o, dist/build/Database/Persist/Compatible/Types.dyn_o ) [45 of 52] Compiling Database.Persist.Compatible.TH ( Database/Persist/Compatible/TH.hs, dist/build/Database/Persist/Compatible/TH.o, dist/build/Database/Persist/Compatible/TH.dyn_o ) [46 of 52] Compiling Database.Persist.Compatible ( Database/Persist/Compatible.hs, dist/build/Database/Persist/Compatible.o, dist/build/Database/Persist/Compatible.dyn_o ) [47 of 52] Compiling Database.Persist.Sql ( Database/Persist/Sql.hs, dist/build/Database/Persist/Sql.o, dist/build/Database/Persist/Sql.dyn_o ) [48 of 52] Compiling Database.Persist.Quasi.Internal.ModelParser ( Database/Persist/Quasi/Internal/ModelParser.hs, dist/build/Database/Persist/Quasi/Internal/ModelParser.o, dist/build/Database/Persist/Quasi/Internal/ModelParser.dyn_o ) Database/Persist/Quasi/Internal/ModelParser.hs:44:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor.Identity is redundant except perhaps to import instances from Data.Functor.Identity To import instances alone, use: import Data.Functor.Identity() | 44 | import Data.Functor.Identity | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:146:12: warning: [GHC-63397] [-Wname-shadowing] This binding for either shadows the existing binding imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50 (and originally defined in Data.Either) | 146 | ((_is, either), warnings) = runWriter wm | ^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:235:22: warning: [GHC-40910] [-Wunused-local-binds] Defined but not used: pairs | 235 | (pairs, _) = attachSourcePos errorOffset [err] posState | ^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:772:37: warning: [GHC-63397] [-Wname-shadowing] This binding for extraBlockLines shadows the existing binding defined at Database/Persist/Quasi/Internal/ModelParser.hs:656:7 | 772 | mkExtraBlockMember dcb (header, extraBlockLines) = | ^^^^^^^^^^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:779:20: warning: [GHC-63397] [-Wname-shadowing] This binding for lines shadows the existing binding imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50 (and originally defined in base-4.19.2.0:Data.OldList) | 779 | ensureNonEmpty lines = case NEL.nonEmpty lines of | ^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:808:5: warning: [GHC-63397] [-Wname-shadowing] This binding for tokens shadows the existing binding imported from Text.Megaparsec at Database/Persist/Quasi/Internal/ModelParser.hs:60:1-22 (and originally defined in megaparsec-9.7.0:Text.Megaparsec.Class) | 808 | tokens <- some $ L.lexeme spaceConsumer (some contentChar) | ^^^^^^ [49 of 52] Compiling Database.Persist.Quasi.Internal ( Database/Persist/Quasi/Internal.hs, dist/build/Database/Persist/Quasi/Internal.o, dist/build/Database/Persist/Quasi/Internal.dyn_o ) Database/Persist/Quasi/Internal.hs:54:55: warning: [GHC-38856] [-Wunused-imports] The import of toLower from module Data.Char is redundant | 54 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower) | ^^^^^^^ [50 of 52] Compiling Database.Persist.Quasi ( Database/Persist/Quasi.hs, dist/build/Database/Persist/Quasi.o, dist/build/Database/Persist/Quasi.dyn_o ) [51 of 52] Compiling Database.Persist.TH.Internal ( Database/Persist/TH/Internal.hs, dist/build/Database/Persist/TH/Internal.o, dist/build/Database/Persist/TH/Internal.dyn_o ) Database/Persist/TH/Internal.hs:152:1: warning: [GHC-66111] [-Wunused-imports] The import of Database.Persist.Quasi.PersistSettings is redundant except perhaps to import instances from Database.Persist.Quasi.PersistSettings To import instances alone, use: import Database.Persist.Quasi.PersistSettings() | 152 | import Database.Persist.Quasi.PersistSettings | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/TH/Internal.hs:2758:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 2758 | expr <- [e|head . persistUniqueKeys|] | ^^^^ [52 of 52] Compiling Database.Persist.TH ( Database/Persist/TH.hs, dist/build/Database/Persist/TH.o, dist/build/Database/Persist/TH.dyn_o ) Preprocessing library for persistent-2.18.0.0.. Running Haddock on library for persistent-2.18.0.0.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 52] Compiling Database.Persist.Class.PersistConfig ( Database/Persist/Class/PersistConfig.hs, /tmp/ghc2913937_0/ghc_22.o, /tmp/ghc2913937_0/ghc_22.dyn_o ) [ 2 of 52] Compiling Database.Persist.Names ( Database/Persist/Names.hs, /tmp/ghc2913937_0/ghc_48.o, /tmp/ghc2913937_0/ghc_48.dyn_o ) [ 3 of 52] Compiling Database.Persist.PersistValue ( Database/Persist/PersistValue.hs, /tmp/ghc2913937_0/ghc_50.o, /tmp/ghc2913937_0/ghc_50.dyn_o ) [ 4 of 52] Compiling Database.Persist.Quasi.Internal.TypeParser ( Database/Persist/Quasi/Internal/TypeParser.hs, /tmp/ghc2913937_0/ghc_58.o, /tmp/ghc2913937_0/ghc_58.dyn_o ) [ 5 of 52] Compiling Database.Persist.SqlBackend.Internal.IsolationLevel ( Database/Persist/SqlBackend/Internal/IsolationLevel.hs, /tmp/ghc2913937_0/ghc_92.o, /tmp/ghc2913937_0/ghc_92.dyn_o ) [ 6 of 52] Compiling Database.Persist.SqlBackend.Internal.SqlPoolHooks ( Database/Persist/SqlBackend/Internal/SqlPoolHooks.hs, /tmp/ghc2913937_0/ghc_96.o, /tmp/ghc2913937_0/ghc_96.dyn_o ) [ 7 of 52] Compiling Database.Persist.Types.SourceSpan ( Database/Persist/Types/SourceSpan.hs, /tmp/ghc2913937_0/ghc_108.o, /tmp/ghc2913937_0/ghc_108.dyn_o ) [ 8 of 52] Compiling Database.Persist.Types.Base ( Database/Persist/Types/Base.hs, /tmp/ghc2913937_0/ghc_106.o, /tmp/ghc2913937_0/ghc_106.dyn_o ) [ 9 of 52] Compiling Database.Persist.SqlBackend.Internal.Statement ( Database/Persist/SqlBackend/Internal/Statement.hs, /tmp/ghc2913937_0/ghc_98.o, /tmp/ghc2913937_0/ghc_98.dyn_o ) Database/Persist/SqlBackend/Internal/Statement.hs:6:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Acquire is redundant except perhaps to import instances from Data.Acquire To import instances alone, use: import Data.Acquire() | 6 | import Data.Acquire | ^^^^^^^^^^^^^^^^^^^ [10 of 52] Compiling Database.Persist.SqlBackend.Internal.StatementCache ( Database/Persist/SqlBackend/Internal/StatementCache.hs, /tmp/ghc2913937_0/ghc_100.o, /tmp/ghc2913937_0/ghc_100.dyn_o ) [11 of 52] Compiling Database.Persist.SqlBackend.StatementCache ( Database/Persist/SqlBackend/StatementCache.hs, /tmp/ghc2913937_0/ghc_102.o, /tmp/ghc2913937_0/ghc_102.dyn_o ) [12 of 52] Compiling Database.Persist.SqlBackend.Internal.InsertSqlResult ( Database/Persist/SqlBackend/Internal/InsertSqlResult.hs, /tmp/ghc2913937_0/ghc_90.o, /tmp/ghc2913937_0/ghc_90.dyn_o ) [13 of 52] Compiling Database.Persist.SqlBackend.Internal.MkSqlBackend ( Database/Persist/SqlBackend/Internal/MkSqlBackend.hs, /tmp/ghc2913937_0/ghc_94.o, /tmp/ghc2913937_0/ghc_94.dyn_o ) [14 of 52] Compiling Database.Persist.FieldDef.Internal ( Database/Persist/FieldDef/Internal.hs, /tmp/ghc2913937_0/ghc_42.o, /tmp/ghc2913937_0/ghc_42.dyn_o ) [15 of 52] Compiling Database.Persist.FieldDef ( Database/Persist/FieldDef.hs, /tmp/ghc2913937_0/ghc_40.o, /tmp/ghc2913937_0/ghc_40.dyn_o ) [16 of 52] Compiling Database.Persist.EntityDef.Internal ( Database/Persist/EntityDef/Internal.hs, /tmp/ghc2913937_0/ghc_38.o, /tmp/ghc2913937_0/ghc_38.dyn_o ) [17 of 52] Compiling Database.Persist.EntityDef ( Database/Persist/EntityDef.hs, /tmp/ghc2913937_0/ghc_36.o, /tmp/ghc2913937_0/ghc_36.dyn_o ) [18 of 52] Compiling Database.Persist.Class.PersistField ( Database/Persist/Class/PersistField.hs, /tmp/ghc2913937_0/ghc_26.o, /tmp/ghc2913937_0/ghc_26.dyn_o ) Database/Persist/Class/PersistField.hs:39:1: warning: [GHC-66111] [-Wunused-imports] The import of Numeric.Natural is redundant except perhaps to import instances from Numeric.Natural To import instances alone, use: import Numeric.Natural() | 39 | import Numeric.Natural (Natural) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [19 of 52] Compiling Database.Persist.Class.PersistEntity ( Database/Persist/Class/PersistEntity.hs, /tmp/ghc2913937_0/ghc_24.o, /tmp/ghc2913937_0/ghc_24.dyn_o ) Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] entityVal is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] entityKey is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:26:7: warning: [GHC-47854] [-Wduplicate-exports] Entity is exported by Entity(.., Entity, entityKey, entityVal) and Entity(.., Entity, entityKey, entityVal) | 26 | , Entity (.., Entity, entityKey, entityVal) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:50:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor.Constant is redundant except perhaps to import instances from Data.Functor.Constant To import instances alone, use: import Data.Functor.Constant() | 50 | import Data.Functor.Constant | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Class/PersistEntity.hs:85:1: warning: [GHC-66111] [-Wunused-imports] The import of GHC.Records is redundant except perhaps to import instances from GHC.Records To import instances alone, use: import GHC.Records() | 85 | import GHC.Records | ^^^^^^^^^^^^^^^^^^ [20 of 52] Compiling Database.Persist.Types ( Database/Persist/Types.hs, /tmp/ghc2913937_0/ghc_104.o, /tmp/ghc2913937_0/ghc_104.dyn_o ) [21 of 52] Compiling Database.Persist.Quasi.PersistSettings.Internal ( Database/Persist/Quasi/PersistSettings/Internal.hs, /tmp/ghc2913937_0/ghc_62.o, /tmp/ghc2913937_0/ghc_62.dyn_o ) Database/Persist/Quasi/PersistSettings/Internal.hs:3:1: warning: [GHC-38856] [-Wunused-imports] The import of isDigit, isLower, isSpace from module Data.Char is redundant | 3 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower) | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Quasi/PersistSettings/Internal.hs:9:1: warning: [GHC-66111] [-Wunused-imports] The import of Database.Persist.Types is redundant except perhaps to import instances from Database.Persist.Types To import instances alone, use: import Database.Persist.Types() | 9 | import Database.Persist.Types | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [22 of 52] Compiling Database.Persist.Quasi.PersistSettings ( Database/Persist/Quasi/PersistSettings.hs, /tmp/ghc2913937_0/ghc_60.o, /tmp/ghc2913937_0/ghc_60.dyn_o ) [23 of 52] Compiling Database.Persist.Class.PersistStore ( Database/Persist/Class/PersistStore.hs, /tmp/ghc2913937_0/ghc_30.o, /tmp/ghc2913937_0/ghc_30.dyn_o ) [24 of 52] Compiling Database.Persist.SqlBackend.Internal ( Database/Persist/SqlBackend/Internal.hs, /tmp/ghc2913937_0/ghc_88.o, /tmp/ghc2913937_0/ghc_88.dyn_o ) [25 of 52] Compiling Database.Persist.SqlBackend ( Database/Persist/SqlBackend.hs, nothing ) [26 of 52] Compiling Database.Persist.Class.PersistUnique ( Database/Persist/Class/PersistUnique.hs, /tmp/ghc2913937_0/ghc_32.o, /tmp/ghc2913937_0/ghc_32.dyn_o ) [27 of 52] Compiling Database.Persist.Class.PersistQuery ( Database/Persist/Class/PersistQuery.hs, /tmp/ghc2913937_0/ghc_28.o, /tmp/ghc2913937_0/ghc_28.dyn_o ) [28 of 52] Compiling Database.Persist.Class ( Database/Persist/Class.hs, /tmp/ghc2913937_0/ghc_20.o, /tmp/ghc2913937_0/ghc_20.dyn_o ) [29 of 52] Compiling Database.Persist.Sql.Types.Internal ( Database/Persist/Sql/Types/Internal.hs, /tmp/ghc2913937_0/ghc_84.o, /tmp/ghc2913937_0/ghc_84.dyn_o ) [30 of 52] Compiling Database.Persist.Sql.Types ( Database/Persist/Sql/Types.hs, /tmp/ghc2913937_0/ghc_82.o, /tmp/ghc2913937_0/ghc_82.dyn_o ) [31 of 52] Compiling Database.Persist.Sql.Internal ( Database/Persist/Sql/Internal.hs, /tmp/ghc2913937_0/ghc_68.o, /tmp/ghc2913937_0/ghc_68.dyn_o ) [32 of 52] Compiling Database.Persist ( Database/Persist.hs, /tmp/ghc2913937_0/ghc_18.o, /tmp/ghc2913937_0/ghc_18.dyn_o ) [33 of 52] Compiling Database.Persist.Sql.Util ( Database/Persist/Sql/Util.hs, /tmp/ghc2913937_0/ghc_86.o, /tmp/ghc2913937_0/ghc_86.dyn_o ) [34 of 52] Compiling Database.Persist.Sql.Class ( Database/Persist/Sql/Class.hs, /tmp/ghc2913937_0/ghc_66.o, /tmp/ghc2913937_0/ghc_66.dyn_o ) [35 of 52] Compiling Database.Persist.Sql.Raw ( Database/Persist/Sql/Raw.hs, /tmp/ghc2913937_0/ghc_78.o, /tmp/ghc2913937_0/ghc_78.dyn_o ) [36 of 52] Compiling Database.Persist.SqlBackend.SqlPoolHooks ( Database/Persist/SqlBackend/SqlPoolHooks.hs, nothing ) Database/Persist/SqlBackend/SqlPoolHooks.hs:121:1: warning: [GHC-40910] [-Wunused-top-binds] Defined but not used: modifyRunOnException | 121 | modifyRunOnException hooks f = hooks{runOnException = f $ runOnException hooks} | ^^^^^^^^^^^^^^^^^^^^ Database/Persist/SqlBackend/SqlPoolHooks.hs:127:1: warning: [GHC-40910] [-Wunused-top-binds] Defined but not used: setRunOnException | 127 | setRunOnException hooks f = hooks{runOnException = f} | ^^^^^^^^^^^^^^^^^ [37 of 52] Compiling Database.Persist.Sql.Run ( Database/Persist/Sql/Run.hs, /tmp/ghc2913937_0/ghc_80.o, /tmp/ghc2913937_0/ghc_80.dyn_o ) Database/Persist/Sql/Run.hs:164:13: warning: [GHC-68441] [-Wdeprecations] In the use of data constructor ReleaseException (imported from Data.Acquire, but defined in Data.Acquire.Internal): Deprecated: "Use `ReleaseExceptionWith`, which has the exception in the constructor. This pattern synonym hides the exception and can obscure problems." | 164 | ReleaseException -> do | ^^^^^^^^^^^^^^^^ Database/Persist/Sql/Run.hs:294:9: warning: [GHC-68441] [-Wdeprecations] In the use of createPool (imported from Data.Pool): Deprecated: "Use newPool instead" | 294 | createPool | ^^^^^^^^^^ [38 of 52] Compiling Database.Persist.Sql.Orphan.PersistStore ( Database/Persist/Sql/Orphan/PersistStore.hs, /tmp/ghc2913937_0/ghc_74.o, /tmp/ghc2913937_0/ghc_74.dyn_o ) [39 of 52] Compiling Database.Persist.Sql.Orphan.PersistUnique ( Database/Persist/Sql/Orphan/PersistUnique.hs, /tmp/ghc2913937_0/ghc_76.o, /tmp/ghc2913937_0/ghc_76.dyn_o ) Database/Persist/Sql/Orphan/PersistUnique.hs:54:30: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 54 | return $ head x | ^^^^ Database/Persist/Sql/Orphan/PersistUnique.hs:81:41: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 81 | uKeys = persistUniqueKeys . head $ rsD | ^^^^ [40 of 52] Compiling Database.Persist.Sql.Orphan.PersistQuery ( Database/Persist/Sql/Orphan/PersistQuery.hs, /tmp/ghc2913937_0/ghc_72.o, /tmp/ghc2913937_0/ghc_72.dyn_o ) Database/Persist/Sql/Orphan/PersistQuery.hs:414:46: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 414 | zs = tail (inits (toList $ compositeFields pdef)) | ^^^^ Database/Persist/Sql/Orphan/PersistQuery.hs:428:65: warning: [GHC-63394] [-Wx-partial] In the use of tail (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Replace it with drop 1, or use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 428 | (wrapSql sqlcl, concat (tail (inits xs))) | ^^^^ [41 of 52] Compiling Database.Persist.Sql.Migration ( Database/Persist/Sql/Migration.hs, /tmp/ghc2913937_0/ghc_70.o, /tmp/ghc2913937_0/ghc_70.dyn_o ) [42 of 52] Compiling Database.Persist.ImplicitIdDef.Internal ( Database/Persist/ImplicitIdDef/Internal.hs, /tmp/ghc2913937_0/ghc_46.o, /tmp/ghc2913937_0/ghc_46.dyn_o ) [43 of 52] Compiling Database.Persist.ImplicitIdDef ( Database/Persist/ImplicitIdDef.hs, /tmp/ghc2913937_0/ghc_44.o, /tmp/ghc2913937_0/ghc_44.dyn_o ) [44 of 52] Compiling Database.Persist.Compatible.Types ( Database/Persist/Compatible/Types.hs, /tmp/ghc2913937_0/ghc_34.o, /tmp/ghc2913937_0/ghc_34.dyn_o ) [45 of 52] Compiling Database.Persist.Compatible.TH ( Database/Persist/Compatible/TH.hs, nothing ) [46 of 52] Compiling Database.Persist.Compatible ( Database/Persist/Compatible.hs, nothing ) [47 of 52] Compiling Database.Persist.Sql ( Database/Persist/Sql.hs, /tmp/ghc2913937_0/ghc_64.o, /tmp/ghc2913937_0/ghc_64.dyn_o ) [48 of 52] Compiling Database.Persist.Quasi.Internal.ModelParser ( Database/Persist/Quasi/Internal/ModelParser.hs, /tmp/ghc2913937_0/ghc_56.o, /tmp/ghc2913937_0/ghc_56.dyn_o ) Database/Persist/Quasi/Internal/ModelParser.hs:44:1: warning: [GHC-66111] [-Wunused-imports] The import of Data.Functor.Identity is redundant except perhaps to import instances from Data.Functor.Identity To import instances alone, use: import Data.Functor.Identity() | 44 | import Data.Functor.Identity | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:146:12: warning: [GHC-63397] [-Wname-shadowing] This binding for either shadows the existing binding imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50 (and originally defined in Data.Either) | 146 | ((_is, either), warnings) = runWriter wm | ^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:235:22: warning: [GHC-40910] [-Wunused-local-binds] Defined but not used: pairs | 235 | (pairs, _) = attachSourcePos errorOffset [err] posState | ^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:772:37: warning: [GHC-63397] [-Wname-shadowing] This binding for extraBlockLines shadows the existing binding defined at Database/Persist/Quasi/Internal/ModelParser.hs:656:7 | 772 | mkExtraBlockMember dcb (header, extraBlockLines) = | ^^^^^^^^^^^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:779:20: warning: [GHC-63397] [-Wname-shadowing] This binding for lines shadows the existing binding imported from Prelude at Database/Persist/Quasi/Internal/ModelParser.hs:10:8-50 (and originally defined in base-4.19.2.0:Data.OldList) | 779 | ensureNonEmpty lines = case NEL.nonEmpty lines of | ^^^^^ Database/Persist/Quasi/Internal/ModelParser.hs:808:5: warning: [GHC-63397] [-Wname-shadowing] This binding for tokens shadows the existing binding imported from Text.Megaparsec at Database/Persist/Quasi/Internal/ModelParser.hs:60:1-22 (and originally defined in megaparsec-9.7.0:Text.Megaparsec.Class) | 808 | tokens <- some $ L.lexeme spaceConsumer (some contentChar) | ^^^^^^ [49 of 52] Compiling Database.Persist.Quasi.Internal ( Database/Persist/Quasi/Internal.hs, /tmp/ghc2913937_0/ghc_54.o, /tmp/ghc2913937_0/ghc_54.dyn_o ) Database/Persist/Quasi/Internal.hs:54:55: warning: [GHC-38856] [-Wunused-imports] The import of toLower from module Data.Char is redundant | 54 | import Data.Char (isDigit, isLower, isSpace, isUpper, toLower) | ^^^^^^^ [50 of 52] Compiling Database.Persist.Quasi ( Database/Persist/Quasi.hs, /tmp/ghc2913937_0/ghc_52.o, /tmp/ghc2913937_0/ghc_52.dyn_o ) [51 of 52] Compiling Database.Persist.TH.Internal ( Database/Persist/TH/Internal.hs, nothing ) Database/Persist/TH/Internal.hs:152:1: warning: [GHC-66111] [-Wunused-imports] The import of Database.Persist.Quasi.PersistSettings is redundant except perhaps to import instances from Database.Persist.Quasi.PersistSettings To import instances alone, use: import Database.Persist.Quasi.PersistSettings() | 152 | import Database.Persist.Quasi.PersistSettings | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Database/Persist/TH/Internal.hs:2758:20: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 2758 | expr <- [e|head . persistUniqueKeys|] | ^^^^ [52 of 52] Compiling Database.Persist.TH ( Database/Persist/TH.hs, nothing ) Haddock coverage: 50% ( 1 / 2) in 'Database.Persist.Class.PersistConfig' Missing documentation for: Module header Warning: 'ConstraintNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:72:28 * at Database/Persist/Names.hs:72:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:72:1 Warning: 'ConstraintNameDB' is ambiguous. It is defined * at Database/Persist/Names.hs:61:28 * at Database/Persist/Names.hs:61:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:61:1 Warning: 'EntityNameDB' is ambiguous. It is defined * at Database/Persist/Names.hs:51:24 * at Database/Persist/Names.hs:51:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:51:1 Warning: 'EntityNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:44:24 * at Database/Persist/Names.hs:44:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:44:1 Warning: 'FieldNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:37:23 * at Database/Persist/Names.hs:37:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:37:1 Warning: 'FieldNameDB' is ambiguous. It is defined * at Database/Persist/Names.hs:26:23 * at Database/Persist/Names.hs:26:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:26:1 100% ( 8 / 8) in 'Database.Persist.Names' Warning: 'PersistField' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 75% ( 3 / 4) in 'Database.Persist.PersistValue' Missing documentation for: fromPersistValueText (Database/Persist/PersistValue.hs:198) 83% ( 5 / 6) in 'Database.Persist.Quasi.Internal.TypeParser' Missing documentation for: Module header 33% ( 1 / 3) in 'Database.Persist.SqlBackend.Internal.IsolationLevel' Missing documentation for: Module header makeIsolationLevelStatement (Database/Persist/SqlBackend/Internal/IsolationLevel.hs:15) 50% ( 1 / 2) in 'Database.Persist.SqlBackend.Internal.SqlPoolHooks' Missing documentation for: Module header 50% ( 1 / 2) in 'Database.Persist.Types.SourceSpan' Missing documentation for: Module header Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:707:17 * at Database/Persist/Types/Base.hs:707:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1 Warning: 'Field' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FieldNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:37:23 * at Database/Persist/Names.hs:37:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:37:1 Warning: 'PersistField' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Key' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mkPersist' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'PersistFieldSql' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:135:18 * at Database/Persist/Types/Base.hs:135:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1 Warning: 'nullable' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'MigrationOnly' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SafeToRemove' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FieldCascade' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:596:21 * at Database/Persist/Types/Base.hs:596:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:596:1 Warning: Database.Persist.Types.Base: Could not find documentation for exported module: Database.Persist.Types.Base Warning: 'Statement' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal/Statement.hs:12:18 * at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 50% ( 1 / 2) in 'Database.Persist.SqlBackend.Internal.Statement' Missing documentation for: Module header Warning: 'StatementCacheKey' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal/StatementCache.hs:17:29 * at Database/Persist/SqlBackend/Internal/StatementCache.hs:17:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal/StatementCache.hs:17:1 50% ( 2 / 4) in 'Database.Persist.SqlBackend.Internal.StatementCache' Missing documentation for: Module header StatementCacheKey (Database/Persist/SqlBackend/Internal/StatementCache.hs:17) 71% ( 5 / 7) in 'Database.Persist.SqlBackend.StatementCache' Missing documentation for: Module header StatementCacheKey (Database/Persist/SqlBackend/Internal/StatementCache.hs:17) 0% ( 0 / 2) in 'Database.Persist.SqlBackend.Internal.InsertSqlResult' Missing documentation for: Module header InsertSqlResult (Database/Persist/SqlBackend/Internal/InsertSqlResult.hs:6) Warning: 'SqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mkSqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:135:18 * at Database/Persist/Types/Base.hs:135:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1 Warning: 'Statement' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal/Statement.hs:12:18 * at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 33% ( 1 / 3) in 'Database.Persist.SqlBackend.Internal.MkSqlBackend' Missing documentation for: Module header LogFunc (Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:79) 87% ( 7 / 8) in 'Database.Persist.FieldDef.Internal' Missing documentation for: isFieldNotGenerated (Database/Persist/Types/Base.hs:460) Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:707:17 * at Database/Persist/Types/Base.hs:707:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1 Warning: 'FieldCascade' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:596:21 * at Database/Persist/Types/Base.hs:596:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:596:1 94% ( 17 / 18) in 'Database.Persist.FieldDef' Missing documentation for: isFieldNotGenerated (Database/Persist/Types/Base.hs:460) Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:135:18 * at Database/Persist/Types/Base.hs:135:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1 75% ( 6 / 8) in 'Database.Persist.EntityDef.Internal' Missing documentation for: entityPrimary (Database/Persist/Types/Base.hs:203) toEmbedEntityDef (Database/Persist/Types/Base.hs:507) Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:135:18 * at Database/Persist/Types/Base.hs:135:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1 Warning: 'UniqueDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:550:18 * at Database/Persist/Types/Base.hs:550:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:550:1 Warning: 'Unique' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Entity' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SafeToRemove' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'MigrationOnly' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Source' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 90% ( 27 / 30) in 'Database.Persist.EntityDef' Missing documentation for: getEntityComments (Database/Persist/EntityDef.hs:110) getEntityExtra (Database/Persist/EntityDef.hs:101) entityPrimary (Database/Persist/Types/Base.hs:203) Warning: 'Text' is ambiguous. It is defined * in GHC.TypeError * in Data.Text.Internal You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Data.Text.Internal 75% ( 3 / 4) in 'Database.Persist.Class.PersistField' Missing documentation for: Module header Warning: 'mkPersist' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insertKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Entity' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:371:7 * at Database/Persist/Class/PersistEntity.hs:370:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:370:1 Warning: 'select' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'updateWhere' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'deleteWhere' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:135:18 * at Database/Persist/Types/Base.hs:135:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1 Warning: 'derivePersistField' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 85% ( 23 / 27) in 'Database.Persist.Class.PersistEntity' Missing documentation for: Module header BackendSpecificUpdate (Database/Persist/Class/PersistEntity.hs:274) BackendSpecificFilter (Database/Persist/Class/PersistEntity.hs:306) SafeToInsertErrorMessage (Database/Persist/Class/PersistEntity.hs:633) Warning: 'Text' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:707:17 * at Database/Persist/Types/Base.hs:707:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1 77% ( 42 / 54) in 'Database.Persist.Types' Missing documentation for: BackendSpecificUpdate (Database/Persist/Class/PersistEntity.hs:274) BackendSpecificFilter (Database/Persist/Class/PersistEntity.hs:306) PersistFilter (Database/Persist/Types/Base.hs:669) PersistUpdate (Database/Persist/Types/Base.hs:695) ForeignDef (Database/Persist/Types/Base.hs:568) IsNullable (Database/Persist/Types/Base.hs:111) fieldAttrsContainsNullable (Database/Persist/Types/Base.hs:117) CompositeDef (Database/Persist/Types/Base.hs:558) Attr (Database/Persist/Types/Base.hs:256) ExtraLine (Database/Persist/Types/Base.hs:254) PersistException (Database/Persist/Types/Base.hs:638) UpdateException (Database/Persist/Types/Base.hs:681) Warning: 'PersistSettings' is ambiguous. It is defined * at Database/Persist/Quasi/PersistSettings/Internal.hs:19:24 * at Database/Persist/Quasi/PersistSettings/Internal.hs:19:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/PersistSettings/Internal.hs:19:1 69% ( 16 / 23) in 'Database.Persist.Quasi.PersistSettings.Internal' Missing documentation for: Module header PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19) defaultPersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:49) upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58) lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59) warningPos (Database/Persist/Quasi/PersistSettings/Internal.hs:86) toFKNameInfixed (Database/Persist/Quasi/PersistSettings/Internal.hs:108) 73% ( 17 / 23) in 'Database.Persist.Quasi.PersistSettings' Missing documentation for: Module header PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19) defaultPersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:49) upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58) lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59) warningPos (Database/Persist/Quasi/PersistSettings/Internal.hs:86) Warning: 'John' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Entity' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:371:7 * at Database/Persist/Class/PersistEntity.hs:370:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:370:1 Warning: 'upsertBy' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'toSqlKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'fromSqlKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'IsSqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SqlReadBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 73% ( 14 / 19) in 'Database.Persist.Class.PersistStore' Missing documentation for: Module header liftPersist (Database/Persist/Class/PersistStore.hs:136) PersistCore (Database/Persist/Class/PersistStore.hs:159) PersistStoreRead (Database/Persist/Class/PersistStore.hs:162) PersistStoreWrite (Database/Persist/Class/PersistStore.hs:232) Warning: 'SqlBackend' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal.hs:36:19 * at Database/Persist/SqlBackend/Internal.hs:36:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal.hs:36:1 Warning: 'Pool' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ConnectionPool' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'runSqlConn' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'runSqlPool' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'defaultRepsertMany' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:135:18 * at Database/Persist/Types/Base.hs:135:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1 Warning: 'Statement' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal/Statement.hs:12:18 * at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal/Statement.hs:12:1 Warning: 'defaultPutMany' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'connInsertSql' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal.hs:40:7 * at Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:28:7 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:28:7 40% ( 2 / 5) in 'Database.Persist.SqlBackend.Internal' Missing documentation for: Module header SqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:145) emptySqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:150) Warning: 'SqlBackend' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal.hs:36:19 * at Database/Persist/SqlBackend/Internal.hs:36:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal.hs:36:1 Warning: 'FieldNameDB' is ambiguous. It is defined * at Database/Persist/Names.hs:26:23 * at Database/Persist/Names.hs:26:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:26:1 Warning: 'ReaderT' is ambiguous. It is defined * in Control.Monad.Trans.Reader * in Control.Monad.Trans.Reader You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Reader Warning: 'SqlPersistT' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 92% ( 26 / 28) in 'Database.Persist.SqlBackend' Missing documentation for: SqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:145) emptySqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:150) Warning: 'TypeError' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'UniqueDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:550:18 * at Database/Persist/Types/Base.hs:550:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:550:1 95% ( 19 / 20) in 'Database.Persist.Class.PersistUnique' Missing documentation for: Module header Warning: 'Entity' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:371:7 * at Database/Persist/Class/PersistEntity.hs:370:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:370:1 Warning: 'SqlPersistT' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 85% ( 6 / 7) in 'Database.Persist.Class.PersistQuery' Missing documentation for: Module header 94% ( 64 / 68) in 'Database.Persist.Class' Missing documentation for: PersistStoreRead (Database/Persist/Class/PersistStore.hs:162) PersistStoreWrite (Database/Persist/Class/PersistStore.hs:232) liftPersist (Database/Persist/Class/PersistStore.hs:136) PersistCore (Database/Persist/Class/PersistStore.hs:159) 80% ( 16 / 20) in 'Database.Persist.Sql.Types.Internal' Missing documentation for: LogFunc (Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:79) InsertSqlResult (Database/Persist/SqlBackend/Internal/InsertSqlResult.hs:6) makeIsolationLevelStatement (Database/Persist/SqlBackend/Internal/IsolationLevel.hs:15) SqlBackendHooks (Database/Persist/SqlBackend/Internal.hs:145) Warning: 'rawSql' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'PersistField' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ConnectionPoolConfig' is ambiguous. It is defined * at Database/Persist/Sql/Types.hs:79:29 * at Database/Persist/Sql/Types.hs:79:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Sql/Types.hs:79:1 Warning: Database.Persist.Sql.Types: Could not find documentation for exported module: Database.Persist.Sql.Types Warning: 'ConstraintNameDB' is ambiguous. It is defined * at Database/Persist/Names.hs:61:28 * at Database/Persist/Names.hs:61:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:61:1 Warning: 'BackendSpecificOverrides' is ambiguous. It is defined * at Database/Persist/Sql/Internal.hs:36:33 * at Database/Persist/Sql/Internal.hs:36:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Sql/Internal.hs:36:1 Warning: 'Filter' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:321:7 * at Database/Persist/Class/PersistEntity.hs:320:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:320:1 Warning: 'Update' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:288:7 * at Database/Persist/Class/PersistEntity.hs:287:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:287:1 Warning: 'share' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mkPersist' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'sqlSettings' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mkMigrate' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'persistLowerCase' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 38 / 38) in 'Database.Persist' Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:707:17 * at Database/Persist/Types/Base.hs:707:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1 Warning: 'Update' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:288:7 * at Database/Persist/Class/PersistEntity.hs:287:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:287:1 Warning: 'escape' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 26% ( 5 / 19) in 'Database.Persist.Sql.Util' Missing documentation for: Module header parseEntityValues (Database/Persist/Sql/Util.hs:170) keyAndEntityColumnNames (Database/Persist/Sql/Util.hs:58) entityColumnCount (Database/Persist/Sql/Util.hs:62) isIdField (Database/Persist/Sql/Util.hs:207) dbIdColumns (Database/Persist/Sql/Util.hs:156) dbIdColumnsEsc (Database/Persist/Sql/Util.hs:159) dbColumns (Database/Persist/Sql/Util.hs:162) updatePersistValue (Database/Persist/Sql/Util.hs:215) mkUpdateText (Database/Persist/Sql/Util.hs:223) mkUpdateText' (Database/Persist/Sql/Util.hs:229) commaSeparated (Database/Persist/Sql/Util.hs:220) parenWrapped (Database/Persist/Sql/Util.hs:243) parseExistsResult (Database/Persist/Sql/Util.hs:287) Warning: 'PersistLiteralEncoded' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'PersistFieldSQL' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityWithPrefix' is ambiguous. It is defined * at Database/Persist/Sql/Class.hs:147:7 * at Database/Persist/Sql/Class.hs:146:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Sql/Class.hs:146:1 Warning: 'Entity' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:371:7 * at Database/Persist/Class/PersistEntity.hs:370:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:370:1 Warning: 'rawSql' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Entity' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:371:7 * at Database/Persist/Class/PersistEntity.hs:370:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:370:1 Warning: 'Single' is ambiguous. It is defined * at Database/Persist/Sql/Types.hs:152:20 * at Database/Persist/Sql/Types.hs:152:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Sql/Types.hs:152:1 15% ( 2 / 13) in 'Database.Persist.SqlBackend.SqlPoolHooks' Missing documentation for: Module header getAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:62) modifyAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:68) setAlterBackend (Database/Persist/SqlBackend/SqlPoolHooks.hs:72) getRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:76) modifyRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:84) setRunBefore (Database/Persist/SqlBackend/SqlPoolHooks.hs:90) getRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:94) modifyRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:102) setRunAfter (Database/Persist/SqlBackend/SqlPoolHooks.hs:108) getRunOnException (Database/Persist/SqlBackend/SqlPoolHooks.hs:113) Warning: 'Conduit' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Filter' is ambiguous. It is defined * at Database/Persist/Class/PersistEntity.hs:321:7 * at Database/Persist/Class/PersistEntity.hs:320:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Class/PersistEntity.hs:320:1 Warning: 'WriterT' is ambiguous. It is defined * in Control.Monad.Trans.Writer.Lazy * in Control.Monad.Trans.Writer.Lazy You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Writer.Lazy Warning: 'ReaderT' is ambiguous. It is defined * in Control.Monad.Trans.Reader * in Control.Monad.Trans.Reader You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Control.Monad.Trans.Reader Warning: 'SqlBackend' is ambiguous. It is defined * at Database/Persist/SqlBackend/Internal.hs:36:19 * at Database/Persist/SqlBackend/Internal.hs:36:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/SqlBackend/Internal.hs:36:1 Warning: 'PersistUnsafeMigrationException' is ambiguous. It is defined * at Database/Persist/Sql/Migration.hs:307:7 * at Database/Persist/Sql/Migration.hs:306:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Sql/Migration.hs:306:1 Warning: 'rawExecute_' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 96% ( 25 / 26) in 'Database.Persist.Sql.Migration' Missing documentation for: Sql (Database/Persist/Sql/Migration.hs:79) Warning: 'PersistSettings' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'BackendKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'ImplicitIdDef' is ambiguous. It is defined * at Database/Persist/ImplicitIdDef/Internal.hs:92:22 * at Database/Persist/ImplicitIdDef/Internal.hs:92:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/ImplicitIdDef/Internal.hs:92:1 Warning: 'ByteString' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'toPersistValue' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'fromPersistValue' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'setImplicitIdDef' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'MkPersistSettings' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'MkPersistBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mpsGeneric' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mpsBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:44:24 * at Database/Persist/Names.hs:44:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:44:1 Warning: 'FieldTyp' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insertKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insert' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'series_name' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 100% ( 6 / 6) in 'Database.Persist.ImplicitIdDef.Internal' Warning: 'ImplicitIdDef' is ambiguous. It is defined * at Database/Persist/ImplicitIdDef/Internal.hs:92:22 * at Database/Persist/ImplicitIdDef/Internal.hs:92:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/ImplicitIdDef/Internal.hs:92:1 100% ( 11 / 11) in 'Database.Persist.ImplicitIdDef' Warning: 'SqlBackend' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Compatible' is ambiguous. It is defined * at Database/Persist/Compatible/Types.hs:55:26 * at Database/Persist/Compatible/Types.hs:55:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Compatible/Types.hs:55:1 75% ( 3 / 4) in 'Database.Persist.Compatible' Missing documentation for: Module header 75% ( 71 / 94) in 'Database.Persist.Sql' Missing documentation for: close' (Database/Persist/Sql/Run.hs:364) runSqlConn (Database/Persist/Sql/Run.hs:199) runSqlPersistM (Database/Persist/Sql/Run.hs:214) runSqlPersistMPool (Database/Persist/Sql/Run.hs:219) liftSqlPersistMPool (Database/Persist/Sql/Run.hs:225) withSqlPool (Database/Persist/Sql/Run.hs:236) createSqlPool (Database/Persist/Sql/Run.hs:266) BackendKey BackendKey (Database/Persist/Class/PersistStore.hs:160) withRawQuery (Database/Persist/Sql/Orphan/PersistStore.hs:62) toSqlKey (Database/Persist/Sql/Orphan/PersistStore.hs:67) fromSqlKey (Database/Persist/Sql/Orphan/PersistStore.hs:70) rawQuery (Database/Persist/Sql/Raw.hs:27) rawQueryRes (Database/Persist/Sql/Raw.hs:38) getStmtConn (Database/Persist/Sql/Raw.hs:87) defaultAttribute (Database/Persist/Sql/Internal.hs:74) Column (Database/Persist/Sql/Types.hs:32) LogFunc (Database/Persist/SqlBackend/Internal/MkSqlBackend.hs:79) InsertSqlResult (Database/Persist/SqlBackend/Internal/InsertSqlResult.hs:6) ConnectionPool (Database/Persist/Sql/Types.hs:74) SqlPersistT (Database/Persist/Sql/Types.hs:70) PersistentSqlException (Database/Persist/Sql/Types.hs:64) SqlPersistM (Database/Persist/Sql/Types.hs:72) Warning: 'SourceSpan' is ambiguous. It is defined * at Database/Persist/Types/SourceSpan.hs:17:19 * at Database/Persist/Types/SourceSpan.hs:17:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/SourceSpan.hs:17:1 50% ( 12 / 24) in 'Database.Persist.Quasi.Internal.ModelParser' Missing documentation for: Module header attribute (Database/Persist/Quasi/Internal/ModelParser.hs:345) Directive (Database/Persist/Quasi/Internal/ModelParser.hs:679) EntityField (Database/Persist/Quasi/Internal/ModelParser.hs:669) entityField (Database/Persist/Quasi/Internal/ModelParser.hs:818) entityFieldContent (Database/Persist/Quasi/Internal/ModelParser.hs:308) FieldName (Database/Persist/Quasi/Internal/ModelParser.hs:663) fieldName (Database/Persist/Quasi/Internal/ModelParser.hs:565) ParsedEntityDef (Database/Persist/Quasi/Internal/ModelParser.hs:581) parseSource (Database/Persist/Quasi/Internal/ModelParser.hs:979) toCumulativeParseResult (Database/Persist/Quasi/Internal/ModelParser.hs:125) initialExtraState (Database/Persist/Quasi/Internal/ModelParser.hs:74) Warning: 'FieldNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:37:23 * at Database/Persist/Names.hs:37:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:37:1 Warning: 'ForeignDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:568:19 * at Database/Persist/Types/Base.hs:568:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:568:1 Warning: 'mpsImplicitIdDef' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'MkPersistSettings' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insert' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insertKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FieldCascade' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:596:21 * at Database/Persist/Types/Base.hs:596:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:596:1 Warning: 'Type' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'EntityField' is ambiguous. It is defined * at Database/Persist/Quasi/Internal/ModelParser.hs:669:20 * at Database/Persist/Quasi/Internal/ModelParser.hs:669:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal/ModelParser.hs:669:1 Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:135:18 * at Database/Persist/Types/Base.hs:135:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1 Warning: 'UnboundEntityDef' is ambiguous. It is defined * at Database/Persist/Quasi/Internal.hs:260:7 * at Database/Persist/Quasi/Internal.hs:259:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:259:1 Warning: 'UnboundFieldDef' is ambiguous. It is defined * at Database/Persist/Quasi/Internal.hs:336:7 * at Database/Persist/Quasi/Internal.hs:335:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:335:1 Warning: 'CompositeDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:558:21 * at Database/Persist/Types/Base.hs:558:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:558:1 Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:707:17 * at Database/Persist/Types/Base.hs:707:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1 Warning: 'UnboundIdDef' is ambiguous. It is defined * at Database/Persist/Quasi/Internal.hs:236:21 * at Database/Persist/Quasi/Internal.hs:236:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:236:1 Warning: 'EntityNameHS' is ambiguous. It is defined * at Database/Persist/Names.hs:44:24 * at Database/Persist/Names.hs:44:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Names.hs:44:1 Warning: 'MigrationOnly' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SafeToRemove' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 69% ( 23 / 33) in 'Database.Persist.Quasi.Internal' Missing documentation for: PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19) upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58) lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59) sourceLocFromTHLoc (Database/Persist/Quasi/Internal.hs:180) parseFieldType (Database/Persist/Quasi/Internal.hs:80) takeColsEx (Database/Persist/Quasi/Internal.hs:689) getSqlNameOr (Database/Persist/Quasi/Internal.hs:748) isUnboundFieldNullable (Database/Persist/Quasi/Internal.hs:436) mkAutoIdField' (Database/Persist/Quasi/Internal.hs:666) FieldTypeLit (Database/Persist/Types/Base.hs:454) Warning: 'Int64' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insertKey' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'insert' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'entityAttrs' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'fieldAttrs' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'entityDef' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Proxy' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'entityFields' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Restrict' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'Cascade' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SetNull' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'SetDefault' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'mpsEntityHaddocks' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 85% ( 17 / 20) in 'Database.Persist.Quasi' Missing documentation for: PersistSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:19) upperCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:58) lowerCaseSettings (Database/Persist/Quasi/PersistSettings/Internal.hs:59) Warning: 'EntityJSON' is ambiguous. It is defined * at Database/Persist/TH/Internal.hs:1292:19 * at Database/Persist/TH/Internal.hs:1292:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/TH/Internal.hs:1292:1 Warning: 'EntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:135:18 * at Database/Persist/Types/Base.hs:135:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:135:1 Warning: 'UnboundEntityDef' is ambiguous. It is defined * at Database/Persist/Quasi/Internal.hs:260:7 * at Database/Persist/Quasi/Internal.hs:259:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:259:1 Warning: 'EmbedEntityDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:479:23 * at Database/Persist/Types/Base.hs:479:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:479:1 Warning: 'QuasiQuoter' is ambiguous. It is defined * in Language.Haskell.TH.Quote * in Language.Haskell.TH.Quote You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Quote Warning: 'ImplicitIdDef' is ambiguous. It is defined * at Database/Persist/ImplicitIdDef/Internal.hs:92:22 * at Database/Persist/ImplicitIdDef/Internal.hs:92:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/ImplicitIdDef/Internal.hs:92:1 Warning: 'MkPersistSettings' is ambiguous. It is defined * at Database/Persist/TH/Internal.hs:1113:26 * at Database/Persist/TH/Internal.hs:1113:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/TH/Internal.hs:1113:1 Warning: 'SqlPersist' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'UnboundFieldDef' is ambiguous. It is defined * at Database/Persist/Quasi/Internal.hs:336:7 * at Database/Persist/Quasi/Internal.hs:335:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Quasi/Internal.hs:335:1 Warning: 'Name' is ambiguous. It is defined * in Language.Haskell.TH.Syntax * in Language.Haskell.TH.Syntax You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined in Language.Haskell.TH.Syntax Warning: 'customerName' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'FieldDef' is ambiguous. It is defined * at Database/Persist/Types/Base.hs:707:17 * at Database/Persist/Types/Base.hs:707:1 You may be able to disambiguate the identifier by qualifying it or by specifying the type/value namespace explicitly. Defaulting to the one defined at Database/Persist/Types/Base.hs:707:1 Warning: '_customerName' is out of scope. If you qualify the identifier, haddock can try to link it anyway. Warning: 'User' is out of scope. If you qualify the identifier, haddock can try to link it anyway. 95% ( 45 / 47) in 'Database.Persist.TH.Internal' Missing documentation for: EntityJSON (Database/Persist/TH/Internal.hs:1292) lensPTH (Database/Persist/TH/Internal.hs:1852) 97% ( 38 / 39) in 'Database.Persist.TH' Missing documentation for: EntityJSON (Database/Persist/TH/Internal.hs:1292) Warning: Database.Persist.Class.PersistConfig: could not find link destinations for: - Database.Persist.Class.PersistConfig.D:R:PersistConfigBackendEither - Database.Persist.Class.PersistConfig.D:R:PersistConfigPoolEither Warning: Database.Persist.Class.PersistField: could not find link destinations for: - Data.Vector.Vector Warning: Database.Persist.Class.PersistEntity: could not find link destinations for: - Database.Persist.Class.PersistEntity.EntityErrorMessage - Database.Persist.Class.PersistEntity.FunctionErrorMessage - Database.Persist.Class.PersistEntity.Rep_Entity Warning: Database.Persist.Types: could not find link destinations for: - Database.Persist.Types.Base.SelfEmbed - Database.Persist.Class.PersistEntity.EntityErrorMessage - Database.Persist.Class.PersistEntity.Rep_Entity Warning: Database.Persist.Class.PersistStore: could not find link destinations for: - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Compatible.Types.CompatibleKey - Database.Persist.Compatible.Types.unCompatibleKey - Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0 - Database.Persist.Compatible.Types.D:R:BaseBackendCompatible Warning: Database.Persist.SqlBackend.Internal: could not find link destinations for: - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend Warning: Database.Persist.SqlBackend: could not find link destinations for: - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend Warning: Database.Persist.Class: could not find link destinations for: - Data.Vector.Vector - Database.Persist.Class.PersistConfig.D:R:PersistConfigBackendEither - Database.Persist.Class.PersistConfig.D:R:PersistConfigPoolEither - Database.Persist.Class.PersistEntity.EntityErrorMessage - Database.Persist.Class.PersistEntity.FunctionErrorMessage - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Compatible.Types.CompatibleKey - Database.Persist.Compatible.Types.unCompatibleKey - Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0 - Database.Persist.Compatible.Types.D:R:BaseBackendCompatible Warning: Database.Persist.Sql.Types.Internal: could not find link destinations for: - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlReadBackend - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend - Database.Persist.Compatible.Types.D:R:BaseBackendCompatible Warning: Database.Persist.Compatible: could not find link destinations for: - Database.Persist.Compatible.Types.CompatibleKey - Database.Persist.Compatible.Types.unCompatibleKey - Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0 - Database.Persist.Compatible.Types.D:R:BaseBackendCompatible Warning: Database.Persist.Sql: could not find link destinations for: - Data.Vector.Vector - Database.Persist.SqlBackend.Internal.D:R:BaseBackendSqlBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlReadBackend - Database.Persist.Sql.Types.Internal.D:R:BaseBackendSqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlWriteBackend - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlReadBackend - Database.Persist.Sql.Orphan.PersistStore.Rep_R:BackendKeySqlBackend - Database.Persist.Compatible.Types.CompatibleKey - Database.Persist.Compatible.Types.unCompatibleKey - Database.Persist.Compatible.Types.D:R:BackendKeyCompatible0 Warning: Database.Persist.Quasi.Internal.ModelParser: could not find link destinations for: - Database.Persist.Quasi.Internal.ModelParser.Member - Database.Persist.Quasi.Internal.ModelParser.DirectiveName - Database.Persist.Quasi.Internal.ModelParser.FieldStrictness - Database.Persist.Quasi.Internal.ModelParser.DocCommentBlock - Database.Persist.Quasi.Internal.ModelParser.InternalParseResult - Database.Persist.Quasi.Internal.ModelParser.EntityParseError - Database.Persist.Quasi.Internal.ModelParser.Parser - Database.Persist.Quasi.Internal.ModelParser.ExtraState Warning: Database.Persist.Quasi.Internal: could not find link destinations for: - Database.Persist.Quasi.Internal.ModelParser.EntityParseError Warning: Database.Persist.TH.Internal: could not find link destinations for: - Database.Persist.TH.Internal.Lens Documentation created: dist/doc/html/persistent/, dist/doc/html/persistent/persistent.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO Completed persistent-2.18.0.0 Downloading persistent-test-2.13.2.1 Downloaded persistent-test-2.13.2.1 Configuring persistent-test-2.13.2.1... Preprocessing library for persistent-test-2.13.2.1.. Building library for persistent-test-2.13.2.1.. [ 1 of 41] Compiling Init ( src/Init.hs, dist/build/Init.o, dist/build/Init.dyn_o ) src/Init.hs:168:31: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Database.Persist.TH, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 168 | persistSettings = sqlSettings{mpsGeneric = True} | ^^^^^^^^^^ [ 2 of 41] Compiling HtmlTest ( src/HtmlTest.hs, dist/build/HtmlTest.o, dist/build/HtmlTest.dyn_o ) src/HtmlTest.hs:18:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 18 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "htmlMigrate"] | ^^^^^^^^^^ [ 3 of 41] Compiling GeneratedColumnTestSQL ( src/GeneratedColumnTestSQL.hs, dist/build/GeneratedColumnTestSQL.o, dist/build/GeneratedColumnTestSQL.dyn_o ) [ 4 of 41] Compiling ForeignKey ( src/ForeignKey.hs, dist/build/ForeignKey.o, dist/build/ForeignKey.dyn_o ) src/ForeignKey.hs:19:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 19 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"] | ^^^^^^^^^^ [ 5 of 41] Compiling EquivalentTypeTest ( src/EquivalentTypeTest.hs, dist/build/EquivalentTypeTest.o, dist/build/EquivalentTypeTest.dyn_o ) [ 6 of 41] Compiling EntityEmbedTest ( src/EntityEmbedTest.hs, dist/build/EntityEmbedTest.o, dist/build/EntityEmbedTest.dyn_o ) src/EntityEmbedTest.hs:11:21: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | persistSettings{mpsGeneric = True} | ^^^^^^^^^^ [ 7 of 41] Compiling EmptyEntityTest ( src/EmptyEntityTest.hs, dist/build/EmptyEntityTest.o, dist/build/EmptyEntityTest.dyn_o ) src/EmptyEntityTest.hs:14:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 14 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"] | ^^^^^^^^^^ [ 8 of 41] Compiling EmbedTest ( src/EmbedTest.hs, dist/build/EmbedTest.o, dist/build/EmbedTest.dyn_o ) src/EmbedTest.hs:33:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 33 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedMigrate"] | ^^^^^^^^^^ [ 9 of 41] Compiling EmbedOrderTest ( src/EmbedOrderTest.hs, dist/build/EmbedOrderTest.o, dist/build/EmbedOrderTest.dyn_o ) src/EmbedOrderTest.hs:16:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 16 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedOrderMigrate"] | ^^^^^^^^^^ [10 of 41] Compiling DataTypeTest ( src/DataTypeTest.hs, dist/build/DataTypeTest.o, dist/build/DataTypeTest.dyn_o ) [11 of 41] Compiling CustomPrimaryKeyReferenceTest ( src/CustomPrimaryKeyReferenceTest.hs, dist/build/CustomPrimaryKeyReferenceTest.o, dist/build/CustomPrimaryKeyReferenceTest.dyn_o ) src/CustomPrimaryKeyReferenceTest.hs:13:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [12 of 41] Compiling CustomPersistField ( src/CustomPersistField.hs, dist/build/CustomPersistField.o, dist/build/CustomPersistField.dyn_o ) [13 of 41] Compiling CustomPersistFieldTest ( src/CustomPersistFieldTest.hs, dist/build/CustomPersistFieldTest.o, dist/build/CustomPersistFieldTest.dyn_o ) src/CustomPersistFieldTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "customFieldMigrate"] | ^^^^^^^^^^ [14 of 41] Compiling CompositeTest ( src/CompositeTest.hs, dist/build/CompositeTest.o, dist/build/CompositeTest.dyn_o ) src/CompositeTest.hs:17:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 17 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"] | ^^^^^^^^^^ [15 of 41] Compiling LargeNumberTest ( src/LargeNumberTest.hs, dist/build/LargeNumberTest.o, dist/build/LargeNumberTest.dyn_o ) src/LargeNumberTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "numberMigrate"] | ^^^^^^^^^^ [16 of 41] Compiling LongIdentifierTest ( src/LongIdentifierTest.hs, dist/build/LongIdentifierTest.o, dist/build/LongIdentifierTest.dyn_o ) [17 of 41] Compiling MaxLenTest ( src/MaxLenTest.hs, dist/build/MaxLenTest.o, dist/build/MaxLenTest.dyn_o ) src/MaxLenTest.hs:12:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 12 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maxlenMigrate"] | ^^^^^^^^^^ [18 of 41] Compiling MaybeFieldDefsTest ( src/MaybeFieldDefsTest.hs, dist/build/MaybeFieldDefsTest.o, dist/build/MaybeFieldDefsTest.dyn_o ) src/MaybeFieldDefsTest.hs:13:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maybeFieldDefMigrate"] | ^^^^^^^^^^ [19 of 41] Compiling MigrationColumnLengthTest ( src/MigrationColumnLengthTest.hs, dist/build/MigrationColumnLengthTest.o, dist/build/MigrationColumnLengthTest.dyn_o ) [20 of 41] Compiling MigrationIdempotencyTest ( src/MigrationIdempotencyTest.hs, dist/build/MigrationIdempotencyTest.o, dist/build/MigrationIdempotencyTest.dyn_o ) [21 of 41] Compiling MigrationOnlyTest ( src/MigrationOnlyTest.hs, dist/build/MigrationOnlyTest.o, dist/build/MigrationOnlyTest.dyn_o ) src/MigrationOnlyTest.hs:15:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 15 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll1"] | ^^^^^^^^^^ src/MigrationOnlyTest.hs:25:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 25 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll2"] | ^^^^^^^^^^ [22 of 41] Compiling MigrationTest ( src/MigrationTest.hs, dist/build/MigrationTest.o, dist/build/MigrationTest.dyn_o ) [23 of 41] Compiling PersistTestPetCollarType ( src/PersistTestPetCollarType.hs, dist/build/PersistTestPetCollarType.o, dist/build/PersistTestPetCollarType.dyn_o ) [24 of 41] Compiling PersistTestPetType ( src/PersistTestPetType.hs, dist/build/PersistTestPetType.o, dist/build/PersistTestPetType.dyn_o ) [25 of 41] Compiling PersistUniqueTest ( src/PersistUniqueTest.hs, dist/build/PersistUniqueTest.o, dist/build/PersistUniqueTest.dyn_o ) src/PersistUniqueTest.hs:11:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [26 of 41] Compiling PersistentTestModelsImports ( src/PersistentTestModelsImports.hs, dist/build/PersistentTestModelsImports.o, dist/build/PersistentTestModelsImports.dyn_o ) [27 of 41] Compiling PersistentTestModels ( src/PersistentTestModels.hs, dist/build/PersistentTestModels.o, dist/build/PersistentTestModels.dyn_o ) src/PersistentTestModels.hs:(28,23)-(128,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistUpperCase "\n\ \\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ Person json\n\ \ name Text\n\ \ age Int some=\"ignored -- \\\" attribute\"\n\ \ color Text Maybe -- this is a comment sql=foobarbaz\n\ \ PersonNameKey name -- this is a comment sql=foobarbaz\n\ \ deriving Show Eq\n\ \ Person1\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ name Text\n\ \ age Int\n\ \ deriving Show Eq\n\ \ PersonMaybeAge\n\ \ name Text\n\ \ age Int Maybe\n\ \ PersonMay json\n\ \ name Text Maybe\n\ \ color Text Maybe\n\ \ deriving Show Eq\n\ \ Pet\n\ \ ownerId PersonId\n\ \ name Text\n\ \ -- deriving Show Eq\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ type PetType\n\ \ MaybeOwnedPet\n\ \ ownerId PersonId Maybe\n\ \ name Text\n\ \ type PetType\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ NeedsPet\n\ \ petKey PetId\n\ \ OutdoorPet\n\ \ ownerId PersonId\n\ \ collar PetCollar\n\ \ type PetType\n\ \\n\ \ -- From the scaffold\n\ \ UserPT\n\ \ ident Text\n\ \ password Text Maybe\n\ \ UniqueUserPT ident\n\ \ EmailPT\n\ \ email Text\n\ \ user UserPTId Maybe\n\ \ verkey Text Maybe\n\ \ UniqueEmailPT email\n\ \\n\ \ Upsert\n\ \ email Text\n\ \ attr Text\n\ \ extra Text\n\ \ age Int\n\ \ UniqueUpsert email\n\ \ deriving Eq Show\n\ \\n\ \ UpsertBy\n\ \ email Text\n\ \ city Text\n\ \ attr Text\n\ \ UniqueUpsertBy email\n\ \ UniqueUpsertByCity city\n\ \ deriving Eq Show\n\ \\n\ \ Strict\n\ \ !yes Int\n\ \ ~no Int\n\ \ def Int\n\ \\n\ \ DudeWeirdColumns\n\ \ name Text\n\ \ foo Int Maybe MigrationOnly\n\ \ bar Double SafeToRemove\n\ \ UniqueName name\n\ \ deriving Eq Show\n\ \\n\ \ -- | This is a doc comment for a relationship.\n\ \ -- Only the first line requires a pipe.\n\ \ -- | Pipes are optional on subsequent lines.\n\ \ Relationship\n\ \ -- | Fields should be documentable.\n\ \ name String\n\ \ parent RelationshipId Maybe\n\ \\n\ \ MutA\n\ \ mutB MutBId\n\ \\n\ \ MutB\n\ \ mutA MutAId\n\ \\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) (FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) [] False (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMigrationOnly, FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrSafeToRemove] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing (Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))), Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))] src/PersistentTestModels.hs:(26,1)-(128,2): Splicing declarations share [mkPersist persistSettings {mpsGeneric = True}, mkMigrate "testMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) (FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) [] False (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMigrationOnly, FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrSafeToRemove] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing (Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))), Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))]) ======> instance PersistStore backend => PersistField (PersonGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age", "color"] instance PersistStore backend => PersistFieldSql (PersonGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (Person1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age"] instance PersistStore backend => PersistFieldSql (Person1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PersonMaybeAgeGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age"] instance PersistStore backend => PersistFieldSql (PersonMaybeAgeGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PersonMayGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "color"] instance PersistStore backend => PersistFieldSql (PersonMayGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "name", "type"] instance PersistStore backend => PersistFieldSql (PetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MaybeOwnedPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "name", "type"] instance PersistStore backend => PersistFieldSql (MaybeOwnedPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NeedsPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["petKey"] instance PersistStore backend => PersistFieldSql (NeedsPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (OutdoorPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "collar", "type"] instance PersistStore backend => PersistFieldSql (OutdoorPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UserPTGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ident", "password"] instance PersistStore backend => PersistFieldSql (UserPTGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (EmailPTGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "user", "verkey"] instance PersistStore backend => PersistFieldSql (EmailPTGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UpsertGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "attr", "extra", "age"] instance PersistStore backend => PersistFieldSql (UpsertGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UpsertByGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "city", "attr"] instance PersistStore backend => PersistFieldSql (UpsertByGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (StrictGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["yes", "no", "def"] instance PersistStore backend => PersistFieldSql (StrictGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (DudeWeirdColumnsGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name"] instance PersistStore backend => PersistFieldSql (DudeWeirdColumnsGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (RelationshipGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "parent"] instance PersistStore backend => PersistFieldSql (RelationshipGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MutAGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["mutB"] instance PersistStore backend => PersistFieldSql (MutAGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MutBGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["mutA"] instance PersistStore backend => PersistFieldSql (MutBGeneric backend) where sqlType _ = SqlString type Person = PersonGeneric SqlBackend data PersonGeneric backend = Person {personName :: !Text, personAge :: !Int, personColor :: !(Maybe Text)} deriving stock (Show, Eq) type PersonId = Key Person instance PersistStore backend => PersistEntity (PersonGeneric backend) where type PersistEntityBackend (PersonGeneric backend) = backend data Unique (PersonGeneric backend) = PersonNameKey Text newtype Key (PersonGeneric backend) = PersonKey {unPersonKey :: (BackendKey backend)} data EntityField (PersonGeneric backend) typ = (typ ~ Key (PersonGeneric backend)) => PersonId | (typ ~ Text) => PersonName | (typ ~ Int) => PersonAge | (typ ~ Maybe Text) => PersonColor keyToValues = ((: []) . (toPersistValue . (\ PersonKey {unPersonKey = x} -> x))) keyFromValues = (fmap PersonKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jjN = ((Entity <$> fromField_a5jjN PersonId) <*> (((pure Person <*> fromField_a5jjN PersonName) <*> fromField_a5jjN PersonAge) <*> fromField_a5jjN PersonColor)) tabulateEntityApply fromField_a5jjM = ((Entity <$> fromField_a5jjM PersonId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((Person <$> fromField_a5jjM PersonName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jjM PersonAge) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jjM PersonColor)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Person x_a5jjm x_a5jjn x_a5jjo) = [toPersistValue x_a5jjm, toPersistValue x_a5jjn, toPersistValue x_a5jjo] fromPersistValues [x1_a5jjq, x2_a5jjr, x3_a5jjs] = Person <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a5jjq <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x2_a5jjr <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x3_a5jjs fromPersistValues x_a5jjp = (Left $ mappend (Data.Text.unpackCStringLen# "Person: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a5jjp)) persistUniqueToFieldNames PersonNameKey {} = ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) persistUniqueToValues (PersonNameKey x_a5jjt) = [toPersistValue x_a5jjt] persistUniqueKeys (Person _name_a5jju _age_a5jjv _color_a5jjw) = [PersonNameKey _name_a5jju] persistFieldDef PersonId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef PersonName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Person) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef PersonAge = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Person) (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) persistFieldDef PersonColor = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Person) (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) persistIdField = PersonId fieldLens PersonId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jjy) key_a5jjz -> Entity key_a5jjz value_a5jjy) fieldLens PersonName = Database.Persist.TH.Internal.lensPTH ((\ Person {personName = x} -> x) . entityVal) (\ (Entity key_a5jjA value_a5jjB) x_a5jjC -> Entity key_a5jjA (case value_a5jjB of Person {personAge = personAge_a5jjE, personColor = personColor_a5jjF} -> Person {personName = x_a5jjC, personAge = personAge, personColor = personColor})) fieldLens PersonAge = Database.Persist.TH.Internal.lensPTH ((\ Person {personAge = x} -> x) . entityVal) (\ (Entity key_a5jjA value_a5jjB) x_a5jjC -> Entity key_a5jjA (case value_a5jjB of Person {personName = personName_a5jjG, personColor = personColor_a5jjI} -> Person {personName = personName, personAge = x_a5jjC, personColor = personColor})) fieldLens PersonColor = Database.Persist.TH.Internal.lensPTH ((\ Person {personColor = x} -> x) . entityVal) (\ (Entity key_a5jjA value_a5jjB) x_a5jjC -> Entity key_a5jjA (case value_a5jjB of Person {personName = personName_a5jjJ, personAge = personAge_a5jjK} -> Person {personName = personName, personAge = personAge, personColor = x_a5jjC})) deriving stock instance Show (BackendKey backend) => Show (Key (PersonGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (PersonGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (PersonGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (PersonGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (PersonGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (PersonGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (PersonGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (PersonGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (PersonGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (PersonGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (PersonGeneric backend)) instance PersistStore backend => ToBackendKey backend (PersonGeneric backend) where toBackendKey = \ PersonKey {unPersonKey = x} -> x fromBackendKey = PersonKey type Person1 = Person1Generic SqlBackend data Person1Generic backend = Person1 {person1Name :: !Text, person1Age :: !Int} deriving stock (Show, Eq) type Person1Id = Key Person1 instance PersistStore backend => PersistEntity (Person1Generic backend) where type PersistEntityBackend (Person1Generic backend) = backend data Unique (Person1Generic backend) newtype Key (Person1Generic backend) = Person1Key {unPerson1Key :: (BackendKey backend)} data EntityField (Person1Generic backend) typ = (typ ~ Key (Person1Generic backend)) => Person1Id | (typ ~ Text) => Person1Name | (typ ~ Int) => Person1Age keyToValues = ((: []) . (toPersistValue . (\ Person1Key {unPerson1Key = x} -> x))) keyFromValues = (fmap Person1Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jk6 = ((Entity <$> fromField_a5jk6 Person1Id) <*> ((pure Person1 <*> fromField_a5jk6 Person1Name) <*> fromField_a5jk6 Person1Age)) tabulateEntityApply fromField_a5jk5 = ((Entity <$> fromField_a5jk5 Person1Id) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((Person1 <$> fromField_a5jk5 Person1Name) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jk5 Person1Age)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Person1 x_a5jjO x_a5jjP) = [toPersistValue x_a5jjO, toPersistValue x_a5jjP] fromPersistValues [x1_a5jjR, x2_a5jjS] = Person1 <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a5jjR <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#)) (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x2_a5jjS fromPersistValues x_a5jjQ = (Left $ mappend (Data.Text.unpackCStringLen# "Person1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 38#)) (Data.Text.Internal.pack $ show x_a5jjQ)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Person1 _name_a5jjT _age_a5jjU) = [] persistFieldDef Person1Id = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef Person1Name = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Person1) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef Person1Age = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Person1) (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) persistIdField = Person1Id fieldLens Person1Id = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jjW) key_a5jjX -> Entity key_a5jjX value_a5jjW) fieldLens Person1Name = Database.Persist.TH.Internal.lensPTH ((\ Person1 {person1Name = x} -> x) . entityVal) (\ (Entity key_a5jjY value_a5jjZ) x_a5jk0 -> Entity key_a5jjY (case value_a5jjZ of Person1 {person1Age = person1Age_a5jk2} -> Person1 {person1Name = x_a5jk0, person1Age = person1Age})) fieldLens Person1Age = Database.Persist.TH.Internal.lensPTH ((\ Person1 {person1Age = x} -> x) . entityVal) (\ (Entity key_a5jjY value_a5jjZ) x_a5jk0 -> Entity key_a5jjY (case value_a5jjZ of Person1 {person1Name = person1Name_a5jk3} -> Person1 {person1Name = person1Name, person1Age = x_a5jk0})) deriving stock instance Show (BackendKey backend) => Show (Key (Person1Generic backend)) deriving stock instance Read (BackendKey backend) => Read (Key (Person1Generic backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (Person1Generic backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (Person1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (Person1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (Person1Generic backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (Person1Generic backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (Person1Generic backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (Person1Generic backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (Person1Generic backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (Person1Generic backend)) instance PersistStore backend => ToBackendKey backend (Person1Generic backend) where toBackendKey = \ Person1Key {unPerson1Key = x} -> x fromBackendKey = Person1Key type PersonMaybeAge = PersonMaybeAgeGeneric SqlBackend data PersonMaybeAgeGeneric backend = PersonMaybeAge {personMaybeAgeName :: !Text, personMaybeAgeAge :: !(Maybe Int)} type PersonMaybeAgeId = Key PersonMaybeAge instance PersistStore backend => PersistEntity (PersonMaybeAgeGeneric backend) where type PersistEntityBackend (PersonMaybeAgeGeneric backend) = backend data Unique (PersonMaybeAgeGeneric backend) newtype Key (PersonMaybeAgeGeneric backend) = PersonMaybeAgeKey {unPersonMaybeAgeKey :: (BackendKey backend)} data EntityField (PersonMaybeAgeGeneric backend) typ = (typ ~ Key (PersonMaybeAgeGeneric backend)) => PersonMaybeAgeId | (typ ~ Text) => PersonMaybeAgeName | (typ ~ Maybe Int) => PersonMaybeAgeAge keyToValues = ((: []) . (toPersistValue . (\ PersonMaybeAgeKey {unPersonMaybeAgeKey = x} -> x))) keyFromValues = (fmap PersonMaybeAgeKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jkp = ((Entity <$> fromField_a5jkp PersonMaybeAgeId) <*> ((pure PersonMaybeAge <*> fromField_a5jkp PersonMaybeAgeName) <*> fromField_a5jkp PersonMaybeAgeAge)) tabulateEntityApply fromField_a5jko = ((Entity <$> fromField_a5jko PersonMaybeAgeId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((PersonMaybeAge <$> fromField_a5jko PersonMaybeAgeName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jko PersonMaybeAgeAge)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (PersonMaybeAge x_a5jk7 x_a5jk8) = [toPersistValue x_a5jk7, toPersistValue x_a5jk8] fromPersistValues [x1_a5jka, x2_a5jkb] = PersonMaybeAge <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a5jka <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)) (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x2_a5jkb fromPersistValues x_a5jk9 = (Left $ mappend (Data.Text.unpackCStringLen# "PersonMaybeAge: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 45#)) (Data.Text.Internal.pack $ show x_a5jk9)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (PersonMaybeAge _name_a5jkc _age_a5jkd) = [] persistFieldDef PersonMaybeAgeId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef PersonMaybeAgeName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy PersonMaybeAge) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef PersonMaybeAgeAge = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy PersonMaybeAge) (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) persistIdField = PersonMaybeAgeId fieldLens PersonMaybeAgeId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jkf) key_a5jkg -> Entity key_a5jkg value_a5jkf) fieldLens PersonMaybeAgeName = Database.Persist.TH.Internal.lensPTH ((\ PersonMaybeAge {personMaybeAgeName = x} -> x) . entityVal) (\ (Entity key_a5jkh value_a5jki) x_a5jkj -> Entity key_a5jkh (case value_a5jki of PersonMaybeAge {personMaybeAgeAge = personMaybeAgeAge_a5jkl} -> PersonMaybeAge {personMaybeAgeName = x_a5jkj, personMaybeAgeAge = personMaybeAgeAge})) fieldLens PersonMaybeAgeAge = Database.Persist.TH.Internal.lensPTH ((\ PersonMaybeAge {personMaybeAgeAge = x} -> x) . entityVal) (\ (Entity key_a5jkh value_a5jki) x_a5jkj -> Entity key_a5jkh (case value_a5jki of PersonMaybeAge {personMaybeAgeName = personMaybeAgeName_a5jkm} -> PersonMaybeAge {personMaybeAgeName = personMaybeAgeName, personMaybeAgeAge = x_a5jkj})) deriving stock instance Show (BackendKey backend) => Show (Key (PersonMaybeAgeGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (PersonMaybeAgeGeneric backend)) instance PersistStore backend => ToBackendKey backend (PersonMaybeAgeGeneric backend) where toBackendKey = \ PersonMaybeAgeKey {unPersonMaybeAgeKey = x} -> x fromBackendKey = PersonMaybeAgeKey type PersonMay = PersonMayGeneric SqlBackend data PersonMayGeneric backend = PersonMay {personMayName :: !(Maybe Text), personMayColor :: !(Maybe Text)} deriving stock (Show, Eq) type PersonMayId = Key PersonMay instance PersistStore backend => PersistEntity (PersonMayGeneric backend) where type PersistEntityBackend (PersonMayGeneric backend) = backend data Unique (PersonMayGeneric backend) newtype Key (PersonMayGeneric backend) = PersonMayKey {unPersonMayKey :: (BackendKey backend)} data EntityField (PersonMayGeneric backend) typ = (typ ~ Key (PersonMayGeneric backend)) => PersonMayId | (typ ~ Maybe Text) => PersonMayName | (typ ~ Maybe Text) => PersonMayColor keyToValues = ((: []) . (toPersistValue . (\ PersonMayKey {unPersonMayKey = x} -> x))) keyFromValues = (fmap PersonMayKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jkI = ((Entity <$> fromField_a5jkI PersonMayId) <*> ((pure PersonMay <*> fromField_a5jkI PersonMayName) <*> fromField_a5jkI PersonMayColor)) tabulateEntityApply fromField_a5jkH = ((Entity <$> fromField_a5jkH PersonMayId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((PersonMay <$> fromField_a5jkH PersonMayName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jkH PersonMayColor)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (PersonMay x_a5jkq x_a5jkr) = [toPersistValue x_a5jkq, toPersistValue x_a5jkr] fromPersistValues [x1_a5jkt, x2_a5jku] = PersonMay <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a5jkt <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#)) (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x2_a5jku fromPersistValues x_a5jks = (Left $ mappend (Data.Text.unpackCStringLen# "PersonMay: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a5jks)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (PersonMay _name_a5jkv _color_a5jkw) = [] persistFieldDef PersonMayId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef PersonMayName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy PersonMay) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef PersonMayColor = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy PersonMay) (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) persistIdField = PersonMayId fieldLens PersonMayId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jky) key_a5jkz -> Entity key_a5jkz value_a5jky) fieldLens PersonMayName = Database.Persist.TH.Internal.lensPTH ((\ PersonMay {personMayName = x} -> x) . entityVal) (\ (Entity key_a5jkA value_a5jkB) x_a5jkC -> Entity key_a5jkA (case value_a5jkB of PersonMay {personMayColor = personMayColor_a5jkE} -> PersonMay {personMayName = x_a5jkC, personMayColor = personMayColor})) fieldLens PersonMayColor = Database.Persist.TH.Internal.lensPTH ((\ PersonMay {personMayColor = x} -> x) . entityVal) (\ (Entity key_a5jkA value_a5jkB) x_a5jkC -> Entity key_a5jkA (case value_a5jkB of PersonMay {personMayName = personMayName_a5jkF} -> PersonMay {personMayName = personMayName, personMayColor = x_a5jkC})) deriving stock instance Show (BackendKey backend) => Show (Key (PersonMayGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (PersonMayGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (PersonMayGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (PersonMayGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (PersonMayGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (PersonMayGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (PersonMayGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (PersonMayGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (PersonMayGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (PersonMayGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (PersonMayGeneric backend)) instance PersistStore backend => ToBackendKey backend (PersonMayGeneric backend) where toBackendKey = \ PersonMayKey {unPersonMayKey = x} -> x fromBackendKey = PersonMayKey type Pet = PetGeneric SqlBackend data PetGeneric backend = Pet {petOwnerId :: !(Key (PersonGeneric backend)), petName :: !Text, petType :: !PetType} type PetId = Key Pet instance PersistStore backend => PersistEntity (PetGeneric backend) where type PersistEntityBackend (PetGeneric backend) = backend data Unique (PetGeneric backend) newtype Key (PetGeneric backend) = PetKey {unPetKey :: (BackendKey backend)} data EntityField (PetGeneric backend) typ = (typ ~ Key (PetGeneric backend)) => PetId | (typ ~ Key (PersonGeneric backend)) => PetOwnerId | (typ ~ Text) => PetName | (typ ~ PetType) => PetType keyToValues = ((: []) . (toPersistValue . (\ PetKey {unPetKey = x} -> x))) keyFromValues = (fmap PetKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jl9 = ((Entity <$> fromField_a5jl9 PetId) <*> (((pure Pet <*> fromField_a5jl9 PetOwnerId) <*> fromField_a5jl9 PetName) <*> fromField_a5jl9 PetType)) tabulateEntityApply fromField_a5jl8 = ((Entity <$> fromField_a5jl8 PetId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((Pet <$> fromField_a5jl8 PetOwnerId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jl8 PetName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jl8 PetType)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Pet x_a5jkJ x_a5jkK x_a5jkL) = [toPersistValue x_a5jkJ, toPersistValue x_a5jkK, toPersistValue x_a5jkL] fromPersistValues [x1_a5jkN, x2_a5jkO, x3_a5jkP] = Pet <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)) (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) . fromPersistValue) x1_a5jkN <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x2_a5jkO <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)) (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x3_a5jkP fromPersistValues x_a5jkM = (Left $ mappend (Data.Text.unpackCStringLen# "Pet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 34#)) (Data.Text.Internal.pack $ show x_a5jkM)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Pet _ownerId_a5jkQ _name_a5jkR _type_a5jkS) = [] persistFieldDef PetId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef PetOwnerId = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Pet) (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) persistFieldDef PetName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Pet) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef PetType = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Pet) (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = PetId fieldLens PetId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jkU) key_a5jkV -> Entity key_a5jkV value_a5jkU) fieldLens PetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ Pet {petOwnerId = x} -> x) . entityVal) (\ (Entity key_a5jkW value_a5jkX) x_a5jkY -> Entity key_a5jkW (case value_a5jkX of Pet {petName = petName_a5jl0, petType = petType_a5jl1} -> Pet {petOwnerId = x_a5jkY, petName = petName, petType = petType})) fieldLens PetName = Database.Persist.TH.Internal.lensPTH ((\ Pet {petName = x} -> x) . entityVal) (\ (Entity key_a5jkW value_a5jkX) x_a5jkY -> Entity key_a5jkW (case value_a5jkX of Pet {petOwnerId = petOwnerId_a5jl2, petType = petType_a5jl4} -> Pet {petOwnerId = petOwnerId, petName = x_a5jkY, petType = petType})) fieldLens PetType = Database.Persist.TH.Internal.lensPTH ((\ Pet {petType = x} -> x) . entityVal) (\ (Entity key_a5jkW value_a5jkX) x_a5jkY -> Entity key_a5jkW (case value_a5jkX of Pet {petOwnerId = petOwnerId_a5jl5, petName = petName_a5jl6} -> Pet {petOwnerId = petOwnerId, petName = petName, petType = x_a5jkY})) deriving stock instance Show (BackendKey backend) => Show (Key (PetGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (PetGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (PetGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (PetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (PetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (PetGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (PetGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (PetGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (PetGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (PetGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (PetGeneric backend)) instance PersistStore backend => ToBackendKey backend (PetGeneric backend) where toBackendKey = \ PetKey {unPetKey = x} -> x fromBackendKey = PetKey type MaybeOwnedPet = MaybeOwnedPetGeneric SqlBackend data MaybeOwnedPetGeneric backend = MaybeOwnedPet {maybeOwnedPetOwnerId :: !(Maybe (Key (PersonGeneric backend))), maybeOwnedPetName :: !Text, maybeOwnedPetType :: !PetType} type MaybeOwnedPetId = Key MaybeOwnedPet instance PersistStore backend => PersistEntity (MaybeOwnedPetGeneric backend) where type PersistEntityBackend (MaybeOwnedPetGeneric backend) = backend data Unique (MaybeOwnedPetGeneric backend) newtype Key (MaybeOwnedPetGeneric backend) = MaybeOwnedPetKey {unMaybeOwnedPetKey :: (BackendKey backend)} data EntityField (MaybeOwnedPetGeneric backend) typ = (typ ~ Key (MaybeOwnedPetGeneric backend)) => MaybeOwnedPetId | (typ ~ Maybe (Key (PersonGeneric backend))) => MaybeOwnedPetOwnerId | (typ ~ Text) => MaybeOwnedPetName | (typ ~ PetType) => MaybeOwnedPetType keyToValues = ((: []) . (toPersistValue . (\ MaybeOwnedPetKey {unMaybeOwnedPetKey = x} -> x))) keyFromValues = (fmap MaybeOwnedPetKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jlA = ((Entity <$> fromField_a5jlA MaybeOwnedPetId) <*> (((pure MaybeOwnedPet <*> fromField_a5jlA MaybeOwnedPetOwnerId) <*> fromField_a5jlA MaybeOwnedPetName) <*> fromField_a5jlA MaybeOwnedPetType)) tabulateEntityApply fromField_a5jlz = ((Entity <$> fromField_a5jlz MaybeOwnedPetId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((MaybeOwnedPet <$> fromField_a5jlz MaybeOwnedPetOwnerId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jlz MaybeOwnedPetName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jlz MaybeOwnedPetType)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MaybeOwnedPet x_a5jla x_a5jlb x_a5jlc) = [toPersistValue x_a5jla, toPersistValue x_a5jlb, toPersistValue x_a5jlc] fromPersistValues [x1_a5jle, x2_a5jlf, x3_a5jlg] = MaybeOwnedPet <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)) (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) . fromPersistValue) x1_a5jle <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x2_a5jlf <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)) (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x3_a5jlg fromPersistValues x_a5jld = (Left $ mappend (Data.Text.unpackCStringLen# "MaybeOwnedPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a5jld)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MaybeOwnedPet _ownerId_a5jlh _name_a5jli _type_a5jlj) = [] persistFieldDef MaybeOwnedPetId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef MaybeOwnedPetOwnerId = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy MaybeOwnedPet) (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) persistFieldDef MaybeOwnedPetName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy MaybeOwnedPet) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef MaybeOwnedPetType = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy MaybeOwnedPet) (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = MaybeOwnedPetId fieldLens MaybeOwnedPetId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jll) key_a5jlm -> Entity key_a5jlm value_a5jll) fieldLens MaybeOwnedPetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetOwnerId = x} -> x) . entityVal) (\ (Entity key_a5jln value_a5jlo) x_a5jlp -> Entity key_a5jln (case value_a5jlo of MaybeOwnedPet {maybeOwnedPetName = maybeOwnedPetName_a5jlr, maybeOwnedPetType = maybeOwnedPetType_a5jls} -> MaybeOwnedPet {maybeOwnedPetOwnerId = x_a5jlp, maybeOwnedPetName = maybeOwnedPetName, maybeOwnedPetType = maybeOwnedPetType})) fieldLens MaybeOwnedPetName = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetName = x} -> x) . entityVal) (\ (Entity key_a5jln value_a5jlo) x_a5jlp -> Entity key_a5jln (case value_a5jlo of MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a5jlt, maybeOwnedPetType = maybeOwnedPetType_a5jlv} -> MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId, maybeOwnedPetName = x_a5jlp, maybeOwnedPetType = maybeOwnedPetType})) fieldLens MaybeOwnedPetType = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetType = x} -> x) . entityVal) (\ (Entity key_a5jln value_a5jlo) x_a5jlp -> Entity key_a5jln (case value_a5jlo of MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a5jlw, maybeOwnedPetName = maybeOwnedPetName_a5jlx} -> MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId, maybeOwnedPetName = maybeOwnedPetName, maybeOwnedPetType = x_a5jlp})) deriving stock instance Show (BackendKey backend) => Show (Key (MaybeOwnedPetGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (MaybeOwnedPetGeneric backend)) instance PersistStore backend => ToBackendKey backend (MaybeOwnedPetGeneric backend) where toBackendKey = \ MaybeOwnedPetKey {unMaybeOwnedPetKey = x} -> x fromBackendKey = MaybeOwnedPetKey type NeedsPet = NeedsPetGeneric SqlBackend data NeedsPetGeneric backend = NeedsPet {needsPetPetKey :: !(Key (PetGeneric backend))} type NeedsPetId = Key NeedsPet instance PersistStore backend => PersistEntity (NeedsPetGeneric backend) where type PersistEntityBackend (NeedsPetGeneric backend) = backend data Unique (NeedsPetGeneric backend) newtype Key (NeedsPetGeneric backend) = NeedsPetKey {unNeedsPetKey :: (BackendKey backend)} data EntityField (NeedsPetGeneric backend) typ = (typ ~ Key (NeedsPetGeneric backend)) => NeedsPetId | (typ ~ Key (PetGeneric backend)) => NeedsPetPetKey keyToValues = ((: []) . (toPersistValue . (\ NeedsPetKey {unNeedsPetKey = x} -> x))) keyFromValues = (fmap NeedsPetKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jlN = ((Entity <$> fromField_a5jlN NeedsPetId) <*> (pure NeedsPet <*> fromField_a5jlN NeedsPetPetKey)) tabulateEntityApply fromField_a5jlM = ((Entity <$> fromField_a5jlM NeedsPetId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (NeedsPet <$> fromField_a5jlM NeedsPetPetKey)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)), fieldSqlType = sqlType (Proxy :: Proxy PetId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NeedsPet x_a5jlB) = [toPersistValue x_a5jlB] fromPersistValues [x1_a5jlD] = NeedsPet <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#)) (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) . fromPersistValue) x1_a5jlD fromPersistValues x_a5jlC = (Left $ mappend (Data.Text.unpackCStringLen# "NeedsPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 39#)) (Data.Text.Internal.pack $ show x_a5jlC)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NeedsPet _petKey_a5jlE) = [] persistFieldDef NeedsPetId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef NeedsPetPetKey = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NeedsPet) (FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) persistIdField = NeedsPetId fieldLens NeedsPetId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jlG) key_a5jlH -> Entity key_a5jlH value_a5jlG) fieldLens NeedsPetPetKey = Database.Persist.TH.Internal.lensPTH ((\ NeedsPet {needsPetPetKey = x} -> x) . entityVal) (\ (Entity key_a5jlI value_a5jlJ) x_a5jlK -> Entity key_a5jlI (case value_a5jlJ of NeedsPet {} -> NeedsPet {needsPetPetKey = x_a5jlK})) deriving stock instance Show (BackendKey backend) => Show (Key (NeedsPetGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (NeedsPetGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (NeedsPetGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (NeedsPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (NeedsPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (NeedsPetGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (NeedsPetGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (NeedsPetGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (NeedsPetGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (NeedsPetGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (NeedsPetGeneric backend)) instance PersistStore backend => ToBackendKey backend (NeedsPetGeneric backend) where toBackendKey = \ NeedsPetKey {unNeedsPetKey = x} -> x fromBackendKey = NeedsPetKey type OutdoorPet = OutdoorPetGeneric SqlBackend data OutdoorPetGeneric backend = OutdoorPet {outdoorPetOwnerId :: !(Key (PersonGeneric backend)), outdoorPetCollar :: !PetCollar, outdoorPetType :: !PetType} type OutdoorPetId = Key OutdoorPet instance PersistStore backend => PersistEntity (OutdoorPetGeneric backend) where type PersistEntityBackend (OutdoorPetGeneric backend) = backend data Unique (OutdoorPetGeneric backend) newtype Key (OutdoorPetGeneric backend) = OutdoorPetKey {unOutdoorPetKey :: (BackendKey backend)} data EntityField (OutdoorPetGeneric backend) typ = (typ ~ Key (OutdoorPetGeneric backend)) => OutdoorPetId | (typ ~ Key (PersonGeneric backend)) => OutdoorPetOwnerId | (typ ~ PetCollar) => OutdoorPetCollar | (typ ~ PetType) => OutdoorPetType keyToValues = ((: []) . (toPersistValue . (\ OutdoorPetKey {unOutdoorPetKey = x} -> x))) keyFromValues = (fmap OutdoorPetKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jme = ((Entity <$> fromField_a5jme OutdoorPetId) <*> (((pure OutdoorPet <*> fromField_a5jme OutdoorPetOwnerId) <*> fromField_a5jme OutdoorPetCollar) <*> fromField_a5jme OutdoorPetType)) tabulateEntityApply fromField_a5jmd = ((Entity <$> fromField_a5jmd OutdoorPetId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((OutdoorPet <$> fromField_a5jmd OutdoorPetOwnerId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jmd OutdoorPetCollar) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jmd OutdoorPetType)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#)), fieldSqlType = sqlType (Proxy :: Proxy PetCollar), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (OutdoorPet x_a5jlO x_a5jlP x_a5jlQ) = [toPersistValue x_a5jlO, toPersistValue x_a5jlP, toPersistValue x_a5jlQ] fromPersistValues [x1_a5jlS, x2_a5jlT, x3_a5jlU] = OutdoorPet <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) . fromPersistValue) x1_a5jlS <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) . fromPersistValue) x2_a5jlT <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x3_a5jlU fromPersistValues x_a5jlR = (Left $ mappend (Data.Text.unpackCStringLen# "OutdoorPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 41#)) (Data.Text.Internal.pack $ show x_a5jlR)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (OutdoorPet _ownerId_a5jlV _collar_a5jlW _type_a5jlX) = [] persistFieldDef OutdoorPetId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef OutdoorPetOwnerId = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy OutdoorPet) (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) persistFieldDef OutdoorPetCollar = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy OutdoorPet) (FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) persistFieldDef OutdoorPetType = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy OutdoorPet) (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = OutdoorPetId fieldLens OutdoorPetId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jlZ) key_a5jm0 -> Entity key_a5jm0 value_a5jlZ) fieldLens OutdoorPetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetOwnerId = x} -> x) . entityVal) (\ (Entity key_a5jm1 value_a5jm2) x_a5jm3 -> Entity key_a5jm1 (case value_a5jm2 of OutdoorPet {outdoorPetCollar = outdoorPetCollar_a5jm5, outdoorPetType = outdoorPetType_a5jm6} -> OutdoorPet {outdoorPetOwnerId = x_a5jm3, outdoorPetCollar = outdoorPetCollar, outdoorPetType = outdoorPetType})) fieldLens OutdoorPetCollar = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetCollar = x} -> x) . entityVal) (\ (Entity key_a5jm1 value_a5jm2) x_a5jm3 -> Entity key_a5jm1 (case value_a5jm2 of OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a5jm7, outdoorPetType = outdoorPetType_a5jm9} -> OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = x_a5jm3, outdoorPetType = outdoorPetType})) fieldLens OutdoorPetType = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetType = x} -> x) . entityVal) (\ (Entity key_a5jm1 value_a5jm2) x_a5jm3 -> Entity key_a5jm1 (case value_a5jm2 of OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a5jma, outdoorPetCollar = outdoorPetCollar_a5jmb} -> OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = outdoorPetCollar, outdoorPetType = x_a5jm3})) deriving stock instance Show (BackendKey backend) => Show (Key (OutdoorPetGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (OutdoorPetGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (OutdoorPetGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (OutdoorPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (OutdoorPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (OutdoorPetGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (OutdoorPetGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (OutdoorPetGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (OutdoorPetGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (OutdoorPetGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (OutdoorPetGeneric backend)) instance PersistStore backend => ToBackendKey backend (OutdoorPetGeneric backend) where toBackendKey = \ OutdoorPetKey {unOutdoorPetKey = x} -> x fromBackendKey = OutdoorPetKey type UserPT = UserPTGeneric SqlBackend data UserPTGeneric backend = UserPT {userPTIdent :: !Text, userPTPassword :: !(Maybe Text)} type UserPTId = Key UserPT instance PersistStore backend => PersistEntity (UserPTGeneric backend) where type PersistEntityBackend (UserPTGeneric backend) = backend data Unique (UserPTGeneric backend) = UniqueUserPT Text newtype Key (UserPTGeneric backend) = UserPTKey {unUserPTKey :: (BackendKey backend)} data EntityField (UserPTGeneric backend) typ = (typ ~ Key (UserPTGeneric backend)) => UserPTId | (typ ~ Text) => UserPTIdent | (typ ~ Maybe Text) => UserPTPassword keyToValues = ((: []) . (toPersistValue . (\ UserPTKey {unUserPTKey = x} -> x))) keyFromValues = (fmap UserPTKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jmy = ((Entity <$> fromField_a5jmy UserPTId) <*> ((pure UserPT <*> fromField_a5jmy UserPTIdent) <*> fromField_a5jmy UserPTPassword)) tabulateEntityApply fromField_a5jmx = ((Entity <$> fromField_a5jmx UserPTId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((UserPT <$> fromField_a5jmx UserPTIdent) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jmx UserPTPassword)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UserPT x_a5jmf x_a5jmg) = [toPersistValue x_a5jmf, toPersistValue x_a5jmg] fromPersistValues [x1_a5jmi, x2_a5jmj] = UserPT <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x1_a5jmi <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) . fromPersistValue) x2_a5jmj fromPersistValues x_a5jmh = (Left $ mappend (Data.Text.unpackCStringLen# "UserPT: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a5jmh)) persistUniqueToFieldNames UniqueUserPT {} = ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) persistUniqueToValues (UniqueUserPT x_a5jmk) = [toPersistValue x_a5jmk] persistUniqueKeys (UserPT _ident_a5jml _password_a5jmm) = [UniqueUserPT _ident_a5jml] persistFieldDef UserPTId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef UserPTIdent = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy UserPT) (FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) persistFieldDef UserPTPassword = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy UserPT) (FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) persistIdField = UserPTId fieldLens UserPTId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jmo) key_a5jmp -> Entity key_a5jmp value_a5jmo) fieldLens UserPTIdent = Database.Persist.TH.Internal.lensPTH ((\ UserPT {userPTIdent = x} -> x) . entityVal) (\ (Entity key_a5jmq value_a5jmr) x_a5jms -> Entity key_a5jmq (case value_a5jmr of UserPT {userPTPassword = userPTPassword_a5jmu} -> UserPT {userPTIdent = x_a5jms, userPTPassword = userPTPassword})) fieldLens UserPTPassword = Database.Persist.TH.Internal.lensPTH ((\ UserPT {userPTPassword = x} -> x) . entityVal) (\ (Entity key_a5jmq value_a5jmr) x_a5jms -> Entity key_a5jmq (case value_a5jmr of UserPT {userPTIdent = userPTIdent_a5jmv} -> UserPT {userPTIdent = userPTIdent, userPTPassword = x_a5jms})) deriving stock instance Show (BackendKey backend) => Show (Key (UserPTGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (UserPTGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (UserPTGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (UserPTGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (UserPTGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (UserPTGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (UserPTGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (UserPTGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (UserPTGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (UserPTGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (UserPTGeneric backend)) instance PersistStore backend => ToBackendKey backend (UserPTGeneric backend) where toBackendKey = \ UserPTKey {unUserPTKey = x} -> x fromBackendKey = UserPTKey type EmailPT = EmailPTGeneric SqlBackend data EmailPTGeneric backend = EmailPT {emailPTEmail :: !Text, emailPTUser :: !(Maybe (Key (UserPTGeneric backend))), emailPTVerkey :: !(Maybe Text)} type EmailPTId = Key EmailPT instance PersistStore backend => PersistEntity (EmailPTGeneric backend) where type PersistEntityBackend (EmailPTGeneric backend) = backend data Unique (EmailPTGeneric backend) = UniqueEmailPT Text newtype Key (EmailPTGeneric backend) = EmailPTKey {unEmailPTKey :: (BackendKey backend)} data EntityField (EmailPTGeneric backend) typ = (typ ~ Key (EmailPTGeneric backend)) => EmailPTId | (typ ~ Text) => EmailPTEmail | (typ ~ Maybe (Key (UserPTGeneric backend))) => EmailPTUser | (typ ~ Maybe Text) => EmailPTVerkey keyToValues = ((: []) . (toPersistValue . (\ EmailPTKey {unEmailPTKey = x} -> x))) keyFromValues = (fmap EmailPTKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jn0 = ((Entity <$> fromField_a5jn0 EmailPTId) <*> (((pure EmailPT <*> fromField_a5jn0 EmailPTEmail) <*> fromField_a5jn0 EmailPTUser) <*> fromField_a5jn0 EmailPTVerkey)) tabulateEntityApply fromField_a5jmZ = ((Entity <$> fromField_a5jmZ EmailPTId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((EmailPT <$> fromField_a5jmZ EmailPTEmail) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jmZ EmailPTUser) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jmZ EmailPTVerkey)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy UserPTId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (EmailPT x_a5jmz x_a5jmA x_a5jmB) = [toPersistValue x_a5jmz, toPersistValue x_a5jmA, toPersistValue x_a5jmB] fromPersistValues [x1_a5jmD, x2_a5jmE, x3_a5jmF] = EmailPT <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#)) (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x1_a5jmD <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#)) (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x2_a5jmE <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#)) (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) . fromPersistValue) x3_a5jmF fromPersistValues x_a5jmC = (Left $ mappend (Data.Text.unpackCStringLen# "EmailPT: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 38#)) (Data.Text.Internal.pack $ show x_a5jmC)) persistUniqueToFieldNames UniqueEmailPT {} = ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) persistUniqueToValues (UniqueEmailPT x_a5jmG) = [toPersistValue x_a5jmG] persistUniqueKeys (EmailPT _email_a5jmH _user_a5jmI _verkey_a5jmJ) = [UniqueEmailPT _email_a5jmH] persistFieldDef EmailPTId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef EmailPTEmail = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy EmailPT) (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) persistFieldDef EmailPTUser = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy EmailPT) (FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef EmailPTVerkey = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy EmailPT) (FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) persistIdField = EmailPTId fieldLens EmailPTId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jmL) key_a5jmM -> Entity key_a5jmM value_a5jmL) fieldLens EmailPTEmail = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTEmail = x} -> x) . entityVal) (\ (Entity key_a5jmN value_a5jmO) x_a5jmP -> Entity key_a5jmN (case value_a5jmO of EmailPT {emailPTUser = emailPTUser_a5jmR, emailPTVerkey = emailPTVerkey_a5jmS} -> EmailPT {emailPTEmail = x_a5jmP, emailPTUser = emailPTUser, emailPTVerkey = emailPTVerkey})) fieldLens EmailPTUser = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTUser = x} -> x) . entityVal) (\ (Entity key_a5jmN value_a5jmO) x_a5jmP -> Entity key_a5jmN (case value_a5jmO of EmailPT {emailPTEmail = emailPTEmail_a5jmT, emailPTVerkey = emailPTVerkey_a5jmV} -> EmailPT {emailPTEmail = emailPTEmail, emailPTUser = x_a5jmP, emailPTVerkey = emailPTVerkey})) fieldLens EmailPTVerkey = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTVerkey = x} -> x) . entityVal) (\ (Entity key_a5jmN value_a5jmO) x_a5jmP -> Entity key_a5jmN (case value_a5jmO of EmailPT {emailPTEmail = emailPTEmail_a5jmW, emailPTUser = emailPTUser_a5jmX} -> EmailPT {emailPTEmail = emailPTEmail, emailPTUser = emailPTUser, emailPTVerkey = x_a5jmP})) deriving stock instance Show (BackendKey backend) => Show (Key (EmailPTGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (EmailPTGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (EmailPTGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (EmailPTGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (EmailPTGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (EmailPTGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (EmailPTGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (EmailPTGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (EmailPTGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (EmailPTGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (EmailPTGeneric backend)) instance PersistStore backend => ToBackendKey backend (EmailPTGeneric backend) where toBackendKey = \ EmailPTKey {unEmailPTKey = x} -> x fromBackendKey = EmailPTKey type Upsert = UpsertGeneric SqlBackend data UpsertGeneric backend = Upsert {upsertEmail :: !Text, upsertAttr :: !Text, upsertExtra :: !Text, upsertAge :: !Int} deriving stock (Eq, Show) type UpsertId = Key Upsert instance PersistStore backend => PersistEntity (UpsertGeneric backend) where type PersistEntityBackend (UpsertGeneric backend) = backend data Unique (UpsertGeneric backend) = UniqueUpsert Text newtype Key (UpsertGeneric backend) = UpsertKey {unUpsertKey :: (BackendKey backend)} data EntityField (UpsertGeneric backend) typ = (typ ~ Key (UpsertGeneric backend)) => UpsertId | (typ ~ Text) => UpsertEmail | (typ ~ Text) => UpsertAttr | (typ ~ Text) => UpsertExtra | (typ ~ Int) => UpsertAge keyToValues = ((: []) . (toPersistValue . (\ UpsertKey {unUpsertKey = x} -> x))) keyFromValues = (fmap UpsertKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jnC = ((Entity <$> fromField_a5jnC UpsertId) <*> ((((pure Upsert <*> fromField_a5jnC UpsertEmail) <*> fromField_a5jnC UpsertAttr) <*> fromField_a5jnC UpsertExtra) <*> fromField_a5jnC UpsertAge)) tabulateEntityApply fromField_a5jnB = ((Entity <$> fromField_a5jnB UpsertId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((((Upsert <$> fromField_a5jnB UpsertEmail) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jnB UpsertAttr) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jnB UpsertExtra) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jnB UpsertAge)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Upsert x_a5jn1 x_a5jn2 x_a5jn3 x_a5jn4) = [toPersistValue x_a5jn1, toPersistValue x_a5jn2, toPersistValue x_a5jn3, toPersistValue x_a5jn4] fromPersistValues [x1_a5jn6, x2_a5jn7, x3_a5jn8, x4_a5jn9] = Upsert <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x1_a5jn6 <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x2_a5jn7 <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x3_a5jn8 <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x4_a5jn9 fromPersistValues x_a5jn5 = (Left $ mappend (Data.Text.unpackCStringLen# "Upsert: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a5jn5)) persistUniqueToFieldNames UniqueUpsert {} = ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) persistUniqueToValues (UniqueUpsert x_a5jna) = [toPersistValue x_a5jna] persistUniqueKeys (Upsert _email_a5jnb _attr_a5jnc _extra_a5jnd _age_a5jne) = [UniqueUpsert _email_a5jnb] persistFieldDef UpsertId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef UpsertEmail = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Upsert) (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) persistFieldDef UpsertAttr = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Upsert) (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef UpsertExtra = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Upsert) (FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) persistFieldDef UpsertAge = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Upsert) (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) persistIdField = UpsertId fieldLens UpsertId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jng) key_a5jnh -> Entity key_a5jnh value_a5jng) fieldLens UpsertEmail = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertEmail = x} -> x) . entityVal) (\ (Entity key_a5jni value_a5jnj) x_a5jnk -> Entity key_a5jni (case value_a5jnj of Upsert {upsertAttr = upsertAttr_a5jnm, upsertExtra = upsertExtra_a5jnn, upsertAge = upsertAge_a5jno} -> Upsert {upsertEmail = x_a5jnk, upsertAttr = upsertAttr, upsertExtra = upsertExtra, upsertAge = upsertAge})) fieldLens UpsertAttr = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertAttr = x} -> x) . entityVal) (\ (Entity key_a5jni value_a5jnj) x_a5jnk -> Entity key_a5jni (case value_a5jnj of Upsert {upsertEmail = upsertEmail_a5jnp, upsertExtra = upsertExtra_a5jnr, upsertAge = upsertAge_a5jns} -> Upsert {upsertEmail = upsertEmail, upsertAttr = x_a5jnk, upsertExtra = upsertExtra, upsertAge = upsertAge})) fieldLens UpsertExtra = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertExtra = x} -> x) . entityVal) (\ (Entity key_a5jni value_a5jnj) x_a5jnk -> Entity key_a5jni (case value_a5jnj of Upsert {upsertEmail = upsertEmail_a5jnt, upsertAttr = upsertAttr_a5jnu, upsertAge = upsertAge_a5jnw} -> Upsert {upsertEmail = upsertEmail, upsertAttr = upsertAttr, upsertExtra = x_a5jnk, upsertAge = upsertAge})) fieldLens UpsertAge = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertAge = x} -> x) . entityVal) (\ (Entity key_a5jni value_a5jnj) x_a5jnk -> Entity key_a5jni (case value_a5jnj of Upsert {upsertEmail = upsertEmail_a5jnx, upsertAttr = upsertAttr_a5jny, upsertExtra = upsertExtra_a5jnz} -> Upsert {upsertEmail = upsertEmail, upsertAttr = upsertAttr, upsertExtra = upsertExtra, upsertAge = x_a5jnk})) deriving stock instance Show (BackendKey backend) => Show (Key (UpsertGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (UpsertGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (UpsertGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (UpsertGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (UpsertGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (UpsertGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (UpsertGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (UpsertGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (UpsertGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (UpsertGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (UpsertGeneric backend)) instance PersistStore backend => ToBackendKey backend (UpsertGeneric backend) where toBackendKey = \ UpsertKey {unUpsertKey = x} -> x fromBackendKey = UpsertKey type UpsertBy = UpsertByGeneric SqlBackend data UpsertByGeneric backend = UpsertBy {upsertByEmail :: !Text, upsertByCity :: !Text, upsertByAttr :: !Text} deriving stock (Eq, Show) type UpsertById = Key UpsertBy instance PersistStore backend => PersistEntity (UpsertByGeneric backend) where type PersistEntityBackend (UpsertByGeneric backend) = backend data Unique (UpsertByGeneric backend) = UniqueUpsertBy Text | UniqueUpsertByCity Text newtype Key (UpsertByGeneric backend) = UpsertByKey {unUpsertByKey :: (BackendKey backend)} data EntityField (UpsertByGeneric backend) typ = (typ ~ Key (UpsertByGeneric backend)) => UpsertById | (typ ~ Text) => UpsertByEmail | (typ ~ Text) => UpsertByCity | (typ ~ Text) => UpsertByAttr keyToValues = ((: []) . (toPersistValue . (\ UpsertByKey {unUpsertByKey = x} -> x))) keyFromValues = (fmap UpsertByKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jo5 = ((Entity <$> fromField_a5jo5 UpsertById) <*> (((pure UpsertBy <*> fromField_a5jo5 UpsertByEmail) <*> fromField_a5jo5 UpsertByCity) <*> fromField_a5jo5 UpsertByAttr)) tabulateEntityApply fromField_a5jo4 = ((Entity <$> fromField_a5jo4 UpsertById) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((UpsertBy <$> fromField_a5jo4 UpsertByEmail) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jo4 UpsertByCity) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jo4 UpsertByAttr)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UpsertBy x_a5jnD x_a5jnE x_a5jnF) = [toPersistValue x_a5jnD, toPersistValue x_a5jnE, toPersistValue x_a5jnF] fromPersistValues [x1_a5jnH, x2_a5jnI, x3_a5jnJ] = UpsertBy <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#)) (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x1_a5jnH <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#)) (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x2_a5jnI <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#)) (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x3_a5jnJ fromPersistValues x_a5jnG = (Left $ mappend (Data.Text.unpackCStringLen# "UpsertBy: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 39#)) (Data.Text.Internal.pack $ show x_a5jnG)) persistUniqueToFieldNames UniqueUpsertBy {} = ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) persistUniqueToFieldNames UniqueUpsertByCity {} = ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) persistUniqueToValues (UniqueUpsertBy x_a5jnK) = [toPersistValue x_a5jnK] persistUniqueToValues (UniqueUpsertByCity x_a5jnL) = [toPersistValue x_a5jnL] persistUniqueKeys (UpsertBy _email_a5jnM _city_a5jnN _attr_a5jnO) = [UniqueUpsertBy _email_a5jnM, UniqueUpsertByCity _city_a5jnN] persistFieldDef UpsertById = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef UpsertByEmail = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy UpsertBy) (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) persistFieldDef UpsertByCity = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy UpsertBy) (FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef UpsertByAttr = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy UpsertBy) (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = UpsertById fieldLens UpsertById = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jnQ) key_a5jnR -> Entity key_a5jnR value_a5jnQ) fieldLens UpsertByEmail = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByEmail = x} -> x) . entityVal) (\ (Entity key_a5jnS value_a5jnT) x_a5jnU -> Entity key_a5jnS (case value_a5jnT of UpsertBy {upsertByCity = upsertByCity_a5jnW, upsertByAttr = upsertByAttr_a5jnX} -> UpsertBy {upsertByEmail = x_a5jnU, upsertByCity = upsertByCity, upsertByAttr = upsertByAttr})) fieldLens UpsertByCity = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByCity = x} -> x) . entityVal) (\ (Entity key_a5jnS value_a5jnT) x_a5jnU -> Entity key_a5jnS (case value_a5jnT of UpsertBy {upsertByEmail = upsertByEmail_a5jnY, upsertByAttr = upsertByAttr_a5jo0} -> UpsertBy {upsertByEmail = upsertByEmail, upsertByCity = x_a5jnU, upsertByAttr = upsertByAttr})) fieldLens UpsertByAttr = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByAttr = x} -> x) . entityVal) (\ (Entity key_a5jnS value_a5jnT) x_a5jnU -> Entity key_a5jnS (case value_a5jnT of UpsertBy {upsertByEmail = upsertByEmail_a5jo1, upsertByCity = upsertByCity_a5jo2} -> UpsertBy {upsertByEmail = upsertByEmail, upsertByCity = upsertByCity, upsertByAttr = x_a5jnU})) deriving stock instance Show (BackendKey backend) => Show (Key (UpsertByGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (UpsertByGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (UpsertByGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (UpsertByGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (UpsertByGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (UpsertByGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (UpsertByGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (UpsertByGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (UpsertByGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (UpsertByGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (UpsertByGeneric backend)) instance PersistStore backend => ToBackendKey backend (UpsertByGeneric backend) where toBackendKey = \ UpsertByKey {unUpsertByKey = x} -> x fromBackendKey = UpsertByKey type Strict = StrictGeneric SqlBackend data StrictGeneric backend = Strict {strictYes :: !Int, strictNo :: Int, strictDef :: !Int} type StrictId = Key Strict instance PersistStore backend => PersistEntity (StrictGeneric backend) where type PersistEntityBackend (StrictGeneric backend) = backend data Unique (StrictGeneric backend) newtype Key (StrictGeneric backend) = StrictKey {unStrictKey :: (BackendKey backend)} data EntityField (StrictGeneric backend) typ = (typ ~ Key (StrictGeneric backend)) => StrictId | (typ ~ Int) => StrictYes | (typ ~ Int) => StrictNo | (typ ~ Int) => StrictDef keyToValues = ((: []) . (toPersistValue . (\ StrictKey {unStrictKey = x} -> x))) keyFromValues = (fmap StrictKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jow = ((Entity <$> fromField_a5jow StrictId) <*> (((pure Strict <*> fromField_a5jow StrictYes) <*> fromField_a5jow StrictNo) <*> fromField_a5jow StrictDef)) tabulateEntityApply fromField_a5jov = ((Entity <$> fromField_a5jov StrictId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((Strict <$> fromField_a5jov StrictYes) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jov StrictNo) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jov StrictDef)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = False, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Strict x_a5jo6 x_a5jo7 x_a5jo8) = [toPersistValue x_a5jo6, toPersistValue x_a5jo7, toPersistValue x_a5jo8] fromPersistValues [x1_a5joa, x2_a5job, x3_a5joc] = Strict <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x1_a5joa <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) . fromPersistValue) x2_a5job <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x3_a5joc fromPersistValues x_a5jo9 = (Left $ mappend (Data.Text.unpackCStringLen# "Strict: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a5jo9)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Strict _yes_a5jod _no_a5joe _def_a5jof) = [] persistFieldDef StrictId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef StrictYes = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Strict) (FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) persistFieldDef StrictNo = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Strict) (FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) persistFieldDef StrictDef = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Strict) (FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) persistIdField = StrictId fieldLens StrictId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5joh) key_a5joi -> Entity key_a5joi value_a5joh) fieldLens StrictYes = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictYes = x} -> x) . entityVal) (\ (Entity key_a5joj value_a5jok) x_a5jol -> Entity key_a5joj (case value_a5jok of Strict {strictNo = strictNo_a5jon, strictDef = strictDef_a5joo} -> Strict {strictYes = x_a5jol, strictNo = strictNo, strictDef = strictDef})) fieldLens StrictNo = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictNo = x} -> x) . entityVal) (\ (Entity key_a5joj value_a5jok) x_a5jol -> Entity key_a5joj (case value_a5jok of Strict {strictYes = strictYes_a5jop, strictDef = strictDef_a5jor} -> Strict {strictYes = strictYes, strictNo = x_a5jol, strictDef = strictDef})) fieldLens StrictDef = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictDef = x} -> x) . entityVal) (\ (Entity key_a5joj value_a5jok) x_a5jol -> Entity key_a5joj (case value_a5jok of Strict {strictYes = strictYes_a5jos, strictNo = strictNo_a5jot} -> Strict {strictYes = strictYes, strictNo = strictNo, strictDef = x_a5jol})) deriving stock instance Show (BackendKey backend) => Show (Key (StrictGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (StrictGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (StrictGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (StrictGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (StrictGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (StrictGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (StrictGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (StrictGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (StrictGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (StrictGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (StrictGeneric backend)) instance PersistStore backend => ToBackendKey backend (StrictGeneric backend) where toBackendKey = \ StrictKey {unStrictKey = x} -> x fromBackendKey = StrictKey type DudeWeirdColumns = DudeWeirdColumnsGeneric SqlBackend data DudeWeirdColumnsGeneric backend = DudeWeirdColumns {dudeWeirdColumnsName :: !Text} deriving stock (Eq, Show) type DudeWeirdColumnsId = Key DudeWeirdColumns instance PersistStore backend => PersistEntity (DudeWeirdColumnsGeneric backend) where type PersistEntityBackend (DudeWeirdColumnsGeneric backend) = backend data Unique (DudeWeirdColumnsGeneric backend) = UniqueName Text newtype Key (DudeWeirdColumnsGeneric backend) = DudeWeirdColumnsKey {unDudeWeirdColumnsKey :: (BackendKey backend)} data EntityField (DudeWeirdColumnsGeneric backend) typ = (typ ~ Key (DudeWeirdColumnsGeneric backend)) => DudeWeirdColumnsId | (typ ~ Text) => DudeWeirdColumnsName keyToValues = ((: []) . (toPersistValue . (\ DudeWeirdColumnsKey {unDudeWeirdColumnsKey = x} -> x))) keyFromValues = (fmap DudeWeirdColumnsKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5joK = ((Entity <$> fromField_a5joK DudeWeirdColumnsId) <*> (pure DudeWeirdColumns <*> fromField_a5joK DudeWeirdColumnsName)) tabulateEntityApply fromField_a5joJ = ((Entity <$> fromField_a5joJ DudeWeirdColumnsId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (DudeWeirdColumns <$> fromField_a5joJ DudeWeirdColumnsName)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrMigrationOnly, FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy Double), fieldAttrs = [FieldAttrSafeToRemove], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (DudeWeirdColumns x_a5jox) = [toPersistValue x_a5jox] fromPersistValues [x1_a5joz] = DudeWeirdColumns <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a5joz fromPersistValues x_a5joy = (Left $ mappend (Data.Text.unpackCStringLen# "DudeWeirdColumns: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 47#)) (Data.Text.Internal.pack $ show x_a5joy)) persistUniqueToFieldNames UniqueName {} = ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) persistUniqueToValues (UniqueName x_a5joA) = [toPersistValue x_a5joA] persistUniqueKeys (DudeWeirdColumns _name_a5joB) = [UniqueName _name_a5joB] persistFieldDef DudeWeirdColumnsId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef DudeWeirdColumnsName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy DudeWeirdColumns) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = DudeWeirdColumnsId fieldLens DudeWeirdColumnsId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5joD) key_a5joE -> Entity key_a5joE value_a5joD) fieldLens DudeWeirdColumnsName = Database.Persist.TH.Internal.lensPTH ((\ DudeWeirdColumns {dudeWeirdColumnsName = x} -> x) . entityVal) (\ (Entity key_a5joF value_a5joG) x_a5joH -> Entity key_a5joF (case value_a5joG of DudeWeirdColumns {} -> DudeWeirdColumns {dudeWeirdColumnsName = x_a5joH})) deriving stock instance Show (BackendKey backend) => Show (Key (DudeWeirdColumnsGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (DudeWeirdColumnsGeneric backend)) instance PersistStore backend => ToBackendKey backend (DudeWeirdColumnsGeneric backend) where toBackendKey = \ DudeWeirdColumnsKey {unDudeWeirdColumnsKey = x} -> x fromBackendKey = DudeWeirdColumnsKey type Relationship = RelationshipGeneric SqlBackend data RelationshipGeneric backend = Relationship {relationshipName :: !String, relationshipParent :: !(Maybe (Key (RelationshipGeneric backend)))} type RelationshipId = Key Relationship instance PersistStore backend => PersistEntity (RelationshipGeneric backend) where type PersistEntityBackend (RelationshipGeneric backend) = backend data Unique (RelationshipGeneric backend) newtype Key (RelationshipGeneric backend) = RelationshipKey {unRelationshipKey :: (BackendKey backend)} data EntityField (RelationshipGeneric backend) typ = (typ ~ Key (RelationshipGeneric backend)) => RelationshipId | (typ ~ String) => RelationshipName | (typ ~ Maybe (Key (RelationshipGeneric backend))) => RelationshipParent keyToValues = ((: []) . (toPersistValue . (\ RelationshipKey {unRelationshipKey = x} -> x))) keyFromValues = (fmap RelationshipKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jp3 = ((Entity <$> fromField_a5jp3 RelationshipId) <*> ((pure Relationship <*> fromField_a5jp3 RelationshipName) <*> fromField_a5jp3 RelationshipParent)) tabulateEntityApply fromField_a5jp2 = ((Entity <$> fromField_a5jp2 RelationshipId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((Relationship <$> fromField_a5jp2 RelationshipName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5jp2 RelationshipParent)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#)), fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#)), fieldSqlType = sqlType (Proxy :: Proxy RelationshipId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Relationship x_a5joL x_a5joM) = [toPersistValue x_a5joL, toPersistValue x_a5joM] fromPersistValues [x1_a5joO, x2_a5joP] = Relationship <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a5joO <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#)) (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) . fromPersistValue) x2_a5joP fromPersistValues x_a5joN = (Left $ mappend (Data.Text.unpackCStringLen# "Relationship: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 43#)) (Data.Text.Internal.pack $ show x_a5joN)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Relationship _name_a5joQ _parent_a5joR) = [] persistFieldDef RelationshipId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef RelationshipName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Relationship) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef RelationshipParent = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Relationship) (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) persistIdField = RelationshipId fieldLens RelationshipId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5joT) key_a5joU -> Entity key_a5joU value_a5joT) fieldLens RelationshipName = Database.Persist.TH.Internal.lensPTH ((\ Relationship {relationshipName = x} -> x) . entityVal) (\ (Entity key_a5joV value_a5joW) x_a5joX -> Entity key_a5joV (case value_a5joW of Relationship {relationshipParent = relationshipParent_a5joZ} -> Relationship {relationshipName = x_a5joX, relationshipParent = relationshipParent})) fieldLens RelationshipParent = Database.Persist.TH.Internal.lensPTH ((\ Relationship {relationshipParent = x} -> x) . entityVal) (\ (Entity key_a5joV value_a5joW) x_a5joX -> Entity key_a5joV (case value_a5joW of Relationship {relationshipName = relationshipName_a5jp0} -> Relationship {relationshipName = relationshipName, relationshipParent = x_a5joX})) deriving stock instance Show (BackendKey backend) => Show (Key (RelationshipGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (RelationshipGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (RelationshipGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (RelationshipGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (RelationshipGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (RelationshipGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (RelationshipGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (RelationshipGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (RelationshipGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (RelationshipGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (RelationshipGeneric backend)) instance PersistStore backend => ToBackendKey backend (RelationshipGeneric backend) where toBackendKey = \ RelationshipKey {unRelationshipKey = x} -> x fromBackendKey = RelationshipKey type MutA = MutAGeneric SqlBackend data MutAGeneric backend = MutA {mutAMutB :: !(Key (MutBGeneric backend))} type MutAId = Key MutA instance PersistStore backend => PersistEntity (MutAGeneric backend) where type PersistEntityBackend (MutAGeneric backend) = backend data Unique (MutAGeneric backend) newtype Key (MutAGeneric backend) = MutAKey {unMutAKey :: (BackendKey backend)} data EntityField (MutAGeneric backend) typ = (typ ~ Key (MutAGeneric backend)) => MutAId | (typ ~ Key (MutBGeneric backend)) => MutAMutB keyToValues = ((: []) . (toPersistValue . (\ MutAKey {unMutAKey = x} -> x))) keyFromValues = (fmap MutAKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jpg = ((Entity <$> fromField_a5jpg MutAId) <*> (pure MutA <*> fromField_a5jpg MutAMutB)) tabulateEntityApply fromField_a5jpf = ((Entity <$> fromField_a5jpf MutAId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (MutA <$> fromField_a5jpf MutAMutB)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy MutBId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MutA x_a5jp4) = [toPersistValue x_a5jp4] fromPersistValues [x1_a5jp6] = MutA <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)) (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a5jp6 fromPersistValues x_a5jp5 = (Left $ mappend (Data.Text.unpackCStringLen# "MutA: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a5jp5)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MutA _mutB_a5jp7) = [] persistFieldDef MutAId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef MutAMutB = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy MutA) (FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = MutAId fieldLens MutAId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jp9) key_a5jpa -> Entity key_a5jpa value_a5jp9) fieldLens MutAMutB = Database.Persist.TH.Internal.lensPTH ((\ MutA {mutAMutB = x} -> x) . entityVal) (\ (Entity key_a5jpb value_a5jpc) x_a5jpd -> Entity key_a5jpb (case value_a5jpc of MutA {} -> MutA {mutAMutB = x_a5jpd})) deriving stock instance Show (BackendKey backend) => Show (Key (MutAGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (MutAGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (MutAGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (MutAGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (MutAGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (MutAGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (MutAGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (MutAGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (MutAGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (MutAGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (MutAGeneric backend)) instance PersistStore backend => ToBackendKey backend (MutAGeneric backend) where toBackendKey = \ MutAKey {unMutAKey = x} -> x fromBackendKey = MutAKey type MutB = MutBGeneric SqlBackend data MutBGeneric backend = MutB {mutBMutA :: !(Key (MutAGeneric backend))} type MutBId = Key MutB instance PersistStore backend => PersistEntity (MutBGeneric backend) where type PersistEntityBackend (MutBGeneric backend) = backend data Unique (MutBGeneric backend) newtype Key (MutBGeneric backend) = MutBKey {unMutBKey :: (BackendKey backend)} data EntityField (MutBGeneric backend) typ = (typ ~ Key (MutBGeneric backend)) => MutBId | (typ ~ Key (MutAGeneric backend)) => MutBMutA keyToValues = ((: []) . (toPersistValue . (\ MutBKey {unMutBKey = x} -> x))) keyFromValues = (fmap MutBKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5jpt = ((Entity <$> fromField_a5jpt MutBId) <*> (pure MutB <*> fromField_a5jpt MutBMutA)) tabulateEntityApply fromField_a5jps = ((Entity <$> fromField_a5jps MutBId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (MutB <$> fromField_a5jps MutBMutA)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy MutAId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MutB x_a5jph) = [toPersistValue x_a5jph] fromPersistValues [x1_a5jpj] = MutB <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)) (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a5jpj fromPersistValues x_a5jpi = (Left $ mappend (Data.Text.unpackCStringLen# "MutB: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a5jpi)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MutB _mutA_a5jpk) = [] persistFieldDef MutBId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef MutBMutA = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy MutB) (FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = MutBId fieldLens MutBId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5jpm) key_a5jpn -> Entity key_a5jpn value_a5jpm) fieldLens MutBMutA = Database.Persist.TH.Internal.lensPTH ((\ MutB {mutBMutA = x} -> x) . entityVal) (\ (Entity key_a5jpo value_a5jpp) x_a5jpq -> Entity key_a5jpo (case value_a5jpp of MutB {} -> MutB {mutBMutA = x_a5jpq})) deriving stock instance Show (BackendKey backend) => Show (Key (MutBGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (MutBGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (MutBGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (MutBGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (MutBGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (MutBGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (MutBGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (MutBGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (MutBGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (MutBGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (MutBGeneric backend)) instance PersistStore backend => ToBackendKey backend (MutBGeneric backend) where toBackendKey = \ MutBKey {unMutBKey = x} -> x fromBackendKey = MutBKey instance PersistStore backend => ToJSON (PersonGeneric backend) where toJSON (Person name_a5jpv age_a5jpw color_a5jpx) = object [(Data.Aeson.Key.fromString "name" .= name_a5jpv), (Data.Aeson.Key.fromString "age" .= age_a5jpw), (Data.Aeson.Key.fromString "color" .= color_a5jpx)] instance PersistStore backend => FromJSON (PersonGeneric backend) where parseJSON = withObject "Person" (\ obj_a5jpu -> (((pure Person <*> (obj_a5jpu .: Data.Aeson.Key.fromString "name")) <*> (obj_a5jpu .: Data.Aeson.Key.fromString "age")) <*> (obj_a5jpu .:? Data.Aeson.Key.fromString "color"))) instance PersistStore backend => ToJSON (Entity (PersonGeneric backend)) where toJSON = entityIdToJSON instance PersistStore backend => FromJSON (Entity (PersonGeneric backend)) where parseJSON = entityIdFromJSON instance PersistStore backend => ToJSON (PersonMayGeneric backend) where toJSON (PersonMay name_a5jpz color_a5jpA) = object [(Data.Aeson.Key.fromString "name" .= name_a5jpz), (Data.Aeson.Key.fromString "color" .= color_a5jpA)] instance PersistStore backend => FromJSON (PersonMayGeneric backend) where parseJSON = withObject "PersonMay" (\ obj_a5jpy -> ((pure PersonMay <*> (obj_a5jpy .:? Data.Aeson.Key.fromString "name")) <*> (obj_a5jpy .:? Data.Aeson.Key.fromString "color"))) instance PersistStore backend => ToJSON (Entity (PersonMayGeneric backend)) where toJSON = entityIdToJSON instance PersistStore backend => FromJSON (Entity (PersonMayGeneric backend)) where parseJSON = entityIdFromJSON instance PersistStoreWrite backend => OnlyOneUniqueKey (PersonGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (PersonGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (Person1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (Person1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PersonMaybeAgeGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PersonMaybeAgeGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PersonMayGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PersonMayGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MaybeOwnedPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MaybeOwnedPetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NeedsPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NeedsPetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (OutdoorPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (OutdoorPetGeneric backend) where requireUniquesP _ = error "impossible" instance PersistStoreWrite backend => OnlyOneUniqueKey (UserPTGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (UserPTGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance PersistStoreWrite backend => OnlyOneUniqueKey (EmailPTGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (EmailPTGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance PersistStoreWrite backend => OnlyOneUniqueKey (UpsertGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (UpsertGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (MultipleUniqueKeysError (UpsertByGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (UpsertByGeneric backend) where onlyUniqueP _ = error "impossible" instance PersistStoreWrite backend => AtLeastOneUniqueKey (UpsertByGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (StrictGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (StrictGeneric backend) where requireUniquesP _ = error "impossible" instance PersistStoreWrite backend => OnlyOneUniqueKey (DudeWeirdColumnsGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (DudeWeirdColumnsGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (RelationshipGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (RelationshipGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MutAGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MutAGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MutBGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MutBGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (PersonGeneric backend) (Key (PersonGeneric backend)) where symbolToField = PersonId instance SymbolToField "name" (PersonGeneric backend) Text where symbolToField = PersonName instance SymbolToField "age" (PersonGeneric backend) Int where symbolToField = PersonAge instance SymbolToField "color" (PersonGeneric backend) (Maybe Text) where symbolToField = PersonColor instance SymbolToField "id" (Person1Generic backend) (Key (Person1Generic backend)) where symbolToField = Person1Id instance SymbolToField "name" (Person1Generic backend) Text where symbolToField = Person1Name instance SymbolToField "age" (Person1Generic backend) Int where symbolToField = Person1Age instance SymbolToField "id" (PersonMaybeAgeGeneric backend) (Key (PersonMaybeAgeGeneric backend)) where symbolToField = PersonMaybeAgeId instance SymbolToField "name" (PersonMaybeAgeGeneric backend) Text where symbolToField = PersonMaybeAgeName instance SymbolToField "age" (PersonMaybeAgeGeneric backend) (Maybe Int) where symbolToField = PersonMaybeAgeAge instance SymbolToField "id" (PersonMayGeneric backend) (Key (PersonMayGeneric backend)) where symbolToField = PersonMayId instance SymbolToField "name" (PersonMayGeneric backend) (Maybe Text) where symbolToField = PersonMayName instance SymbolToField "color" (PersonMayGeneric backend) (Maybe Text) where symbolToField = PersonMayColor instance SymbolToField "id" (PetGeneric backend) (Key (PetGeneric backend)) where symbolToField = PetId instance SymbolToField "ownerId" (PetGeneric backend) (Key (PersonGeneric backend)) where symbolToField = PetOwnerId instance SymbolToField "name" (PetGeneric backend) Text where symbolToField = PetName instance SymbolToField "type" (PetGeneric backend) PetType where symbolToField = PetType instance SymbolToField "id" (MaybeOwnedPetGeneric backend) (Key (MaybeOwnedPetGeneric backend)) where symbolToField = MaybeOwnedPetId instance SymbolToField "ownerId" (MaybeOwnedPetGeneric backend) (Maybe (Key (PersonGeneric backend))) where symbolToField = MaybeOwnedPetOwnerId instance SymbolToField "name" (MaybeOwnedPetGeneric backend) Text where symbolToField = MaybeOwnedPetName instance SymbolToField "type" (MaybeOwnedPetGeneric backend) PetType where symbolToField = MaybeOwnedPetType instance SymbolToField "id" (NeedsPetGeneric backend) (Key (NeedsPetGeneric backend)) where symbolToField = NeedsPetId instance SymbolToField "petKey" (NeedsPetGeneric backend) (Key (PetGeneric backend)) where symbolToField = NeedsPetPetKey instance SymbolToField "id" (OutdoorPetGeneric backend) (Key (OutdoorPetGeneric backend)) where symbolToField = OutdoorPetId instance SymbolToField "ownerId" (OutdoorPetGeneric backend) (Key (PersonGeneric backend)) where symbolToField = OutdoorPetOwnerId instance SymbolToField "collar" (OutdoorPetGeneric backend) PetCollar where symbolToField = OutdoorPetCollar instance SymbolToField "type" (OutdoorPetGeneric backend) PetType where symbolToField = OutdoorPetType instance SymbolToField "id" (UserPTGeneric backend) (Key (UserPTGeneric backend)) where symbolToField = UserPTId instance SymbolToField "ident" (UserPTGeneric backend) Text where symbolToField = UserPTIdent instance SymbolToField "password" (UserPTGeneric backend) (Maybe Text) where symbolToField = UserPTPassword instance SymbolToField "id" (EmailPTGeneric backend) (Key (EmailPTGeneric backend)) where symbolToField = EmailPTId instance SymbolToField "email" (EmailPTGeneric backend) Text where symbolToField = EmailPTEmail instance SymbolToField "user" (EmailPTGeneric backend) (Maybe (Key (UserPTGeneric backend))) where symbolToField = EmailPTUser instance SymbolToField "verkey" (EmailPTGeneric backend) (Maybe Text) where symbolToField = EmailPTVerkey instance SymbolToField "id" (UpsertGeneric backend) (Key (UpsertGeneric backend)) where symbolToField = UpsertId instance SymbolToField "email" (UpsertGeneric backend) Text where symbolToField = UpsertEmail instance SymbolToField "attr" (UpsertGeneric backend) Text where symbolToField = UpsertAttr instance SymbolToField "extra" (UpsertGeneric backend) Text where symbolToField = UpsertExtra instance SymbolToField "age" (UpsertGeneric backend) Int where symbolToField = UpsertAge instance SymbolToField "id" (UpsertByGeneric backend) (Key (UpsertByGeneric backend)) where symbolToField = UpsertById instance SymbolToField "email" (UpsertByGeneric backend) Text where symbolToField = UpsertByEmail instance SymbolToField "city" (UpsertByGeneric backend) Text where symbolToField = UpsertByCity instance SymbolToField "attr" (UpsertByGeneric backend) Text where symbolToField = UpsertByAttr instance SymbolToField "id" (StrictGeneric backend) (Key (StrictGeneric backend)) where symbolToField = StrictId instance SymbolToField "yes" (StrictGeneric backend) Int where symbolToField = StrictYes instance SymbolToField "no" (StrictGeneric backend) Int where symbolToField = StrictNo instance SymbolToField "def" (StrictGeneric backend) Int where symbolToField = StrictDef instance SymbolToField "id" (DudeWeirdColumnsGeneric backend) (Key (DudeWeirdColumnsGeneric backend)) where symbolToField = DudeWeirdColumnsId instance SymbolToField "name" (DudeWeirdColumnsGeneric backend) Text where symbolToField = DudeWeirdColumnsName instance SymbolToField "id" (RelationshipGeneric backend) (Key (RelationshipGeneric backend)) where symbolToField = RelationshipId instance SymbolToField "name" (RelationshipGeneric backend) String where symbolToField = RelationshipName instance SymbolToField "parent" (RelationshipGeneric backend) (Maybe (Key (RelationshipGeneric backend))) where symbolToField = RelationshipParent instance SymbolToField "id" (MutAGeneric backend) (Key (MutAGeneric backend)) where symbolToField = MutAId instance SymbolToField "mutB" (MutAGeneric backend) (Key (MutBGeneric backend)) where symbolToField = MutAMutB instance SymbolToField "id" (MutBGeneric backend) (Key (MutBGeneric backend)) where symbolToField = MutBId instance SymbolToField "mutA" (MutBGeneric backend) (Key (MutAGeneric backend)) where symbolToField = MutBMutA instance PersistStoreWrite backend => SafeToInsert (PersonGeneric backend) instance PersistStoreWrite backend => SafeToInsert (Person1Generic backend) instance PersistStoreWrite backend => SafeToInsert (PersonMaybeAgeGeneric backend) instance PersistStoreWrite backend => SafeToInsert (PersonMayGeneric backend) instance PersistStoreWrite backend => SafeToInsert (PetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MaybeOwnedPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (NeedsPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (OutdoorPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UserPTGeneric backend) instance PersistStoreWrite backend => SafeToInsert (EmailPTGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UpsertGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UpsertByGeneric backend) instance PersistStoreWrite backend => SafeToInsert (StrictGeneric backend) instance PersistStoreWrite backend => SafeToInsert (DudeWeirdColumnsGeneric backend) instance PersistStoreWrite backend => SafeToInsert (RelationshipGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MutAGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MutBGeneric backend) entityDefListFortestMigrate :: [EntityDef] entityDefListFortestMigrate = [entityDef (Proxy :: Proxy Person), entityDef (Proxy :: Proxy Person1), entityDef (Proxy :: Proxy PersonMaybeAge), entityDef (Proxy :: Proxy PersonMay), entityDef (Proxy :: Proxy Pet), entityDef (Proxy :: Proxy MaybeOwnedPet), entityDef (Proxy :: Proxy NeedsPet), entityDef (Proxy :: Proxy OutdoorPet), entityDef (Proxy :: Proxy UserPT), entityDef (Proxy :: Proxy EmailPT), entityDef (Proxy :: Proxy Upsert), entityDef (Proxy :: Proxy UpsertBy), entityDef (Proxy :: Proxy Strict), entityDef (Proxy :: Proxy DudeWeirdColumns), entityDef (Proxy :: Proxy Relationship), entityDef (Proxy :: Proxy MutA), entityDef (Proxy :: Proxy MutB)] testMigrate :: Migration testMigrate = migrateModels entityDefListFortestMigrate src/PersistentTestModels.hs:(147,23)-(158,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \NoPrefix1\n\ \ someFieldName Int\n\ \NoPrefix2\n\ \ someOtherFieldName Int\n\ \ unprefixedRef NoPrefix1Id\n\ \+NoPrefixSum\n\ \ unprefixedLeft Int\n\ \ unprefixedRight String\n\ \ deriving Show Eq\n\ \\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))] src/PersistentTestModels.hs:(137,1)-(158,2): Splicing declarations share [mkPersist persistSettings {mpsPrefixFields = False, mpsFieldLabelModifier = \ _ _ -> "", mpsConstraintLabelModifier = \ _ _ -> "", mpsGeneric = True}, mkMigrate "noPrefixMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))]) ======> instance PersistStore backend => PersistField (NoPrefix1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["someFieldName"] instance PersistStore backend => PersistFieldSql (NoPrefix1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NoPrefix2Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["someOtherFieldName", "unprefixedRef"] instance PersistStore backend => PersistFieldSql (NoPrefix2Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NoPrefixSumGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["unprefixedLeft", "unprefixedRight"] instance PersistStore backend => PersistFieldSql (NoPrefixSumGeneric backend) where sqlType _ = SqlString type NoPrefix1 = NoPrefix1Generic SqlBackend data NoPrefix1Generic backend = NoPrefix1 {someFieldName :: !Int} type NoPrefix1Id = Key NoPrefix1 instance PersistStore backend => PersistEntity (NoPrefix1Generic backend) where type PersistEntityBackend (NoPrefix1Generic backend) = backend data Unique (NoPrefix1Generic backend) newtype Key (NoPrefix1Generic backend) = NoPrefix1Key {unNoPrefix1Key :: (BackendKey backend)} data EntityField (NoPrefix1Generic backend) typ = (typ ~ Key (NoPrefix1Generic backend)) => NoPrefix1Id | (typ ~ Int) => SomeFieldName keyToValues = ((: []) . (toPersistValue . (\ NoPrefix1Key {unNoPrefix1Key = x} -> x))) keyFromValues = (fmap NoPrefix1Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5wSy = ((Entity <$> fromField_a5wSy NoPrefix1Id) <*> (pure NoPrefix1 <*> fromField_a5wSy SomeFieldName)) tabulateEntityApply fromField_a5wSx = ((Entity <$> fromField_a5wSx NoPrefix1Id) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (NoPrefix1 <$> fromField_a5wSx SomeFieldName)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NoPrefix1 x_a5wSm) = [toPersistValue x_a5wSm] fromPersistValues [x1_a5wSo] = NoPrefix1 <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) . fromPersistValue) x1_a5wSo fromPersistValues x_a5wSn = (Left $ mappend (Data.Text.unpackCStringLen# "NoPrefix1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a5wSn)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NoPrefix1 _someFieldName_a5wSp) = [] persistFieldDef NoPrefix1Id = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef SomeFieldName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NoPrefix1) (FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) persistIdField = NoPrefix1Id fieldLens NoPrefix1Id = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5wSr) key_a5wSs -> Entity key_a5wSs value_a5wSr) fieldLens SomeFieldName = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix1 {someFieldName = x} -> x) . entityVal) (\ (Entity key_a5wSt value_a5wSu) x_a5wSv -> Entity key_a5wSt (case value_a5wSu of NoPrefix1 {} -> NoPrefix1 {someFieldName = x_a5wSv})) deriving stock instance Show (BackendKey backend) => Show (Key (NoPrefix1Generic backend)) deriving stock instance Read (BackendKey backend) => Read (Key (NoPrefix1Generic backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (NoPrefix1Generic backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (NoPrefix1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefix1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefix1Generic backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (NoPrefix1Generic backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (NoPrefix1Generic backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (NoPrefix1Generic backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (NoPrefix1Generic backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (NoPrefix1Generic backend)) instance PersistStore backend => ToBackendKey backend (NoPrefix1Generic backend) where toBackendKey = \ NoPrefix1Key {unNoPrefix1Key = x} -> x fromBackendKey = NoPrefix1Key type NoPrefix2 = NoPrefix2Generic SqlBackend data NoPrefix2Generic backend = NoPrefix2 {someOtherFieldName :: !Int, unprefixedRef :: !(Key (NoPrefix1Generic backend))} type NoPrefix2Id = Key NoPrefix2 instance PersistStore backend => PersistEntity (NoPrefix2Generic backend) where type PersistEntityBackend (NoPrefix2Generic backend) = backend data Unique (NoPrefix2Generic backend) newtype Key (NoPrefix2Generic backend) = NoPrefix2Key {unNoPrefix2Key :: (BackendKey backend)} data EntityField (NoPrefix2Generic backend) typ = (typ ~ Key (NoPrefix2Generic backend)) => NoPrefix2Id | (typ ~ Int) => SomeOtherFieldName | (typ ~ Key (NoPrefix1Generic backend)) => UnprefixedRef keyToValues = ((: []) . (toPersistValue . (\ NoPrefix2Key {unNoPrefix2Key = x} -> x))) keyFromValues = (fmap NoPrefix2Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5wSR = ((Entity <$> fromField_a5wSR NoPrefix2Id) <*> ((pure NoPrefix2 <*> fromField_a5wSR SomeOtherFieldName) <*> fromField_a5wSR UnprefixedRef)) tabulateEntityApply fromField_a5wSQ = ((Entity <$> fromField_a5wSQ NoPrefix2Id) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((NoPrefix2 <$> fromField_a5wSQ SomeOtherFieldName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5wSQ UnprefixedRef)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)), fieldSqlType = sqlType (Proxy :: Proxy NoPrefix1Id), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NoPrefix2 x_a5wSz x_a5wSA) = [toPersistValue x_a5wSz, toPersistValue x_a5wSA] fromPersistValues [x1_a5wSC, x2_a5wSD] = NoPrefix2 <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) . fromPersistValue) x1_a5wSC <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) . fromPersistValue) x2_a5wSD fromPersistValues x_a5wSB = (Left $ mappend (Data.Text.unpackCStringLen# "NoPrefix2: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a5wSB)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NoPrefix2 _someOtherFieldName_a5wSE _unprefixedRef_a5wSF) = [] persistFieldDef NoPrefix2Id = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef SomeOtherFieldName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NoPrefix2) (FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) persistFieldDef UnprefixedRef = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NoPrefix2) (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) persistIdField = NoPrefix2Id fieldLens NoPrefix2Id = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5wSH) key_a5wSI -> Entity key_a5wSI value_a5wSH) fieldLens SomeOtherFieldName = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix2 {someOtherFieldName = x} -> x) . entityVal) (\ (Entity key_a5wSJ value_a5wSK) x_a5wSL -> Entity key_a5wSJ (case value_a5wSK of NoPrefix2 {unprefixedRef = unprefixedRef_a5wSN} -> NoPrefix2 {someOtherFieldName = x_a5wSL, unprefixedRef = unprefixedRef})) fieldLens UnprefixedRef = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix2 {unprefixedRef = x} -> x) . entityVal) (\ (Entity key_a5wSJ value_a5wSK) x_a5wSL -> Entity key_a5wSJ (case value_a5wSK of NoPrefix2 {someOtherFieldName = someOtherFieldName_a5wSO} -> NoPrefix2 {someOtherFieldName = someOtherFieldName, unprefixedRef = x_a5wSL})) deriving stock instance Show (BackendKey backend) => Show (Key (NoPrefix2Generic backend)) deriving stock instance Read (BackendKey backend) => Read (Key (NoPrefix2Generic backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (NoPrefix2Generic backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (NoPrefix2Generic backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefix2Generic backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefix2Generic backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (NoPrefix2Generic backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (NoPrefix2Generic backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (NoPrefix2Generic backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (NoPrefix2Generic backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (NoPrefix2Generic backend)) instance PersistStore backend => ToBackendKey backend (NoPrefix2Generic backend) where toBackendKey = \ NoPrefix2Key {unNoPrefix2Key = x} -> x fromBackendKey = NoPrefix2Key type NoPrefixSum = NoPrefixSumGeneric SqlBackend data NoPrefixSumGeneric backend = UnprefixedLeftSum Int | UnprefixedRightSum String deriving stock (Show, Eq) type NoPrefixSumId = Key NoPrefixSum instance PersistStore backend => PersistEntity (NoPrefixSumGeneric backend) where type PersistEntityBackend (NoPrefixSumGeneric backend) = backend data Unique (NoPrefixSumGeneric backend) newtype Key (NoPrefixSumGeneric backend) = NoPrefixSumKey {unNoPrefixSumKey :: (BackendKey backend)} data EntityField (NoPrefixSumGeneric backend) typ = (typ ~ Key (NoPrefixSumGeneric backend)) => NoPrefixSumId | (typ ~ Int) => UnprefixedLeft | (typ ~ String) => UnprefixedRight keyToValues = ((: []) . (toPersistValue . (\ NoPrefixSumKey {unNoPrefixSumKey = x} -> x))) keyFromValues = (fmap NoPrefixSumKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5wT3 = error "tabulateEntityA does not make sense for sum type" tabulateEntityApply fromField_a5wT2 = error "tabulateEntityApply does not make sense for sum type" entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UnprefixedLeftSum x_a5wSS) = [toPersistValue x_a5wSS, PersistNull] toPersistFields (UnprefixedRightSum x_a5wST) = [PersistNull, toPersistValue x_a5wST] fromPersistValues [x_a5wSU, PersistNull] | Database.Persist.TH.Internal.isNotNull x_a5wSU = (UnprefixedLeftSum `fmap` fromPersistValue x_a5wSU) fromPersistValues [PersistNull, x_a5wSV] | Database.Persist.TH.Internal.isNotNull x_a5wSV = (UnprefixedRightSum `fmap` fromPersistValue x_a5wSV) fromPersistValues _ = Left ("Invalid fromPersistValues input: sum type with all nulls. Entity: " `mappend` Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys _ = [] persistFieldDef NoPrefixSumId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef UnprefixedLeft = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NoPrefixSum) (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#))) persistFieldDef UnprefixedRight = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NoPrefixSum) (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#))) persistIdField = NoPrefixSumId fieldLens NoPrefixSumId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5wSX) key_a5wSY -> Entity key_a5wSY value_a5wSX) fieldLens UnprefixedLeft = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a5wT0) -> case value_a5wT0 of UnprefixedLeftSum x_a5wT1 -> x_a5wT1 _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a5wSZ _) x_a5wT1 -> Entity key_a5wSZ (UnprefixedLeftSum x_a5wT1)) fieldLens UnprefixedRight = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a5wT0) -> case value_a5wT0 of UnprefixedRightSum x_a5wT1 -> x_a5wT1 _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a5wSZ _) x_a5wT1 -> Entity key_a5wSZ (UnprefixedRightSum x_a5wT1)) deriving stock instance Show (BackendKey backend) => Show (Key (NoPrefixSumGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (NoPrefixSumGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (NoPrefixSumGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (NoPrefixSumGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (NoPrefixSumGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (NoPrefixSumGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (NoPrefixSumGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (NoPrefixSumGeneric backend)) instance PersistStore backend => ToBackendKey backend (NoPrefixSumGeneric backend) where toBackendKey = \ NoPrefixSumKey {unNoPrefixSumKey = x} -> x fromBackendKey = NoPrefixSumKey instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefix1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefix1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefix2Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefix2Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefixSumGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefixSumGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (NoPrefix1Generic backend) (Key (NoPrefix1Generic backend)) where symbolToField = NoPrefix1Id instance SymbolToField "someFieldName" (NoPrefix1Generic backend) Int where symbolToField = SomeFieldName instance SymbolToField "id" (NoPrefix2Generic backend) (Key (NoPrefix2Generic backend)) where symbolToField = NoPrefix2Id instance SymbolToField "someOtherFieldName" (NoPrefix2Generic backend) Int where symbolToField = SomeOtherFieldName instance SymbolToField "unprefixedRef" (NoPrefix2Generic backend) (Key (NoPrefix1Generic backend)) where symbolToField = UnprefixedRef instance SymbolToField "id" (NoPrefixSumGeneric backend) (Key (NoPrefixSumGeneric backend)) where symbolToField = NoPrefixSumId instance SymbolToField "unprefixedLeft" (NoPrefixSumGeneric backend) Int where symbolToField = UnprefixedLeft instance SymbolToField "unprefixedRight" (NoPrefixSumGeneric backend) String where symbolToField = UnprefixedRight instance PersistStoreWrite backend => SafeToInsert (NoPrefix1Generic backend) instance PersistStoreWrite backend => SafeToInsert (NoPrefix2Generic backend) instance PersistStoreWrite backend => SafeToInsert (NoPrefixSumGeneric backend) entityDefListFornoPrefixMigrate :: [EntityDef] entityDefListFornoPrefixMigrate = [entityDef (Proxy :: Proxy NoPrefix1), entityDef (Proxy :: Proxy NoPrefix2), entityDef (Proxy :: Proxy NoPrefixSum)] noPrefixMigrate :: Migration noPrefixMigrate = migrateModels entityDefListFornoPrefixMigrate src/PersistentTestModels.hs:(182,23)-(192,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \CustomPrefix1\n\ \ customFieldName Int\n\ \CustomPrefix2\n\ \ otherCustomFieldName Int\n\ \ customPrefixedRef CustomPrefix1Id\n\ \+CustomPrefixSum\n\ \ customPrefixedLeft Int\n\ \ customPrefixedRight String\n\ \ deriving Show Eq\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) (FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))] src/PersistentTestModels.hs:(166,1)-(192,2): Splicing declarations share [mkPersist persistSettings {mpsFieldLabelModifier = \ entity_a5z2B field_a5z2C -> case entity_a5z2B of "CustomPrefix1" -> append "_cp1" field_a5z2C "CustomPrefix2" -> append "_cp2" field_a5z2C _ -> error "should not be called", mpsConstraintLabelModifier = \ entity_a5z2D field_a5z2E -> case entity_a5z2D of "CustomPrefix1" -> append "CP1" field_a5z2E "CustomPrefix2" -> append "CP2" field_a5z2E "CustomPrefixSum" -> append "CP" field_a5z2E _ -> error "should not be called", mpsGeneric = True}, mkMigrate "customPrefixMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) (FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))]) ======> instance PersistStore backend => PersistField (CustomPrefix1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["customFieldName"] instance PersistStore backend => PersistFieldSql (CustomPrefix1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (CustomPrefix2Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["otherCustomFieldName", "customPrefixedRef"] instance PersistStore backend => PersistFieldSql (CustomPrefix2Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (CustomPrefixSumGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["customPrefixedLeft", "customPrefixedRight"] instance PersistStore backend => PersistFieldSql (CustomPrefixSumGeneric backend) where sqlType _ = SqlString type CustomPrefix1 = CustomPrefix1Generic SqlBackend data CustomPrefix1Generic backend = CustomPrefix1 {_cp1CustomFieldName :: !Int} type CustomPrefix1Id = Key CustomPrefix1 instance PersistStore backend => PersistEntity (CustomPrefix1Generic backend) where type PersistEntityBackend (CustomPrefix1Generic backend) = backend data Unique (CustomPrefix1Generic backend) newtype Key (CustomPrefix1Generic backend) = CustomPrefix1Key {unCustomPrefix1Key :: (BackendKey backend)} data EntityField (CustomPrefix1Generic backend) typ = (typ ~ Key (CustomPrefix1Generic backend)) => CustomPrefix1Id | (typ ~ Int) => CP1CustomFieldName keyToValues = ((: []) . (toPersistValue . (\ CustomPrefix1Key {unCustomPrefix1Key = x} -> x))) keyFromValues = (fmap CustomPrefix1Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5zm7 = ((Entity <$> fromField_a5zm7 CustomPrefix1Id) <*> (pure CustomPrefix1 <*> fromField_a5zm7 CP1CustomFieldName)) tabulateEntityApply fromField_a5zm6 = ((Entity <$> fromField_a5zm6 CustomPrefix1Id) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (CustomPrefix1 <$> fromField_a5zm6 CP1CustomFieldName)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CustomPrefix1 x_a5zlV) = [toPersistValue x_a5zlV] fromPersistValues [x1_a5zlX] = CustomPrefix1 <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#)) (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) . fromPersistValue) x1_a5zlX fromPersistValues x_a5zlW = (Left $ mappend (Data.Text.unpackCStringLen# "CustomPrefix1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a5zlW)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (CustomPrefix1 _customFieldName_a5zlY) = [] persistFieldDef CustomPrefix1Id = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef CP1CustomFieldName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy CustomPrefix1) (FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) persistIdField = CustomPrefix1Id fieldLens CustomPrefix1Id = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5zm0) key_a5zm1 -> Entity key_a5zm1 value_a5zm0) fieldLens CP1CustomFieldName = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix1 {_cp1CustomFieldName = x} -> x) . entityVal) (\ (Entity key_a5zm2 value_a5zm3) x_a5zm4 -> Entity key_a5zm2 (case value_a5zm3 of CustomPrefix1 {} -> CustomPrefix1 {_cp1CustomFieldName = x_a5zm4})) deriving stock instance Show (BackendKey backend) => Show (Key (CustomPrefix1Generic backend)) deriving stock instance Read (BackendKey backend) => Read (Key (CustomPrefix1Generic backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (CustomPrefix1Generic backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (CustomPrefix1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefix1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefix1Generic backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (CustomPrefix1Generic backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (CustomPrefix1Generic backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (CustomPrefix1Generic backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (CustomPrefix1Generic backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (CustomPrefix1Generic backend)) instance PersistStore backend => ToBackendKey backend (CustomPrefix1Generic backend) where toBackendKey = \ CustomPrefix1Key {unCustomPrefix1Key = x} -> x fromBackendKey = CustomPrefix1Key type CustomPrefix2 = CustomPrefix2Generic SqlBackend data CustomPrefix2Generic backend = CustomPrefix2 {_cp2OtherCustomFieldName :: !Int, _cp2CustomPrefixedRef :: !(Key (CustomPrefix1Generic backend))} type CustomPrefix2Id = Key CustomPrefix2 instance PersistStore backend => PersistEntity (CustomPrefix2Generic backend) where type PersistEntityBackend (CustomPrefix2Generic backend) = backend data Unique (CustomPrefix2Generic backend) newtype Key (CustomPrefix2Generic backend) = CustomPrefix2Key {unCustomPrefix2Key :: (BackendKey backend)} data EntityField (CustomPrefix2Generic backend) typ = (typ ~ Key (CustomPrefix2Generic backend)) => CustomPrefix2Id | (typ ~ Int) => CP2OtherCustomFieldName | (typ ~ Key (CustomPrefix1Generic backend)) => CP2CustomPrefixedRef keyToValues = ((: []) . (toPersistValue . (\ CustomPrefix2Key {unCustomPrefix2Key = x} -> x))) keyFromValues = (fmap CustomPrefix2Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5zmq = ((Entity <$> fromField_a5zmq CustomPrefix2Id) <*> ((pure CustomPrefix2 <*> fromField_a5zmq CP2OtherCustomFieldName) <*> fromField_a5zmq CP2CustomPrefixedRef)) tabulateEntityApply fromField_a5zmp = ((Entity <$> fromField_a5zmp CustomPrefix2Id) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((CustomPrefix2 <$> fromField_a5zmp CP2OtherCustomFieldName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5zmp CP2CustomPrefixedRef)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)), fieldSqlType = sqlType (Proxy :: Proxy CustomPrefix1Id), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CustomPrefix2 x_a5zm8 x_a5zm9) = [toPersistValue x_a5zm8, toPersistValue x_a5zm9] fromPersistValues [x1_a5zmb, x2_a5zmc] = CustomPrefix2 <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#)) (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) . fromPersistValue) x1_a5zmb <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#)) (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) . fromPersistValue) x2_a5zmc fromPersistValues x_a5zma = (Left $ mappend (Data.Text.unpackCStringLen# "CustomPrefix2: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a5zma)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (CustomPrefix2 _otherCustomFieldName_a5zmd _customPrefixedRef_a5zme) = [] persistFieldDef CustomPrefix2Id = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef CP2OtherCustomFieldName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy CustomPrefix2) (FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) persistFieldDef CP2CustomPrefixedRef = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy CustomPrefix2) (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) persistIdField = CustomPrefix2Id fieldLens CustomPrefix2Id = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5zmg) key_a5zmh -> Entity key_a5zmh value_a5zmg) fieldLens CP2OtherCustomFieldName = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix2 {_cp2OtherCustomFieldName = x} -> x) . entityVal) (\ (Entity key_a5zmi value_a5zmj) x_a5zmk -> Entity key_a5zmi (case value_a5zmj of CustomPrefix2 {_cp2CustomPrefixedRef = _cp2CustomPrefixedRef_a5zmm} -> CustomPrefix2 {_cp2OtherCustomFieldName = x_a5zmk, _cp2CustomPrefixedRef = _cp2CustomPrefixedRef})) fieldLens CP2CustomPrefixedRef = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix2 {_cp2CustomPrefixedRef = x} -> x) . entityVal) (\ (Entity key_a5zmi value_a5zmj) x_a5zmk -> Entity key_a5zmi (case value_a5zmj of CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName_a5zmn} -> CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName, _cp2CustomPrefixedRef = x_a5zmk})) deriving stock instance Show (BackendKey backend) => Show (Key (CustomPrefix2Generic backend)) deriving stock instance Read (BackendKey backend) => Read (Key (CustomPrefix2Generic backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (CustomPrefix2Generic backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (CustomPrefix2Generic backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefix2Generic backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefix2Generic backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (CustomPrefix2Generic backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (CustomPrefix2Generic backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (CustomPrefix2Generic backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (CustomPrefix2Generic backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (CustomPrefix2Generic backend)) instance PersistStore backend => ToBackendKey backend (CustomPrefix2Generic backend) where toBackendKey = \ CustomPrefix2Key {unCustomPrefix2Key = x} -> x fromBackendKey = CustomPrefix2Key type CustomPrefixSum = CustomPrefixSumGeneric SqlBackend data CustomPrefixSumGeneric backend = CPCustomPrefixedLeftSum Int | CPCustomPrefixedRightSum String deriving stock (Show, Eq) type CustomPrefixSumId = Key CustomPrefixSum instance PersistStore backend => PersistEntity (CustomPrefixSumGeneric backend) where type PersistEntityBackend (CustomPrefixSumGeneric backend) = backend data Unique (CustomPrefixSumGeneric backend) newtype Key (CustomPrefixSumGeneric backend) = CustomPrefixSumKey {unCustomPrefixSumKey :: (BackendKey backend)} data EntityField (CustomPrefixSumGeneric backend) typ = (typ ~ Key (CustomPrefixSumGeneric backend)) => CustomPrefixSumId | (typ ~ Int) => CPCustomPrefixedLeft | (typ ~ String) => CPCustomPrefixedRight keyToValues = ((: []) . (toPersistValue . (\ CustomPrefixSumKey {unCustomPrefixSumKey = x} -> x))) keyFromValues = (fmap CustomPrefixSumKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a5zmC = error "tabulateEntityA does not make sense for sum type" tabulateEntityApply fromField_a5zmB = error "tabulateEntityApply does not make sense for sum type" entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CPCustomPrefixedLeftSum x_a5zmr) = [toPersistValue x_a5zmr, PersistNull] toPersistFields (CPCustomPrefixedRightSum x_a5zms) = [PersistNull, toPersistValue x_a5zms] fromPersistValues [x_a5zmt, PersistNull] | Database.Persist.TH.Internal.isNotNull x_a5zmt = (CPCustomPrefixedLeftSum `fmap` fromPersistValue x_a5zmt) fromPersistValues [PersistNull, x_a5zmu] | Database.Persist.TH.Internal.isNotNull x_a5zmu = (CPCustomPrefixedRightSum `fmap` fromPersistValue x_a5zmu) fromPersistValues _ = Left ("Invalid fromPersistValues input: sum type with all nulls. Entity: " `mappend` Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys _ = [] persistFieldDef CustomPrefixSumId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef CPCustomPrefixedLeft = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy CustomPrefixSum) (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#))) persistFieldDef CPCustomPrefixedRight = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy CustomPrefixSum) (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#))) persistIdField = CustomPrefixSumId fieldLens CustomPrefixSumId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5zmw) key_a5zmx -> Entity key_a5zmx value_a5zmw) fieldLens CPCustomPrefixedLeft = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a5zmz) -> case value_a5zmz of CPCustomPrefixedLeftSum x_a5zmA -> x_a5zmA _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a5zmy _) x_a5zmA -> Entity key_a5zmy (CPCustomPrefixedLeftSum x_a5zmA)) fieldLens CPCustomPrefixedRight = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a5zmz) -> case value_a5zmz of CPCustomPrefixedRightSum x_a5zmA -> x_a5zmA _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a5zmy _) x_a5zmA -> Entity key_a5zmy (CPCustomPrefixedRightSum x_a5zmA)) deriving stock instance Show (BackendKey backend) => Show (Key (CustomPrefixSumGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (CustomPrefixSumGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (CustomPrefixSumGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (CustomPrefixSumGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (CustomPrefixSumGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (CustomPrefixSumGeneric backend)) instance PersistStore backend => ToBackendKey backend (CustomPrefixSumGeneric backend) where toBackendKey = \ CustomPrefixSumKey {unCustomPrefixSumKey = x} -> x fromBackendKey = CustomPrefixSumKey instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefix1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefix1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefix2Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefix2Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefixSumGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefixSumGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (CustomPrefix1Generic backend) (Key (CustomPrefix1Generic backend)) where symbolToField = CustomPrefix1Id instance SymbolToField "customFieldName" (CustomPrefix1Generic backend) Int where symbolToField = CP1CustomFieldName instance SymbolToField "id" (CustomPrefix2Generic backend) (Key (CustomPrefix2Generic backend)) where symbolToField = CustomPrefix2Id instance SymbolToField "otherCustomFieldName" (CustomPrefix2Generic backend) Int where symbolToField = CP2OtherCustomFieldName instance SymbolToField "customPrefixedRef" (CustomPrefix2Generic backend) (Key (CustomPrefix1Generic backend)) where symbolToField = CP2CustomPrefixedRef instance SymbolToField "id" (CustomPrefixSumGeneric backend) (Key (CustomPrefixSumGeneric backend)) where symbolToField = CustomPrefixSumId instance SymbolToField "customPrefixedLeft" (CustomPrefixSumGeneric backend) Int where symbolToField = CPCustomPrefixedLeft instance SymbolToField "customPrefixedRight" (CustomPrefixSumGeneric backend) String where symbolToField = CPCustomPrefixedRight instance PersistStoreWrite backend => SafeToInsert (CustomPrefix1Generic backend) instance PersistStoreWrite backend => SafeToInsert (CustomPrefix2Generic backend) instance PersistStoreWrite backend => SafeToInsert (CustomPrefixSumGeneric backend) entityDefListForcustomPrefixMigrate :: [EntityDef] entityDefListForcustomPrefixMigrate = [entityDef (Proxy :: Proxy CustomPrefix1), entityDef (Proxy :: Proxy CustomPrefix2), entityDef (Proxy :: Proxy CustomPrefixSum)] customPrefixMigrate :: Migration customPrefixMigrate = migrateModels entityDefListForcustomPrefixMigrate src/PersistentTestModels.hs:(206,23)-(213,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \\n\ \Tree sql=trees\n\ \ name String\n\ \ parent String Maybe\n\ \ Primary name\n\ \ Foreign Tree fkparent parent\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [Database.Persist.Quasi.Internal.UnboundForeignDef (Database.Persist.Quasi.Internal.FieldListImpliedId (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)) NEL.:| [])) (ForeignDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#))) (ConstraintNameHS (Data.Text.unpackCStringLen# "fkparent"# (ghc-prim:GHC.Types.I# 8#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "treefkparent"# (ghc-prim:GHC.Types.I# 12#))) (FieldCascade Nothing Nothing) [] [] False True)] (Database.Persist.Quasi.Internal.NaturalKey (Database.Persist.Quasi.Internal.UnboundCompositeDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)) NEL.:| []) [])) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))] src/PersistentTestModels.hs:(202,1)-(213,2): Splicing declarations share [mkPersist persistSettings {mpsPrefixFields = False, mpsGeneric = False}, mkMigrate "treeMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [Database.Persist.Quasi.Internal.UnboundForeignDef (Database.Persist.Quasi.Internal.FieldListImpliedId (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)) NEL.:| [])) (ForeignDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#))) (ConstraintNameHS (Data.Text.unpackCStringLen# "fkparent"# (ghc-prim:GHC.Types.I# 8#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "treefkparent"# (ghc-prim:GHC.Types.I# 12#))) (FieldCascade Nothing Nothing) [] [] False True)] (Database.Persist.Quasi.Internal.NaturalKey (Database.Persist.Quasi.Internal.UnboundCompositeDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)) NEL.:| []) [])) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))]) ======> instance PersistField Tree where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "parent"] instance PersistFieldSql Tree where sqlType _ = SqlString data Tree = Tree {name :: !String, parent :: !(Maybe String)} fkparent :: Tree -> Maybe (Key Tree) fkparent record_mkForeignKeysComposite_a5BG8 = fmap TreeKey (ghc-prim:GHC.Prim.coerce (parent record_mkForeignKeysComposite_a5BG8)) type TreeId = Key Tree instance PersistEntity Tree where type PersistEntityBackend Tree = SqlBackend data Unique Tree = TreePrimaryKey String newtype Key Tree = TreeKey {unTreeKey :: String} deriving stock Show deriving stock Read deriving newtype Eq deriving newtype Ord deriving newtype Web.PathPieces.PathPiece deriving newtype Web.Internal.HttpApiData.ToHttpApiData deriving newtype Web.Internal.HttpApiData.FromHttpApiData deriving newtype PersistField deriving newtype PersistFieldSql deriving newtype ToJSON deriving newtype FromJSON data EntityField Tree typ = (typ ~ TreeId) => TreeId | (typ ~ String) => Name | (typ ~ Maybe String) => Parent keyToValues record_a5BG9 = [toPersistValue ((\ TreeKey {unTreeKey = x} -> x) record_a5BG9)] keyFromValues [x1_a5BGb] = TreeKey <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a5BGb keyFromValues x_a5BGa = (Left $ mappend (Data.Text.unpackCStringLen# "Tree: keyFromValues failed on: "# (ghc-prim:GHC.Types.I# 31#)) (Data.Text.Internal.pack $ show x_a5BGa)) keyFromRecordM = Just (\ Tree {name = name_a5BGl} -> TreeKey name_a5BGl) tabulateEntityA fromField_a5BGn = ((Entity <$> fromField_a5BGn TreeId) <*> ((pure Tree <*> fromField_a5BGn Name) <*> fromField_a5BGn Parent)) tabulateEntityApply fromField_a5BGm = ((Entity <$> fromField_a5BGm TreeId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((Tree <$> fromField_a5BGm Name) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a5BGm Parent)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdNaturalKey CompositeDef {compositeFields = NEL.fromList [Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Tree) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))], compositeAttrs = []}, persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = [ForeignDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#))) (ConstraintNameHS (Data.Text.unpackCStringLen# "fkparent"# (ghc-prim:GHC.Types.I# 8#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "treefkparent"# (ghc-prim:GHC.Types.I# 12#))) (FieldCascade Nothing Nothing) [] [] False True {foreignFields = [((FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))), (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))))], foreignNullable = True, foreignRefTableDBName = EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))}]} toPersistFields (Tree x_a5BG0 x_a5BG1) = [toPersistValue x_a5BG0, toPersistValue x_a5BG1] fromPersistValues [x1_a5BG3, x2_a5BG4] = Tree <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a5BG3 <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)) (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) . fromPersistValue) x2_a5BG4 fromPersistValues x_a5BG2 = (Left $ mappend (Data.Text.unpackCStringLen# "Tree: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a5BG2)) persistUniqueToFieldNames TreePrimaryKey {} = ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) persistUniqueToValues (TreePrimaryKey x_a5BG5) = [toPersistValue x_a5BG5] persistUniqueKeys (Tree _name_a5BG6 _parent_a5BG7) = [TreePrimaryKey _name_a5BG6] persistFieldDef TreeId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdNaturalKey CompositeDef {compositeFields = NEL.fromList [Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Tree) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))], compositeAttrs = []}) persistFieldDef Name = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Tree) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef Parent = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Tree) (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) persistIdField = TreeId fieldLens TreeId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a5BGc) key_a5BGd -> Entity key_a5BGd value_a5BGc) fieldLens Name = Database.Persist.TH.Internal.lensPTH ((\ Tree {name = x} -> x) . entityVal) (\ (Entity key_a5BGe value_a5BGf) x_a5BGg -> Entity key_a5BGe (case value_a5BGf of Tree {parent = parent_a5BGi} -> Tree {name = x_a5BGg, parent = parent})) fieldLens Parent = Database.Persist.TH.Internal.lensPTH ((\ Tree {parent = x} -> x) . entityVal) (\ (Entity key_a5BGe value_a5BGf) x_a5BGg -> Entity key_a5BGe (case value_a5BGf of Tree {name = name_a5BGj} -> Tree {name = name, parent = x_a5BGg})) instance OnlyOneUniqueKey Tree where onlyUniqueP = (head . persistUniqueKeys) instance AtLeastOneUniqueKey Tree where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance SymbolToField "id" Tree (Key Tree) where symbolToField = TreeId instance SymbolToField "name" Tree String where symbolToField = Name instance SymbolToField "parent" Tree (Maybe String) where symbolToField = Parent instance SafeToInsert Tree entityDefListFortreeMigrate :: [EntityDef] entityDefListFortreeMigrate = [entityDef (Proxy :: Proxy Tree)] treeMigrate :: Migration treeMigrate = migrateModels entityDefListFortreeMigrate src/PersistentTestModels.hs:27:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 27 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "testMigrate"] | ^^^^^^^^^^ src/PersistentTestModels.hs:137:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 137 | share | ^^^^^... src/PersistentTestModels.hs:143:15: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 143 | , mpsGeneric = True | ^^^^^^^^^^ src/PersistentTestModels.hs:166:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 166 | share | ^^^^^... src/PersistentTestModels.hs:178:15: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 178 | , mpsGeneric = True | ^^^^^^^^^^ src/PersistentTestModels.hs:203:58: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 203 | [ mkPersist persistSettings{mpsPrefixFields = False, mpsGeneric = False} | ^^^^^^^^^^ src/PersistentTestModels.hs:223:10: warning: [GHC-06201] [-Wmissing-methods] " No explicit implementation for tabulateEntityA and tabulateEntityApply " In the instance declaration for PersistEntity (ReverseFieldOrder a) | 223 | instance (PersistEntity a) => PersistEntity (ReverseFieldOrder a) where | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/PersistentTestModels.hs:228:54: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 228 | keyFromValues = fmap RFOKey . fromPersistValue . head | ^^^^ [28 of 41] Compiling PersistentTest ( src/PersistentTest.hs, dist/build/PersistentTest.o, dist/build/PersistentTest.dyn_o ) [29 of 41] Compiling MpsNoPrefixTest ( src/MpsNoPrefixTest.hs, dist/build/MpsNoPrefixTest.o, dist/build/MpsNoPrefixTest.dyn_o ) [30 of 41] Compiling MpsCustomPrefixTest ( src/MpsCustomPrefixTest.hs, dist/build/MpsCustomPrefixTest.o, dist/build/MpsCustomPrefixTest.dyn_o ) [31 of 41] Compiling PrimaryTest ( src/PrimaryTest.hs, dist/build/PrimaryTest.o, dist/build/PrimaryTest.dyn_o ) src/PrimaryTest.hs:12:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 12 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [32 of 41] Compiling RawSqlTest ( src/RawSqlTest.hs, dist/build/RawSqlTest.o, dist/build/RawSqlTest.dyn_o ) [33 of 41] Compiling ReadWriteTest ( src/ReadWriteTest.hs, dist/build/ReadWriteTest.o, dist/build/ReadWriteTest.dyn_o ) [34 of 41] Compiling Recursive ( src/Recursive.hs, dist/build/Recursive.o, dist/build/Recursive.dyn_o ) src/Recursive.hs:10:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 10 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "recursiveMigrate"] | ^^^^^^^^^^ [35 of 41] Compiling RenameTest ( src/RenameTest.hs, dist/build/RenameTest.o, dist/build/RenameTest.dyn_o ) src/RenameTest.hs:19:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 19 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"] | ^^^^^^^^^^ [36 of 41] Compiling SumTypeTest ( src/SumTypeTest.hs, dist/build/SumTypeTest.o, dist/build/SumTypeTest.dyn_o ) src/SumTypeTest.hs:13:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 13 | share | ^^^^^... src/SumTypeTest.hs:14:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 14 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "sumTypeMigrate"] | ^^^^^^^^^^ [37 of 41] Compiling TransactionLevelTest ( src/TransactionLevelTest.hs, dist/build/TransactionLevelTest.o, dist/build/TransactionLevelTest.dyn_o ) [38 of 41] Compiling TreeTest ( src/TreeTest.hs, dist/build/TreeTest.o, dist/build/TreeTest.dyn_o ) src/TreeTest.hs:13:33: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [ mkPersist persistSettings{mpsGeneric = False} | ^^^^^^^^^^ [39 of 41] Compiling TypeLitFieldDefsTest ( src/TypeLitFieldDefsTest.hs, dist/build/TypeLitFieldDefsTest.o, dist/build/TypeLitFieldDefsTest.dyn_o ) src/TypeLitFieldDefsTest.hs:34:29: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 34 | [ mkPersist sqlSettings{mpsGeneric = True} | ^^^^^^^^^^ [40 of 41] Compiling UniqueTest ( src/UniqueTest.hs, dist/build/UniqueTest.o, dist/build/UniqueTest.dyn_o ) [41 of 41] Compiling UpsertTest ( src/UpsertTest.hs, dist/build/UpsertTest.o, dist/build/UpsertTest.dyn_o ) Preprocessing library for persistent-test-2.13.2.1.. Running Haddock on library for persistent-test-2.13.2.1.. Warning: --source-* options are ignored when --hyperlinked-source is enabled. [ 1 of 41] Compiling Init ( src/Init.hs, /tmp/ghc2919749_0/ghc_10.o, /tmp/ghc2919749_0/ghc_10.dyn_o ) src/Init.hs:168:31: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Database.Persist.TH, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 168 | persistSettings = sqlSettings{mpsGeneric = True} | ^^^^^^^^^^ [ 2 of 41] Compiling HtmlTest ( src/HtmlTest.hs, nothing ) src/HtmlTest.hs:18:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 18 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "htmlMigrate"] | ^^^^^^^^^^ [ 3 of 41] Compiling GeneratedColumnTestSQL ( src/GeneratedColumnTestSQL.hs, nothing ) [ 4 of 41] Compiling ForeignKey ( src/ForeignKey.hs, nothing ) src/ForeignKey.hs:19:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 19 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"] | ^^^^^^^^^^ [ 5 of 41] Compiling EquivalentTypeTest ( src/EquivalentTypeTest.hs, nothing ) [ 6 of 41] Compiling EntityEmbedTest ( src/EntityEmbedTest.hs, /tmp/ghc2919749_0/ghc_8.o, /tmp/ghc2919749_0/ghc_8.dyn_o ) src/EntityEmbedTest.hs:11:21: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | persistSettings{mpsGeneric = True} | ^^^^^^^^^^ [ 7 of 41] Compiling EmptyEntityTest ( src/EmptyEntityTest.hs, nothing ) src/EmptyEntityTest.hs:14:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 14 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"] | ^^^^^^^^^^ [ 8 of 41] Compiling EmbedTest ( src/EmbedTest.hs, nothing ) src/EmbedTest.hs:33:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 33 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedMigrate"] | ^^^^^^^^^^ [ 9 of 41] Compiling EmbedOrderTest ( src/EmbedOrderTest.hs, nothing ) src/EmbedOrderTest.hs:16:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 16 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "embedOrderMigrate"] | ^^^^^^^^^^ [10 of 41] Compiling DataTypeTest ( src/DataTypeTest.hs, nothing ) [11 of 41] Compiling CustomPrimaryKeyReferenceTest ( src/CustomPrimaryKeyReferenceTest.hs, nothing ) src/CustomPrimaryKeyReferenceTest.hs:13:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [12 of 41] Compiling CustomPersistField ( src/CustomPersistField.hs, /tmp/ghc2919749_0/ghc_6.o, /tmp/ghc2919749_0/ghc_6.dyn_o ) [13 of 41] Compiling CustomPersistFieldTest ( src/CustomPersistFieldTest.hs, nothing ) src/CustomPersistFieldTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "customFieldMigrate"] | ^^^^^^^^^^ [14 of 41] Compiling CompositeTest ( src/CompositeTest.hs, nothing ) src/CompositeTest.hs:17:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 17 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "compositeMigrate"] | ^^^^^^^^^^ [15 of 41] Compiling LargeNumberTest ( src/LargeNumberTest.hs, nothing ) src/LargeNumberTest.hs:11:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "numberMigrate"] | ^^^^^^^^^^ [16 of 41] Compiling LongIdentifierTest ( src/LongIdentifierTest.hs, nothing ) [17 of 41] Compiling MaxLenTest ( src/MaxLenTest.hs, nothing ) src/MaxLenTest.hs:12:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 12 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maxlenMigrate"] | ^^^^^^^^^^ [18 of 41] Compiling MaybeFieldDefsTest ( src/MaybeFieldDefsTest.hs, nothing ) src/MaybeFieldDefsTest.hs:13:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "maybeFieldDefMigrate"] | ^^^^^^^^^^ [19 of 41] Compiling MigrationColumnLengthTest ( src/MigrationColumnLengthTest.hs, nothing ) [20 of 41] Compiling MigrationIdempotencyTest ( src/MigrationIdempotencyTest.hs, nothing ) [21 of 41] Compiling MigrationOnlyTest ( src/MigrationOnlyTest.hs, nothing ) src/MigrationOnlyTest.hs:15:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 15 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll1"] | ^^^^^^^^^^ src/MigrationOnlyTest.hs:25:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 25 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migrateAll2"] | ^^^^^^^^^^ [22 of 41] Compiling MigrationTest ( src/MigrationTest.hs, nothing ) [23 of 41] Compiling PersistTestPetCollarType ( src/PersistTestPetCollarType.hs, /tmp/ghc2919749_0/ghc_12.o, /tmp/ghc2919749_0/ghc_12.dyn_o ) [24 of 41] Compiling PersistTestPetType ( src/PersistTestPetType.hs, /tmp/ghc2919749_0/ghc_14.o, /tmp/ghc2919749_0/ghc_14.dyn_o ) [25 of 41] Compiling PersistUniqueTest ( src/PersistUniqueTest.hs, nothing ) src/PersistUniqueTest.hs:11:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 11 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [26 of 41] Compiling PersistentTestModelsImports ( src/PersistentTestModelsImports.hs, /tmp/ghc2919749_0/ghc_18.o, /tmp/ghc2919749_0/ghc_18.dyn_o ) [27 of 41] Compiling PersistentTestModels ( src/PersistentTestModels.hs, /tmp/ghc2919749_0/ghc_16.o, /tmp/ghc2919749_0/ghc_16.dyn_o ) src/PersistentTestModels.hs:(28,23)-(128,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistUpperCase "\n\ \\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ Person json\n\ \ name Text\n\ \ age Int some=\"ignored -- \\\" attribute\"\n\ \ color Text Maybe -- this is a comment sql=foobarbaz\n\ \ PersonNameKey name -- this is a comment sql=foobarbaz\n\ \ deriving Show Eq\n\ \ Person1\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ name Text\n\ \ age Int\n\ \ deriving Show Eq\n\ \ PersonMaybeAge\n\ \ name Text\n\ \ age Int Maybe\n\ \ PersonMay json\n\ \ name Text Maybe\n\ \ color Text Maybe\n\ \ deriving Show Eq\n\ \ Pet\n\ \ ownerId PersonId\n\ \ name Text\n\ \ -- deriving Show Eq\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ type PetType\n\ \ MaybeOwnedPet\n\ \ ownerId PersonId Maybe\n\ \ name Text\n\ \ type PetType\n\ \-- Dedented comment\n\ \ -- Header-level comment\n\ \ -- Indented comment\n\ \ NeedsPet\n\ \ petKey PetId\n\ \ OutdoorPet\n\ \ ownerId PersonId\n\ \ collar PetCollar\n\ \ type PetType\n\ \\n\ \ -- From the scaffold\n\ \ UserPT\n\ \ ident Text\n\ \ password Text Maybe\n\ \ UniqueUserPT ident\n\ \ EmailPT\n\ \ email Text\n\ \ user UserPTId Maybe\n\ \ verkey Text Maybe\n\ \ UniqueEmailPT email\n\ \\n\ \ Upsert\n\ \ email Text\n\ \ attr Text\n\ \ extra Text\n\ \ age Int\n\ \ UniqueUpsert email\n\ \ deriving Eq Show\n\ \\n\ \ UpsertBy\n\ \ email Text\n\ \ city Text\n\ \ attr Text\n\ \ UniqueUpsertBy email\n\ \ UniqueUpsertByCity city\n\ \ deriving Eq Show\n\ \\n\ \ Strict\n\ \ !yes Int\n\ \ ~no Int\n\ \ def Int\n\ \\n\ \ DudeWeirdColumns\n\ \ name Text\n\ \ foo Int Maybe MigrationOnly\n\ \ bar Double SafeToRemove\n\ \ UniqueName name\n\ \ deriving Eq Show\n\ \\n\ \ -- | This is a doc comment for a relationship.\n\ \ -- Only the first line requires a pipe.\n\ \ -- | Pipes are optional on subsequent lines.\n\ \ Relationship\n\ \ -- | Fields should be documentable.\n\ \ name String\n\ \ parent RelationshipId Maybe\n\ \\n\ \ MutA\n\ \ mutB MutBId\n\ \\n\ \ MutB\n\ \ mutA MutAId\n\ \\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) (FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) [] False (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMigrationOnly, FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrSafeToRemove] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing (Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))), Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))] src/PersistentTestModels.hs:(26,1)-(128,2): Splicing declarations share [mkPersist persistSettings {mpsGeneric = True}, mkMigrate "testMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) (FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) (FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) (FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) [] False (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrMigrationOnly, FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) (FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#))) [FieldAttrSafeToRemove] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing (Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#))), Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5))]) ======> instance PersistStore backend => PersistField (PersonGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age", "color"] instance PersistStore backend => PersistFieldSql (PersonGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (Person1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age"] instance PersistStore backend => PersistFieldSql (Person1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PersonMaybeAgeGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "age"] instance PersistStore backend => PersistFieldSql (PersonMaybeAgeGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PersonMayGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "color"] instance PersistStore backend => PersistFieldSql (PersonMayGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (PetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "name", "type"] instance PersistStore backend => PersistFieldSql (PetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MaybeOwnedPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "name", "type"] instance PersistStore backend => PersistFieldSql (MaybeOwnedPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NeedsPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["petKey"] instance PersistStore backend => PersistFieldSql (NeedsPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (OutdoorPetGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ownerId", "collar", "type"] instance PersistStore backend => PersistFieldSql (OutdoorPetGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UserPTGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["ident", "password"] instance PersistStore backend => PersistFieldSql (UserPTGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (EmailPTGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "user", "verkey"] instance PersistStore backend => PersistFieldSql (EmailPTGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UpsertGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "attr", "extra", "age"] instance PersistStore backend => PersistFieldSql (UpsertGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (UpsertByGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["email", "city", "attr"] instance PersistStore backend => PersistFieldSql (UpsertByGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (StrictGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["yes", "no", "def"] instance PersistStore backend => PersistFieldSql (StrictGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (DudeWeirdColumnsGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name"] instance PersistStore backend => PersistFieldSql (DudeWeirdColumnsGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (RelationshipGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "parent"] instance PersistStore backend => PersistFieldSql (RelationshipGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MutAGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["mutB"] instance PersistStore backend => PersistFieldSql (MutAGeneric backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (MutBGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["mutA"] instance PersistStore backend => PersistFieldSql (MutBGeneric backend) where sqlType _ = SqlString type Person = PersonGeneric SqlBackend data PersonGeneric backend = Person {personName :: !Text, personAge :: !Int, personColor :: !(Maybe Text)} deriving stock (Show, Eq) type PersonId = Key Person instance PersistStore backend => PersistEntity (PersonGeneric backend) where type PersistEntityBackend (PersonGeneric backend) = backend data Unique (PersonGeneric backend) = PersonNameKey Text newtype Key (PersonGeneric backend) = PersonKey {unPersonKey :: (BackendKey backend)} data EntityField (PersonGeneric backend) typ = (typ ~ Key (PersonGeneric backend)) => PersonId | (typ ~ Text) => PersonName | (typ ~ Int) => PersonAge | (typ ~ Maybe Text) => PersonColor keyToValues = ((: []) . (toPersistValue . (\ PersonKey {unPersonKey = x} -> x))) keyFromValues = (fmap PersonKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GEz = ((Entity <$> fromField_a1GEz PersonId) <*> (((pure Person <*> fromField_a1GEz PersonName) <*> fromField_a1GEz PersonAge) <*> fromField_a1GEz PersonColor)) tabulateEntityApply fromField_a1GEy = ((Entity <$> fromField_a1GEy PersonId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((Person <$> fromField_a1GEy PersonName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GEy PersonAge) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GEy PersonColor)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "PersonNameKey"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 34 26 39 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrOther (Data.Text.unpackCStringLen# "some=ignored -- \" attribute"# (ghc-prim:GHC.Types.I# 27#))], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Person x_a1GE8 x_a1GE9 x_a1GEa) = [toPersistValue x_a1GE8, toPersistValue x_a1GE9, toPersistValue x_a1GEa] fromPersistValues [x1_a1GEc, x2_a1GEd, x3_a1GEe] = Person <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a1GEc <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x2_a1GEd <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x3_a1GEe fromPersistValues x_a1GEb = (Left $ mappend (Data.Text.unpackCStringLen# "Person: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a1GEb)) persistUniqueToFieldNames PersonNameKey {} = ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) persistUniqueToValues (PersonNameKey x_a1GEf) = [toPersistValue x_a1GEf] persistUniqueKeys (Person _name_a1GEg _age_a1GEh _color_a1GEi) = [PersonNameKey _name_a1GEg] persistFieldDef PersonId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef PersonName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Person) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef PersonAge = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Person) (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) persistFieldDef PersonColor = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Person) (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) persistIdField = PersonId fieldLens PersonId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GEk) key_a1GEl -> Entity key_a1GEl value_a1GEk) fieldLens PersonName = Database.Persist.TH.Internal.lensPTH ((\ Person {personName = x} -> x) . entityVal) (\ (Entity key_a1GEm value_a1GEn) x_a1GEo -> Entity key_a1GEm (case value_a1GEn of Person {personAge = personAge_a1GEq, personColor = personColor_a1GEr} -> Person {personName = x_a1GEo, personAge = personAge, personColor = personColor})) fieldLens PersonAge = Database.Persist.TH.Internal.lensPTH ((\ Person {personAge = x} -> x) . entityVal) (\ (Entity key_a1GEm value_a1GEn) x_a1GEo -> Entity key_a1GEm (case value_a1GEn of Person {personName = personName_a1GEs, personColor = personColor_a1GEu} -> Person {personName = personName, personAge = x_a1GEo, personColor = personColor})) fieldLens PersonColor = Database.Persist.TH.Internal.lensPTH ((\ Person {personColor = x} -> x) . entityVal) (\ (Entity key_a1GEm value_a1GEn) x_a1GEo -> Entity key_a1GEm (case value_a1GEn of Person {personName = personName_a1GEv, personAge = personAge_a1GEw} -> Person {personName = personName, personAge = personAge, personColor = x_a1GEo})) deriving stock instance Show (BackendKey backend) => Show (Key (PersonGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (PersonGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (PersonGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (PersonGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (PersonGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (PersonGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (PersonGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (PersonGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (PersonGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (PersonGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (PersonGeneric backend)) instance PersistStore backend => ToBackendKey backend (PersonGeneric backend) where toBackendKey = \ PersonKey {unPersonKey = x} -> x fromBackendKey = PersonKey type Person1 = Person1Generic SqlBackend data Person1Generic backend = Person1 {person1Name :: !Text, person1Age :: !Int} deriving stock (Show, Eq) type Person1Id = Key Person1 instance PersistStore backend => PersistEntity (Person1Generic backend) where type PersistEntityBackend (Person1Generic backend) = backend data Unique (Person1Generic backend) newtype Key (Person1Generic backend) = Person1Key {unPerson1Key :: (BackendKey backend)} data EntityField (Person1Generic backend) typ = (typ ~ Key (Person1Generic backend)) => Person1Id | (typ ~ Text) => Person1Name | (typ ~ Int) => Person1Age keyToValues = ((: []) . (toPersistValue . (\ Person1Key {unPerson1Key = x} -> x))) keyFromValues = (fmap Person1Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GES = ((Entity <$> fromField_a1GES Person1Id) <*> ((pure Person1 <*> fromField_a1GES Person1Name) <*> fromField_a1GES Person1Age)) tabulateEntityApply fromField_a1GER = ((Entity <$> fromField_a1GER Person1Id) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((Person1 <$> fromField_a1GER Person1Name) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GER Person1Age)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 40 26 46 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Person1 x_a1GEA x_a1GEB) = [toPersistValue x_a1GEA, toPersistValue x_a1GEB] fromPersistValues [x1_a1GED, x2_a1GEE] = Person1 <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a1GED <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Person1"# (ghc-prim:GHC.Types.I# 7#)) (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x2_a1GEE fromPersistValues x_a1GEC = (Left $ mappend (Data.Text.unpackCStringLen# "Person1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 38#)) (Data.Text.Internal.pack $ show x_a1GEC)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Person1 _name_a1GEF _age_a1GEG) = [] persistFieldDef Person1Id = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Person1Id"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef Person1Name = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Person1) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef Person1Age = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Person1) (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) persistIdField = Person1Id fieldLens Person1Id = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GEI) key_a1GEJ -> Entity key_a1GEJ value_a1GEI) fieldLens Person1Name = Database.Persist.TH.Internal.lensPTH ((\ Person1 {person1Name = x} -> x) . entityVal) (\ (Entity key_a1GEK value_a1GEL) x_a1GEM -> Entity key_a1GEK (case value_a1GEL of Person1 {person1Age = person1Age_a1GEO} -> Person1 {person1Name = x_a1GEM, person1Age = person1Age})) fieldLens Person1Age = Database.Persist.TH.Internal.lensPTH ((\ Person1 {person1Age = x} -> x) . entityVal) (\ (Entity key_a1GEK value_a1GEL) x_a1GEM -> Entity key_a1GEK (case value_a1GEL of Person1 {person1Name = person1Name_a1GEP} -> Person1 {person1Name = person1Name, person1Age = x_a1GEM})) deriving stock instance Show (BackendKey backend) => Show (Key (Person1Generic backend)) deriving stock instance Read (BackendKey backend) => Read (Key (Person1Generic backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (Person1Generic backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (Person1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (Person1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (Person1Generic backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (Person1Generic backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (Person1Generic backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (Person1Generic backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (Person1Generic backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (Person1Generic backend)) instance PersistStore backend => ToBackendKey backend (Person1Generic backend) where toBackendKey = \ Person1Key {unPerson1Key = x} -> x fromBackendKey = Person1Key type PersonMaybeAge = PersonMaybeAgeGeneric SqlBackend data PersonMaybeAgeGeneric backend = PersonMaybeAge {personMaybeAgeName :: !Text, personMaybeAgeAge :: !(Maybe Int)} type PersonMaybeAgeId = Key PersonMaybeAge instance PersistStore backend => PersistEntity (PersonMaybeAgeGeneric backend) where type PersistEntityBackend (PersonMaybeAgeGeneric backend) = backend data Unique (PersonMaybeAgeGeneric backend) newtype Key (PersonMaybeAgeGeneric backend) = PersonMaybeAgeKey {unPersonMaybeAgeKey :: (BackendKey backend)} data EntityField (PersonMaybeAgeGeneric backend) typ = (typ ~ Key (PersonMaybeAgeGeneric backend)) => PersonMaybeAgeId | (typ ~ Text) => PersonMaybeAgeName | (typ ~ Maybe Int) => PersonMaybeAgeAge keyToValues = ((: []) . (toPersistValue . (\ PersonMaybeAgeKey {unPersonMaybeAgeKey = x} -> x))) keyFromValues = (fmap PersonMaybeAgeKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GFb = ((Entity <$> fromField_a1GFb PersonMaybeAgeId) <*> ((pure PersonMaybeAge <*> fromField_a1GFb PersonMaybeAgeName) <*> fromField_a1GFb PersonMaybeAgeAge)) tabulateEntityApply fromField_a1GFa = ((Entity <$> fromField_a1GFa PersonMaybeAgeId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((PersonMaybeAge <$> fromField_a1GFa PersonMaybeAgeName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GFa PersonMaybeAgeAge)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 47 26 49 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (PersonMaybeAge x_a1GET x_a1GEU) = [toPersistValue x_a1GET, toPersistValue x_a1GEU] fromPersistValues [x1_a1GEW, x2_a1GEX] = PersonMaybeAge <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a1GEW <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "PersonMaybeAge"# (ghc-prim:GHC.Types.I# 14#)) (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x2_a1GEX fromPersistValues x_a1GEV = (Left $ mappend (Data.Text.unpackCStringLen# "PersonMaybeAge: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 45#)) (Data.Text.Internal.pack $ show x_a1GEV)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (PersonMaybeAge _name_a1GEY _age_a1GEZ) = [] persistFieldDef PersonMaybeAgeId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMaybeAgeId"# (ghc-prim:GHC.Types.I# 16#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef PersonMaybeAgeName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy PersonMaybeAge) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef PersonMaybeAgeAge = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy PersonMaybeAge) (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) persistIdField = PersonMaybeAgeId fieldLens PersonMaybeAgeId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GF1) key_a1GF2 -> Entity key_a1GF2 value_a1GF1) fieldLens PersonMaybeAgeName = Database.Persist.TH.Internal.lensPTH ((\ PersonMaybeAge {personMaybeAgeName = x} -> x) . entityVal) (\ (Entity key_a1GF3 value_a1GF4) x_a1GF5 -> Entity key_a1GF3 (case value_a1GF4 of PersonMaybeAge {personMaybeAgeAge = personMaybeAgeAge_a1GF7} -> PersonMaybeAge {personMaybeAgeName = x_a1GF5, personMaybeAgeAge = personMaybeAgeAge})) fieldLens PersonMaybeAgeAge = Database.Persist.TH.Internal.lensPTH ((\ PersonMaybeAge {personMaybeAgeAge = x} -> x) . entityVal) (\ (Entity key_a1GF3 value_a1GF4) x_a1GF5 -> Entity key_a1GF3 (case value_a1GF4 of PersonMaybeAge {personMaybeAgeName = personMaybeAgeName_a1GF8} -> PersonMaybeAge {personMaybeAgeName = personMaybeAgeName, personMaybeAgeAge = x_a1GF5})) deriving stock instance Show (BackendKey backend) => Show (Key (PersonMaybeAgeGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (PersonMaybeAgeGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (PersonMaybeAgeGeneric backend)) instance PersistStore backend => ToBackendKey backend (PersonMaybeAgeGeneric backend) where toBackendKey = \ PersonMaybeAgeKey {unPersonMaybeAgeKey = x} -> x fromBackendKey = PersonMaybeAgeKey type PersonMay = PersonMayGeneric SqlBackend data PersonMayGeneric backend = PersonMay {personMayName :: !(Maybe Text), personMayColor :: !(Maybe Text)} deriving stock (Show, Eq) type PersonMayId = Key PersonMay instance PersistStore backend => PersistEntity (PersonMayGeneric backend) where type PersistEntityBackend (PersonMayGeneric backend) = backend data Unique (PersonMayGeneric backend) newtype Key (PersonMayGeneric backend) = PersonMayKey {unPersonMayKey :: (BackendKey backend)} data EntityField (PersonMayGeneric backend) typ = (typ ~ Key (PersonMayGeneric backend)) => PersonMayId | (typ ~ Maybe Text) => PersonMayName | (typ ~ Maybe Text) => PersonMayColor keyToValues = ((: []) . (toPersistValue . (\ PersonMayKey {unPersonMayKey = x} -> x))) keyFromValues = (fmap PersonMayKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GFu = ((Entity <$> fromField_a1GFu PersonMayId) <*> ((pure PersonMay <*> fromField_a1GFu PersonMayName) <*> fromField_a1GFu PersonMayColor)) tabulateEntityApply fromField_a1GFt = ((Entity <$> fromField_a1GFt PersonMayId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((PersonMay <$> fromField_a1GFt PersonMayName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GFt PersonMayColor)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "json"# (ghc-prim:GHC.Types.I# 4#)] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 50 26 53 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (PersonMay x_a1GFc x_a1GFd) = [toPersistValue x_a1GFc, toPersistValue x_a1GFd] fromPersistValues [x1_a1GFf, x2_a1GFg] = PersonMay <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a1GFf <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "PersonMay"# (ghc-prim:GHC.Types.I# 9#)) (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x2_a1GFg fromPersistValues x_a1GFe = (Left $ mappend (Data.Text.unpackCStringLen# "PersonMay: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a1GFe)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (PersonMay _name_a1GFh _color_a1GFi) = [] persistFieldDef PersonMayId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonMayId"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef PersonMayName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy PersonMay) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef PersonMayColor = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy PersonMay) (FieldNameHS (Data.Text.unpackCStringLen# "color"# (ghc-prim:GHC.Types.I# 5#))) persistIdField = PersonMayId fieldLens PersonMayId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GFk) key_a1GFl -> Entity key_a1GFl value_a1GFk) fieldLens PersonMayName = Database.Persist.TH.Internal.lensPTH ((\ PersonMay {personMayName = x} -> x) . entityVal) (\ (Entity key_a1GFm value_a1GFn) x_a1GFo -> Entity key_a1GFm (case value_a1GFn of PersonMay {personMayColor = personMayColor_a1GFq} -> PersonMay {personMayName = x_a1GFo, personMayColor = personMayColor})) fieldLens PersonMayColor = Database.Persist.TH.Internal.lensPTH ((\ PersonMay {personMayColor = x} -> x) . entityVal) (\ (Entity key_a1GFm value_a1GFn) x_a1GFo -> Entity key_a1GFm (case value_a1GFn of PersonMay {personMayName = personMayName_a1GFr} -> PersonMay {personMayName = personMayName, personMayColor = x_a1GFo})) deriving stock instance Show (BackendKey backend) => Show (Key (PersonMayGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (PersonMayGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (PersonMayGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (PersonMayGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (PersonMayGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (PersonMayGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (PersonMayGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (PersonMayGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (PersonMayGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (PersonMayGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (PersonMayGeneric backend)) instance PersistStore backend => ToBackendKey backend (PersonMayGeneric backend) where toBackendKey = \ PersonMayKey {unPersonMayKey = x} -> x fromBackendKey = PersonMayKey type Pet = PetGeneric SqlBackend data PetGeneric backend = Pet {petOwnerId :: !(Key (PersonGeneric backend)), petName :: !Text, petType :: !PetType} type PetId = Key Pet instance PersistStore backend => PersistEntity (PetGeneric backend) where type PersistEntityBackend (PetGeneric backend) = backend data Unique (PetGeneric backend) newtype Key (PetGeneric backend) = PetKey {unPetKey :: (BackendKey backend)} data EntityField (PetGeneric backend) typ = (typ ~ Key (PetGeneric backend)) => PetId | (typ ~ Key (PersonGeneric backend)) => PetOwnerId | (typ ~ Text) => PetName | (typ ~ PetType) => PetType keyToValues = ((: []) . (toPersistValue . (\ PetKey {unPetKey = x} -> x))) keyFromValues = (fmap PetKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GFV = ((Entity <$> fromField_a1GFV PetId) <*> (((pure Pet <*> fromField_a1GFV PetOwnerId) <*> fromField_a1GFV PetName) <*> fromField_a1GFV PetType)) tabulateEntityApply fromField_a1GFU = ((Entity <$> fromField_a1GFU PetId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((Pet <$> fromField_a1GFU PetOwnerId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GFU PetName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GFU PetType)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityNameDB (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 54 26 61 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Pet x_a1GFv x_a1GFw x_a1GFx) = [toPersistValue x_a1GFv, toPersistValue x_a1GFw, toPersistValue x_a1GFx] fromPersistValues [x1_a1GFz, x2_a1GFA, x3_a1GFB] = Pet <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)) (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) . fromPersistValue) x1_a1GFz <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x2_a1GFA <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#)) (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x3_a1GFB fromPersistValues x_a1GFy = (Left $ mappend (Data.Text.unpackCStringLen# "Pet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 34#)) (Data.Text.Internal.pack $ show x_a1GFy)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Pet _ownerId_a1GFC _name_a1GFD _type_a1GFE) = [] persistFieldDef PetId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef PetOwnerId = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Pet) (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) persistFieldDef PetName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Pet) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef PetType = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Pet) (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = PetId fieldLens PetId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GFG) key_a1GFH -> Entity key_a1GFH value_a1GFG) fieldLens PetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ Pet {petOwnerId = x} -> x) . entityVal) (\ (Entity key_a1GFI value_a1GFJ) x_a1GFK -> Entity key_a1GFI (case value_a1GFJ of Pet {petName = petName_a1GFM, petType = petType_a1GFN} -> Pet {petOwnerId = x_a1GFK, petName = petName, petType = petType})) fieldLens PetName = Database.Persist.TH.Internal.lensPTH ((\ Pet {petName = x} -> x) . entityVal) (\ (Entity key_a1GFI value_a1GFJ) x_a1GFK -> Entity key_a1GFI (case value_a1GFJ of Pet {petOwnerId = petOwnerId_a1GFO, petType = petType_a1GFQ} -> Pet {petOwnerId = petOwnerId, petName = x_a1GFK, petType = petType})) fieldLens PetType = Database.Persist.TH.Internal.lensPTH ((\ Pet {petType = x} -> x) . entityVal) (\ (Entity key_a1GFI value_a1GFJ) x_a1GFK -> Entity key_a1GFI (case value_a1GFJ of Pet {petOwnerId = petOwnerId_a1GFR, petName = petName_a1GFS} -> Pet {petOwnerId = petOwnerId, petName = petName, petType = x_a1GFK})) deriving stock instance Show (BackendKey backend) => Show (Key (PetGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (PetGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (PetGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (PetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (PetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (PetGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (PetGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (PetGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (PetGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (PetGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (PetGeneric backend)) instance PersistStore backend => ToBackendKey backend (PetGeneric backend) where toBackendKey = \ PetKey {unPetKey = x} -> x fromBackendKey = PetKey type MaybeOwnedPet = MaybeOwnedPetGeneric SqlBackend data MaybeOwnedPetGeneric backend = MaybeOwnedPet {maybeOwnedPetOwnerId :: !(Maybe (Key (PersonGeneric backend))), maybeOwnedPetName :: !Text, maybeOwnedPetType :: !PetType} type MaybeOwnedPetId = Key MaybeOwnedPet instance PersistStore backend => PersistEntity (MaybeOwnedPetGeneric backend) where type PersistEntityBackend (MaybeOwnedPetGeneric backend) = backend data Unique (MaybeOwnedPetGeneric backend) newtype Key (MaybeOwnedPetGeneric backend) = MaybeOwnedPetKey {unMaybeOwnedPetKey :: (BackendKey backend)} data EntityField (MaybeOwnedPetGeneric backend) typ = (typ ~ Key (MaybeOwnedPetGeneric backend)) => MaybeOwnedPetId | (typ ~ Maybe (Key (PersonGeneric backend))) => MaybeOwnedPetOwnerId | (typ ~ Text) => MaybeOwnedPetName | (typ ~ PetType) => MaybeOwnedPetType keyToValues = ((: []) . (toPersistValue . (\ MaybeOwnedPetKey {unMaybeOwnedPetKey = x} -> x))) keyFromValues = (fmap MaybeOwnedPetKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GGm = ((Entity <$> fromField_a1GGm MaybeOwnedPetId) <*> (((pure MaybeOwnedPet <*> fromField_a1GGm MaybeOwnedPetOwnerId) <*> fromField_a1GGm MaybeOwnedPetName) <*> fromField_a1GGm MaybeOwnedPetType)) tabulateEntityApply fromField_a1GGl = ((Entity <$> fromField_a1GGl MaybeOwnedPetId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((MaybeOwnedPet <$> fromField_a1GGl MaybeOwnedPetOwnerId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GGl MaybeOwnedPetName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GGl MaybeOwnedPetType)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 62 26 65 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MaybeOwnedPet x_a1GFW x_a1GFX x_a1GFY) = [toPersistValue x_a1GFW, toPersistValue x_a1GFX, toPersistValue x_a1GFY] fromPersistValues [x1_a1GG0, x2_a1GG1, x3_a1GG2] = MaybeOwnedPet <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)) (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) . fromPersistValue) x1_a1GG0 <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x2_a1GG1 <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "MaybeOwnedPet"# (ghc-prim:GHC.Types.I# 13#)) (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x3_a1GG2 fromPersistValues x_a1GFZ = (Left $ mappend (Data.Text.unpackCStringLen# "MaybeOwnedPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a1GFZ)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MaybeOwnedPet _ownerId_a1GG3 _name_a1GG4 _type_a1GG5) = [] persistFieldDef MaybeOwnedPetId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MaybeOwnedPetId"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef MaybeOwnedPetOwnerId = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy MaybeOwnedPet) (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) persistFieldDef MaybeOwnedPetName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy MaybeOwnedPet) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef MaybeOwnedPetType = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy MaybeOwnedPet) (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = MaybeOwnedPetId fieldLens MaybeOwnedPetId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GG7) key_a1GG8 -> Entity key_a1GG8 value_a1GG7) fieldLens MaybeOwnedPetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetOwnerId = x} -> x) . entityVal) (\ (Entity key_a1GG9 value_a1GGa) x_a1GGb -> Entity key_a1GG9 (case value_a1GGa of MaybeOwnedPet {maybeOwnedPetName = maybeOwnedPetName_a1GGd, maybeOwnedPetType = maybeOwnedPetType_a1GGe} -> MaybeOwnedPet {maybeOwnedPetOwnerId = x_a1GGb, maybeOwnedPetName = maybeOwnedPetName, maybeOwnedPetType = maybeOwnedPetType})) fieldLens MaybeOwnedPetName = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetName = x} -> x) . entityVal) (\ (Entity key_a1GG9 value_a1GGa) x_a1GGb -> Entity key_a1GG9 (case value_a1GGa of MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a1GGf, maybeOwnedPetType = maybeOwnedPetType_a1GGh} -> MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId, maybeOwnedPetName = x_a1GGb, maybeOwnedPetType = maybeOwnedPetType})) fieldLens MaybeOwnedPetType = Database.Persist.TH.Internal.lensPTH ((\ MaybeOwnedPet {maybeOwnedPetType = x} -> x) . entityVal) (\ (Entity key_a1GG9 value_a1GGa) x_a1GGb -> Entity key_a1GG9 (case value_a1GGa of MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId_a1GGi, maybeOwnedPetName = maybeOwnedPetName_a1GGj} -> MaybeOwnedPet {maybeOwnedPetOwnerId = maybeOwnedPetOwnerId, maybeOwnedPetName = maybeOwnedPetName, maybeOwnedPetType = x_a1GGb})) deriving stock instance Show (BackendKey backend) => Show (Key (MaybeOwnedPetGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (MaybeOwnedPetGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (MaybeOwnedPetGeneric backend)) instance PersistStore backend => ToBackendKey backend (MaybeOwnedPetGeneric backend) where toBackendKey = \ MaybeOwnedPetKey {unMaybeOwnedPetKey = x} -> x fromBackendKey = MaybeOwnedPetKey type NeedsPet = NeedsPetGeneric SqlBackend data NeedsPetGeneric backend = NeedsPet {needsPetPetKey :: !(Key (PetGeneric backend))} type NeedsPetId = Key NeedsPet instance PersistStore backend => PersistEntity (NeedsPetGeneric backend) where type PersistEntityBackend (NeedsPetGeneric backend) = backend data Unique (NeedsPetGeneric backend) newtype Key (NeedsPetGeneric backend) = NeedsPetKey {unNeedsPetKey :: (BackendKey backend)} data EntityField (NeedsPetGeneric backend) typ = (typ ~ Key (NeedsPetGeneric backend)) => NeedsPetId | (typ ~ Key (PetGeneric backend)) => NeedsPetPetKey keyToValues = ((: []) . (toPersistValue . (\ NeedsPetKey {unNeedsPetKey = x} -> x))) keyFromValues = (fmap NeedsPetKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GGz = ((Entity <$> fromField_a1GGz NeedsPetId) <*> (pure NeedsPet <*> fromField_a1GGz NeedsPetPetKey)) tabulateEntityApply fromField_a1GGy = ((Entity <$> fromField_a1GGy NeedsPetId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (NeedsPet <$> fromField_a1GGy NeedsPetPetKey)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 69 26 70 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetId"# (ghc-prim:GHC.Types.I# 5#)), fieldSqlType = sqlType (Proxy :: Proxy PetId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Pet"# (ghc-prim:GHC.Types.I# 3#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NeedsPet x_a1GGn) = [toPersistValue x_a1GGn] fromPersistValues [x1_a1GGp] = NeedsPet <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "NeedsPet"# (ghc-prim:GHC.Types.I# 8#)) (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) . fromPersistValue) x1_a1GGp fromPersistValues x_a1GGo = (Left $ mappend (Data.Text.unpackCStringLen# "NeedsPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 39#)) (Data.Text.Internal.pack $ show x_a1GGo)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NeedsPet _petKey_a1GGq) = [] persistFieldDef NeedsPetId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NeedsPetId"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef NeedsPetPetKey = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NeedsPet) (FieldNameHS (Data.Text.unpackCStringLen# "petKey"# (ghc-prim:GHC.Types.I# 6#))) persistIdField = NeedsPetId fieldLens NeedsPetId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GGs) key_a1GGt -> Entity key_a1GGt value_a1GGs) fieldLens NeedsPetPetKey = Database.Persist.TH.Internal.lensPTH ((\ NeedsPet {needsPetPetKey = x} -> x) . entityVal) (\ (Entity key_a1GGu value_a1GGv) x_a1GGw -> Entity key_a1GGu (case value_a1GGv of NeedsPet {} -> NeedsPet {needsPetPetKey = x_a1GGw})) deriving stock instance Show (BackendKey backend) => Show (Key (NeedsPetGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (NeedsPetGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (NeedsPetGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (NeedsPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (NeedsPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (NeedsPetGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (NeedsPetGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (NeedsPetGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (NeedsPetGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (NeedsPetGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (NeedsPetGeneric backend)) instance PersistStore backend => ToBackendKey backend (NeedsPetGeneric backend) where toBackendKey = \ NeedsPetKey {unNeedsPetKey = x} -> x fromBackendKey = NeedsPetKey type OutdoorPet = OutdoorPetGeneric SqlBackend data OutdoorPetGeneric backend = OutdoorPet {outdoorPetOwnerId :: !(Key (PersonGeneric backend)), outdoorPetCollar :: !PetCollar, outdoorPetType :: !PetType} type OutdoorPetId = Key OutdoorPet instance PersistStore backend => PersistEntity (OutdoorPetGeneric backend) where type PersistEntityBackend (OutdoorPetGeneric backend) = backend data Unique (OutdoorPetGeneric backend) newtype Key (OutdoorPetGeneric backend) = OutdoorPetKey {unOutdoorPetKey :: (BackendKey backend)} data EntityField (OutdoorPetGeneric backend) typ = (typ ~ Key (OutdoorPetGeneric backend)) => OutdoorPetId | (typ ~ Key (PersonGeneric backend)) => OutdoorPetOwnerId | (typ ~ PetCollar) => OutdoorPetCollar | (typ ~ PetType) => OutdoorPetType keyToValues = ((: []) . (toPersistValue . (\ OutdoorPetKey {unOutdoorPetKey = x} -> x))) keyFromValues = (fmap OutdoorPetKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GH0 = ((Entity <$> fromField_a1GH0 OutdoorPetId) <*> (((pure OutdoorPet <*> fromField_a1GH0 OutdoorPetOwnerId) <*> fromField_a1GH0 OutdoorPetCollar) <*> fromField_a1GH0 OutdoorPetType)) tabulateEntityApply fromField_a1GGZ = ((Entity <$> fromField_a1GGZ OutdoorPetId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((OutdoorPet <$> fromField_a1GGZ OutdoorPetOwnerId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GGZ OutdoorPetCollar) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GGZ OutdoorPetType)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityNameDB (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 71 26 74 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PersonId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy PersonId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Person"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetCollar"# (ghc-prim:GHC.Types.I# 9#)), fieldSqlType = sqlType (Proxy :: Proxy PetCollar), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "PetType"# (ghc-prim:GHC.Types.I# 7#)), fieldSqlType = sqlType (Proxy :: Proxy PetType), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (OutdoorPet x_a1GGA x_a1GGB x_a1GGC) = [toPersistValue x_a1GGA, toPersistValue x_a1GGB, toPersistValue x_a1GGC] fromPersistValues [x1_a1GGE, x2_a1GGF, x3_a1GGG] = OutdoorPet <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) . fromPersistValue) x1_a1GGE <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) . fromPersistValue) x2_a1GGF <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "OutdoorPet"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x3_a1GGG fromPersistValues x_a1GGD = (Left $ mappend (Data.Text.unpackCStringLen# "OutdoorPet: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 41#)) (Data.Text.Internal.pack $ show x_a1GGD)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (OutdoorPet _ownerId_a1GGH _collar_a1GGI _type_a1GGJ) = [] persistFieldDef OutdoorPetId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "OutdoorPetId"# (ghc-prim:GHC.Types.I# 12#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef OutdoorPetOwnerId = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy OutdoorPet) (FieldNameHS (Data.Text.unpackCStringLen# "ownerId"# (ghc-prim:GHC.Types.I# 7#))) persistFieldDef OutdoorPetCollar = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy OutdoorPet) (FieldNameHS (Data.Text.unpackCStringLen# "collar"# (ghc-prim:GHC.Types.I# 6#))) persistFieldDef OutdoorPetType = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy OutdoorPet) (FieldNameHS (Data.Text.unpackCStringLen# "type"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = OutdoorPetId fieldLens OutdoorPetId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GGL) key_a1GGM -> Entity key_a1GGM value_a1GGL) fieldLens OutdoorPetOwnerId = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetOwnerId = x} -> x) . entityVal) (\ (Entity key_a1GGN value_a1GGO) x_a1GGP -> Entity key_a1GGN (case value_a1GGO of OutdoorPet {outdoorPetCollar = outdoorPetCollar_a1GGR, outdoorPetType = outdoorPetType_a1GGS} -> OutdoorPet {outdoorPetOwnerId = x_a1GGP, outdoorPetCollar = outdoorPetCollar, outdoorPetType = outdoorPetType})) fieldLens OutdoorPetCollar = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetCollar = x} -> x) . entityVal) (\ (Entity key_a1GGN value_a1GGO) x_a1GGP -> Entity key_a1GGN (case value_a1GGO of OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a1GGT, outdoorPetType = outdoorPetType_a1GGV} -> OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = x_a1GGP, outdoorPetType = outdoorPetType})) fieldLens OutdoorPetType = Database.Persist.TH.Internal.lensPTH ((\ OutdoorPet {outdoorPetType = x} -> x) . entityVal) (\ (Entity key_a1GGN value_a1GGO) x_a1GGP -> Entity key_a1GGN (case value_a1GGO of OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId_a1GGW, outdoorPetCollar = outdoorPetCollar_a1GGX} -> OutdoorPet {outdoorPetOwnerId = outdoorPetOwnerId, outdoorPetCollar = outdoorPetCollar, outdoorPetType = x_a1GGP})) deriving stock instance Show (BackendKey backend) => Show (Key (OutdoorPetGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (OutdoorPetGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (OutdoorPetGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (OutdoorPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (OutdoorPetGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (OutdoorPetGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (OutdoorPetGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (OutdoorPetGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (OutdoorPetGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (OutdoorPetGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (OutdoorPetGeneric backend)) instance PersistStore backend => ToBackendKey backend (OutdoorPetGeneric backend) where toBackendKey = \ OutdoorPetKey {unOutdoorPetKey = x} -> x fromBackendKey = OutdoorPetKey type UserPT = UserPTGeneric SqlBackend data UserPTGeneric backend = UserPT {userPTIdent :: !Text, userPTPassword :: !(Maybe Text)} type UserPTId = Key UserPT instance PersistStore backend => PersistEntity (UserPTGeneric backend) where type PersistEntityBackend (UserPTGeneric backend) = backend data Unique (UserPTGeneric backend) = UniqueUserPT Text newtype Key (UserPTGeneric backend) = UserPTKey {unUserPTKey :: (BackendKey backend)} data EntityField (UserPTGeneric backend) typ = (typ ~ Key (UserPTGeneric backend)) => UserPTId | (typ ~ Text) => UserPTIdent | (typ ~ Maybe Text) => UserPTPassword keyToValues = ((: []) . (toPersistValue . (\ UserPTKey {unUserPTKey = x} -> x))) keyFromValues = (fmap UserPTKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GHk = ((Entity <$> fromField_a1GHk UserPTId) <*> ((pure UserPT <*> fromField_a1GHk UserPTIdent) <*> fromField_a1GHk UserPTPassword)) tabulateEntityApply fromField_a1GHj = ((Entity <$> fromField_a1GHj UserPTId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((UserPT <$> fromField_a1GHj UserPTIdent) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GHj UserPTPassword)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUserPT"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 77 26 80 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UserPT x_a1GH1 x_a1GH2) = [toPersistValue x_a1GH1, toPersistValue x_a1GH2] fromPersistValues [x1_a1GH4, x2_a1GH5] = UserPT <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x1_a1GH4 <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) . fromPersistValue) x2_a1GH5 fromPersistValues x_a1GH3 = (Left $ mappend (Data.Text.unpackCStringLen# "UserPT: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a1GH3)) persistUniqueToFieldNames UniqueUserPT {} = ((FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) persistUniqueToValues (UniqueUserPT x_a1GH6) = [toPersistValue x_a1GH6] persistUniqueKeys (UserPT _ident_a1GH7 _password_a1GH8) = [UniqueUserPT _ident_a1GH7] persistFieldDef UserPTId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef UserPTIdent = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy UserPT) (FieldNameHS (Data.Text.unpackCStringLen# "ident"# (ghc-prim:GHC.Types.I# 5#))) persistFieldDef UserPTPassword = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy UserPT) (FieldNameHS (Data.Text.unpackCStringLen# "password"# (ghc-prim:GHC.Types.I# 8#))) persistIdField = UserPTId fieldLens UserPTId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GHa) key_a1GHb -> Entity key_a1GHb value_a1GHa) fieldLens UserPTIdent = Database.Persist.TH.Internal.lensPTH ((\ UserPT {userPTIdent = x} -> x) . entityVal) (\ (Entity key_a1GHc value_a1GHd) x_a1GHe -> Entity key_a1GHc (case value_a1GHd of UserPT {userPTPassword = userPTPassword_a1GHg} -> UserPT {userPTIdent = x_a1GHe, userPTPassword = userPTPassword})) fieldLens UserPTPassword = Database.Persist.TH.Internal.lensPTH ((\ UserPT {userPTPassword = x} -> x) . entityVal) (\ (Entity key_a1GHc value_a1GHd) x_a1GHe -> Entity key_a1GHc (case value_a1GHd of UserPT {userPTIdent = userPTIdent_a1GHh} -> UserPT {userPTIdent = userPTIdent, userPTPassword = x_a1GHe})) deriving stock instance Show (BackendKey backend) => Show (Key (UserPTGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (UserPTGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (UserPTGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (UserPTGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (UserPTGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (UserPTGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (UserPTGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (UserPTGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (UserPTGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (UserPTGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (UserPTGeneric backend)) instance PersistStore backend => ToBackendKey backend (UserPTGeneric backend) where toBackendKey = \ UserPTKey {unUserPTKey = x} -> x fromBackendKey = UserPTKey type EmailPT = EmailPTGeneric SqlBackend data EmailPTGeneric backend = EmailPT {emailPTEmail :: !Text, emailPTUser :: !(Maybe (Key (UserPTGeneric backend))), emailPTVerkey :: !(Maybe Text)} type EmailPTId = Key EmailPT instance PersistStore backend => PersistEntity (EmailPTGeneric backend) where type PersistEntityBackend (EmailPTGeneric backend) = backend data Unique (EmailPTGeneric backend) = UniqueEmailPT Text newtype Key (EmailPTGeneric backend) = EmailPTKey {unEmailPTKey :: (BackendKey backend)} data EntityField (EmailPTGeneric backend) typ = (typ ~ Key (EmailPTGeneric backend)) => EmailPTId | (typ ~ Text) => EmailPTEmail | (typ ~ Maybe (Key (UserPTGeneric backend))) => EmailPTUser | (typ ~ Maybe Text) => EmailPTVerkey keyToValues = ((: []) . (toPersistValue . (\ EmailPTKey {unEmailPTKey = x} -> x))) keyFromValues = (fmap EmailPTKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GHM = ((Entity <$> fromField_a1GHM EmailPTId) <*> (((pure EmailPT <*> fromField_a1GHM EmailPTEmail) <*> fromField_a1GHM EmailPTUser) <*> fromField_a1GHM EmailPTVerkey)) tabulateEntityApply fromField_a1GHL = ((Entity <$> fromField_a1GHL EmailPTId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((EmailPT <$> fromField_a1GHL EmailPTEmail) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GHL EmailPTUser) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GHL EmailPTVerkey)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityNameDB (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueEmailPT"# (ghc-prim:GHC.Types.I# 13#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 81 26 85 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "UserPTId"# (ghc-prim:GHC.Types.I# 8#)), fieldSqlType = sqlType (Proxy :: Proxy UserPTId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "UserPT"# (ghc-prim:GHC.Types.I# 6#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (EmailPT x_a1GHl x_a1GHm x_a1GHn) = [toPersistValue x_a1GHl, toPersistValue x_a1GHm, toPersistValue x_a1GHn] fromPersistValues [x1_a1GHp, x2_a1GHq, x3_a1GHr] = EmailPT <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#)) (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x1_a1GHp <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#)) (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x2_a1GHq <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "EmailPT"# (ghc-prim:GHC.Types.I# 7#)) (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) . fromPersistValue) x3_a1GHr fromPersistValues x_a1GHo = (Left $ mappend (Data.Text.unpackCStringLen# "EmailPT: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 38#)) (Data.Text.Internal.pack $ show x_a1GHo)) persistUniqueToFieldNames UniqueEmailPT {} = ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) persistUniqueToValues (UniqueEmailPT x_a1GHs) = [toPersistValue x_a1GHs] persistUniqueKeys (EmailPT _email_a1GHt _user_a1GHu _verkey_a1GHv) = [UniqueEmailPT _email_a1GHt] persistFieldDef EmailPTId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "EmailPTId"# (ghc-prim:GHC.Types.I# 9#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef EmailPTEmail = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy EmailPT) (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) persistFieldDef EmailPTUser = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy EmailPT) (FieldNameHS (Data.Text.unpackCStringLen# "user"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef EmailPTVerkey = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy EmailPT) (FieldNameHS (Data.Text.unpackCStringLen# "verkey"# (ghc-prim:GHC.Types.I# 6#))) persistIdField = EmailPTId fieldLens EmailPTId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GHx) key_a1GHy -> Entity key_a1GHy value_a1GHx) fieldLens EmailPTEmail = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTEmail = x} -> x) . entityVal) (\ (Entity key_a1GHz value_a1GHA) x_a1GHB -> Entity key_a1GHz (case value_a1GHA of EmailPT {emailPTUser = emailPTUser_a1GHD, emailPTVerkey = emailPTVerkey_a1GHE} -> EmailPT {emailPTEmail = x_a1GHB, emailPTUser = emailPTUser, emailPTVerkey = emailPTVerkey})) fieldLens EmailPTUser = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTUser = x} -> x) . entityVal) (\ (Entity key_a1GHz value_a1GHA) x_a1GHB -> Entity key_a1GHz (case value_a1GHA of EmailPT {emailPTEmail = emailPTEmail_a1GHF, emailPTVerkey = emailPTVerkey_a1GHH} -> EmailPT {emailPTEmail = emailPTEmail, emailPTUser = x_a1GHB, emailPTVerkey = emailPTVerkey})) fieldLens EmailPTVerkey = Database.Persist.TH.Internal.lensPTH ((\ EmailPT {emailPTVerkey = x} -> x) . entityVal) (\ (Entity key_a1GHz value_a1GHA) x_a1GHB -> Entity key_a1GHz (case value_a1GHA of EmailPT {emailPTEmail = emailPTEmail_a1GHI, emailPTUser = emailPTUser_a1GHJ} -> EmailPT {emailPTEmail = emailPTEmail, emailPTUser = emailPTUser, emailPTVerkey = x_a1GHB})) deriving stock instance Show (BackendKey backend) => Show (Key (EmailPTGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (EmailPTGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (EmailPTGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (EmailPTGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (EmailPTGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (EmailPTGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (EmailPTGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (EmailPTGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (EmailPTGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (EmailPTGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (EmailPTGeneric backend)) instance PersistStore backend => ToBackendKey backend (EmailPTGeneric backend) where toBackendKey = \ EmailPTKey {unEmailPTKey = x} -> x fromBackendKey = EmailPTKey type Upsert = UpsertGeneric SqlBackend data UpsertGeneric backend = Upsert {upsertEmail :: !Text, upsertAttr :: !Text, upsertExtra :: !Text, upsertAge :: !Int} deriving stock (Eq, Show) type UpsertId = Key Upsert instance PersistStore backend => PersistEntity (UpsertGeneric backend) where type PersistEntityBackend (UpsertGeneric backend) = backend data Unique (UpsertGeneric backend) = UniqueUpsert Text newtype Key (UpsertGeneric backend) = UpsertKey {unUpsertKey :: (BackendKey backend)} data EntityField (UpsertGeneric backend) typ = (typ ~ Key (UpsertGeneric backend)) => UpsertId | (typ ~ Text) => UpsertEmail | (typ ~ Text) => UpsertAttr | (typ ~ Text) => UpsertExtra | (typ ~ Int) => UpsertAge keyToValues = ((: []) . (toPersistValue . (\ UpsertKey {unUpsertKey = x} -> x))) keyFromValues = (fmap UpsertKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GIo = ((Entity <$> fromField_a1GIo UpsertId) <*> ((((pure Upsert <*> fromField_a1GIo UpsertEmail) <*> fromField_a1GIo UpsertAttr) <*> fromField_a1GIo UpsertExtra) <*> fromField_a1GIo UpsertAge)) tabulateEntityApply fromField_a1GIn = ((Entity <$> fromField_a1GIn UpsertId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((((Upsert <$> fromField_a1GIn UpsertEmail) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GIn UpsertAttr) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GIn UpsertExtra) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GIn UpsertAge)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsert"# (ghc-prim:GHC.Types.I# 12#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 87 26 93 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Upsert x_a1GHN x_a1GHO x_a1GHP x_a1GHQ) = [toPersistValue x_a1GHN, toPersistValue x_a1GHO, toPersistValue x_a1GHP, toPersistValue x_a1GHQ] fromPersistValues [x1_a1GHS, x2_a1GHT, x3_a1GHU, x4_a1GHV] = Upsert <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x1_a1GHS <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x2_a1GHT <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x3_a1GHU <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Upsert"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x4_a1GHV fromPersistValues x_a1GHR = (Left $ mappend (Data.Text.unpackCStringLen# "Upsert: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a1GHR)) persistUniqueToFieldNames UniqueUpsert {} = ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) persistUniqueToValues (UniqueUpsert x_a1GHW) = [toPersistValue x_a1GHW] persistUniqueKeys (Upsert _email_a1GHX _attr_a1GHY _extra_a1GHZ _age_a1GI0) = [UniqueUpsert _email_a1GHX] persistFieldDef UpsertId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef UpsertEmail = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Upsert) (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) persistFieldDef UpsertAttr = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Upsert) (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef UpsertExtra = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Upsert) (FieldNameHS (Data.Text.unpackCStringLen# "extra"# (ghc-prim:GHC.Types.I# 5#))) persistFieldDef UpsertAge = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Upsert) (FieldNameHS (Data.Text.unpackCStringLen# "age"# (ghc-prim:GHC.Types.I# 3#))) persistIdField = UpsertId fieldLens UpsertId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GI2) key_a1GI3 -> Entity key_a1GI3 value_a1GI2) fieldLens UpsertEmail = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertEmail = x} -> x) . entityVal) (\ (Entity key_a1GI4 value_a1GI5) x_a1GI6 -> Entity key_a1GI4 (case value_a1GI5 of Upsert {upsertAttr = upsertAttr_a1GI8, upsertExtra = upsertExtra_a1GI9, upsertAge = upsertAge_a1GIa} -> Upsert {upsertEmail = x_a1GI6, upsertAttr = upsertAttr, upsertExtra = upsertExtra, upsertAge = upsertAge})) fieldLens UpsertAttr = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertAttr = x} -> x) . entityVal) (\ (Entity key_a1GI4 value_a1GI5) x_a1GI6 -> Entity key_a1GI4 (case value_a1GI5 of Upsert {upsertEmail = upsertEmail_a1GIb, upsertExtra = upsertExtra_a1GId, upsertAge = upsertAge_a1GIe} -> Upsert {upsertEmail = upsertEmail, upsertAttr = x_a1GI6, upsertExtra = upsertExtra, upsertAge = upsertAge})) fieldLens UpsertExtra = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertExtra = x} -> x) . entityVal) (\ (Entity key_a1GI4 value_a1GI5) x_a1GI6 -> Entity key_a1GI4 (case value_a1GI5 of Upsert {upsertEmail = upsertEmail_a1GIf, upsertAttr = upsertAttr_a1GIg, upsertAge = upsertAge_a1GIi} -> Upsert {upsertEmail = upsertEmail, upsertAttr = upsertAttr, upsertExtra = x_a1GI6, upsertAge = upsertAge})) fieldLens UpsertAge = Database.Persist.TH.Internal.lensPTH ((\ Upsert {upsertAge = x} -> x) . entityVal) (\ (Entity key_a1GI4 value_a1GI5) x_a1GI6 -> Entity key_a1GI4 (case value_a1GI5 of Upsert {upsertEmail = upsertEmail_a1GIj, upsertAttr = upsertAttr_a1GIk, upsertExtra = upsertExtra_a1GIl} -> Upsert {upsertEmail = upsertEmail, upsertAttr = upsertAttr, upsertExtra = upsertExtra, upsertAge = x_a1GI6})) deriving stock instance Show (BackendKey backend) => Show (Key (UpsertGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (UpsertGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (UpsertGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (UpsertGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (UpsertGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (UpsertGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (UpsertGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (UpsertGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (UpsertGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (UpsertGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (UpsertGeneric backend)) instance PersistStore backend => ToBackendKey backend (UpsertGeneric backend) where toBackendKey = \ UpsertKey {unUpsertKey = x} -> x fromBackendKey = UpsertKey type UpsertBy = UpsertByGeneric SqlBackend data UpsertByGeneric backend = UpsertBy {upsertByEmail :: !Text, upsertByCity :: !Text, upsertByAttr :: !Text} deriving stock (Eq, Show) type UpsertById = Key UpsertBy instance PersistStore backend => PersistEntity (UpsertByGeneric backend) where type PersistEntityBackend (UpsertByGeneric backend) = backend data Unique (UpsertByGeneric backend) = UniqueUpsertBy Text | UniqueUpsertByCity Text newtype Key (UpsertByGeneric backend) = UpsertByKey {unUpsertByKey :: (BackendKey backend)} data EntityField (UpsertByGeneric backend) typ = (typ ~ Key (UpsertByGeneric backend)) => UpsertById | (typ ~ Text) => UpsertByEmail | (typ ~ Text) => UpsertByCity | (typ ~ Text) => UpsertByAttr keyToValues = ((: []) . (toPersistValue . (\ UpsertByKey {unUpsertByKey = x} -> x))) keyFromValues = (fmap UpsertByKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GIR = ((Entity <$> fromField_a1GIR UpsertById) <*> (((pure UpsertBy <*> fromField_a1GIR UpsertByEmail) <*> fromField_a1GIR UpsertByCity) <*> fromField_a1GIR UpsertByAttr)) tabulateEntityApply fromField_a1GIQ = ((Entity <$> fromField_a1GIQ UpsertById) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((UpsertBy <$> fromField_a1GIQ UpsertByEmail) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GIQ UpsertByCity) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GIQ UpsertByAttr)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityNameDB (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertBy"# (ghc-prim:GHC.Types.I# 14#))) ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) [], UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueUpsertByCity"# (ghc-prim:GHC.Types.I# 18#))) ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 95 26 101 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UpsertBy x_a1GIp x_a1GIq x_a1GIr) = [toPersistValue x_a1GIp, toPersistValue x_a1GIq, toPersistValue x_a1GIr] fromPersistValues [x1_a1GIt, x2_a1GIu, x3_a1GIv] = UpsertBy <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#)) (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) . fromPersistValue) x1_a1GIt <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#)) (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x2_a1GIu <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "UpsertBy"# (ghc-prim:GHC.Types.I# 8#)) (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x3_a1GIv fromPersistValues x_a1GIs = (Left $ mappend (Data.Text.unpackCStringLen# "UpsertBy: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 39#)) (Data.Text.Internal.pack $ show x_a1GIs)) persistUniqueToFieldNames UniqueUpsertBy {} = ((FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#)), FieldNameDB (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) NEL.:| []) persistUniqueToFieldNames UniqueUpsertByCity {} = ((FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) persistUniqueToValues (UniqueUpsertBy x_a1GIw) = [toPersistValue x_a1GIw] persistUniqueToValues (UniqueUpsertByCity x_a1GIx) = [toPersistValue x_a1GIx] persistUniqueKeys (UpsertBy _email_a1GIy _city_a1GIz _attr_a1GIA) = [UniqueUpsertBy _email_a1GIy, UniqueUpsertByCity _city_a1GIz] persistFieldDef UpsertById = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "UpsertById"# (ghc-prim:GHC.Types.I# 10#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef UpsertByEmail = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy UpsertBy) (FieldNameHS (Data.Text.unpackCStringLen# "email"# (ghc-prim:GHC.Types.I# 5#))) persistFieldDef UpsertByCity = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy UpsertBy) (FieldNameHS (Data.Text.unpackCStringLen# "city"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef UpsertByAttr = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy UpsertBy) (FieldNameHS (Data.Text.unpackCStringLen# "attr"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = UpsertById fieldLens UpsertById = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GIC) key_a1GID -> Entity key_a1GID value_a1GIC) fieldLens UpsertByEmail = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByEmail = x} -> x) . entityVal) (\ (Entity key_a1GIE value_a1GIF) x_a1GIG -> Entity key_a1GIE (case value_a1GIF of UpsertBy {upsertByCity = upsertByCity_a1GII, upsertByAttr = upsertByAttr_a1GIJ} -> UpsertBy {upsertByEmail = x_a1GIG, upsertByCity = upsertByCity, upsertByAttr = upsertByAttr})) fieldLens UpsertByCity = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByCity = x} -> x) . entityVal) (\ (Entity key_a1GIE value_a1GIF) x_a1GIG -> Entity key_a1GIE (case value_a1GIF of UpsertBy {upsertByEmail = upsertByEmail_a1GIK, upsertByAttr = upsertByAttr_a1GIM} -> UpsertBy {upsertByEmail = upsertByEmail, upsertByCity = x_a1GIG, upsertByAttr = upsertByAttr})) fieldLens UpsertByAttr = Database.Persist.TH.Internal.lensPTH ((\ UpsertBy {upsertByAttr = x} -> x) . entityVal) (\ (Entity key_a1GIE value_a1GIF) x_a1GIG -> Entity key_a1GIE (case value_a1GIF of UpsertBy {upsertByEmail = upsertByEmail_a1GIN, upsertByCity = upsertByCity_a1GIO} -> UpsertBy {upsertByEmail = upsertByEmail, upsertByCity = upsertByCity, upsertByAttr = x_a1GIG})) deriving stock instance Show (BackendKey backend) => Show (Key (UpsertByGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (UpsertByGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (UpsertByGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (UpsertByGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (UpsertByGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (UpsertByGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (UpsertByGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (UpsertByGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (UpsertByGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (UpsertByGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (UpsertByGeneric backend)) instance PersistStore backend => ToBackendKey backend (UpsertByGeneric backend) where toBackendKey = \ UpsertByKey {unUpsertByKey = x} -> x fromBackendKey = UpsertByKey type Strict = StrictGeneric SqlBackend data StrictGeneric backend = Strict {strictYes :: !Int, strictNo :: Int, strictDef :: !Int} type StrictId = Key Strict instance PersistStore backend => PersistEntity (StrictGeneric backend) where type PersistEntityBackend (StrictGeneric backend) = backend data Unique (StrictGeneric backend) newtype Key (StrictGeneric backend) = StrictKey {unStrictKey :: (BackendKey backend)} data EntityField (StrictGeneric backend) typ = (typ ~ Key (StrictGeneric backend)) => StrictId | (typ ~ Int) => StrictYes | (typ ~ Int) => StrictNo | (typ ~ Int) => StrictDef keyToValues = ((: []) . (toPersistValue . (\ StrictKey {unStrictKey = x} -> x))) keyFromValues = (fmap StrictKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GJi = ((Entity <$> fromField_a1GJi StrictId) <*> (((pure Strict <*> fromField_a1GJi StrictYes) <*> fromField_a1GJi StrictNo) <*> fromField_a1GJi StrictDef)) tabulateEntityApply fromField_a1GJh = ((Entity <$> fromField_a1GJh StrictId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (((Strict <$> fromField_a1GJh StrictYes) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GJh StrictNo) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GJh StrictDef)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityNameDB (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 103 26 106 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = False, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Strict x_a1GIS x_a1GIT x_a1GIU) = [toPersistValue x_a1GIS, toPersistValue x_a1GIT, toPersistValue x_a1GIU] fromPersistValues [x1_a1GIW, x2_a1GIX, x3_a1GIY] = Strict <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x1_a1GIW <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) . fromPersistValue) x2_a1GIX <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Strict"# (ghc-prim:GHC.Types.I# 6#)) (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) . fromPersistValue) x3_a1GIY fromPersistValues x_a1GIV = (Left $ mappend (Data.Text.unpackCStringLen# "Strict: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 37#)) (Data.Text.Internal.pack $ show x_a1GIV)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Strict _yes_a1GIZ _no_a1GJ0 _def_a1GJ1) = [] persistFieldDef StrictId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "StrictId"# (ghc-prim:GHC.Types.I# 8#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef StrictYes = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Strict) (FieldNameHS (Data.Text.unpackCStringLen# "yes"# (ghc-prim:GHC.Types.I# 3#))) persistFieldDef StrictNo = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Strict) (FieldNameHS (Data.Text.unpackCStringLen# "no"# (ghc-prim:GHC.Types.I# 2#))) persistFieldDef StrictDef = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Strict) (FieldNameHS (Data.Text.unpackCStringLen# "def"# (ghc-prim:GHC.Types.I# 3#))) persistIdField = StrictId fieldLens StrictId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GJ3) key_a1GJ4 -> Entity key_a1GJ4 value_a1GJ3) fieldLens StrictYes = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictYes = x} -> x) . entityVal) (\ (Entity key_a1GJ5 value_a1GJ6) x_a1GJ7 -> Entity key_a1GJ5 (case value_a1GJ6 of Strict {strictNo = strictNo_a1GJ9, strictDef = strictDef_a1GJa} -> Strict {strictYes = x_a1GJ7, strictNo = strictNo, strictDef = strictDef})) fieldLens StrictNo = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictNo = x} -> x) . entityVal) (\ (Entity key_a1GJ5 value_a1GJ6) x_a1GJ7 -> Entity key_a1GJ5 (case value_a1GJ6 of Strict {strictYes = strictYes_a1GJb, strictDef = strictDef_a1GJd} -> Strict {strictYes = strictYes, strictNo = x_a1GJ7, strictDef = strictDef})) fieldLens StrictDef = Database.Persist.TH.Internal.lensPTH ((\ Strict {strictDef = x} -> x) . entityVal) (\ (Entity key_a1GJ5 value_a1GJ6) x_a1GJ7 -> Entity key_a1GJ5 (case value_a1GJ6 of Strict {strictYes = strictYes_a1GJe, strictNo = strictNo_a1GJf} -> Strict {strictYes = strictYes, strictNo = strictNo, strictDef = x_a1GJ7})) deriving stock instance Show (BackendKey backend) => Show (Key (StrictGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (StrictGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (StrictGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (StrictGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (StrictGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (StrictGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (StrictGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (StrictGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (StrictGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (StrictGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (StrictGeneric backend)) instance PersistStore backend => ToBackendKey backend (StrictGeneric backend) where toBackendKey = \ StrictKey {unStrictKey = x} -> x fromBackendKey = StrictKey type DudeWeirdColumns = DudeWeirdColumnsGeneric SqlBackend data DudeWeirdColumnsGeneric backend = DudeWeirdColumns {dudeWeirdColumnsName :: !Text} deriving stock (Eq, Show) type DudeWeirdColumnsId = Key DudeWeirdColumns instance PersistStore backend => PersistEntity (DudeWeirdColumnsGeneric backend) where type PersistEntityBackend (DudeWeirdColumnsGeneric backend) = backend data Unique (DudeWeirdColumnsGeneric backend) = UniqueName Text newtype Key (DudeWeirdColumnsGeneric backend) = DudeWeirdColumnsKey {unDudeWeirdColumnsKey :: (BackendKey backend)} data EntityField (DudeWeirdColumnsGeneric backend) typ = (typ ~ Key (DudeWeirdColumnsGeneric backend)) => DudeWeirdColumnsId | (typ ~ Text) => DudeWeirdColumnsName keyToValues = ((: []) . (toPersistValue . (\ DudeWeirdColumnsKey {unDudeWeirdColumnsKey = x} -> x))) keyFromValues = (fmap DudeWeirdColumnsKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GJw = ((Entity <$> fromField_a1GJw DudeWeirdColumnsId) <*> (pure DudeWeirdColumns <*> fromField_a1GJw DudeWeirdColumnsName)) tabulateEntityApply fromField_a1GJv = ((Entity <$> fromField_a1GJv DudeWeirdColumnsId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (DudeWeirdColumns <$> fromField_a1GJv DudeWeirdColumnsName)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityNameDB (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "UniqueName"# (ghc-prim:GHC.Types.I# 10#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#), Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#)] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 108 26 113 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Text"# (ghc-prim:GHC.Types.I# 4#)), fieldSqlType = sqlType (Proxy :: Proxy Text), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "foo"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [FieldAttrMigrationOnly, FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "bar"# (ghc-prim:GHC.Types.I# 3#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Double"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy Double), fieldAttrs = [FieldAttrSafeToRemove], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (DudeWeirdColumns x_a1GJj) = [toPersistValue x_a1GJj] fromPersistValues [x1_a1GJl] = DudeWeirdColumns <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "DudeWeirdColumns"# (ghc-prim:GHC.Types.I# 16#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a1GJl fromPersistValues x_a1GJk = (Left $ mappend (Data.Text.unpackCStringLen# "DudeWeirdColumns: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 47#)) (Data.Text.Internal.pack $ show x_a1GJk)) persistUniqueToFieldNames UniqueName {} = ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) persistUniqueToValues (UniqueName x_a1GJm) = [toPersistValue x_a1GJm] persistUniqueKeys (DudeWeirdColumns _name_a1GJn) = [UniqueName _name_a1GJn] persistFieldDef DudeWeirdColumnsId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "DudeWeirdColumnsId"# (ghc-prim:GHC.Types.I# 18#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef DudeWeirdColumnsName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy DudeWeirdColumns) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = DudeWeirdColumnsId fieldLens DudeWeirdColumnsId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GJp) key_a1GJq -> Entity key_a1GJq value_a1GJp) fieldLens DudeWeirdColumnsName = Database.Persist.TH.Internal.lensPTH ((\ DudeWeirdColumns {dudeWeirdColumnsName = x} -> x) . entityVal) (\ (Entity key_a1GJr value_a1GJs) x_a1GJt -> Entity key_a1GJr (case value_a1GJs of DudeWeirdColumns {} -> DudeWeirdColumns {dudeWeirdColumnsName = x_a1GJt})) deriving stock instance Show (BackendKey backend) => Show (Key (DudeWeirdColumnsGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (DudeWeirdColumnsGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (DudeWeirdColumnsGeneric backend)) instance PersistStore backend => ToBackendKey backend (DudeWeirdColumnsGeneric backend) where toBackendKey = \ DudeWeirdColumnsKey {unDudeWeirdColumnsKey = x} -> x fromBackendKey = DudeWeirdColumnsKey type Relationship = RelationshipGeneric SqlBackend data RelationshipGeneric backend = Relationship {relationshipName :: !String, relationshipParent :: !(Maybe (Key (RelationshipGeneric backend)))} type RelationshipId = Key Relationship instance PersistStore backend => PersistEntity (RelationshipGeneric backend) where type PersistEntityBackend (RelationshipGeneric backend) = backend data Unique (RelationshipGeneric backend) newtype Key (RelationshipGeneric backend) = RelationshipKey {unRelationshipKey :: (BackendKey backend)} data EntityField (RelationshipGeneric backend) typ = (typ ~ Key (RelationshipGeneric backend)) => RelationshipId | (typ ~ String) => RelationshipName | (typ ~ Maybe (Key (RelationshipGeneric backend))) => RelationshipParent keyToValues = ((: []) . (toPersistValue . (\ RelationshipKey {unRelationshipKey = x} -> x))) keyFromValues = (fmap RelationshipKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GJP = ((Entity <$> fromField_a1GJP RelationshipId) <*> ((pure Relationship <*> fromField_a1GJP RelationshipName) <*> fromField_a1GJP RelationshipParent)) tabulateEntityApply fromField_a1GJO = ((Entity <$> fromField_a1GJO RelationshipId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((Relationship <$> fromField_a1GJO RelationshipName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1GJO RelationshipParent)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityNameDB (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False (Just (Data.Text.unpackCStringLen# "This is a doc comment for a relationship.\n\ \Only the first line requires a pipe.\n\ \Pipes are optional on subsequent lines.\n"# (ghc-prim:GHC.Types.I# 119#))) (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 118 26 121 7)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Just (Data.Text.unpackCStringLen# "Fields should be documentable.\n"# (ghc-prim:GHC.Types.I# 31#)), fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#)), fieldSqlType = sqlType (Proxy :: Proxy RelationshipId), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (Relationship x_a1GJx x_a1GJy) = [toPersistValue x_a1GJx, toPersistValue x_a1GJy] fromPersistValues [x1_a1GJA, x2_a1GJB] = Relationship <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a1GJA <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "Relationship"# (ghc-prim:GHC.Types.I# 12#)) (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) . fromPersistValue) x2_a1GJB fromPersistValues x_a1GJz = (Left $ mappend (Data.Text.unpackCStringLen# "Relationship: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 43#)) (Data.Text.Internal.pack $ show x_a1GJz)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (Relationship _name_a1GJC _parent_a1GJD) = [] persistFieldDef RelationshipId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "RelationshipId"# (ghc-prim:GHC.Types.I# 14#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef RelationshipName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Relationship) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef RelationshipParent = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Relationship) (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) persistIdField = RelationshipId fieldLens RelationshipId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GJF) key_a1GJG -> Entity key_a1GJG value_a1GJF) fieldLens RelationshipName = Database.Persist.TH.Internal.lensPTH ((\ Relationship {relationshipName = x} -> x) . entityVal) (\ (Entity key_a1GJH value_a1GJI) x_a1GJJ -> Entity key_a1GJH (case value_a1GJI of Relationship {relationshipParent = relationshipParent_a1GJL} -> Relationship {relationshipName = x_a1GJJ, relationshipParent = relationshipParent})) fieldLens RelationshipParent = Database.Persist.TH.Internal.lensPTH ((\ Relationship {relationshipParent = x} -> x) . entityVal) (\ (Entity key_a1GJH value_a1GJI) x_a1GJJ -> Entity key_a1GJH (case value_a1GJI of Relationship {relationshipName = relationshipName_a1GJM} -> Relationship {relationshipName = relationshipName, relationshipParent = x_a1GJJ})) deriving stock instance Show (BackendKey backend) => Show (Key (RelationshipGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (RelationshipGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (RelationshipGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (RelationshipGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (RelationshipGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (RelationshipGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (RelationshipGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (RelationshipGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (RelationshipGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (RelationshipGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (RelationshipGeneric backend)) instance PersistStore backend => ToBackendKey backend (RelationshipGeneric backend) where toBackendKey = \ RelationshipKey {unRelationshipKey = x} -> x fromBackendKey = RelationshipKey type MutA = MutAGeneric SqlBackend data MutAGeneric backend = MutA {mutAMutB :: !(Key (MutBGeneric backend))} type MutAId = Key MutA instance PersistStore backend => PersistEntity (MutAGeneric backend) where type PersistEntityBackend (MutAGeneric backend) = backend data Unique (MutAGeneric backend) newtype Key (MutAGeneric backend) = MutAKey {unMutAKey :: (BackendKey backend)} data EntityField (MutAGeneric backend) typ = (typ ~ Key (MutAGeneric backend)) => MutAId | (typ ~ Key (MutBGeneric backend)) => MutAMutB keyToValues = ((: []) . (toPersistValue . (\ MutAKey {unMutAKey = x} -> x))) keyFromValues = (fmap MutAKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GK2 = ((Entity <$> fromField_a1GK2 MutAId) <*> (pure MutA <*> fromField_a1GK2 MutAMutB)) tabulateEntityApply fromField_a1GK1 = ((Entity <$> fromField_a1GK1 MutAId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (MutA <$> fromField_a1GK1 MutAMutB)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 123 26 124 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy MutBId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MutA x_a1GJQ) = [toPersistValue x_a1GJQ] fromPersistValues [x1_a1GJS] = MutA <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#)) (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a1GJS fromPersistValues x_a1GJR = (Left $ mappend (Data.Text.unpackCStringLen# "MutA: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a1GJR)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MutA _mutB_a1GJT) = [] persistFieldDef MutAId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef MutAMutB = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy MutA) (FieldNameHS (Data.Text.unpackCStringLen# "mutB"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = MutAId fieldLens MutAId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GJV) key_a1GJW -> Entity key_a1GJW value_a1GJV) fieldLens MutAMutB = Database.Persist.TH.Internal.lensPTH ((\ MutA {mutAMutB = x} -> x) . entityVal) (\ (Entity key_a1GJX value_a1GJY) x_a1GJZ -> Entity key_a1GJX (case value_a1GJY of MutA {} -> MutA {mutAMutB = x_a1GJZ})) deriving stock instance Show (BackendKey backend) => Show (Key (MutAGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (MutAGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (MutAGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (MutAGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (MutAGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (MutAGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (MutAGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (MutAGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (MutAGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (MutAGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (MutAGeneric backend)) instance PersistStore backend => ToBackendKey backend (MutAGeneric backend) where toBackendKey = \ MutAKey {unMutAKey = x} -> x fromBackendKey = MutAKey type MutB = MutBGeneric SqlBackend data MutBGeneric backend = MutB {mutBMutA :: !(Key (MutAGeneric backend))} type MutBId = Key MutB instance PersistStore backend => PersistEntity (MutBGeneric backend) where type PersistEntityBackend (MutBGeneric backend) = backend data Unique (MutBGeneric backend) newtype Key (MutBGeneric backend) = MutBKey {unMutBKey :: (BackendKey backend)} data EntityField (MutBGeneric backend) typ = (typ ~ Key (MutBGeneric backend)) => MutBId | (typ ~ Key (MutAGeneric backend)) => MutBMutA keyToValues = ((: []) . (toPersistValue . (\ MutBKey {unMutBKey = x} -> x))) keyFromValues = (fmap MutBKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1GKf = ((Entity <$> fromField_a1GKf MutBId) <*> (pure MutB <*> fromField_a1GKf MutBMutA)) tabulateEntityApply fromField_a1GKe = ((Entity <$> fromField_a1GKe MutBId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (MutB <$> fromField_a1GKe MutBMutA)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 126 26 127 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutAId"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy MutAId), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "MutA"# (ghc-prim:GHC.Types.I# 4#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (MutB x_a1GK3) = [toPersistValue x_a1GK3] fromPersistValues [x1_a1GK5] = MutB <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "MutB"# (ghc-prim:GHC.Types.I# 4#)) (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a1GK5 fromPersistValues x_a1GK4 = (Left $ mappend (Data.Text.unpackCStringLen# "MutB: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a1GK4)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (MutB _mutA_a1GK6) = [] persistFieldDef MutBId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "MutBId"# (ghc-prim:GHC.Types.I# 6#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef MutBMutA = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy MutB) (FieldNameHS (Data.Text.unpackCStringLen# "mutA"# (ghc-prim:GHC.Types.I# 4#))) persistIdField = MutBId fieldLens MutBId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1GK8) key_a1GK9 -> Entity key_a1GK9 value_a1GK8) fieldLens MutBMutA = Database.Persist.TH.Internal.lensPTH ((\ MutB {mutBMutA = x} -> x) . entityVal) (\ (Entity key_a1GKa value_a1GKb) x_a1GKc -> Entity key_a1GKa (case value_a1GKb of MutB {} -> MutB {mutBMutA = x_a1GKc})) deriving stock instance Show (BackendKey backend) => Show (Key (MutBGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (MutBGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (MutBGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (MutBGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (MutBGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (MutBGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (MutBGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (MutBGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (MutBGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (MutBGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (MutBGeneric backend)) instance PersistStore backend => ToBackendKey backend (MutBGeneric backend) where toBackendKey = \ MutBKey {unMutBKey = x} -> x fromBackendKey = MutBKey instance PersistStore backend => ToJSON (PersonGeneric backend) where toJSON (Person name_a1GKh age_a1GKi color_a1GKj) = object [(Data.Aeson.Key.fromString "name" .= name_a1GKh), (Data.Aeson.Key.fromString "age" .= age_a1GKi), (Data.Aeson.Key.fromString "color" .= color_a1GKj)] instance PersistStore backend => FromJSON (PersonGeneric backend) where parseJSON = withObject "Person" (\ obj_a1GKg -> (((pure Person <*> (obj_a1GKg .: Data.Aeson.Key.fromString "name")) <*> (obj_a1GKg .: Data.Aeson.Key.fromString "age")) <*> (obj_a1GKg .:? Data.Aeson.Key.fromString "color"))) instance PersistStore backend => ToJSON (Entity (PersonGeneric backend)) where toJSON = entityIdToJSON instance PersistStore backend => FromJSON (Entity (PersonGeneric backend)) where parseJSON = entityIdFromJSON instance PersistStore backend => ToJSON (PersonMayGeneric backend) where toJSON (PersonMay name_a1GKl color_a1GKm) = object [(Data.Aeson.Key.fromString "name" .= name_a1GKl), (Data.Aeson.Key.fromString "color" .= color_a1GKm)] instance PersistStore backend => FromJSON (PersonMayGeneric backend) where parseJSON = withObject "PersonMay" (\ obj_a1GKk -> ((pure PersonMay <*> (obj_a1GKk .:? Data.Aeson.Key.fromString "name")) <*> (obj_a1GKk .:? Data.Aeson.Key.fromString "color"))) instance PersistStore backend => ToJSON (Entity (PersonMayGeneric backend)) where toJSON = entityIdToJSON instance PersistStore backend => FromJSON (Entity (PersonMayGeneric backend)) where parseJSON = entityIdFromJSON instance PersistStoreWrite backend => OnlyOneUniqueKey (PersonGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (PersonGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (Person1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (Person1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (Person1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PersonMaybeAgeGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMaybeAgeGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PersonMaybeAgeGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PersonMayGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PersonMayGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PersonMayGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (PetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (PetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (PetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MaybeOwnedPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MaybeOwnedPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MaybeOwnedPetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NeedsPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NeedsPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NeedsPetGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (OutdoorPetGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (OutdoorPetGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (OutdoorPetGeneric backend) where requireUniquesP _ = error "impossible" instance PersistStoreWrite backend => OnlyOneUniqueKey (UserPTGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (UserPTGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance PersistStoreWrite backend => OnlyOneUniqueKey (EmailPTGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (EmailPTGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance PersistStoreWrite backend => OnlyOneUniqueKey (UpsertGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (UpsertGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (MultipleUniqueKeysError (UpsertByGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (UpsertByGeneric backend) where onlyUniqueP _ = error "impossible" instance PersistStoreWrite backend => AtLeastOneUniqueKey (UpsertByGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (StrictGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (StrictGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (StrictGeneric backend) where requireUniquesP _ = error "impossible" instance PersistStoreWrite backend => OnlyOneUniqueKey (DudeWeirdColumnsGeneric backend) where onlyUniqueP = (head . persistUniqueKeys) instance PersistStoreWrite backend => AtLeastOneUniqueKey (DudeWeirdColumnsGeneric backend) where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (RelationshipGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (RelationshipGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (RelationshipGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MutAGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutAGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MutAGeneric backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (MutBGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (MutBGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (MutBGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (PersonGeneric backend) (Key (PersonGeneric backend)) where symbolToField = PersonId instance SymbolToField "name" (PersonGeneric backend) Text where symbolToField = PersonName instance SymbolToField "age" (PersonGeneric backend) Int where symbolToField = PersonAge instance SymbolToField "color" (PersonGeneric backend) (Maybe Text) where symbolToField = PersonColor instance SymbolToField "id" (Person1Generic backend) (Key (Person1Generic backend)) where symbolToField = Person1Id instance SymbolToField "name" (Person1Generic backend) Text where symbolToField = Person1Name instance SymbolToField "age" (Person1Generic backend) Int where symbolToField = Person1Age instance SymbolToField "id" (PersonMaybeAgeGeneric backend) (Key (PersonMaybeAgeGeneric backend)) where symbolToField = PersonMaybeAgeId instance SymbolToField "name" (PersonMaybeAgeGeneric backend) Text where symbolToField = PersonMaybeAgeName instance SymbolToField "age" (PersonMaybeAgeGeneric backend) (Maybe Int) where symbolToField = PersonMaybeAgeAge instance SymbolToField "id" (PersonMayGeneric backend) (Key (PersonMayGeneric backend)) where symbolToField = PersonMayId instance SymbolToField "name" (PersonMayGeneric backend) (Maybe Text) where symbolToField = PersonMayName instance SymbolToField "color" (PersonMayGeneric backend) (Maybe Text) where symbolToField = PersonMayColor instance SymbolToField "id" (PetGeneric backend) (Key (PetGeneric backend)) where symbolToField = PetId instance SymbolToField "ownerId" (PetGeneric backend) (Key (PersonGeneric backend)) where symbolToField = PetOwnerId instance SymbolToField "name" (PetGeneric backend) Text where symbolToField = PetName instance SymbolToField "type" (PetGeneric backend) PetType where symbolToField = PetType instance SymbolToField "id" (MaybeOwnedPetGeneric backend) (Key (MaybeOwnedPetGeneric backend)) where symbolToField = MaybeOwnedPetId instance SymbolToField "ownerId" (MaybeOwnedPetGeneric backend) (Maybe (Key (PersonGeneric backend))) where symbolToField = MaybeOwnedPetOwnerId instance SymbolToField "name" (MaybeOwnedPetGeneric backend) Text where symbolToField = MaybeOwnedPetName instance SymbolToField "type" (MaybeOwnedPetGeneric backend) PetType where symbolToField = MaybeOwnedPetType instance SymbolToField "id" (NeedsPetGeneric backend) (Key (NeedsPetGeneric backend)) where symbolToField = NeedsPetId instance SymbolToField "petKey" (NeedsPetGeneric backend) (Key (PetGeneric backend)) where symbolToField = NeedsPetPetKey instance SymbolToField "id" (OutdoorPetGeneric backend) (Key (OutdoorPetGeneric backend)) where symbolToField = OutdoorPetId instance SymbolToField "ownerId" (OutdoorPetGeneric backend) (Key (PersonGeneric backend)) where symbolToField = OutdoorPetOwnerId instance SymbolToField "collar" (OutdoorPetGeneric backend) PetCollar where symbolToField = OutdoorPetCollar instance SymbolToField "type" (OutdoorPetGeneric backend) PetType where symbolToField = OutdoorPetType instance SymbolToField "id" (UserPTGeneric backend) (Key (UserPTGeneric backend)) where symbolToField = UserPTId instance SymbolToField "ident" (UserPTGeneric backend) Text where symbolToField = UserPTIdent instance SymbolToField "password" (UserPTGeneric backend) (Maybe Text) where symbolToField = UserPTPassword instance SymbolToField "id" (EmailPTGeneric backend) (Key (EmailPTGeneric backend)) where symbolToField = EmailPTId instance SymbolToField "email" (EmailPTGeneric backend) Text where symbolToField = EmailPTEmail instance SymbolToField "user" (EmailPTGeneric backend) (Maybe (Key (UserPTGeneric backend))) where symbolToField = EmailPTUser instance SymbolToField "verkey" (EmailPTGeneric backend) (Maybe Text) where symbolToField = EmailPTVerkey instance SymbolToField "id" (UpsertGeneric backend) (Key (UpsertGeneric backend)) where symbolToField = UpsertId instance SymbolToField "email" (UpsertGeneric backend) Text where symbolToField = UpsertEmail instance SymbolToField "attr" (UpsertGeneric backend) Text where symbolToField = UpsertAttr instance SymbolToField "extra" (UpsertGeneric backend) Text where symbolToField = UpsertExtra instance SymbolToField "age" (UpsertGeneric backend) Int where symbolToField = UpsertAge instance SymbolToField "id" (UpsertByGeneric backend) (Key (UpsertByGeneric backend)) where symbolToField = UpsertById instance SymbolToField "email" (UpsertByGeneric backend) Text where symbolToField = UpsertByEmail instance SymbolToField "city" (UpsertByGeneric backend) Text where symbolToField = UpsertByCity instance SymbolToField "attr" (UpsertByGeneric backend) Text where symbolToField = UpsertByAttr instance SymbolToField "id" (StrictGeneric backend) (Key (StrictGeneric backend)) where symbolToField = StrictId instance SymbolToField "yes" (StrictGeneric backend) Int where symbolToField = StrictYes instance SymbolToField "no" (StrictGeneric backend) Int where symbolToField = StrictNo instance SymbolToField "def" (StrictGeneric backend) Int where symbolToField = StrictDef instance SymbolToField "id" (DudeWeirdColumnsGeneric backend) (Key (DudeWeirdColumnsGeneric backend)) where symbolToField = DudeWeirdColumnsId instance SymbolToField "name" (DudeWeirdColumnsGeneric backend) Text where symbolToField = DudeWeirdColumnsName instance SymbolToField "id" (RelationshipGeneric backend) (Key (RelationshipGeneric backend)) where symbolToField = RelationshipId instance SymbolToField "name" (RelationshipGeneric backend) String where symbolToField = RelationshipName instance SymbolToField "parent" (RelationshipGeneric backend) (Maybe (Key (RelationshipGeneric backend))) where symbolToField = RelationshipParent instance SymbolToField "id" (MutAGeneric backend) (Key (MutAGeneric backend)) where symbolToField = MutAId instance SymbolToField "mutB" (MutAGeneric backend) (Key (MutBGeneric backend)) where symbolToField = MutAMutB instance SymbolToField "id" (MutBGeneric backend) (Key (MutBGeneric backend)) where symbolToField = MutBId instance SymbolToField "mutA" (MutBGeneric backend) (Key (MutAGeneric backend)) where symbolToField = MutBMutA instance PersistStoreWrite backend => SafeToInsert (PersonGeneric backend) instance PersistStoreWrite backend => SafeToInsert (Person1Generic backend) instance PersistStoreWrite backend => SafeToInsert (PersonMaybeAgeGeneric backend) instance PersistStoreWrite backend => SafeToInsert (PersonMayGeneric backend) instance PersistStoreWrite backend => SafeToInsert (PetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MaybeOwnedPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (NeedsPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (OutdoorPetGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UserPTGeneric backend) instance PersistStoreWrite backend => SafeToInsert (EmailPTGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UpsertGeneric backend) instance PersistStoreWrite backend => SafeToInsert (UpsertByGeneric backend) instance PersistStoreWrite backend => SafeToInsert (StrictGeneric backend) instance PersistStoreWrite backend => SafeToInsert (DudeWeirdColumnsGeneric backend) instance PersistStoreWrite backend => SafeToInsert (RelationshipGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MutAGeneric backend) instance PersistStoreWrite backend => SafeToInsert (MutBGeneric backend) entityDefListFortestMigrate :: [EntityDef] entityDefListFortestMigrate = [entityDef (Proxy :: Proxy Person), entityDef (Proxy :: Proxy Person1), entityDef (Proxy :: Proxy PersonMaybeAge), entityDef (Proxy :: Proxy PersonMay), entityDef (Proxy :: Proxy Pet), entityDef (Proxy :: Proxy MaybeOwnedPet), entityDef (Proxy :: Proxy NeedsPet), entityDef (Proxy :: Proxy OutdoorPet), entityDef (Proxy :: Proxy UserPT), entityDef (Proxy :: Proxy EmailPT), entityDef (Proxy :: Proxy Upsert), entityDef (Proxy :: Proxy UpsertBy), entityDef (Proxy :: Proxy Strict), entityDef (Proxy :: Proxy DudeWeirdColumns), entityDef (Proxy :: Proxy Relationship), entityDef (Proxy :: Proxy MutA), entityDef (Proxy :: Proxy MutB)] testMigrate :: Migration testMigrate = migrateModels entityDefListFortestMigrate src/PersistentTestModels.hs:(147,23)-(158,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \NoPrefix1\n\ \ someFieldName Int\n\ \NoPrefix2\n\ \ someOtherFieldName Int\n\ \ unprefixedRef NoPrefix1Id\n\ \+NoPrefixSum\n\ \ unprefixedLeft Int\n\ \ unprefixedRight String\n\ \ deriving Show Eq\n\ \\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))] src/PersistentTestModels.hs:(137,1)-(158,2): Splicing declarations share [mkPersist persistSettings {mpsPrefixFields = False, mpsFieldLabelModifier = \ _ _ -> "", mpsConstraintLabelModifier = \ _ _ -> "", mpsGeneric = True}, mkMigrate "noPrefixMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5))]) ======> instance PersistStore backend => PersistField (NoPrefix1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["someFieldName"] instance PersistStore backend => PersistFieldSql (NoPrefix1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NoPrefix2Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["someOtherFieldName", "unprefixedRef"] instance PersistStore backend => PersistFieldSql (NoPrefix2Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (NoPrefixSumGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["unprefixedLeft", "unprefixedRight"] instance PersistStore backend => PersistFieldSql (NoPrefixSumGeneric backend) where sqlType _ = SqlString type NoPrefix1 = NoPrefix1Generic SqlBackend data NoPrefix1Generic backend = NoPrefix1 {someFieldName :: !Int} type NoPrefix1Id = Key NoPrefix1 instance PersistStore backend => PersistEntity (NoPrefix1Generic backend) where type PersistEntityBackend (NoPrefix1Generic backend) = backend data Unique (NoPrefix1Generic backend) newtype Key (NoPrefix1Generic backend) = NoPrefix1Key {unNoPrefix1Key :: (BackendKey backend)} data EntityField (NoPrefix1Generic backend) typ = (typ ~ Key (NoPrefix1Generic backend)) => NoPrefix1Id | (typ ~ Int) => SomeFieldName keyToValues = ((: []) . (toPersistValue . (\ NoPrefix1Key {unNoPrefix1Key = x} -> x))) keyFromValues = (fmap NoPrefix1Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1Udk = ((Entity <$> fromField_a1Udk NoPrefix1Id) <*> (pure NoPrefix1 <*> fromField_a1Udk SomeFieldName)) tabulateEntityApply fromField_a1Udj = ((Entity <$> fromField_a1Udj NoPrefix1Id) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (NoPrefix1 <$> fromField_a1Udj SomeFieldName)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 149 24 150 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "some_field_name"# (ghc-prim:GHC.Types.I# 15#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NoPrefix1 x_a1Ud8) = [toPersistValue x_a1Ud8] fromPersistValues [x1_a1Uda] = NoPrefix1 <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "no_prefix1"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) . fromPersistValue) x1_a1Uda fromPersistValues x_a1Ud9 = (Left $ mappend (Data.Text.unpackCStringLen# "NoPrefix1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a1Ud9)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NoPrefix1 _someFieldName_a1Udb) = [] persistFieldDef NoPrefix1Id = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef SomeFieldName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NoPrefix1) (FieldNameHS (Data.Text.unpackCStringLen# "someFieldName"# (ghc-prim:GHC.Types.I# 13#))) persistIdField = NoPrefix1Id fieldLens NoPrefix1Id = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1Udd) key_a1Ude -> Entity key_a1Ude value_a1Udd) fieldLens SomeFieldName = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix1 {someFieldName = x} -> x) . entityVal) (\ (Entity key_a1Udf value_a1Udg) x_a1Udh -> Entity key_a1Udf (case value_a1Udg of NoPrefix1 {} -> NoPrefix1 {someFieldName = x_a1Udh})) deriving stock instance Show (BackendKey backend) => Show (Key (NoPrefix1Generic backend)) deriving stock instance Read (BackendKey backend) => Read (Key (NoPrefix1Generic backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (NoPrefix1Generic backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (NoPrefix1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefix1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefix1Generic backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (NoPrefix1Generic backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (NoPrefix1Generic backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (NoPrefix1Generic backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (NoPrefix1Generic backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (NoPrefix1Generic backend)) instance PersistStore backend => ToBackendKey backend (NoPrefix1Generic backend) where toBackendKey = \ NoPrefix1Key {unNoPrefix1Key = x} -> x fromBackendKey = NoPrefix1Key type NoPrefix2 = NoPrefix2Generic SqlBackend data NoPrefix2Generic backend = NoPrefix2 {someOtherFieldName :: !Int, unprefixedRef :: !(Key (NoPrefix1Generic backend))} type NoPrefix2Id = Key NoPrefix2 instance PersistStore backend => PersistEntity (NoPrefix2Generic backend) where type PersistEntityBackend (NoPrefix2Generic backend) = backend data Unique (NoPrefix2Generic backend) newtype Key (NoPrefix2Generic backend) = NoPrefix2Key {unNoPrefix2Key :: (BackendKey backend)} data EntityField (NoPrefix2Generic backend) typ = (typ ~ Key (NoPrefix2Generic backend)) => NoPrefix2Id | (typ ~ Int) => SomeOtherFieldName | (typ ~ Key (NoPrefix1Generic backend)) => UnprefixedRef keyToValues = ((: []) . (toPersistValue . (\ NoPrefix2Key {unNoPrefix2Key = x} -> x))) keyFromValues = (fmap NoPrefix2Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1UdD = ((Entity <$> fromField_a1UdD NoPrefix2Id) <*> ((pure NoPrefix2 <*> fromField_a1UdD SomeOtherFieldName) <*> fromField_a1UdD UnprefixedRef)) tabulateEntityApply fromField_a1UdC = ((Entity <$> fromField_a1UdC NoPrefix2Id) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((NoPrefix2 <$> fromField_a1UdC SomeOtherFieldName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1UdC UnprefixedRef)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix2"# (ghc-prim:GHC.Types.I# 9#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 151 24 153 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "some_other_field_name"# (ghc-prim:GHC.Types.I# 21#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_ref"# (ghc-prim:GHC.Types.I# 14#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix1Id"# (ghc-prim:GHC.Types.I# 11#)), fieldSqlType = sqlType (Proxy :: Proxy NoPrefix1Id), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefix1"# (ghc-prim:GHC.Types.I# 9#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (NoPrefix2 x_a1Udl x_a1Udm) = [toPersistValue x_a1Udl, toPersistValue x_a1Udm] fromPersistValues [x1_a1Udo, x2_a1Udp] = NoPrefix2 <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) . fromPersistValue) x1_a1Udo <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "no_prefix2"# (ghc-prim:GHC.Types.I# 10#)) (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) . fromPersistValue) x2_a1Udp fromPersistValues x_a1Udn = (Left $ mappend (Data.Text.unpackCStringLen# "NoPrefix2: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 40#)) (Data.Text.Internal.pack $ show x_a1Udn)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (NoPrefix2 _someOtherFieldName_a1Udq _unprefixedRef_a1Udr) = [] persistFieldDef NoPrefix2Id = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefix2Id"# (ghc-prim:GHC.Types.I# 11#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef SomeOtherFieldName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NoPrefix2) (FieldNameHS (Data.Text.unpackCStringLen# "someOtherFieldName"# (ghc-prim:GHC.Types.I# 18#))) persistFieldDef UnprefixedRef = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NoPrefix2) (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRef"# (ghc-prim:GHC.Types.I# 13#))) persistIdField = NoPrefix2Id fieldLens NoPrefix2Id = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1Udt) key_a1Udu -> Entity key_a1Udu value_a1Udt) fieldLens SomeOtherFieldName = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix2 {someOtherFieldName = x} -> x) . entityVal) (\ (Entity key_a1Udv value_a1Udw) x_a1Udx -> Entity key_a1Udv (case value_a1Udw of NoPrefix2 {unprefixedRef = unprefixedRef_a1Udz} -> NoPrefix2 {someOtherFieldName = x_a1Udx, unprefixedRef = unprefixedRef})) fieldLens UnprefixedRef = Database.Persist.TH.Internal.lensPTH ((\ NoPrefix2 {unprefixedRef = x} -> x) . entityVal) (\ (Entity key_a1Udv value_a1Udw) x_a1Udx -> Entity key_a1Udv (case value_a1Udw of NoPrefix2 {someOtherFieldName = someOtherFieldName_a1UdA} -> NoPrefix2 {someOtherFieldName = someOtherFieldName, unprefixedRef = x_a1Udx})) deriving stock instance Show (BackendKey backend) => Show (Key (NoPrefix2Generic backend)) deriving stock instance Read (BackendKey backend) => Read (Key (NoPrefix2Generic backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (NoPrefix2Generic backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (NoPrefix2Generic backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefix2Generic backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefix2Generic backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (NoPrefix2Generic backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (NoPrefix2Generic backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (NoPrefix2Generic backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (NoPrefix2Generic backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (NoPrefix2Generic backend)) instance PersistStore backend => ToBackendKey backend (NoPrefix2Generic backend) where toBackendKey = \ NoPrefix2Key {unNoPrefix2Key = x} -> x fromBackendKey = NoPrefix2Key type NoPrefixSum = NoPrefixSumGeneric SqlBackend data NoPrefixSumGeneric backend = UnprefixedLeftSum Int | UnprefixedRightSum String deriving stock (Show, Eq) type NoPrefixSumId = Key NoPrefixSum instance PersistStore backend => PersistEntity (NoPrefixSumGeneric backend) where type PersistEntityBackend (NoPrefixSumGeneric backend) = backend data Unique (NoPrefixSumGeneric backend) newtype Key (NoPrefixSumGeneric backend) = NoPrefixSumKey {unNoPrefixSumKey :: (BackendKey backend)} data EntityField (NoPrefixSumGeneric backend) typ = (typ ~ Key (NoPrefixSumGeneric backend)) => NoPrefixSumId | (typ ~ Int) => UnprefixedLeft | (typ ~ String) => UnprefixedRight keyToValues = ((: []) . (toPersistValue . (\ NoPrefixSumKey {unNoPrefixSumKey = x} -> x))) keyFromValues = (fmap NoPrefixSumKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1UdP = error "tabulateEntityA does not make sense for sum type" tabulateEntityApply fromField_a1UdO = error "tabulateEntityApply does not make sense for sum type" entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#))) (EntityNameDB (Data.Text.unpackCStringLen# "no_prefix_sum"# (ghc-prim:GHC.Types.I# 13#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 154 24 157 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_left"# (ghc-prim:GHC.Types.I# 15#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "unprefixed_right"# (ghc-prim:GHC.Types.I# 16#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (UnprefixedLeftSum x_a1UdE) = [toPersistValue x_a1UdE, PersistNull] toPersistFields (UnprefixedRightSum x_a1UdF) = [PersistNull, toPersistValue x_a1UdF] fromPersistValues [x_a1UdG, PersistNull] | Database.Persist.TH.Internal.isNotNull x_a1UdG = (UnprefixedLeftSum `fmap` fromPersistValue x_a1UdG) fromPersistValues [PersistNull, x_a1UdH] | Database.Persist.TH.Internal.isNotNull x_a1UdH = (UnprefixedRightSum `fmap` fromPersistValue x_a1UdH) fromPersistValues _ = Left ("Invalid fromPersistValues input: sum type with all nulls. Entity: " `mappend` Data.Text.unpackCStringLen# "NoPrefixSum"# (ghc-prim:GHC.Types.I# 11#)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys _ = [] persistFieldDef NoPrefixSumId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "NoPrefixSumId"# (ghc-prim:GHC.Types.I# 13#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef UnprefixedLeft = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NoPrefixSum) (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedLeft"# (ghc-prim:GHC.Types.I# 14#))) persistFieldDef UnprefixedRight = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy NoPrefixSum) (FieldNameHS (Data.Text.unpackCStringLen# "unprefixedRight"# (ghc-prim:GHC.Types.I# 15#))) persistIdField = NoPrefixSumId fieldLens NoPrefixSumId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1UdJ) key_a1UdK -> Entity key_a1UdK value_a1UdJ) fieldLens UnprefixedLeft = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a1UdM) -> case value_a1UdM of UnprefixedLeftSum x_a1UdN -> x_a1UdN _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a1UdL _) x_a1UdN -> Entity key_a1UdL (UnprefixedLeftSum x_a1UdN)) fieldLens UnprefixedRight = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a1UdM) -> case value_a1UdM of UnprefixedRightSum x_a1UdN -> x_a1UdN _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a1UdL _) x_a1UdN -> Entity key_a1UdL (UnprefixedRightSum x_a1UdN)) deriving stock instance Show (BackendKey backend) => Show (Key (NoPrefixSumGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (NoPrefixSumGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (NoPrefixSumGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (NoPrefixSumGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (NoPrefixSumGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (NoPrefixSumGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (NoPrefixSumGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (NoPrefixSumGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (NoPrefixSumGeneric backend)) instance PersistStore backend => ToBackendKey backend (NoPrefixSumGeneric backend) where toBackendKey = \ NoPrefixSumKey {unNoPrefixSumKey = x} -> x fromBackendKey = NoPrefixSumKey instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefix1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefix1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefix2Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefix2Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefix2Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (NoPrefixSumGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (NoPrefixSumGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (NoPrefixSumGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (NoPrefix1Generic backend) (Key (NoPrefix1Generic backend)) where symbolToField = NoPrefix1Id instance SymbolToField "someFieldName" (NoPrefix1Generic backend) Int where symbolToField = SomeFieldName instance SymbolToField "id" (NoPrefix2Generic backend) (Key (NoPrefix2Generic backend)) where symbolToField = NoPrefix2Id instance SymbolToField "someOtherFieldName" (NoPrefix2Generic backend) Int where symbolToField = SomeOtherFieldName instance SymbolToField "unprefixedRef" (NoPrefix2Generic backend) (Key (NoPrefix1Generic backend)) where symbolToField = UnprefixedRef instance SymbolToField "id" (NoPrefixSumGeneric backend) (Key (NoPrefixSumGeneric backend)) where symbolToField = NoPrefixSumId instance SymbolToField "unprefixedLeft" (NoPrefixSumGeneric backend) Int where symbolToField = UnprefixedLeft instance SymbolToField "unprefixedRight" (NoPrefixSumGeneric backend) String where symbolToField = UnprefixedRight instance PersistStoreWrite backend => SafeToInsert (NoPrefix1Generic backend) instance PersistStoreWrite backend => SafeToInsert (NoPrefix2Generic backend) instance PersistStoreWrite backend => SafeToInsert (NoPrefixSumGeneric backend) entityDefListFornoPrefixMigrate :: [EntityDef] entityDefListFornoPrefixMigrate = [entityDef (Proxy :: Proxy NoPrefix1), entityDef (Proxy :: Proxy NoPrefix2), entityDef (Proxy :: Proxy NoPrefixSum)] noPrefixMigrate :: Migration noPrefixMigrate = migrateModels entityDefListFornoPrefixMigrate src/PersistentTestModels.hs:(182,23)-(192,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \CustomPrefix1\n\ \ customFieldName Int\n\ \CustomPrefix2\n\ \ otherCustomFieldName Int\n\ \ customPrefixedRef CustomPrefix1Id\n\ \+CustomPrefixSum\n\ \ customPrefixedLeft Int\n\ \ customPrefixedRight String\n\ \ deriving Show Eq\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) (FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))] src/PersistentTestModels.hs:(166,1)-(192,2): Splicing declarations share [mkPersist persistSettings {mpsFieldLabelModifier = \ entity_a1Wnn field_a1Wno -> case entity_a1Wnn of "CustomPrefix1" -> append "_cp1" field_a1Wno "CustomPrefix2" -> append "_cp2" field_a1Wno _ -> error "should not be called", mpsConstraintLabelModifier = \ entity_a1Wnp field_a1Wnq -> case entity_a1Wnp of "CustomPrefix1" -> append "CP1" field_a1Wnq "CustomPrefix2" -> append "CP2" field_a1Wnq "CustomPrefixSum" -> append "CP" field_a1Wnq _ -> error "should not be called", mpsGeneric = True}, mkMigrate "customPrefixMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) (FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)), Database.Persist.Quasi.Internal.UnboundEntityDef [] (Database.Persist.Quasi.Internal.DefaultKey (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#)))) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#))) (FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5))]) ======> instance PersistStore backend => PersistField (CustomPrefix1Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["customFieldName"] instance PersistStore backend => PersistFieldSql (CustomPrefix1Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (CustomPrefix2Generic backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["otherCustomFieldName", "customPrefixedRef"] instance PersistStore backend => PersistFieldSql (CustomPrefix2Generic backend) where sqlType _ = SqlString instance PersistStore backend => PersistField (CustomPrefixSumGeneric backend) where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["customPrefixedLeft", "customPrefixedRight"] instance PersistStore backend => PersistFieldSql (CustomPrefixSumGeneric backend) where sqlType _ = SqlString type CustomPrefix1 = CustomPrefix1Generic SqlBackend data CustomPrefix1Generic backend = CustomPrefix1 {_cp1CustomFieldName :: !Int} type CustomPrefix1Id = Key CustomPrefix1 instance PersistStore backend => PersistEntity (CustomPrefix1Generic backend) where type PersistEntityBackend (CustomPrefix1Generic backend) = backend data Unique (CustomPrefix1Generic backend) newtype Key (CustomPrefix1Generic backend) = CustomPrefix1Key {unCustomPrefix1Key :: (BackendKey backend)} data EntityField (CustomPrefix1Generic backend) typ = (typ ~ Key (CustomPrefix1Generic backend)) => CustomPrefix1Id | (typ ~ Int) => CP1CustomFieldName keyToValues = ((: []) . (toPersistValue . (\ CustomPrefix1Key {unCustomPrefix1Key = x} -> x))) keyFromValues = (fmap CustomPrefix1Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1WGT = ((Entity <$> fromField_a1WGT CustomPrefix1Id) <*> (pure CustomPrefix1 <*> fromField_a1WGT CP1CustomFieldName)) tabulateEntityApply fromField_a1WGS = ((Entity <$> fromField_a1WGS CustomPrefix1Id) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> (CustomPrefix1 <$> fromField_a1WGS CP1CustomFieldName)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 184 24 185 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_field_name"# (ghc-prim:GHC.Types.I# 17#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CustomPrefix1 x_a1WGH) = [toPersistValue x_a1WGH] fromPersistValues [x1_a1WGJ] = CustomPrefix1 <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "custom_prefix1"# (ghc-prim:GHC.Types.I# 14#)) (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) . fromPersistValue) x1_a1WGJ fromPersistValues x_a1WGI = (Left $ mappend (Data.Text.unpackCStringLen# "CustomPrefix1: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a1WGI)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (CustomPrefix1 _customFieldName_a1WGK) = [] persistFieldDef CustomPrefix1Id = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef CP1CustomFieldName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy CustomPrefix1) (FieldNameHS (Data.Text.unpackCStringLen# "customFieldName"# (ghc-prim:GHC.Types.I# 15#))) persistIdField = CustomPrefix1Id fieldLens CustomPrefix1Id = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1WGM) key_a1WGN -> Entity key_a1WGN value_a1WGM) fieldLens CP1CustomFieldName = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix1 {_cp1CustomFieldName = x} -> x) . entityVal) (\ (Entity key_a1WGO value_a1WGP) x_a1WGQ -> Entity key_a1WGO (case value_a1WGP of CustomPrefix1 {} -> CustomPrefix1 {_cp1CustomFieldName = x_a1WGQ})) deriving stock instance Show (BackendKey backend) => Show (Key (CustomPrefix1Generic backend)) deriving stock instance Read (BackendKey backend) => Read (Key (CustomPrefix1Generic backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (CustomPrefix1Generic backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (CustomPrefix1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefix1Generic backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefix1Generic backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (CustomPrefix1Generic backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (CustomPrefix1Generic backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (CustomPrefix1Generic backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (CustomPrefix1Generic backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (CustomPrefix1Generic backend)) instance PersistStore backend => ToBackendKey backend (CustomPrefix1Generic backend) where toBackendKey = \ CustomPrefix1Key {unCustomPrefix1Key = x} -> x fromBackendKey = CustomPrefix1Key type CustomPrefix2 = CustomPrefix2Generic SqlBackend data CustomPrefix2Generic backend = CustomPrefix2 {_cp2OtherCustomFieldName :: !Int, _cp2CustomPrefixedRef :: !(Key (CustomPrefix1Generic backend))} type CustomPrefix2Id = Key CustomPrefix2 instance PersistStore backend => PersistEntity (CustomPrefix2Generic backend) where type PersistEntityBackend (CustomPrefix2Generic backend) = backend data Unique (CustomPrefix2Generic backend) newtype Key (CustomPrefix2Generic backend) = CustomPrefix2Key {unCustomPrefix2Key :: (BackendKey backend)} data EntityField (CustomPrefix2Generic backend) typ = (typ ~ Key (CustomPrefix2Generic backend)) => CustomPrefix2Id | (typ ~ Int) => CP2OtherCustomFieldName | (typ ~ Key (CustomPrefix1Generic backend)) => CP2CustomPrefixedRef keyToValues = ((: []) . (toPersistValue . (\ CustomPrefix2Key {unCustomPrefix2Key = x} -> x))) keyFromValues = (fmap CustomPrefix2Key . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1WHc = ((Entity <$> fromField_a1WHc CustomPrefix2Id) <*> ((pure CustomPrefix2 <*> fromField_a1WHc CP2OtherCustomFieldName) <*> fromField_a1WHc CP2CustomPrefixedRef)) tabulateEntityApply fromField_a1WHb = ((Entity <$> fromField_a1WHb CustomPrefix2Id) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((CustomPrefix2 <$> fromField_a1WHb CP2OtherCustomFieldName) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1WHb CP2CustomPrefixedRef)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix2"# (ghc-prim:GHC.Types.I# 13#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 186 24 188 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "other_custom_field_name"# (ghc-prim:GHC.Types.I# 23#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_ref"# (ghc-prim:GHC.Types.I# 19#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix1Id"# (ghc-prim:GHC.Types.I# 15#)), fieldSqlType = sqlType (Proxy :: Proxy CustomPrefix1Id), fieldAttrs = [], fieldStrict = True, fieldReference = ForeignRef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefix1"# (ghc-prim:GHC.Types.I# 13#))), fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CustomPrefix2 x_a1WGU x_a1WGV) = [toPersistValue x_a1WGU, toPersistValue x_a1WGV] fromPersistValues [x1_a1WGX, x2_a1WGY] = CustomPrefix2 <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#)) (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) . fromPersistValue) x1_a1WGX <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "custom_prefix2"# (ghc-prim:GHC.Types.I# 14#)) (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) . fromPersistValue) x2_a1WGY fromPersistValues x_a1WGW = (Left $ mappend (Data.Text.unpackCStringLen# "CustomPrefix2: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 44#)) (Data.Text.Internal.pack $ show x_a1WGW)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys (CustomPrefix2 _otherCustomFieldName_a1WGZ _customPrefixedRef_a1WH0) = [] persistFieldDef CustomPrefix2Id = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefix2Id"# (ghc-prim:GHC.Types.I# 15#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef CP2OtherCustomFieldName = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy CustomPrefix2) (FieldNameHS (Data.Text.unpackCStringLen# "otherCustomFieldName"# (ghc-prim:GHC.Types.I# 20#))) persistFieldDef CP2CustomPrefixedRef = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy CustomPrefix2) (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRef"# (ghc-prim:GHC.Types.I# 17#))) persistIdField = CustomPrefix2Id fieldLens CustomPrefix2Id = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1WH2) key_a1WH3 -> Entity key_a1WH3 value_a1WH2) fieldLens CP2OtherCustomFieldName = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix2 {_cp2OtherCustomFieldName = x} -> x) . entityVal) (\ (Entity key_a1WH4 value_a1WH5) x_a1WH6 -> Entity key_a1WH4 (case value_a1WH5 of CustomPrefix2 {_cp2CustomPrefixedRef = _cp2CustomPrefixedRef_a1WH8} -> CustomPrefix2 {_cp2OtherCustomFieldName = x_a1WH6, _cp2CustomPrefixedRef = _cp2CustomPrefixedRef})) fieldLens CP2CustomPrefixedRef = Database.Persist.TH.Internal.lensPTH ((\ CustomPrefix2 {_cp2CustomPrefixedRef = x} -> x) . entityVal) (\ (Entity key_a1WH4 value_a1WH5) x_a1WH6 -> Entity key_a1WH4 (case value_a1WH5 of CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName_a1WH9} -> CustomPrefix2 {_cp2OtherCustomFieldName = _cp2OtherCustomFieldName, _cp2CustomPrefixedRef = x_a1WH6})) deriving stock instance Show (BackendKey backend) => Show (Key (CustomPrefix2Generic backend)) deriving stock instance Read (BackendKey backend) => Read (Key (CustomPrefix2Generic backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (CustomPrefix2Generic backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (CustomPrefix2Generic backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefix2Generic backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefix2Generic backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (CustomPrefix2Generic backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (CustomPrefix2Generic backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (CustomPrefix2Generic backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (CustomPrefix2Generic backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (CustomPrefix2Generic backend)) instance PersistStore backend => ToBackendKey backend (CustomPrefix2Generic backend) where toBackendKey = \ CustomPrefix2Key {unCustomPrefix2Key = x} -> x fromBackendKey = CustomPrefix2Key type CustomPrefixSum = CustomPrefixSumGeneric SqlBackend data CustomPrefixSumGeneric backend = CPCustomPrefixedLeftSum Int | CPCustomPrefixedRightSum String deriving stock (Show, Eq) type CustomPrefixSumId = Key CustomPrefixSum instance PersistStore backend => PersistEntity (CustomPrefixSumGeneric backend) where type PersistEntityBackend (CustomPrefixSumGeneric backend) = backend data Unique (CustomPrefixSumGeneric backend) newtype Key (CustomPrefixSumGeneric backend) = CustomPrefixSumKey {unCustomPrefixSumKey :: (BackendKey backend)} data EntityField (CustomPrefixSumGeneric backend) typ = (typ ~ Key (CustomPrefixSumGeneric backend)) => CustomPrefixSumId | (typ ~ Int) => CPCustomPrefixedLeft | (typ ~ String) => CPCustomPrefixedRight keyToValues = ((: []) . (toPersistValue . (\ CustomPrefixSumKey {unCustomPrefixSumKey = x} -> x))) keyFromValues = (fmap CustomPrefixSumKey . (fromPersistValue . Database.Persist.TH.Internal.headNote)) keyFromRecordM = Nothing tabulateEntityA fromField_a1WHo = error "tabulateEntityA does not make sense for sum type" tabulateEntityApply fromField_a1WHn = error "tabulateEntityApply does not make sense for sum type" entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#))) (EntityNameDB (Data.Text.unpackCStringLen# "custom_prefix_sum"# (ghc-prim:GHC.Types.I# 17#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [] [] [] [] [Data.Text.unpackCStringLen# "Show"# (ghc-prim:GHC.Types.I# 4#), Data.Text.unpackCStringLen# "Eq"# (ghc-prim:GHC.Types.I# 2#)] Data.Map.Internal.Tip True Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 189 24 192 5)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_left"# (ghc-prim:GHC.Types.I# 20#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "Int"# (ghc-prim:GHC.Types.I# 3#)), fieldSqlType = sqlType (Proxy :: Proxy Int), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "custom_prefixed_right"# (ghc-prim:GHC.Types.I# 21#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True), persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = []} toPersistFields (CPCustomPrefixedLeftSum x_a1WHd) = [toPersistValue x_a1WHd, PersistNull] toPersistFields (CPCustomPrefixedRightSum x_a1WHe) = [PersistNull, toPersistValue x_a1WHe] fromPersistValues [x_a1WHf, PersistNull] | Database.Persist.TH.Internal.isNotNull x_a1WHf = (CPCustomPrefixedLeftSum `fmap` fromPersistValue x_a1WHf) fromPersistValues [PersistNull, x_a1WHg] | Database.Persist.TH.Internal.isNotNull x_a1WHg = (CPCustomPrefixedRightSum `fmap` fromPersistValue x_a1WHg) fromPersistValues _ = Left ("Invalid fromPersistValues input: sum type with all nulls. Entity: " `mappend` Data.Text.unpackCStringLen# "CustomPrefixSum"# (ghc-prim:GHC.Types.I# 15#)) persistUniqueToFieldNames _ = error "Degenerate case, should never happen" persistUniqueToValues _ = error "Degenerate case, should never happen" persistUniqueKeys _ = [] persistFieldDef CustomPrefixSumId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "CustomPrefixSumId"# (ghc-prim:GHC.Types.I# 17#))) SqlInt64 [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) persistFieldDef CPCustomPrefixedLeft = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy CustomPrefixSum) (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedLeft"# (ghc-prim:GHC.Types.I# 18#))) persistFieldDef CPCustomPrefixedRight = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy CustomPrefixSum) (FieldNameHS (Data.Text.unpackCStringLen# "customPrefixedRight"# (ghc-prim:GHC.Types.I# 19#))) persistIdField = CustomPrefixSumId fieldLens CustomPrefixSumId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1WHi) key_a1WHj -> Entity key_a1WHj value_a1WHi) fieldLens CPCustomPrefixedLeft = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a1WHl) -> case value_a1WHl of CPCustomPrefixedLeftSum x_a1WHm -> x_a1WHm _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a1WHk _) x_a1WHm -> Entity key_a1WHk (CPCustomPrefixedLeftSum x_a1WHm)) fieldLens CPCustomPrefixedRight = Database.Persist.TH.Internal.lensPTH (\ (Entity _ value_a1WHl) -> case value_a1WHl of CPCustomPrefixedRightSum x_a1WHm -> x_a1WHm _ -> error "Tried to use fieldLens on a Sum type") (\ (Entity key_a1WHk _) x_a1WHm -> Entity key_a1WHk (CPCustomPrefixedRightSum x_a1WHm)) deriving stock instance Show (BackendKey backend) => Show (Key (CustomPrefixSumGeneric backend)) deriving stock instance Read (BackendKey backend) => Read (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Eq (BackendKey backend) => Eq (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Ord (BackendKey backend) => Ord (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.ToHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.ToHttpApiData (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.Internal.HttpApiData.FromHttpApiData (BackendKey backend) => Web.Internal.HttpApiData.FromHttpApiData (Key (CustomPrefixSumGeneric backend)) deriving newtype instance Web.PathPieces.PathPiece (BackendKey backend) => Web.PathPieces.PathPiece (Key (CustomPrefixSumGeneric backend)) deriving newtype instance PersistField (BackendKey backend) => PersistField (Key (CustomPrefixSumGeneric backend)) deriving newtype instance PersistFieldSql (BackendKey backend) => PersistFieldSql (Key (CustomPrefixSumGeneric backend)) deriving newtype instance ToJSON (BackendKey backend) => ToJSON (Key (CustomPrefixSumGeneric backend)) deriving newtype instance FromJSON (BackendKey backend) => FromJSON (Key (CustomPrefixSumGeneric backend)) instance PersistStore backend => ToBackendKey backend (CustomPrefixSumGeneric backend) where toBackendKey = \ CustomPrefixSumKey {unCustomPrefixSumKey = x} -> x fromBackendKey = CustomPrefixSumKey instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefix1Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix1Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefix1Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefix2Generic backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefix2Generic backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefix2Generic backend) where requireUniquesP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)), PersistStoreWrite backend) => OnlyOneUniqueKey (CustomPrefixSumGeneric backend) where onlyUniqueP _ = error "impossible" instance (GHC.TypeError.TypeError (NoUniqueKeysError (CustomPrefixSumGeneric backend)), PersistStoreWrite backend) => AtLeastOneUniqueKey (CustomPrefixSumGeneric backend) where requireUniquesP _ = error "impossible" instance SymbolToField "id" (CustomPrefix1Generic backend) (Key (CustomPrefix1Generic backend)) where symbolToField = CustomPrefix1Id instance SymbolToField "customFieldName" (CustomPrefix1Generic backend) Int where symbolToField = CP1CustomFieldName instance SymbolToField "id" (CustomPrefix2Generic backend) (Key (CustomPrefix2Generic backend)) where symbolToField = CustomPrefix2Id instance SymbolToField "otherCustomFieldName" (CustomPrefix2Generic backend) Int where symbolToField = CP2OtherCustomFieldName instance SymbolToField "customPrefixedRef" (CustomPrefix2Generic backend) (Key (CustomPrefix1Generic backend)) where symbolToField = CP2CustomPrefixedRef instance SymbolToField "id" (CustomPrefixSumGeneric backend) (Key (CustomPrefixSumGeneric backend)) where symbolToField = CustomPrefixSumId instance SymbolToField "customPrefixedLeft" (CustomPrefixSumGeneric backend) Int where symbolToField = CPCustomPrefixedLeft instance SymbolToField "customPrefixedRight" (CustomPrefixSumGeneric backend) String where symbolToField = CPCustomPrefixedRight instance PersistStoreWrite backend => SafeToInsert (CustomPrefix1Generic backend) instance PersistStoreWrite backend => SafeToInsert (CustomPrefix2Generic backend) instance PersistStoreWrite backend => SafeToInsert (CustomPrefixSumGeneric backend) entityDefListForcustomPrefixMigrate :: [EntityDef] entityDefListForcustomPrefixMigrate = [entityDef (Proxy :: Proxy CustomPrefix1), entityDef (Proxy :: Proxy CustomPrefix2), entityDef (Proxy :: Proxy CustomPrefixSum)] customPrefixMigrate :: Migration customPrefixMigrate = migrateModels entityDefListForcustomPrefixMigrate src/PersistentTestModels.hs:(206,23)-(213,2): Splicing expression template-haskell:Language.Haskell.TH.Quote.quoteExp persistLowerCase "\n\ \\n\ \Tree sql=trees\n\ \ name String\n\ \ parent String Maybe\n\ \ Primary name\n\ \ Foreign Tree fkparent parent\n" ======> [Database.Persist.Quasi.Internal.UnboundEntityDef [Database.Persist.Quasi.Internal.UnboundForeignDef (Database.Persist.Quasi.Internal.FieldListImpliedId (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)) NEL.:| [])) (ForeignDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#))) (ConstraintNameHS (Data.Text.unpackCStringLen# "fkparent"# (ghc-prim:GHC.Types.I# 8#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "treefkparent"# (ghc-prim:GHC.Types.I# 12#))) (FieldCascade Nothing Nothing) [] [] False True)] (Database.Persist.Quasi.Internal.NaturalKey (Database.Persist.Quasi.Internal.UnboundCompositeDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)) NEL.:| []) [])) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))] src/PersistentTestModels.hs:(202,1)-(213,2): Splicing declarations share [mkPersist persistSettings {mpsPrefixFields = False, mpsGeneric = False}, mkMigrate "treeMigrate"] ([Database.Persist.Quasi.Internal.UnboundEntityDef [Database.Persist.Quasi.Internal.UnboundForeignDef (Database.Persist.Quasi.Internal.FieldListImpliedId (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)) NEL.:| [])) (ForeignDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#))) (ConstraintNameHS (Data.Text.unpackCStringLen# "fkparent"# (ghc-prim:GHC.Types.I# 8#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "treefkparent"# (ghc-prim:GHC.Types.I# 12#))) (FieldCascade Nothing Nothing) [] [] False True)] (Database.Persist.Quasi.Internal.NaturalKey (Database.Persist.Quasi.Internal.UnboundCompositeDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)) NEL.:| []) [])) (persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))) [Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) (FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) [] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing, Database.Persist.Quasi.Internal.UnboundFieldDef (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) (FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) [FieldAttrMaybe] True (FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#))) (FieldCascade Nothing Nothing) Nothing Nothing] (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3))]) ======> instance PersistField Tree where toPersistValue = Database.Persist.TH.Internal.entityToPersistValueHelper fromPersistValue = Database.Persist.TH.Internal.entityFromPersistValueHelper ["name", "parent"] instance PersistFieldSql Tree where sqlType _ = SqlString data Tree = Tree {name :: !String, parent :: !(Maybe String)} fkparent :: Tree -> Maybe (Key Tree) fkparent record_mkForeignKeysComposite_a1Z0U = fmap TreeKey (ghc-prim:GHC.Prim.coerce (parent record_mkForeignKeysComposite_a1Z0U)) type TreeId = Key Tree instance PersistEntity Tree where type PersistEntityBackend Tree = SqlBackend data Unique Tree = TreePrimaryKey String newtype Key Tree = TreeKey {unTreeKey :: String} deriving stock Show deriving stock Read deriving newtype Eq deriving newtype Ord deriving newtype Web.PathPieces.PathPiece deriving newtype Web.Internal.HttpApiData.ToHttpApiData deriving newtype Web.Internal.HttpApiData.FromHttpApiData deriving newtype PersistField deriving newtype PersistFieldSql deriving newtype ToJSON deriving newtype FromJSON data EntityField Tree typ = (typ ~ TreeId) => TreeId | (typ ~ String) => Name | (typ ~ Maybe String) => Parent keyToValues record_a1Z0V = [toPersistValue ((\ TreeKey {unTreeKey = x} -> x) record_a1Z0V)] keyFromValues [x1_a1Z0X] = TreeKey <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a1Z0X keyFromValues x_a1Z0W = (Left $ mappend (Data.Text.unpackCStringLen# "Tree: keyFromValues failed on: "# (ghc-prim:GHC.Types.I# 31#)) (Data.Text.Internal.pack $ show x_a1Z0W)) keyFromRecordM = Just (\ Tree {name = name_a1Z17} -> TreeKey name_a1Z17) tabulateEntityA fromField_a1Z19 = ((Entity <$> fromField_a1Z19 TreeId) <*> ((pure Tree <*> fromField_a1Z19 Name) <*> fromField_a1Z19 Parent)) tabulateEntityApply fromField_a1Z18 = ((Entity <$> fromField_a1Z18 TreeId) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> ((Tree <$> fromField_a1Z18 Name) semigroupoids-6.0.1-7B2lIORcvon6pcnJZP4UED:Data.Functor.Bind.Class.<.> fromField_a1Z18 Parent)) entityDef _ = persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.EntityDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))) (EntityIdField (FieldDef (FieldNameHS (Data.Text.unpackCStringLen# "Id"# (ghc-prim:GHC.Types.I# 2#))) (FieldNameDB (Data.Text.unpackCStringLen# "id"# (ghc-prim:GHC.Types.I# 2#))) (FTTypeCon Nothing (Data.Text.unpackCStringLen# "TreeId"# (ghc-prim:GHC.Types.I# 6#))) (SqlOther (Data.Text.unpackCStringLen# "Primary Key"# (ghc-prim:GHC.Types.I# 11#))) [] True NoReference (FieldCascade Nothing Nothing) Nothing Nothing True)) [Data.Text.unpackCStringLen# "sql=trees"# (ghc-prim:GHC.Types.I# 9#)] [] [UniqueDef (ConstraintNameHS (Data.Text.unpackCStringLen# "TreePrimaryKey"# (ghc-prim:GHC.Types.I# 14#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "primary_key"# (ghc-prim:GHC.Types.I# 11#))) ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) []] [] [] Data.Map.Internal.Tip False Nothing (Just (Database.Persist.Types.SourceSpan.SourceSpan (Data.Text.unpackCStringLen# "src/PersistentTestModels.hs"# (ghc-prim:GHC.Types.I# 27#)) 209 24 213 3)) {persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityFields = [FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}, FieldDef {fieldHaskell = FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldDB = FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), fieldType = FTTypeCon Nothing (Data.Text.unpackCStringLen# "String"# (ghc-prim:GHC.Types.I# 6#)), fieldSqlType = sqlType (Proxy :: Proxy String), fieldAttrs = [FieldAttrMaybe], fieldStrict = True, fieldReference = NoReference, fieldCascade = FieldCascade Nothing Nothing, fieldComments = Nothing, fieldGenerated = Nothing, fieldIsImplicitIdColumn = False}], persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityId = EntityIdNaturalKey CompositeDef {compositeFields = NEL.fromList [Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Tree) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))], compositeAttrs = []}, persistent-2.18.0.0-4SU4Lo3onQKBoHDniq17CO:Database.Persist.Types.Base.entityForeigns = [ForeignDef (EntityNameHS (Data.Text.unpackCStringLen# "Tree"# (ghc-prim:GHC.Types.I# 4#))) (EntityNameDB (Data.Text.unpackCStringLen# "tree"# (ghc-prim:GHC.Types.I# 4#))) (ConstraintNameHS (Data.Text.unpackCStringLen# "fkparent"# (ghc-prim:GHC.Types.I# 8#))) (ConstraintNameDB (Data.Text.unpackCStringLen# "treefkparent"# (ghc-prim:GHC.Types.I# 12#))) (FieldCascade Nothing Nothing) [] [] False True {foreignFields = [((FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#)), FieldNameDB (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))), (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))))], foreignNullable = True, foreignRefTableDBName = EntityNameDB (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#))}]} toPersistFields (Tree x_a1Z0M x_a1Z0N) = [toPersistValue x_a1Z0M, toPersistValue x_a1Z0N] fromPersistValues [x1_a1Z0P, x2_a1Z0Q] = Tree <$> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)) (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) . fromPersistValue) x1_a1Z0P <*> (Database.Persist.TH.Internal.mapLeft (Database.Persist.TH.Internal.fieldError (Data.Text.unpackCStringLen# "trees"# (ghc-prim:GHC.Types.I# 5#)) (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) . fromPersistValue) x2_a1Z0Q fromPersistValues x_a1Z0O = (Left $ mappend (Data.Text.unpackCStringLen# "Tree: fromPersistValues failed on: "# (ghc-prim:GHC.Types.I# 35#)) (Data.Text.Internal.pack $ show x_a1Z0O)) persistUniqueToFieldNames TreePrimaryKey {} = ((FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)), FieldNameDB (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) NEL.:| []) persistUniqueToValues (TreePrimaryKey x_a1Z0R) = [toPersistValue x_a1Z0R] persistUniqueKeys (Tree _name_a1Z0S _parent_a1Z0T) = [TreePrimaryKey _name_a1Z0S] persistFieldDef TreeId = Database.Persist.TH.Internal.stripIdFieldImpl (EntityIdNaturalKey CompositeDef {compositeFields = NEL.fromList [Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Tree) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#)))], compositeAttrs = []}) persistFieldDef Name = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Tree) (FieldNameHS (Data.Text.unpackCStringLen# "name"# (ghc-prim:GHC.Types.I# 4#))) persistFieldDef Parent = Database.Persist.TH.Internal.lookupEntityField (Proxy :: Proxy Tree) (FieldNameHS (Data.Text.unpackCStringLen# "parent"# (ghc-prim:GHC.Types.I# 6#))) persistIdField = TreeId fieldLens TreeId = Database.Persist.TH.Internal.lensPTH entityKey (\ (Entity _ value_a1Z0Y) key_a1Z0Z -> Entity key_a1Z0Z value_a1Z0Y) fieldLens Name = Database.Persist.TH.Internal.lensPTH ((\ Tree {name = x} -> x) . entityVal) (\ (Entity key_a1Z10 value_a1Z11) x_a1Z12 -> Entity key_a1Z10 (case value_a1Z11 of Tree {parent = parent_a1Z14} -> Tree {name = x_a1Z12, parent = parent})) fieldLens Parent = Database.Persist.TH.Internal.lensPTH ((\ Tree {parent = x} -> x) . entityVal) (\ (Entity key_a1Z10 value_a1Z11) x_a1Z12 -> Entity key_a1Z10 (case value_a1Z11 of Tree {name = name_a1Z15} -> Tree {name = name, parent = x_a1Z12})) instance OnlyOneUniqueKey Tree where onlyUniqueP = (head . persistUniqueKeys) instance AtLeastOneUniqueKey Tree where requireUniquesP = (NEL.fromList . persistUniqueKeys) instance SymbolToField "id" Tree (Key Tree) where symbolToField = TreeId instance SymbolToField "name" Tree String where symbolToField = Name instance SymbolToField "parent" Tree (Maybe String) where symbolToField = Parent instance SafeToInsert Tree entityDefListFortreeMigrate :: [EntityDef] entityDefListFortreeMigrate = [entityDef (Proxy :: Proxy Tree)] treeMigrate :: Migration treeMigrate = migrateModels entityDefListFortreeMigrate src/PersistentTestModels.hs:27:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 27 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "testMigrate"] | ^^^^^^^^^^ src/PersistentTestModels.hs:137:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 137 | share | ^^^^^... src/PersistentTestModels.hs:143:15: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 143 | , mpsGeneric = True | ^^^^^^^^^^ src/PersistentTestModels.hs:166:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 166 | share | ^^^^^... src/PersistentTestModels.hs:178:15: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 178 | , mpsGeneric = True | ^^^^^^^^^^ src/PersistentTestModels.hs:203:58: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 203 | [ mkPersist persistSettings{mpsPrefixFields = False, mpsGeneric = False} | ^^^^^^^^^^ src/PersistentTestModels.hs:223:10: warning: [GHC-06201] [-Wmissing-methods] " No explicit implementation for tabulateEntityA and tabulateEntityApply " In the instance declaration for PersistEntity (ReverseFieldOrder a) | 223 | instance (PersistEntity a) => PersistEntity (ReverseFieldOrder a) where | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ src/PersistentTestModels.hs:228:54: warning: [GHC-63394] [-Wx-partial] In the use of head (imported from Prelude, but defined in GHC.List): "This is a partial function, it throws an error on empty lists. Use pattern matching or Data.List.uncons instead. Consider refactoring to use Data.List.NonEmpty." | 228 | keyFromValues = fmap RFOKey . fromPersistValue . head | ^^^^ [28 of 41] Compiling PersistentTest ( src/PersistentTest.hs, nothing ) [29 of 41] Compiling MpsNoPrefixTest ( src/MpsNoPrefixTest.hs, nothing ) [30 of 41] Compiling MpsCustomPrefixTest ( src/MpsCustomPrefixTest.hs, nothing ) [31 of 41] Compiling PrimaryTest ( src/PrimaryTest.hs, nothing ) src/PrimaryTest.hs:12:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 12 | [mkPersist persistSettings{mpsGeneric = False}, mkMigrate "migration"] | ^^^^^^^^^^ [32 of 41] Compiling RawSqlTest ( src/RawSqlTest.hs, nothing ) [33 of 41] Compiling ReadWriteTest ( src/ReadWriteTest.hs, nothing ) [34 of 41] Compiling Recursive ( src/Recursive.hs, nothing ) src/Recursive.hs:10:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 10 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "recursiveMigrate"] | ^^^^^^^^^^ [35 of 41] Compiling RenameTest ( src/RenameTest.hs, nothing ) src/RenameTest.hs:19:28: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 19 | [mkPersist sqlSettings{mpsGeneric = True}, mkMigrate "migration"] | ^^^^^^^^^^ [36 of 41] Compiling SumTypeTest ( src/SumTypeTest.hs, nothing ) src/SumTypeTest.hs:13:1: warning: [GHC-39584] persistent has deprecated sum type entities as of 2.14.0.0. We will delete support for these entities in 2.15.0.0. If you need these, please add a comment on this GitHub issue: https://github.com/yesodweb/persistent/issues/987 | 13 | share | ^^^^^... src/SumTypeTest.hs:14:32: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 14 | [mkPersist persistSettings{mpsGeneric = True}, mkMigrate "sumTypeMigrate"] | ^^^^^^^^^^ [37 of 41] Compiling TransactionLevelTest ( src/TransactionLevelTest.hs, nothing ) [38 of 41] Compiling TreeTest ( src/TreeTest.hs, nothing ) src/TreeTest.hs:13:33: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 13 | [ mkPersist persistSettings{mpsGeneric = False} | ^^^^^^^^^^ [39 of 41] Compiling TypeLitFieldDefsTest ( src/TypeLitFieldDefsTest.hs, nothing ) src/TypeLitFieldDefsTest.hs:34:29: warning: [GHC-68441] [-Wdeprecations] In the use of record field of MkPersistSettings mpsGeneric (imported from Init, but defined in Database.Persist.TH.Internal): Deprecated: "The mpsGeneric function adds a considerable amount of overhead and complexity to the library without bringing significant benefit. We would like to remove it. If you require this feature, please comment on the linked GitHub issue, and we'll either keep it around, or we can figure out a nicer way to solve your problem. Github: https://github.com/yesodweb/persistent/issues/1204" | 34 | [ mkPersist sqlSettings{mpsGeneric = True} | ^^^^^^^^^^ [40 of 41] Compiling UniqueTest ( src/UniqueTest.hs, nothing ) [41 of 41] Compiling UpsertTest ( src/UpsertTest.hs, nothing ) Haddock coverage: 62% ( 34 / 54) in 'Init' Missing documentation for: @/= (src/Init.hs:130) @== (src/Init.hs:133) ==@ (src/Init.hs:134) asIO (src/Init.hs:126) assertNotEqual (src/Init.hs:141) assertNotEmpty (src/Init.hs:155) assertEmpty (src/Init.hs:152) isTravis (src/Init.hs:158) persistSettings (src/Init.hs:168) BackendKey GenerateKey (src/Init.hs:180) RunDb (src/Init.hs:256) Runner (src/Init.hs:240) truncateTimeOfDay (src/Init.hs:209) truncateToMicro (src/Init.hs:214) truncateUTCTime (src/Init.hs:221) arbText (src/Init.hs:230) changeBackend (src/Init.hs:264) UUID (src/Init.hs:290) sqlSettingsUuid (src/Init.hs:310) 0% ( 0 / 4) in 'HtmlTest' Missing documentation for: Module header specsWith (src/HtmlTest.hs:34) cleanDB (src/HtmlTest.hs:26) htmlMigrate (src/HtmlTest.hs:17) 0% ( 0 / 2) in 'GeneratedColumnTestSQL' Missing documentation for: Module header specsWith (src/GeneratedColumnTestSQL.hs:34) 0% ( 0 / 44) in 'ForeignKey' Missing documentation for: Module header Chain3Id (src/ForeignKey.hs:18) Chain3 (src/ForeignKey.hs:18) Chain2Id (src/ForeignKey.hs:18) Chain2 (src/ForeignKey.hs:18) ChainId (src/ForeignKey.hs:18) Chain (src/ForeignKey.hs:18) BExplicitId (src/ForeignKey.hs:18) BExplicit (src/ForeignKey.hs:18) BCompositeId (src/ForeignKey.hs:18) BComposite (src/ForeignKey.hs:18) ACompositeId (src/ForeignKey.hs:18) AComposite (src/ForeignKey.hs:18) BId (src/ForeignKey.hs:18) B (src/ForeignKey.hs:18) AId (src/ForeignKey.hs:18) A (src/ForeignKey.hs:18) SelfReferencedId (src/ForeignKey.hs:18) SelfReferenced (src/ForeignKey.hs:18) ChildCompositeId (src/ForeignKey.hs:18) ChildComposite (src/ForeignKey.hs:18) ParentCompositeId (src/ForeignKey.hs:18) ParentComposite (src/ForeignKey.hs:18) ChildImplicitId (src/ForeignKey.hs:18) ChildImplicit (src/ForeignKey.hs:18) ParentImplicitId (src/ForeignKey.hs:18) ParentImplicit (src/ForeignKey.hs:18) ChildId (src/ForeignKey.hs:18) Child (src/ForeignKey.hs:18) ParentId (src/ForeignKey.hs:18) Parent (src/ForeignKey.hs:18) SimpleCascadeId (src/ForeignKey.hs:18) SimpleCascade (src/ForeignKey.hs:18) SimpleCascadeChildId (src/ForeignKey.hs:18) SimpleCascadeChild (src/ForeignKey.hs:18) childFkparent (src/ForeignKey.hs:18) childImplicitFkparent (src/ForeignKey.hs:18) childCompositeFkparent (src/ForeignKey.hs:18) selfReferencedFkparent (src/ForeignKey.hs:18) entityDefListForcompositeMigrate (src/ForeignKey.hs:18) compositeMigrate (src/ForeignKey.hs:18) specsWith (src/ForeignKey.hs:111) cleanDB (src/ForeignKey.hs:237) del (src/ForeignKey.hs:262) 0% ( 0 / 2) in 'EquivalentTypeTest' Missing documentation for: Module header specsWith (src/EquivalentTypeTest.hs:30) 0% ( 0 / 5) in 'EntityEmbedTest' Missing documentation for: Module header ARecordId (src/EntityEmbedTest.hs:10) ARecordGeneric (src/EntityEmbedTest.hs:10) ARecord (src/EntityEmbedTest.hs:10) AnEntity (src/EntityEmbedTest.hs:18) 0% ( 0 / 4) in 'EmptyEntityTest' Missing documentation for: Module header specsWith (src/EmptyEntityTest.hs:32) migration (src/EmptyEntityTest.hs:13) cleanDB (src/EmptyEntityTest.hs:25) 0% ( 0 / 4) in 'EmbedTest' Missing documentation for: Module header specsWith (src/EmbedTest.hs:164) cleanDB (src/EmbedTest.hs:144) embedMigrate (src/EmbedTest.hs:32) 0% ( 0 / 4) in 'EmbedOrderTest' Missing documentation for: Module header specsWith (src/EmbedOrderTest.hs:34) embedOrderMigrate (src/EmbedOrderTest.hs:15) cleanDB (src/EmbedOrderTest.hs:29) 0% ( 0 / 5) in 'DataTypeTest' Missing documentation for: Module header specsWith (src/DataTypeTest.hs:118) dataTypeMigrate (src/DataTypeTest.hs:39) roundTime (src/DataTypeTest.hs:66) roundUTCTime (src/DataTypeTest.hs:69) 0% ( 0 / 9) in 'CustomPrimaryKeyReferenceTest' Missing documentation for: Module header TweetUrlId (src/CustomPrimaryKeyReferenceTest.hs:12) TweetUrl (src/CustomPrimaryKeyReferenceTest.hs:12) TweetId (src/CustomPrimaryKeyReferenceTest.hs:12) Tweet (src/CustomPrimaryKeyReferenceTest.hs:12) entityDefListFormigration (src/CustomPrimaryKeyReferenceTest.hs:12) migration (src/CustomPrimaryKeyReferenceTest.hs:12) cleanDB (src/CustomPrimaryKeyReferenceTest.hs:32) specsWith (src/CustomPrimaryKeyReferenceTest.hs:37) 0% ( 0 / 2) in 'CustomPersistField' Missing documentation for: Module header Markdown (src/CustomPersistField.hs:14) 0% ( 0 / 3) in 'CustomPersistFieldTest' Missing documentation for: Module header specsWith (src/CustomPersistFieldTest.hs:19) customFieldMigrate (src/CustomPersistFieldTest.hs:10) 0% ( 0 / 22) in 'CompositeTest' Missing documentation for: Module header PrimaryCompositeWithOtherNullableFieldsId (src/CompositeTest.hs:16) PrimaryCompositeWithOtherNullableFields (src/CompositeTest.hs:16) CitizenAddressId (src/CompositeTest.hs:16) CitizenAddress (src/CompositeTest.hs:16) AddressId (src/CompositeTest.hs:16) Address (src/CompositeTest.hs:16) CitizenId (src/CompositeTest.hs:16) Citizen (src/CompositeTest.hs:16) TestChildId (src/CompositeTest.hs:16) TestChild (src/CompositeTest.hs:16) TestParentId (src/CompositeTest.hs:16) TestParent (src/CompositeTest.hs:16) testChildFkparent (src/CompositeTest.hs:16) entityDefListForcompositeMigrate (src/CompositeTest.hs:16) compositeMigrate (src/CompositeTest.hs:16) cleanDB (src/CompositeTest.hs:59) specsWith (src/CompositeTest.hs:67) matchK (src/CompositeTest.hs:273) matchK2 (src/CompositeTest.hs:280) matchParentK (src/CompositeTest.hs:283) matchCitizenAddressK (src/CompositeTest.hs:289) 0% ( 0 / 8) in 'LargeNumberTest' Missing documentation for: Module header NumberId (src/LargeNumberTest.hs:10) NumberGeneric (src/LargeNumberTest.hs:10) Number (src/LargeNumberTest.hs:10) entityDefListFornumberMigrate (src/LargeNumberTest.hs:10) numberMigrate (src/LargeNumberTest.hs:10) cleanDB (src/LargeNumberTest.hs:24) specsWith (src/LargeNumberTest.hs:28) 0% ( 0 / 8) in 'LongIdentifierTest' Missing documentation for: Module header TableAnExtremelyFantasticallySuperLongNameChildId (src/LongIdentifierTest.hs:23) TableAnExtremelyFantasticallySuperLongNameChild (src/LongIdentifierTest.hs:23) TableAnExtremelyFantasticallySuperLongNameParentId (src/LongIdentifierTest.hs:23) TableAnExtremelyFantasticallySuperLongNameParent (src/LongIdentifierTest.hs:23) entityDefListFormigration (src/LongIdentifierTest.hs:23) migration (src/LongIdentifierTest.hs:23) specsWith (src/LongIdentifierTest.hs:33) 0% ( 0 / 3) in 'MaxLenTest' Missing documentation for: Module header specsWith (src/MaxLenTest.hs:31) maxlenMigrate (src/MaxLenTest.hs:11) 0% ( 0 / 3) in 'MaybeFieldDefsTest' Missing documentation for: Module header specsWith (src/MaybeFieldDefsTest.hs:22) maybeFieldDefMigrate (src/MaybeFieldDefsTest.hs:12) 0% ( 0 / 6) in 'MigrationColumnLengthTest' Missing documentation for: Module header VaryingLengthsId (src/MigrationColumnLengthTest.hs:11) VaryingLengths (src/MigrationColumnLengthTest.hs:11) entityDefListFormigration (src/MigrationColumnLengthTest.hs:11) migration (src/MigrationColumnLengthTest.hs:11) specsWith (src/MigrationColumnLengthTest.hs:20) 0% ( 0 / 6) in 'MigrationIdempotencyTest' Missing documentation for: Module header IdempotencyId (src/MigrationIdempotencyTest.hs:13) Idempotency (src/MigrationIdempotencyTest.hs:13) entityDefListFormigration (src/MigrationIdempotencyTest.hs:13) migration (src/MigrationIdempotencyTest.hs:13) specsWith (src/MigrationIdempotencyTest.hs:29) 0% ( 0 / 4) in 'MigrationOnlyTest' Missing documentation for: Module header specsWith (src/MigrationOnlyTest.hs:47) migrateAll1 (src/MigrationOnlyTest.hs:14) migrateAll2 (src/MigrationOnlyTest.hs:24) 0% ( 0 / 16) in 'MigrationTest' Missing documentation for: Module header CustomSqlIdId (src/MigrationTest.hs:12) CustomSqlId (src/MigrationTest.hs:12) SourceId (src/MigrationTest.hs:12) Source (src/MigrationTest.hs:12) TargetId (src/MigrationTest.hs:12) Target (src/MigrationTest.hs:12) entityDefListFormigrationMigrate (src/MigrationTest.hs:12) migrationMigrate (src/MigrationTest.hs:12) Source1Id (src/MigrationTest.hs:30) Source1 (src/MigrationTest.hs:30) Target1Id (src/MigrationTest.hs:30) Target1 (src/MigrationTest.hs:30) entityDefListFormigrationAddCol (src/MigrationTest.hs:30) migrationAddCol (src/MigrationTest.hs:30) specsWith (src/MigrationTest.hs:46) 0% ( 0 / 2) in 'PersistTestPetCollarType' Missing documentation for: Module header PetCollar (src/PersistTestPetCollarType.hs:11) 0% ( 0 / 2) in 'PersistTestPetType' Missing documentation for: Module header PetType (src/PersistTestPetType.hs:5) 0% ( 0 / 12) in 'PersistUniqueTest' Missing documentation for: Module header OnlyPrimaryKeyId (src/PersistUniqueTest.hs:10) OnlyPrimaryKey (src/PersistUniqueTest.hs:10) BaId (src/PersistUniqueTest.hs:10) Ba (src/PersistUniqueTest.hs:10) FoId (src/PersistUniqueTest.hs:10) Fo (src/PersistUniqueTest.hs:10) entityDefListFormigration (src/PersistUniqueTest.hs:10) migration (src/PersistUniqueTest.hs:10) shouldCompile (src/PersistUniqueTest.hs:43) cleanDB (src/PersistUniqueTest.hs:48) specsWith (src/PersistUniqueTest.hs:52) 33% ( 1 / 3) in 'PersistentTestModelsImports' Missing documentation for: UserId (src/PersistentTestModelsImports.hs:9) User (src/PersistentTestModelsImports.hs:9) 1% ( 1 / 83) in 'PersistentTestModels' Missing documentation for: Module header MutBId (src/PersistentTestModels.hs:26) MutBGeneric (src/PersistentTestModels.hs:26) MutB (src/PersistentTestModels.hs:26) MutAId (src/PersistentTestModels.hs:26) MutAGeneric (src/PersistentTestModels.hs:26) MutA (src/PersistentTestModels.hs:26) RelationshipId (src/PersistentTestModels.hs:26) RelationshipGeneric (src/PersistentTestModels.hs:26) Relationship (src/PersistentTestModels.hs:26) DudeWeirdColumnsId (src/PersistentTestModels.hs:26) DudeWeirdColumnsGeneric (src/PersistentTestModels.hs:26) DudeWeirdColumns (src/PersistentTestModels.hs:26) StrictId (src/PersistentTestModels.hs:26) StrictGeneric (src/PersistentTestModels.hs:26) Strict (src/PersistentTestModels.hs:26) UpsertById (src/PersistentTestModels.hs:26) UpsertByGeneric (src/PersistentTestModels.hs:26) UpsertBy (src/PersistentTestModels.hs:26) UpsertId (src/PersistentTestModels.hs:26) UpsertGeneric (src/PersistentTestModels.hs:26) Upsert (src/PersistentTestModels.hs:26) EmailPTId (src/PersistentTestModels.hs:26) EmailPTGeneric (src/PersistentTestModels.hs:26) EmailPT (src/PersistentTestModels.hs:26) UserPTId (src/PersistentTestModels.hs:26) UserPTGeneric (src/PersistentTestModels.hs:26) UserPT (src/PersistentTestModels.hs:26) OutdoorPetId (src/PersistentTestModels.hs:26) OutdoorPetGeneric (src/PersistentTestModels.hs:26) OutdoorPet (src/PersistentTestModels.hs:26) NeedsPetId (src/PersistentTestModels.hs:26) NeedsPetGeneric (src/PersistentTestModels.hs:26) NeedsPet (src/PersistentTestModels.hs:26) MaybeOwnedPetId (src/PersistentTestModels.hs:26) MaybeOwnedPetGeneric (src/PersistentTestModels.hs:26) MaybeOwnedPet (src/PersistentTestModels.hs:26) PetId (src/PersistentTestModels.hs:26) PetGeneric (src/PersistentTestModels.hs:26) Pet (src/PersistentTestModels.hs:26) PersonMayId (src/PersistentTestModels.hs:26) PersonMayGeneric (src/PersistentTestModels.hs:26) PersonMay (src/PersistentTestModels.hs:26) PersonMaybeAgeId (src/PersistentTestModels.hs:26) PersonMaybeAgeGeneric (src/PersistentTestModels.hs:26) PersonMaybeAge (src/PersistentTestModels.hs:26) Person1Id (src/PersistentTestModels.hs:26) Person1Generic (src/PersistentTestModels.hs:26) Person1 (src/PersistentTestModels.hs:26) PersonId (src/PersistentTestModels.hs:26) PersonGeneric (src/PersistentTestModels.hs:26) Person (src/PersistentTestModels.hs:26) entityDefListFortestMigrate (src/PersistentTestModels.hs:26) testMigrate (src/PersistentTestModels.hs:26) NoPrefixSumId (src/PersistentTestModels.hs:137) NoPrefixSumGeneric (src/PersistentTestModels.hs:137) NoPrefixSum (src/PersistentTestModels.hs:137) NoPrefix2Id (src/PersistentTestModels.hs:137) NoPrefix2Generic (src/PersistentTestModels.hs:137) NoPrefix2 (src/PersistentTestModels.hs:137) NoPrefix1Id (src/PersistentTestModels.hs:137) NoPrefix1Generic (src/PersistentTestModels.hs:137) NoPrefix1 (src/PersistentTestModels.hs:137) entityDefListFornoPrefixMigrate (src/PersistentTestModels.hs:137) noPrefixMigrate (src/PersistentTestModels.hs:137) CustomPrefixSumId (src/PersistentTestModels.hs:166) CustomPrefixSumGeneric (src/PersistentTestModels.hs:166) CustomPrefixSum (src/PersistentTestModels.hs:166) CustomPrefix2Id (src/PersistentTestModels.hs:166) CustomPrefix2Generic (src/PersistentTestModels.hs:166) CustomPrefix2 (src/PersistentTestModels.hs:166) CustomPrefix1Id (src/PersistentTestModels.hs:166) CustomPrefix1Generic (src/PersistentTestModels.hs:166) CustomPrefix1 (src/PersistentTestModels.hs:166) entityDefListForcustomPrefixMigrate (src/PersistentTestModels.hs:166) customPrefixMigrate (src/PersistentTestModels.hs:166) TreeId (src/PersistentTestModels.hs:202) Tree (src/PersistentTestModels.hs:202) fkparent (src/PersistentTestModels.hs:202) entityDefListFortreeMigrate (src/PersistentTestModels.hs:202) treeMigrate (src/PersistentTestModels.hs:202) cleanDB (src/PersistentTestModels.hs:253) Warning: PersistentTest: Could not find documentation for exported module: PersistentTest 0% ( 0 / 15) in 'PersistentTest' Missing documentation for: Module header specsWith (src/PersistentTest.hs:107) catchPersistException (src/PersistentTest.hs:37) set (src/PersistentTest.hs:80) filterOrSpecs (src/PersistentTest.hs:48) _polymorphic (src/PersistentTest.hs:70) ASetter (src/PersistentTest.hs:77) Getting (src/PersistentTest.hs:82) view (src/PersistentTest.hs:85) safeToRemoveSpec (src/PersistentTest.hs:89) cleanDB (src/PersistentTestModels.hs:253) testMigrate (src/PersistentTestModels.hs:26) noPrefixMigrate (src/PersistentTestModels.hs:137) customPrefixMigrate (src/PersistentTestModels.hs:166) treeMigrate (src/PersistentTestModels.hs:202) 0% ( 0 / 2) in 'MpsNoPrefixTest' Missing documentation for: Module header specsWith (src/MpsNoPrefixTest.hs:7) 0% ( 0 / 2) in 'MpsCustomPrefixTest' Missing documentation for: Module header specsWith (src/MpsCustomPrefixTest.hs:7) 0% ( 0 / 14) in 'PrimaryTest' Missing documentation for: Module header CompositePrimaryId (src/PrimaryTest.hs:11) CompositePrimary (src/PrimaryTest.hs:11) TreesId (src/PrimaryTest.hs:11) Trees (src/PrimaryTest.hs:11) BarId (src/PrimaryTest.hs:11) Bar (src/PrimaryTest.hs:11) FooId (src/PrimaryTest.hs:11) Foo (src/PrimaryTest.hs:11) treesFkparent (src/PrimaryTest.hs:11) entityDefListFormigration (src/PrimaryTest.hs:11) migration (src/PrimaryTest.hs:11) cleanDB (src/PrimaryTest.hs:36) specsWith (src/PrimaryTest.hs:41) 0% ( 0 / 4) in 'RawSqlTest' Missing documentation for: Module header specsWith (src/RawSqlTest.hs:19) getEscape (src/RawSqlTest.hs:250) caseCommitRollback (src/RawSqlTest.hs:253) 0% ( 0 / 2) in 'ReadWriteTest' Missing documentation for: Module header specsWith (src/ReadWriteTest.hs:9) 0% ( 0 / 4) in 'Recursive' Missing documentation for: Module header specsWith (src/Recursive.hs:37) recursiveMigrate (src/Recursive.hs:9) cleanup (src/Recursive.hs:26) 0% ( 0 / 21) in 'RenameTest' Missing documentation for: Module header TextId (src/RenameTest.hs:15) ForeignIdTableId (src/RenameTest.hs:18) ForeignIdTableGeneric (src/RenameTest.hs:18) ForeignIdTable (src/RenameTest.hs:18) RefTableId (src/RenameTest.hs:18) RefTableGeneric (src/RenameTest.hs:18) RefTable (src/RenameTest.hs:18) LowerCaseTableId (src/RenameTest.hs:18) LowerCaseTableGeneric (src/RenameTest.hs:18) LowerCaseTable (src/RenameTest.hs:18) IdTableId (src/RenameTest.hs:18) IdTableGeneric (src/RenameTest.hs:18) IdTable (src/RenameTest.hs:18) KeyTableId (src/RenameTest.hs:18) KeyTableGeneric (src/RenameTest.hs:18) KeyTable (src/RenameTest.hs:18) entityDefListFormigration (src/RenameTest.hs:18) migration (src/RenameTest.hs:18) cleanDB (src/RenameTest.hs:65) specsWith (src/RenameTest.hs:80) 0% ( 0 / 3) in 'SumTypeTest' Missing documentation for: Module header specsWith (src/SumTypeTest.hs:42) sumTypeMigrate (src/SumTypeTest.hs:13) 0% ( 0 / 6) in 'TransactionLevelTest' Missing documentation for: Module header WombatId (src/TransactionLevelTest.hs:9) Wombat (src/TransactionLevelTest.hs:9) entityDefListFormigration (src/TransactionLevelTest.hs:9) migration (src/TransactionLevelTest.hs:9) specsWith (src/TransactionLevelTest.hs:21) 0% ( 0 / 8) in 'TreeTest' Missing documentation for: Module header TreeId (src/TreeTest.hs:12) Tree (src/TreeTest.hs:12) treeFkparent (src/TreeTest.hs:12) entityDefListFortreeMigrate (src/TreeTest.hs:12) treeMigrate (src/TreeTest.hs:12) cleanDB (src/TreeTest.hs:27) specsWith (src/TreeTest.hs:31) 0% ( 0 / 3) in 'TypeLitFieldDefsTest' Missing documentation for: Module header specsWith (src/TypeLitFieldDefsTest.hs:62) typeLitFieldDefsMigrate (src/TypeLitFieldDefsTest.hs:33) 0% ( 0 / 11) in 'UniqueTest' Missing documentation for: Module header TestCheckmarkId (src/UniqueTest.hs:9) TestCheckmark (src/UniqueTest.hs:9) TestNullId (src/UniqueTest.hs:9) TestNull (src/UniqueTest.hs:9) TestNonNullId (src/UniqueTest.hs:9) TestNonNull (src/UniqueTest.hs:9) entityDefListForuniqueMigrate (src/UniqueTest.hs:9) uniqueMigrate (src/UniqueTest.hs:9) cleanDB (src/UniqueTest.hs:33) specsWith (src/UniqueTest.hs:38) 50% ( 2 / 4) in 'UpsertTest' Missing documentation for: Module header specsWith (src/UpsertTest.hs:29) Warning: Init: could not find link destinations for: - Data.Vector.Vector - GHC.Generics.Rep1_Proxy - GHC.Generics.Rep_Proxy - Text.ParserCombinators.ReadP.P - Data.Vector.Strict.Vector - Data.Vector.Primitive.Vector - Data.Vector.Unboxed.Base.Unbox - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlReadBackend0 - Database.Persist.Sql.Orphan.PersistStore.D:R:BackendKeySqlWriteBackend0 - Data.Vector.Generic.Base.Vector - Data.Vector.Unboxed.Base.MV_Int32 - Data.Vector.Unboxed.Base.MV_Int64 - Data.Vector.Generic.Base.Mutable - Data.Vector.Generic.Base.basicLength - Data.Vector.Generic.Base.basicUnsafeCopy - Data.Vector.Generic.Base.basicUnsafeFreeze - Data.Vector.Generic.Base.basicUnsafeIndexM - Data.Vector.Generic.Base.basicUnsafeSlice - Data.Vector.Generic.Base.basicUnsafeThaw - Data.Vector.Generic.Base.elemseq - Data.Vector.Generic.Mutable.Base.MVector - Data.Vector.Generic.Mutable.Base.basicUnsafeWrite - Data.Vector.Primitive.Mutable.MVector - Data.Vector.Unboxed.Base.V_Int32 - Data.Vector.Unboxed.Base.V_Int64 - Data.Vector.Unboxed.Base.D:R:MVectorsInt320 - Data.Vector.Unboxed.Base.D:R:MVectorsInt640 - Data.Vector.Unboxed.Base.D:R:VectorInt320 - Data.Vector.Unboxed.Base.D:R:VectorInt640 - Data.ByteString.Internal.Type.D:R:ItemByteString - Data.Attoparsec.Internal.Types.D:R:ChunkElemByteString - Data.Attoparsec.Internal.Types.D:R:ChunkElemText - Data.Attoparsec.ByteString.Buffer.Buffer - Data.Attoparsec.Text.Buffer.Buffer - Data.Sequences.D:R:IndexByteString0 - Data.Sequences.D:R:IndexText0 - Text.Megaparsec.Stream.D:R:TokenByteString0 - Text.Megaparsec.Stream.D:R:TokenNoShareInput0 - Text.Megaparsec.Stream.D:R:TokenNoShareInput2 - Text.Megaparsec.Stream.D:R:TokenShareInput0 - Text.Megaparsec.Stream.D:R:TokenShareInput2 - Text.Megaparsec.Stream.D:R:TokenText0 - Text.Megaparsec.Stream.D:R:TokensByteString0 - Text.Megaparsec.Stream.D:R:TokensNoShareInput0 - Text.Megaparsec.Stream.D:R:TokensNoShareInput2 - Text.Megaparsec.Stream.D:R:TokensShareInput0 - Text.Megaparsec.Stream.D:R:TokensShareInput2 - Text.Megaparsec.Stream.D:R:TokensText0 - Database.Persist.Quasi.Internal.ModelParser.Parser - Data.Vector.Generic.Mutable.Base.basicClear - Data.Vector.Generic.Mutable.Base.basicInitialize - Data.Vector.Generic.Mutable.Base.basicLength - Data.Vector.Generic.Mutable.Base.basicOverlaps - Data.Vector.Generic.Mutable.Base.basicSet - Data.Vector.Generic.Mutable.Base.basicUnsafeCopy - Data.Vector.Generic.Mutable.Base.basicUnsafeGrow - Data.Vector.Generic.Mutable.Base.basicUnsafeMove - Data.Vector.Generic.Mutable.Base.basicUnsafeNew - Data.Vector.Generic.Mutable.Base.basicUnsafeRead - Data.Vector.Generic.Mutable.Base.basicUnsafeReplicate - Data.Vector.Generic.Mutable.Base.basicUnsafeSlice Warning: ForeignKey: could not find link destinations for: - ForeignKey.Chain3Key - ForeignKey.unChain3Key - ForeignKey.Chain3Id - ForeignKey.Chain3Name - ForeignKey.Chain3Previous - ForeignKey.Chain2Key - ForeignKey.unChain2Key - ForeignKey.Chain2Id - ForeignKey.Chain2Name - ForeignKey.Chain2Previous - ForeignKey.ChainKey - ForeignKey.unChainKey - ForeignKey.ChainId - ForeignKey.ChainName - ForeignKey.ChainPrevious - ForeignKey.BExplicitKey - ForeignKey.unBExplicitKey - ForeignKey.BExplicitId - ForeignKey.BExplicitBa - ForeignKey.BCompositeKey - ForeignKey.unBCompositeKey - ForeignKey.BCompositeId - ForeignKey.BCompositeBa - ForeignKey.BCompositeBb - ForeignKey.U2 - ForeignKey.ACompositeKey - ForeignKey.unACompositeKey - ForeignKey.ACompositeId - ForeignKey.ACompositeAa - ForeignKey.ACompositeAb - ForeignKey.BKey - ForeignKey.unBKey - ForeignKey.BId - ForeignKey.BBa - ForeignKey.BBb - ForeignKey.U1 - ForeignKey.AKey - ForeignKey.unAKey - ForeignKey.AId - ForeignKey.AAa - ForeignKey.AAb - ForeignKey.SelfReferencedPrimaryKey - ForeignKey.SelfReferencedKey - ForeignKey.unSelfReferencedKey - ForeignKey.SelfReferencedId - ForeignKey.SelfReferencedName - ForeignKey.SelfReferencedPname - ForeignKey.ChildCompositeKey - ForeignKey.unChildCompositeKey - ForeignKey.ChildCompositeId - ForeignKey.ChildCompositePname - ForeignKey.ChildCompositePlastName - ForeignKey.ParentCompositePrimaryKey - ForeignKey.ParentCompositeKey - ForeignKey.parentCompositeKeylastName - ForeignKey.parentCompositeKeyname - ForeignKey.ParentCompositeId - ForeignKey.ParentCompositeName - ForeignKey.ParentCompositeLastName - ForeignKey.ChildImplicitKey - ForeignKey.unChildImplicitKey - ForeignKey.ChildImplicitId - ForeignKey.ChildImplicitPname - ForeignKey.ChildImplicitParentId - ForeignKey.ParentImplicitKey - ForeignKey.unParentImplicitKey - ForeignKey.ParentImplicitId - ForeignKey.ParentImplicitName - ForeignKey.ChildKey - ForeignKey.unChildKey - ForeignKey.ChildId - ForeignKey.ChildPname - ForeignKey.ParentPrimaryKey - ForeignKey.ParentKey - ForeignKey.unParentKey - ForeignKey.ParentId - ForeignKey.ParentName - ForeignKey.SimpleCascadeKey - ForeignKey.unSimpleCascadeKey - ForeignKey.SimpleCascadeId - ForeignKey.SimpleCascadeName - ForeignKey.SimpleCascadeChildKey - ForeignKey.unSimpleCascadeChildKey - ForeignKey.SimpleCascadeChildId - ForeignKey.SimpleCascadeChildRef - ForeignKey.D:R:UniqueSimpleCascade0 - ForeignKey.D:R:KeySimpleCascade0 - ForeignKey.D:R:EntityFieldSimpleCascadetyp0 - ForeignKey.D:R:PersistEntityBackendSimpleCascade - ForeignKey.D:R:UniqueSimpleCascadeChild0 - ForeignKey.D:R:KeySimpleCascadeChild0 - ForeignKey.D:R:EntityFieldSimpleCascadeChildtyp0 - ForeignKey.D:R:PersistEntityBackendSimpleCascadeChild - ForeignKey.D:R:UniqueParent0 - ForeignKey.D:R:KeyParent0 - ForeignKey.D:R:EntityFieldParenttyp0 - ForeignKey.D:R:PersistEntityBackendParent - ForeignKey.D:R:UniqueChild0 - ForeignKey.D:R:KeyChild0 - ForeignKey.D:R:EntityFieldChildtyp0 - ForeignKey.D:R:PersistEntityBackendChild - ForeignKey.D:R:UniqueParentImplicit0 - ForeignKey.D:R:KeyParentImplicit0 - ForeignKey.D:R:EntityFieldParentImplicittyp0 - ForeignKey.D:R:PersistEntityBackendParentImplicit - ForeignKey.D:R:UniqueChildImplicit0 - ForeignKey.D:R:KeyChildImplicit0 - ForeignKey.D:R:EntityFieldChildImplicittyp0 - ForeignKey.D:R:PersistEntityBackendChildImplicit - ForeignKey.D:R:UniqueParentComposite0 - ForeignKey.D:R:KeyParentComposite0 - ForeignKey.D:R:EntityFieldParentCompositetyp0 - ForeignKey.D:R:PersistEntityBackendParentComposite - ForeignKey.D:R:UniqueChildComposite0 - ForeignKey.D:R:KeyChildComposite0 - ForeignKey.D:R:EntityFieldChildCompositetyp0 - ForeignKey.D:R:PersistEntityBackendChildComposite - ForeignKey.D:R:UniqueSelfReferenced0 - ForeignKey.D:R:KeySelfReferenced0 - ForeignKey.D:R:EntityFieldSelfReferencedtyp0 - ForeignKey.D:R:PersistEntityBackendSelfReferenced - ForeignKey.D:R:UniqueA0 - ForeignKey.D:R:KeyA0 - ForeignKey.D:R:EntityFieldAtyp0 - ForeignKey.D:R:PersistEntityBackendA - ForeignKey.D:R:UniqueB0 - ForeignKey.D:R:KeyB0 - ForeignKey.D:R:EntityFieldBtyp0 - ForeignKey.D:R:PersistEntityBackendB - ForeignKey.D:R:UniqueAComposite0 - ForeignKey.D:R:KeyAComposite0 - ForeignKey.D:R:EntityFieldACompositetyp0 - ForeignKey.D:R:PersistEntityBackendAComposite - ForeignKey.D:R:UniqueBComposite0 - ForeignKey.D:R:KeyBComposite0 - ForeignKey.D:R:EntityFieldBCompositetyp0 - ForeignKey.D:R:PersistEntityBackendBComposite - ForeignKey.D:R:UniqueBExplicit0 - ForeignKey.D:R:KeyBExplicit0 - ForeignKey.D:R:EntityFieldBExplicittyp0 - ForeignKey.D:R:PersistEntityBackendBExplicit - ForeignKey.D:R:UniqueChain0 - ForeignKey.D:R:KeyChain0 - ForeignKey.D:R:EntityFieldChaintyp0 - ForeignKey.D:R:PersistEntityBackendChain - ForeignKey.D:R:UniqueChain20 - ForeignKey.D:R:KeyChain20 - ForeignKey.D:R:EntityFieldChain2typ0 - ForeignKey.D:R:PersistEntityBackendChain2 - ForeignKey.D:R:UniqueChain30 - ForeignKey.D:R:KeyChain30 - ForeignKey.D:R:EntityFieldChain3typ0 - ForeignKey.D:R:PersistEntityBackendChain3 - ForeignKey.Rep_R:KeyParentComposite Warning: EntityEmbedTest: could not find link destinations for: - EntityEmbedTest.ARecordKey - EntityEmbedTest.unARecordKey - EntityEmbedTest.ARecordId - EntityEmbedTest.ARecordName - EntityEmbedTest.D:R:UniqueARecordGeneric0 - EntityEmbedTest.D:R:KeyARecordGeneric0 - EntityEmbedTest.D:R:EntityFieldARecordGenerictyp0 - EntityEmbedTest.D:R:PersistEntityBackendARecordGeneric Warning: EmbedTest: could not find link destinations for: - EmbedTest.HasMap Warning: CustomPrimaryKeyReferenceTest: could not find link destinations for: - CustomPrimaryKeyReferenceTest.UniqueTweetIdTweetUrl - CustomPrimaryKeyReferenceTest.TweetUrlKey - CustomPrimaryKeyReferenceTest.unTweetUrlKey - CustomPrimaryKeyReferenceTest.TweetUrlId - CustomPrimaryKeyReferenceTest.TweetUrlTweetId - CustomPrimaryKeyReferenceTest.TweetUrlTweetUrl - CustomPrimaryKeyReferenceTest.TweetUrlFinalUrl - CustomPrimaryKeyReferenceTest.TweetPrimaryKey - CustomPrimaryKeyReferenceTest.UniqueTweetId - CustomPrimaryKeyReferenceTest.TweetKey - CustomPrimaryKeyReferenceTest.unTweetKey - CustomPrimaryKeyReferenceTest.TweetId - CustomPrimaryKeyReferenceTest.TweetTweetId - CustomPrimaryKeyReferenceTest.TweetStatusText - CustomPrimaryKeyReferenceTest.D:R:UniqueTweet0 - CustomPrimaryKeyReferenceTest.D:R:KeyTweet0 - CustomPrimaryKeyReferenceTest.D:R:EntityFieldTweettyp0 - CustomPrimaryKeyReferenceTest.D:R:PersistEntityBackendTweet - CustomPrimaryKeyReferenceTest.D:R:UniqueTweetUrl0 - CustomPrimaryKeyReferenceTest.D:R:KeyTweetUrl0 - CustomPrimaryKeyReferenceTest.D:R:EntityFieldTweetUrltyp0 - CustomPrimaryKeyReferenceTest.D:R:PersistEntityBackendTweetUrl Warning: CompositeTest: could not find link destinations for: - CompositeTest.PrimaryCompositeWithOtherNullableFieldsPrimaryKey - CompositeTest.PrimaryCompositeWithOtherNullableFieldsKey - CompositeTest.primaryCompositeWithOtherNullableFieldsKeybar - CompositeTest.primaryCompositeWithOtherNullableFieldsKeyfoo - CompositeTest.PrimaryCompositeWithOtherNullableFieldsId - CompositeTest.PrimaryCompositeWithOtherNullableFieldsFoo - CompositeTest.PrimaryCompositeWithOtherNullableFieldsBar - CompositeTest.PrimaryCompositeWithOtherNullableFieldsBaz - CompositeTest.CitizenAddressPrimaryKey - CompositeTest.CitizenAddressKey - CompositeTest.citizenAddressKeyaddress - CompositeTest.citizenAddressKeycitizen - CompositeTest.CitizenAddressId - CompositeTest.CitizenAddressCitizen - CompositeTest.CitizenAddressAddress - CompositeTest.AddressKey - CompositeTest.unAddressKey - CompositeTest.AddressId - CompositeTest.AddressAddress - CompositeTest.AddressCountry - CompositeTest.CitizenKey - CompositeTest.unCitizenKey - CompositeTest.CitizenId - CompositeTest.CitizenName - CompositeTest.CitizenAge - CompositeTest.TestChildKey - CompositeTest.unTestChildKey - CompositeTest.TestChildId - CompositeTest.TestChildName - CompositeTest.TestChildName2 - CompositeTest.TestChildAge - CompositeTest.TestChildExtra4 - CompositeTest.TestParentPrimaryKey - CompositeTest.TestParentKey - CompositeTest.testParentKeyage - CompositeTest.testParentKeyname2 - CompositeTest.testParentKeyname - CompositeTest.TestParentId - CompositeTest.TestParentName - CompositeTest.TestParentName2 - CompositeTest.TestParentAge - CompositeTest.TestParentExtra44 - CompositeTest.D:R:UniqueTestParent0 - CompositeTest.D:R:KeyTestParent0 - CompositeTest.D:R:EntityFieldTestParenttyp0 - CompositeTest.D:R:PersistEntityBackendTestParent - CompositeTest.D:R:UniqueTestChild0 - CompositeTest.D:R:KeyTestChild0 - CompositeTest.D:R:EntityFieldTestChildtyp0 - CompositeTest.D:R:PersistEntityBackendTestChild - CompositeTest.D:R:UniqueCitizen0 - CompositeTest.D:R:KeyCitizen0 - CompositeTest.D:R:EntityFieldCitizentyp0 - CompositeTest.D:R:PersistEntityBackendCitizen - CompositeTest.D:R:UniqueAddress0 - CompositeTest.D:R:KeyAddress0 - CompositeTest.D:R:EntityFieldAddresstyp0 - CompositeTest.D:R:PersistEntityBackendAddress - CompositeTest.D:R:UniqueCitizenAddress0 - CompositeTest.D:R:KeyCitizenAddress0 - CompositeTest.D:R:EntityFieldCitizenAddresstyp0 - CompositeTest.D:R:PersistEntityBackendCitizenAddress - CompositeTest.D:R:UniquePrimaryCompositeWithOtherNullableFields0 - CompositeTest.D:R:KeyPrimaryCompositeWithOtherNullableFields0 - CompositeTest.D:R:EntityFieldPrimaryCompositeWithOtherNullableFieldstyp0 - CompositeTest.D:R:PersistEntityBackendPrimaryCompositeWithOtherNullableFields - CompositeTest.Rep_R:KeyPrimaryCompositeWithOtherNullableFields - CompositeTest.Rep_R:KeyCitizenAddress - CompositeTest.Rep_R:KeyTestParent Warning: LargeNumberTest: could not find link destinations for: - LargeNumberTest.NumberKey - LargeNumberTest.unNumberKey - LargeNumberTest.NumberId - LargeNumberTest.NumberIntx - LargeNumberTest.NumberInt32 - LargeNumberTest.NumberWord32 - LargeNumberTest.NumberInt64 - LargeNumberTest.NumberWord64 - LargeNumberTest.D:R:UniqueNumberGeneric0 - LargeNumberTest.D:R:KeyNumberGeneric0 - LargeNumberTest.D:R:EntityFieldNumberGenerictyp0 - LargeNumberTest.D:R:PersistEntityBackendNumberGeneric Warning: LongIdentifierTest: could not find link destinations for: - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameChildKey - LongIdentifierTest.unTableAnExtremelyFantasticallySuperLongNameChildKey - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameChildId - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameChildColumnAnExtremelyFantasticallySuperLongNameParentId - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameParentKey - LongIdentifierTest.unTableAnExtremelyFantasticallySuperLongNameParentKey - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameParentId - LongIdentifierTest.TableAnExtremelyFantasticallySuperLongNameParentField1 - LongIdentifierTest.D:R:UniqueTableAnExtremelyFantasticallySuperLongNameParent0 - LongIdentifierTest.D:R:KeyTableAnExtremelyFantasticallySuperLongNameParent0 - LongIdentifierTest.D:R:EntityFieldTableAnExtremelyFantasticallySuperLongNameParenttyp0 - LongIdentifierTest.D:R:PersistEntityBackendTableAnExtremelyFantasticallySuperLongNameParent - LongIdentifierTest.D:R:UniqueTableAnExtremelyFantasticallySuperLongNameChild0 - LongIdentifierTest.D:R:KeyTableAnExtremelyFantasticallySuperLongNameChild0 - LongIdentifierTest.D:R:EntityFieldTableAnExtremelyFantasticallySuperLongNameChildtyp0 - LongIdentifierTest.D:R:PersistEntityBackendTableAnExtremelyFantasticallySuperLongNameChild Warning: MigrationColumnLengthTest: could not find link destinations for: - MigrationColumnLengthTest.VaryingLengthsKey - MigrationColumnLengthTest.unVaryingLengthsKey - MigrationColumnLengthTest.VaryingLengthsId - MigrationColumnLengthTest.VaryingLengthsField1 - MigrationColumnLengthTest.VaryingLengthsField2 - MigrationColumnLengthTest.D:R:UniqueVaryingLengths0 - MigrationColumnLengthTest.D:R:KeyVaryingLengths0 - MigrationColumnLengthTest.D:R:EntityFieldVaryingLengthstyp0 - MigrationColumnLengthTest.D:R:PersistEntityBackendVaryingLengths Warning: MigrationIdempotencyTest: could not find link destinations for: - MigrationIdempotencyTest.IdempotencyKey - MigrationIdempotencyTest.unIdempotencyKey - MigrationIdempotencyTest.IdempotencyId - MigrationIdempotencyTest.IdempotencyField1 - MigrationIdempotencyTest.IdempotencyField2 - MigrationIdempotencyTest.IdempotencyField3 - MigrationIdempotencyTest.IdempotencyField4 - MigrationIdempotencyTest.IdempotencyField5 - MigrationIdempotencyTest.IdempotencyField6 - MigrationIdempotencyTest.IdempotencyField7 - MigrationIdempotencyTest.IdempotencyField8 - MigrationIdempotencyTest.IdempotencyField9 - MigrationIdempotencyTest.D:R:UniqueIdempotency0 - MigrationIdempotencyTest.D:R:KeyIdempotency0 - MigrationIdempotencyTest.D:R:EntityFieldIdempotencytyp0 - MigrationIdempotencyTest.D:R:PersistEntityBackendIdempotency Warning: MigrationTest: could not find link destinations for: - MigrationTest.CustomSqlIdPrimaryKey - MigrationTest.CustomSqlIdKey - MigrationTest.unCustomSqlIdKey - MigrationTest.CustomSqlIdId - MigrationTest.CustomSqlIdPk - MigrationTest.SourceKey - MigrationTest.unSourceKey - MigrationTest.SourceId - MigrationTest.SourceField3 - MigrationTest.SourceField4 - MigrationTest.UniqueTarget - MigrationTest.TargetKey - MigrationTest.unTargetKey - MigrationTest.TargetId - MigrationTest.TargetField1 - MigrationTest.TargetField2 - MigrationTest.D:R:UniqueTarget0 - MigrationTest.D:R:KeyTarget0 - MigrationTest.D:R:EntityFieldTargettyp0 - MigrationTest.D:R:PersistEntityBackendTarget - MigrationTest.D:R:UniqueSource0 - MigrationTest.D:R:KeySource0 - MigrationTest.D:R:EntityFieldSourcetyp0 - MigrationTest.D:R:PersistEntityBackendSource - MigrationTest.D:R:UniqueCustomSqlId0 - MigrationTest.D:R:KeyCustomSqlId0 - MigrationTest.D:R:EntityFieldCustomSqlIdtyp0 - MigrationTest.D:R:PersistEntityBackendCustomSqlId - MigrationTest.Source1Key - MigrationTest.unSource1Key - MigrationTest.Source1Id - MigrationTest.Source1Field3 - MigrationTest.Source1Extra - MigrationTest.Source1Field4 - MigrationTest.UniqueTarget1 - MigrationTest.Target1Key - MigrationTest.unTarget1Key - MigrationTest.Target1Id - MigrationTest.Target1Field1 - MigrationTest.Target1Field2 - MigrationTest.D:R:UniqueTarget10 - MigrationTest.D:R:KeyTarget10 - MigrationTest.D:R:EntityFieldTarget1typ0 - MigrationTest.D:R:PersistEntityBackendTarget1 - MigrationTest.D:R:UniqueSource10 - MigrationTest.D:R:KeySource10 - MigrationTest.D:R:EntityFieldSource1typ0 - MigrationTest.D:R:PersistEntityBackendSource1 Warning: PersistTestPetCollarType: could not find link destinations for: - PersistTestPetCollarType.Rep_PetCollar Warning: PersistUniqueTest: could not find link destinations for: - PersistUniqueTest.OnlyPrimaryKeyPrimaryKey - PersistUniqueTest.OnlyPrimaryKeyKey - PersistUniqueTest.unOnlyPrimaryKeyKey - PersistUniqueTest.OnlyPrimaryKeyId - PersistUniqueTest.OnlyPrimaryKeyFoo - PersistUniqueTest.OnlyPrimaryKeyName - PersistUniqueTest.UniqueBaz - PersistUniqueTest.BaKey - PersistUniqueTest.unBaKey - PersistUniqueTest.BaId - PersistUniqueTest.BaFoo - PersistUniqueTest.BaBaz - PersistUniqueTest.FoPrimaryKey - PersistUniqueTest.UniqueBar - PersistUniqueTest.FoKey - PersistUniqueTest.unFoKey - PersistUniqueTest.FoId - PersistUniqueTest.FoFoo - PersistUniqueTest.FoBar - PersistUniqueTest.D:R:UniqueFo0 - PersistUniqueTest.D:R:KeyFo0 - PersistUniqueTest.D:R:EntityFieldFotyp0 - PersistUniqueTest.D:R:PersistEntityBackendFo - PersistUniqueTest.D:R:UniqueBa0 - PersistUniqueTest.D:R:KeyBa0 - PersistUniqueTest.D:R:EntityFieldBatyp0 - PersistUniqueTest.D:R:PersistEntityBackendBa - PersistUniqueTest.D:R:UniqueOnlyPrimaryKey0 - PersistUniqueTest.D:R:KeyOnlyPrimaryKey0 - PersistUniqueTest.D:R:EntityFieldOnlyPrimaryKeytyp0 - PersistUniqueTest.D:R:PersistEntityBackendOnlyPrimaryKey Warning: PersistentTestModelsImports: could not find link destinations for: - PersistentTestModelsImports.UserKey - PersistentTestModelsImports.unUserKey - PersistentTestModelsImports.UserId - PersistentTestModelsImports.UserName - PersistentTestModelsImports.UserAge - PersistentTestModelsImports.D:R:UniqueUser0 - PersistentTestModelsImports.D:R:KeyUser0 - PersistentTestModelsImports.D:R:EntityFieldUsertyp0 - PersistentTestModelsImports.D:R:PersistEntityBackendUser Warning: PersistentTestModels: could not find link destinations for: - PersistentTestModels.MutBKey - PersistentTestModels.unMutBKey - PersistentTestModels.MutBId - PersistentTestModels.MutBMutA - PersistentTestModels.MutAKey - PersistentTestModels.unMutAKey - PersistentTestModels.MutAId - PersistentTestModels.MutAMutB - PersistentTestModels.RelationshipKey - PersistentTestModels.unRelationshipKey - PersistentTestModels.RelationshipId - PersistentTestModels.RelationshipName - PersistentTestModels.RelationshipParent - PersistentTestModels.UniqueName - PersistentTestModels.DudeWeirdColumnsKey - PersistentTestModels.unDudeWeirdColumnsKey - PersistentTestModels.DudeWeirdColumnsId - PersistentTestModels.DudeWeirdColumnsName - PersistentTestModels.StrictKey - PersistentTestModels.unStrictKey - PersistentTestModels.StrictId - PersistentTestModels.StrictYes - PersistentTestModels.StrictNo - PersistentTestModels.StrictDef - PersistentTestModels.UniqueUpsertBy - PersistentTestModels.UniqueUpsertByCity - PersistentTestModels.UpsertByKey - PersistentTestModels.unUpsertByKey - PersistentTestModels.UpsertById - PersistentTestModels.UpsertByEmail - PersistentTestModels.UpsertByCity - PersistentTestModels.UpsertByAttr - PersistentTestModels.UniqueUpsert - PersistentTestModels.UpsertKey - PersistentTestModels.unUpsertKey - PersistentTestModels.UpsertId - PersistentTestModels.UpsertEmail - PersistentTestModels.UpsertAttr - PersistentTestModels.UpsertExtra - PersistentTestModels.UpsertAge - PersistentTestModels.UniqueEmailPT - PersistentTestModels.EmailPTKey - PersistentTestModels.unEmailPTKey - PersistentTestModels.EmailPTId - PersistentTestModels.EmailPTEmail - PersistentTestModels.EmailPTUser - PersistentTestModels.EmailPTVerkey - PersistentTestModels.UniqueUserPT - PersistentTestModels.UserPTKey - PersistentTestModels.unUserPTKey - PersistentTestModels.UserPTId - PersistentTestModels.UserPTIdent - PersistentTestModels.UserPTPassword - PersistentTestModels.OutdoorPetKey - PersistentTestModels.unOutdoorPetKey - PersistentTestModels.OutdoorPetId - PersistentTestModels.OutdoorPetOwnerId - PersistentTestModels.OutdoorPetCollar - PersistentTestModels.OutdoorPetType - PersistentTestModels.NeedsPetKey - PersistentTestModels.unNeedsPetKey - PersistentTestModels.NeedsPetId - PersistentTestModels.NeedsPetPetKey - PersistentTestModels.MaybeOwnedPetKey - PersistentTestModels.unMaybeOwnedPetKey - PersistentTestModels.MaybeOwnedPetId - PersistentTestModels.MaybeOwnedPetOwnerId - PersistentTestModels.MaybeOwnedPetName - PersistentTestModels.MaybeOwnedPetType - PersistentTestModels.PetKey - PersistentTestModels.unPetKey - PersistentTestModels.PetId - PersistentTestModels.PetOwnerId - PersistentTestModels.PetName - PersistentTestModels.PetType - PersistentTestModels.PersonMayKey - PersistentTestModels.unPersonMayKey - PersistentTestModels.PersonMayId - PersistentTestModels.PersonMayName - PersistentTestModels.PersonMayColor - PersistentTestModels.PersonMaybeAgeKey - PersistentTestModels.unPersonMaybeAgeKey - PersistentTestModels.PersonMaybeAgeId - PersistentTestModels.PersonMaybeAgeName - PersistentTestModels.PersonMaybeAgeAge - PersistentTestModels.Person1Key - PersistentTestModels.unPerson1Key - PersistentTestModels.Person1Id - PersistentTestModels.Person1Name - PersistentTestModels.Person1Age - PersistentTestModels.PersonNameKey - PersistentTestModels.PersonKey - PersistentTestModels.unPersonKey - PersistentTestModels.PersonId - PersistentTestModels.PersonName - PersistentTestModels.PersonAge - PersistentTestModels.PersonColor - PersistentTestModels.D:R:UniquePersonGeneric0 - PersistentTestModels.D:R:KeyPersonGeneric0 - PersistentTestModels.D:R:EntityFieldPersonGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendPersonGeneric - PersistentTestModels.D:R:UniquePerson1Generic0 - PersistentTestModels.D:R:KeyPerson1Generic0 - PersistentTestModels.D:R:EntityFieldPerson1Generictyp0 - PersistentTestModels.D:R:PersistEntityBackendPerson1Generic - PersistentTestModels.D:R:UniquePersonMaybeAgeGeneric0 - PersistentTestModels.D:R:KeyPersonMaybeAgeGeneric0 - PersistentTestModels.D:R:EntityFieldPersonMaybeAgeGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendPersonMaybeAgeGeneric - PersistentTestModels.D:R:UniquePersonMayGeneric0 - PersistentTestModels.D:R:KeyPersonMayGeneric0 - PersistentTestModels.D:R:EntityFieldPersonMayGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendPersonMayGeneric - PersistentTestModels.D:R:UniquePetGeneric0 - PersistentTestModels.D:R:KeyPetGeneric0 - PersistentTestModels.D:R:EntityFieldPetGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendPetGeneric - PersistentTestModels.D:R:UniqueMaybeOwnedPetGeneric0 - PersistentTestModels.D:R:KeyMaybeOwnedPetGeneric0 - PersistentTestModels.D:R:EntityFieldMaybeOwnedPetGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendMaybeOwnedPetGeneric - PersistentTestModels.D:R:UniqueNeedsPetGeneric0 - PersistentTestModels.D:R:KeyNeedsPetGeneric0 - PersistentTestModels.D:R:EntityFieldNeedsPetGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendNeedsPetGeneric - PersistentTestModels.D:R:UniqueOutdoorPetGeneric0 - PersistentTestModels.D:R:KeyOutdoorPetGeneric0 - PersistentTestModels.D:R:EntityFieldOutdoorPetGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendOutdoorPetGeneric - PersistentTestModels.D:R:UniqueUserPTGeneric0 - PersistentTestModels.D:R:KeyUserPTGeneric0 - PersistentTestModels.D:R:EntityFieldUserPTGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendUserPTGeneric - PersistentTestModels.D:R:UniqueEmailPTGeneric0 - PersistentTestModels.D:R:KeyEmailPTGeneric0 - PersistentTestModels.D:R:EntityFieldEmailPTGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendEmailPTGeneric - PersistentTestModels.D:R:UniqueUpsertGeneric0 - PersistentTestModels.D:R:KeyUpsertGeneric0 - PersistentTestModels.D:R:EntityFieldUpsertGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendUpsertGeneric - PersistentTestModels.D:R:UniqueUpsertByGeneric0 - PersistentTestModels.D:R:KeyUpsertByGeneric0 - PersistentTestModels.D:R:EntityFieldUpsertByGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendUpsertByGeneric - PersistentTestModels.D:R:UniqueStrictGeneric0 - PersistentTestModels.D:R:KeyStrictGeneric0 - PersistentTestModels.D:R:EntityFieldStrictGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendStrictGeneric - PersistentTestModels.D:R:UniqueDudeWeirdColumnsGeneric0 - PersistentTestModels.D:R:KeyDudeWeirdColumnsGeneric0 - PersistentTestModels.D:R:EntityFieldDudeWeirdColumnsGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendDudeWeirdColumnsGeneric - PersistentTestModels.D:R:UniqueRelationshipGeneric0 - PersistentTestModels.D:R:KeyRelationshipGeneric0 - PersistentTestModels.D:R:EntityFieldRelationshipGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendRelationshipGeneric - PersistentTestModels.D:R:UniqueMutBGeneric0 - PersistentTestModels.D:R:KeyMutBGeneric0 - PersistentTestModels.D:R:EntityFieldMutBGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendMutBGeneric - PersistentTestModels.D:R:UniqueMutAGeneric0 - PersistentTestModels.D:R:KeyMutAGeneric0 - PersistentTestModels.D:R:EntityFieldMutAGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendMutAGeneric - PersistentTestModels.NoPrefixSumKey - PersistentTestModels.unNoPrefixSumKey - PersistentTestModels.NoPrefixSumId - PersistentTestModels.UnprefixedLeft - PersistentTestModels.UnprefixedRight - PersistentTestModels.NoPrefix2Key - PersistentTestModels.unNoPrefix2Key - PersistentTestModels.NoPrefix2Id - PersistentTestModels.SomeOtherFieldName - PersistentTestModels.UnprefixedRef - PersistentTestModels.NoPrefix1Key - PersistentTestModels.unNoPrefix1Key - PersistentTestModels.NoPrefix1Id - PersistentTestModels.SomeFieldName - PersistentTestModels.D:R:UniqueNoPrefix1Generic0 - PersistentTestModels.D:R:KeyNoPrefix1Generic0 - PersistentTestModels.D:R:EntityFieldNoPrefix1Generictyp0 - PersistentTestModels.D:R:PersistEntityBackendNoPrefix1Generic - PersistentTestModels.D:R:UniqueNoPrefix2Generic0 - PersistentTestModels.D:R:KeyNoPrefix2Generic0 - PersistentTestModels.D:R:EntityFieldNoPrefix2Generictyp0 - PersistentTestModels.D:R:PersistEntityBackendNoPrefix2Generic - PersistentTestModels.D:R:UniqueNoPrefixSumGeneric0 - PersistentTestModels.D:R:KeyNoPrefixSumGeneric0 - PersistentTestModels.D:R:EntityFieldNoPrefixSumGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendNoPrefixSumGeneric - PersistentTestModels.CustomPrefixSumKey - PersistentTestModels.unCustomPrefixSumKey - PersistentTestModels.CustomPrefixSumId - PersistentTestModels.CPCustomPrefixedLeft - PersistentTestModels.CPCustomPrefixedRight - PersistentTestModels.CustomPrefix2Key - PersistentTestModels.unCustomPrefix2Key - PersistentTestModels.CustomPrefix2Id - PersistentTestModels.CP2OtherCustomFieldName - PersistentTestModels.CP2CustomPrefixedRef - PersistentTestModels.CustomPrefix1Key - PersistentTestModels.unCustomPrefix1Key - PersistentTestModels.CustomPrefix1Id - PersistentTestModels.CP1CustomFieldName - PersistentTestModels.D:R:UniqueCustomPrefix1Generic0 - PersistentTestModels.D:R:KeyCustomPrefix1Generic0 - PersistentTestModels.D:R:EntityFieldCustomPrefix1Generictyp0 - PersistentTestModels.D:R:PersistEntityBackendCustomPrefix1Generic - PersistentTestModels.D:R:UniqueCustomPrefix2Generic0 - PersistentTestModels.D:R:KeyCustomPrefix2Generic0 - PersistentTestModels.D:R:EntityFieldCustomPrefix2Generictyp0 - PersistentTestModels.D:R:PersistEntityBackendCustomPrefix2Generic - PersistentTestModels.D:R:UniqueCustomPrefixSumGeneric0 - PersistentTestModels.D:R:KeyCustomPrefixSumGeneric0 - PersistentTestModels.D:R:EntityFieldCustomPrefixSumGenerictyp0 - PersistentTestModels.D:R:PersistEntityBackendCustomPrefixSumGeneric - PersistentTestModels.RFOKey - PersistentTestModels.unRFOKey - PersistentTestModels.EFRFO - PersistentTestModels.unEFRFO - PersistentTestModels.URFO - PersistentTestModels.unURFO - PersistentTestModels.TreePrimaryKey - PersistentTestModels.TreeKey - PersistentTestModels.unTreeKey - PersistentTestModels.TreeId - PersistentTestModels.Name - PersistentTestModels.Parent - PersistentTestModels.D:R:UniqueTree0 - PersistentTestModels.D:R:KeyTree0 - PersistentTestModels.D:R:EntityFieldTreetyp0 - PersistentTestModels.D:R:PersistEntityBackendTree - PersistentTestModels.D:R:KeyReverseFieldOrder0 - PersistentTestModels.D:R:EntityFieldReverseFieldOrderb0 - PersistentTestModels.D:R:UniqueReverseFieldOrder0 - PersistentTestModels.D:R:PersistEntityBackendReverseFieldOrder Warning: PrimaryTest: could not find link destinations for: - PrimaryTest.CompositePrimaryPrimaryKey - PrimaryTest.CompositePrimaryKey - PrimaryTest.compositePrimaryKeyage - PrimaryTest.compositePrimaryKeyname - PrimaryTest.CompositePrimaryId - PrimaryTest.CompositePrimaryName - PrimaryTest.CompositePrimaryAge - PrimaryTest.TreesPrimaryKey - PrimaryTest.TreesKey - PrimaryTest.unTreesKey - PrimaryTest.TreesId - PrimaryTest.TreesName - PrimaryTest.TreesParent - PrimaryTest.BarKey - PrimaryTest.unBarKey - PrimaryTest.BarId - PrimaryTest.BarQuux - PrimaryTest.FooPrimaryKey - PrimaryTest.FooKey - PrimaryTest.unFooKey - PrimaryTest.FooId - PrimaryTest.FooName - PrimaryTest.D:R:UniqueFoo0 - PrimaryTest.D:R:KeyFoo0 - PrimaryTest.D:R:EntityFieldFootyp0 - PrimaryTest.D:R:PersistEntityBackendFoo - PrimaryTest.D:R:UniqueBar0 - PrimaryTest.D:R:KeyBar0 - PrimaryTest.D:R:EntityFieldBartyp0 - PrimaryTest.D:R:PersistEntityBackendBar - PrimaryTest.D:R:UniqueTrees0 - PrimaryTest.D:R:KeyTrees0 - PrimaryTest.D:R:EntityFieldTreestyp0 - PrimaryTest.D:R:PersistEntityBackendTrees - PrimaryTest.D:R:UniqueCompositePrimary0 - PrimaryTest.D:R:KeyCompositePrimary0 - PrimaryTest.D:R:EntityFieldCompositePrimarytyp0 - PrimaryTest.D:R:PersistEntityBackendCompositePrimary - PrimaryTest.Rep_R:KeyCompositePrimary Warning: RenameTest: could not find link destinations for: - RenameTest.ForeignIdTableKey - RenameTest.unForeignIdTableKey - RenameTest.ForeignIdTableId - RenameTest.ForeignIdTableIdId - RenameTest.UniqueRefTable - RenameTest.RefTableKey - RenameTest.unRefTableKey - RenameTest.RefTableId - RenameTest.RefTableSomeVal - RenameTest.RefTableLct - RenameTest.RefTableText - RenameTest.LowerCaseTableKey - RenameTest.unLowerCaseTableKey - RenameTest.LowerCaseTableId - RenameTest.LowerCaseTableFullName - RenameTest.IdTableKey - RenameTest.unIdTableKey - RenameTest.IdTableId - RenameTest.IdTableName - RenameTest.IdTableKeyTableEmbed - RenameTest.KeyTableKey' - RenameTest.unKeyTableKey - RenameTest.KeyTableId - RenameTest.KeyTableKey - RenameTest.D:R:UniqueKeyTableGeneric0 - RenameTest.D:R:KeyKeyTableGeneric0 - RenameTest.D:R:EntityFieldKeyTableGenerictyp0 - RenameTest.D:R:PersistEntityBackendKeyTableGeneric - RenameTest.D:R:UniqueIdTableGeneric0 - RenameTest.D:R:KeyIdTableGeneric0 - RenameTest.D:R:EntityFieldIdTableGenerictyp0 - RenameTest.D:R:PersistEntityBackendIdTableGeneric - RenameTest.D:R:UniqueLowerCaseTableGeneric0 - RenameTest.D:R:KeyLowerCaseTableGeneric0 - RenameTest.D:R:EntityFieldLowerCaseTableGenerictyp0 - RenameTest.D:R:PersistEntityBackendLowerCaseTableGeneric - RenameTest.D:R:UniqueRefTableGeneric0 - RenameTest.D:R:KeyRefTableGeneric0 - RenameTest.D:R:EntityFieldRefTableGenerictyp0 - RenameTest.D:R:PersistEntityBackendRefTableGeneric - RenameTest.D:R:UniqueForeignIdTableGeneric0 - RenameTest.D:R:KeyForeignIdTableGeneric0 - RenameTest.D:R:EntityFieldForeignIdTableGenerictyp0 - RenameTest.D:R:PersistEntityBackendForeignIdTableGeneric Warning: TransactionLevelTest: could not find link destinations for: - TransactionLevelTest.WombatPrimaryKey - TransactionLevelTest.WombatKey - TransactionLevelTest.unWombatKey - TransactionLevelTest.WombatId - TransactionLevelTest.WombatName - TransactionLevelTest.D:R:UniqueWombat0 - TransactionLevelTest.D:R:KeyWombat0 - TransactionLevelTest.D:R:EntityFieldWombattyp0 - TransactionLevelTest.D:R:PersistEntityBackendWombat Warning: TreeTest: could not find link destinations for: - TreeTest.TreePrimaryKey - TreeTest.TreeKey - TreeTest.unTreeKey - TreeTest.TreeId - TreeTest.TreeName - TreeTest.TreeParent - TreeTest.D:R:UniqueTree0 - TreeTest.D:R:KeyTree0 - TreeTest.D:R:EntityFieldTreetyp0 - TreeTest.D:R:PersistEntityBackendTree Warning: UniqueTest: could not find link destinations for: - UniqueTest.UniqueTestCheckmark - UniqueTest.TestCheckmarkKey - UniqueTest.unTestCheckmarkKey - UniqueTest.TestCheckmarkId - UniqueTest.TestCheckmarkName - UniqueTest.TestCheckmarkValue - UniqueTest.TestCheckmarkActive - UniqueTest.UniqueTestNull - UniqueTest.TestNullKey - UniqueTest.unTestNullKey - UniqueTest.TestNullId - UniqueTest.TestNullFieldA - UniqueTest.TestNullFieldB - UniqueTest.UniqueTestNonNull - UniqueTest.TestNonNullKey - UniqueTest.unTestNonNullKey - UniqueTest.TestNonNullId - UniqueTest.TestNonNullFieldA - UniqueTest.D:R:UniqueTestNonNull0 - UniqueTest.D:R:KeyTestNonNull0 - UniqueTest.D:R:EntityFieldTestNonNulltyp0 - UniqueTest.D:R:PersistEntityBackendTestNonNull - UniqueTest.D:R:UniqueTestNull0 - UniqueTest.D:R:KeyTestNull0 - UniqueTest.D:R:EntityFieldTestNulltyp0 - UniqueTest.D:R:PersistEntityBackendTestNull - UniqueTest.D:R:UniqueTestCheckmark0 - UniqueTest.D:R:KeyTestCheckmark0 - UniqueTest.D:R:EntityFieldTestCheckmarktyp0 - UniqueTest.D:R:PersistEntityBackendTestCheckmark Documentation created: dist/doc/html/persistent-test/, dist/doc/html/persistent-test/persistent-test.txt Installing library in /var/lib/hackage-doc-builder/build-cache/tmp-install/lib/x86_64-linux-ghc-9.8.4/persistent-test-2.13.2.1-5iQOwp298qI3vrSUqhGmda Completed persistent-test-2.13.2.1