From b1e488bbb31140ee175405416076d10a0403bd67 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Fri, 3 Apr 2015 01:20:37 +0200
Subject: Add `buildPlatform`

---
 Distribution/Helper.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'Distribution')

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
-- 
cgit v1.2.3