Add `buildPlatform`

1 files changed, 8 insertions, 0 deletions

diff --git a/Distribution/Helper.hs b/Distribution/Helper.hs
index 44b17bb..b06ffe4 100644
--- a/Distribution/Helper.hs
+++ b/Distribution/Helper.hs
@@ -38,6 +38,9 @@ module Distribution.Helper (
   , ChComponentName(..)
   , ChEntrypoint(..)
 
+  -- * General information
+  , buildPlatform
+
   -- * Managing @dist/@
   , reconfigure
   , writeAutogenFiles
@@ -204,6 +207,11 @@ writeAutogenFiles distdir = liftIO $ do
   exe  <- findLibexecExe "cabal-helper-wrapper"
   void $ readProcess exe [distdir, "write-autogen-files"] ""
 
+buildPlatform :: IO String
+buildPlatform = do
+  exe  <- findLibexecExe "cabal-helper-wrapper"
+  dropWhileEnd isSpace <$> readProcess exe ["print-build-platform"] ""
+
 -- | This exception is thrown by all 'runQuery' functions if the internal
 -- wrapper executable cannot be found. You may catch this and present the user
 -- an appropriate error message however the default is to print