diff options
Diffstat (limited to 'Distribution/Helper.hs')
| -rw-r--r-- | Distribution/Helper.hs | 8 |
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 |