diff options
| author | John Ericson <John.Ericson@Obsidian.Systems> | 2019-05-31 19:33:33 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-06-19 22:16:16 -0400 |
| commit | d406a16ac22e6ad02da0d2c75212614eda09d2cb (patch) | |
| tree | 21490fb5f60bb5fe5d8e540e4f95b0c49a58fb17 /compiler/utils | |
| parent | a298b96e624155e1860ff009951cb21be43b99d4 (diff) | |
| download | haskell-d406a16ac22e6ad02da0d2c75212614eda09d2cb.tar.gz | |
ghc-pkg needs settings file to un-hardcode target platform
This matches GHC itself getting the target platform from there.
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Util.hs | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/compiler/utils/Util.hs b/compiler/utils/Util.hs index 5770f2ffdc..aa4afa5451 100644 --- a/compiler/utils/Util.hs +++ b/compiler/utils/Util.hs @@ -92,9 +92,6 @@ module Util ( readRational, readHexRational, - -- * read helpers - maybeRead, maybeReadFuzzy, - -- * IO-ish utilities doesDirNameExist, getModificationUTCTime, @@ -1254,25 +1251,6 @@ readHexRational__ ('0' : x : rest) readHexRational__ _ = Nothing - - - ------------------------------------------------------------------------------ --- read helpers - -maybeRead :: Read a => String -> Maybe a -maybeRead str = case reads str of - [(x, "")] -> Just x - _ -> Nothing - -maybeReadFuzzy :: Read a => String -> Maybe a -maybeReadFuzzy str = case reads str of - [(x, s)] - | all isSpace s -> - Just x - _ -> - Nothing - ----------------------------------------------------------------------------- -- Verify that the 'dirname' portion of a FilePath exists. -- |