@@ -18,36 +18,36 @@ data Platform
1818
1919-- | The String representation for a platform, recognised by Node.js.
2020toString :: Platform -> String
21- toString AIX = " aix"
22- toString Darwin = " darwin"
21+ toString AIX = " aix"
22+ toString Darwin = " darwin"
2323toString FreeBSD = " freebsd"
24- toString Linux = " linux"
24+ toString Linux = " linux"
2525toString OpenBSD = " openbsd"
26- toString SunOS = " sunos"
27- toString Win32 = " win32"
26+ toString SunOS = " sunos"
27+ toString Win32 = " win32"
2828toString Android = " android"
2929
3030-- | Attempt to parse a `Platform` value from a string, in the format returned
3131-- | by Node.js' `process.platform`.
3232fromString :: String -> Maybe Platform
33- fromString " aix" = Just AIX
34- fromString " darwin" = Just Darwin
33+ fromString " aix" = Just AIX
34+ fromString " darwin" = Just Darwin
3535fromString " freebsd" = Just FreeBSD
36- fromString " linux" = Just Linux
36+ fromString " linux" = Just Linux
3737fromString " openbsd" = Just OpenBSD
38- fromString " sunos" = Just SunOS
39- fromString " win32" = Just Win32
38+ fromString " sunos" = Just SunOS
39+ fromString " win32" = Just Win32
4040fromString " android" = Just Android
41- fromString _ = Nothing
41+ fromString _ = Nothing
4242
4343instance showPlatform :: Show Platform where
44- show AIX = " AIX"
45- show Darwin = " Darwin"
44+ show AIX = " AIX"
45+ show Darwin = " Darwin"
4646 show FreeBSD = " FreeBSD"
47- show Linux = " Linux"
47+ show Linux = " Linux"
4848 show OpenBSD = " OpenBSD"
49- show SunOS = " SunOS"
50- show Win32 = " Win32"
49+ show SunOS = " SunOS"
50+ show Win32 = " Win32"
5151 show Android = " Android"
5252
5353derive instance eqPlatform :: Eq Platform
0 commit comments