persistent-template-classy 0.1.0.0 → 0.1.0.1

raw patch · 2 files changed

+7/−4 lines, 2 files

Files

• persistent-template-classy.cabal +2/−2
• src/Database/Persist/TH/Classy.hs +5/−2

@@ -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

@@ -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