dhscanner-kbgen 1.0.22 → 1.0.23

raw patch · 2 files changed

+5/−1 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• dhscanner-kbgen.cabal +1/−1
• src/Kbgen.hs +4/−0

@@ -33,7 +33,7 @@         * explain in plain English your query's purpose
         * et voilà !
 
-version:            1.0.22
+version:            1.0.23
 license:            GPL-3.0-only
 license-file:       LICENSE
 author:             OrenGitHub

@@ -790,6 +790,7 @@ 
 prologifyFqn :: Fqn.Fqn -> String
 prologifyFqn (Fqn.ThirdPartyImport fqn) = prologifyThirdPartyImport fqn
+prologifyFqn (Fqn.FieldedAccess fqn fieldName) = prologifyFieldedAccess fqn fieldName
 prologifyFqn fqn = show fqn
 
 prologifyThirdPartyImport :: Fqn.ThirdPartyImportContent -> String
@@ -797,6 +798,9 @@ prologifyThirdPartyImport (Fqn.ThirdPartyImportContent p [] (Just name) _) = p ++ "." ++ name
 prologifyThirdPartyImport (Fqn.ThirdPartyImportContent p rest Nothing _) = p ++ "." ++ List.intercalate "." rest
 prologifyThirdPartyImport (Fqn.ThirdPartyImportContent p rest (Just name) _) = p ++ "." ++ List.intercalate "." rest ++ "." ++ name
+
+prologifyFieldedAccess :: Fqn.Fqn -> Token.FieldName -> String
+prologifyFieldedAccess fqn (Token.FieldName (Token.Named fieldName _)) = (prologifyFqn fqn) ++ "." ++ fieldName
 
 locationify :: Location -> String
 locationify l = let