mkPersist generates unbound type names since 2.14.3.2

[lexi-lambda]

There was a bug in #1446 that can result in mkPersist generating unbound type names. Tweaking the following test case very slightly reproduces the issue:

diff --git a/persistent/test/Database/Persist/TH/PersistWithSpec.hs b/persistent/test/Database/Persist/TH/PersistWithSpec.hs
index 25c9fff0..e006f65e 100644
--- a/persistent/test/Database/Persist/TH/PersistWithSpec.hs
+++ b/persistent/test/Database/Persist/TH/PersistWithSpec.hs
@@ -17,7 +17,7 @@ module Database.Persist.TH.PersistWithSpec where
 
 import Control.Monad
 import TemplateTestImports
-import Database.Persist.TH.PersistWith.Model as Model (IceCream, IceCreamId)
+import qualified Database.Persist.TH.PersistWith.Model as Model (IceCream, IceCreamId)
 import Language.Haskell.TH as TH
 
 mkPersistWith sqlSettings $(discoverEntities) [persistLowerCase|

The root issue is here:

persistent/persistent/Database/Persist/TH.hs

Line 518 in 02b1f9f

FTTypeCon _ (checkIdSuffix -> Just tableName) <- mft

The first field of FTTypeCon can be a module prefix, but this code discards it, which results in unqualified references being generated in the output.