summaryrefslogtreecommitdiff
path: root/utils/deriveConstants
diff options
context:
space:
mode:
authorHerbert Valerio Riedel <hvr@gnu.org>2014-05-20 09:40:36 +0200
committerHerbert Valerio Riedel <hvr@gnu.org>2014-05-20 09:43:31 +0200
commita15d243e4c15c45a401dec8c30a5135b6b006115 (patch)
treef93ca75258f6af091911f8f797e62eff7fc7b9fd /utils/deriveConstants
parent3a04ce29a2d92f58ab07f83f4970c544e4afdf00 (diff)
downloadhaskell-a15d243e4c15c45a401dec8c30a5135b6b006115.tar.gz
Harden imports in `DeriveConstants.hs` module
This was generated by applying `-ddump-minimal-imports` and addresses the current compile failure (see #9016) with GHC HEAD due to the new `die` being exported by `System.Exit` Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
Diffstat (limited to 'utils/deriveConstants')
-rw-r--r--utils/deriveConstants/DeriveConstants.hs24
1 files changed, 12 insertions, 12 deletions
diff --git a/utils/deriveConstants/DeriveConstants.hs b/utils/deriveConstants/DeriveConstants.hs
index 6bfce247d3..d15f619e98 100644
--- a/utils/deriveConstants/DeriveConstants.hs
+++ b/utils/deriveConstants/DeriveConstants.hs
@@ -10,20 +10,20 @@ into non-C source containing this information.
------------------------------------------------------------------------ -}
-import Control.Monad
-import Data.Bits
-import Data.Char
-import Data.List
+import Control.Monad (when, unless)
+import Data.Bits (shiftL)
+import Data.Char (toLower)
+import Data.List (stripPrefix)
import Data.Map (Map)
import qualified Data.Map as Map
-import Data.Maybe
-import Numeric
-import System.Environment
-import System.Exit
-import System.FilePath
-import System.IO
-import System.Info
-import System.Process
+import Data.Maybe (catMaybes)
+import Numeric (readHex)
+import System.Environment (getArgs)
+import System.Exit (ExitCode(ExitSuccess), exitFailure)
+import System.FilePath ((</>))
+import System.IO (stderr, hPutStrLn)
+import System.Info (os)
+import System.Process (showCommandForUser, readProcess, rawSystem)
main :: IO ()
main = do opts <- parseArgs