File tree 1 file changed +9
-8
lines changed
1 file changed +9
-8
lines changed Original file line number Diff line number Diff line change @@ -30,14 +30,15 @@ toString Android = "android"
30
30
-- | Attempt to parse a `Platform` value from a string, in the format returned
31
31
-- | by Node.js' `process.platform`.
32
32
fromString :: String -> Maybe Platform
33
- fromString " aix" = AIX
34
- fromString " darwin" = Darwin
35
- fromString " freebsd" = FreeBSD
36
- fromString " linux" = Linux
37
- fromString " openbsd" = OpenBSD
38
- fromString " sunos" = SunOS
39
- fromString " win32" = Win32
40
- fromString " android" = Android
33
+ fromString " aix" = Just AIX
34
+ fromString " darwin" = Just Darwin
35
+ fromString " freebsd" = Just FreeBSD
36
+ fromString " linux" = Just Linux
37
+ fromString " openbsd" = Just OpenBSD
38
+ fromString " sunos" = Just SunOS
39
+ fromString " win32" = Just Win32
40
+ fromString " android" = Just Android
41
+ fromString _ = Nothing
41
42
42
43
instance showPlatform :: Show Platform where
43
44
show AIX = " AIX"
You can’t perform that action at this time.
0 commit comments