Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
Packages
Cabal
Commits
0a1b4810
Commit
0a1b4810
authored
May 24, 2011
by
Duncan Coutts
Browse files
Add HaLVM OS
And add a TODO about future handling of OS variants like Android and iOS.
parent
6f01f56a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Distribution/System.hs
View file @
0a1b4810
...
...
@@ -58,16 +58,23 @@ data ClassificationStrictness = Permissive | Compat | Strict
-- * Operating System
-- ------------------------------------------------------------
data
OS
=
Linux
|
Windows
|
OSX
|
FreeBSD
|
OpenBSD
|
NetBSD
|
Solaris
|
AIX
|
HPUX
|
IRIX
data
OS
=
Linux
|
Windows
|
OSX
-- teir 1 desktop OSs
|
FreeBSD
|
OpenBSD
|
NetBSD
-- other free unix OSs
|
Solaris
|
AIX
|
HPUX
|
IRIX
-- ageing Unix OSs
|
HaLVM
-- bare metal / VMs / hypervisors
|
OtherOS
String
deriving
(
Eq
,
Ord
,
Show
,
Read
)
--TODO: decide how to handle Android and iOS.
-- They are like Linux and OSX but with some differences.
-- Should they be separate from linux/osx, or a subtype?
-- e.g. should we have os(linux) && os(android) true simultaneously?
knownOSs
::
[
OS
]
knownOSs
=
[
Linux
,
Windows
,
OSX
,
FreeBSD
,
OpenBSD
,
NetBSD
,
Solaris
,
AIX
,
HPUX
,
IRIX
]
,
Solaris
,
AIX
,
HPUX
,
IRIX
,
HaLVM
]
osAliases
::
ClassificationStrictness
->
OS
->
[
String
]
osAliases
Permissive
Windows
=
[
"mingw32"
,
"cygwin32"
]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment