Skip to content

Commit bafe87d

Browse files
committed
Fix compilation on big-endian arches
1 parent a78548a commit bafe87d

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

System/OsString/Data/ByteString/Short/Internal.hs

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -311,7 +311,11 @@ word16ToLE#, word16FromLE# :: Word16# -> Word16#
311311
word16ToLE#, word16FromLE# :: Word# -> Word#
312312
#endif
313313
#ifdef WORDS_BIGENDIAN
314+
#if MIN_VERSION_base(4,16,0)
315+
word16ToLE# w = wordToWord16# (byteSwap16# (word16ToWord# w))
316+
#else
314317
word16ToLE# = byteSwap16#
318+
#endif
315319
#else
316320
word16ToLE# w# = w#
317321
#endif

0 commit comments

Comments
 (0)