diff --git a/persistent-template-classy.cabal b/persistent-template-classy.cabal
--- a/persistent-template-classy.cabal
+++ b/persistent-template-classy.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: a6e78e8bb31adbcfbd23254db1be689f79966cee61715a656e7a9c572227c77b
+-- hash: d42bdbd3c8dfe95a357a1c7edcc09b82bbce5cadb2c494dbbe9ed7d54be8d645
 
 name:           persistent-template-classy
-version:        0.1.0.0
+version:        0.1.0.1
 synopsis:       Generate classy lens field accessors for persistent models
 description:    Generate classy lens field accessors for persistent models.
 category:       Database, Lens, Yesod
diff --git a/src/Database/Persist/TH/Classy.hs b/src/Database/Persist/TH/Classy.hs
--- a/src/Database/Persist/TH/Classy.hs
+++ b/src/Database/Persist/TH/Classy.hs
@@ -58,7 +58,7 @@
 mkClassyInstance EntityDef {..} = do
   forM entityFields $ \FieldDef {..} ->
     case fieldType of
-      FTTypeCon _ tname -> do
+      FTTypeCon tmodule tname -> do
         let _unused = ()
               -- | like "Person"
             instanceTypeName =
@@ -95,7 +95,10 @@
                 (mkName (T.unpack (unHaskellName fieldHaskell)))
                 [fieldClause]
             fieldTName =
-              let nonMaybe = ConT (mkName (T.unpack tname))
+              let tnameAndModule = case tmodule of
+                    Nothing -> tname
+                    Just t -> t <> "." <> tname
+                  nonMaybe = ConT (mkName (T.unpack tnameAndModule))
                in case "Maybe" `elem` fieldAttrs of
                     False -> nonMaybe
                     True -> AppT (ConT (mkName "Maybe")) nonMaybe