We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 2912ca3 commit b074d93Copy full SHA for b074d93
core/src/Streamly/Internal/Data/Unbox.hs
@@ -471,13 +471,13 @@ instance Unbox () where
471
472
{-# INLINE fromEnumIoSubSystem #-}
473
fromEnumIoSubSystem :: IoSubSystem -> Int
474
-fromEnumIoSubSystem IoPOSIX = 1
475
-fromEnumIoSubSystem IoNative = 0
+fromEnumIoSubSystem IoPOSIX = 0
+fromEnumIoSubSystem IoNative = 1
476
477
{-# INLINE toEnumIoSubSystem #-}
478
toEnumIoSubSystem :: Int -> IoSubSystem
479
-toEnumIoSubSystem 0 = IoNative
480
-toEnumIoSubSystem 1 = IoPOSIX
+toEnumIoSubSystem 0 = IoPOSIX
+toEnumIoSubSystem 1 = IoNative
481
toEnumIoSubSystem val = error $ show val ++ ": Invalid tag for IoSubSystem"
482
483
instance Unbox IoSubSystem where
0 commit comments