diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-07-23 19:47:29 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-07-25 00:45:08 -0400 |
| commit | 6e2db34bdfead7ad309d8fd01d4423554650cf4c (patch) | |
| tree | de910e4e0da8653001d1407c22063a63b9879b0a | |
| parent | 9e2930c3e18235fda2b8b468cb0fefbe7d65f879 (diff) | |
| download | haskell-6e2db34bdfead7ad309d8fd01d4423554650cf4c.tar.gz | |
Add accessors to ArchOS
| -rw-r--r-- | libraries/ghc-boot/GHC/Platform/ArchOS.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libraries/ghc-boot/GHC/Platform/ArchOS.hs b/libraries/ghc-boot/GHC/Platform/ArchOS.hs index bd3ef5f4cc..2238becb0b 100644 --- a/libraries/ghc-boot/GHC/Platform/ArchOS.hs +++ b/libraries/ghc-boot/GHC/Platform/ArchOS.hs @@ -20,7 +20,10 @@ import Prelude -- See Note [Why do we import Prelude here?] -- | Platform architecture and OS. data ArchOS - = ArchOS Arch OS + = ArchOS + { archOS_arch :: Arch + , archOS_OS :: OS + } deriving (Read, Show, Eq) -- | Architectures |