Add defineBy*File' variant that takes a Q FilePath

This enables using utilities such as
https://hackage.haskell.org/package/file-embed-0.0.13.0/docs/Data-FileEmbed.html#v:makeRelativeToProject
which can be used to work around file path issues when using multi
package projects.

morpheus-graphql-client/changelog.md

@@ -1,5 +1,11 @@
 # Changelog
 
+## Unreleased
+
+### Minor Changes
+
+- Add defineBy*File' variants that take a `Q FilePath` [#584](https://github.com/morpheusgraphql/morpheus-graphql/pull/584)
+
 ## 0.17.0 - 25.02.2021
 
 ### Breaking changes

morpheus-graphql-client/src/Data/Morpheus/Client.hs

@@ -7,8 +7,10 @@ module Data.Morpheus.Client
     defineQuery,
     defineByDocument,
     defineByDocumentFile,
+    defineByDocumentFile',
     defineByIntrospection,
     defineByIntrospectionFile,
+    defineByIntrospectionFile',
     ScalarValue (..),
     DecodeScalar (..),
     EncodeScalar (..),
@@ -58,11 +60,19 @@ defineByDocumentFile filePath args = do
   qAddDependentFile filePath
   defineByDocument (L.readFile filePath) args
 
+-- | This variant exposes 'Q FilePath' enabling the use of TH to generate the 'FilePath'. For example, https://hackage.haskell.org/package/file-embed-0.0.13.0/docs/Data-FileEmbed.html#v:makeRelativeToProject can be used to handle multi package projects more reliably.
+defineByDocumentFile' :: Q FilePath -> (ExecutableDocument, String) -> Q [Dec]
+defineByDocumentFile' qFilePath args = qFilePath >>= flip defineByDocumentFile args
+
 defineByIntrospectionFile :: FilePath -> (ExecutableDocument, String) -> Q [Dec]
 defineByIntrospectionFile filePath args = do
   qAddDependentFile filePath
   defineByIntrospection (L.readFile filePath) args
 
+-- | This variant exposes 'Q FilePath' enabling the use of TH to generate the 'FilePath'. For example, https://hackage.haskell.org/package/file-embed-0.0.13.0/docs/Data-FileEmbed.html#v:makeRelativeToProject can be used to handle multi package projects more reliably.
+defineByIntrospectionFile' :: Q FilePath -> (ExecutableDocument, String) -> Q [Dec]
+defineByIntrospectionFile' qFilePath args = qFilePath >>= flip defineByIntrospectionFile args
+
 defineByDocument :: IO ByteString -> (ExecutableDocument, String) -> Q [Dec]
 defineByDocument doc = defineQuery (schemaByDocument doc)