From ac5fbf39426ceb78349a5a5870ba32dfadc1863b Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Wed, 6 Nov 2019 13:59:41 +0000
Subject: [PATCH] Fix byte order when loading memory maps

---
 src/Mima/Word.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Mima/Word.hs b/src/Mima/Word.hs
index b230fc1..d16028f 100644
--- a/src/Mima/Word.hs
+++ b/src/Mima/Word.hs
@@ -78,7 +78,7 @@ instance Bits MimaWord where
 bytesToWord :: Word8 -> Word8 -> Word8 -> MimaWord
 bytesToWord w1 w2 w3 =
   let (w1', w2', w3') = (fromIntegral w1, fromIntegral w2, fromIntegral w3)
-  in  fromWord32 $ w1' .|. shiftL w2' 8 .|. shiftL w3' 16
+  in  fromWord32 $ shiftL w1' 16 .|. shiftL w2' 8 .|. w3'
 
 wordToBytes :: MimaWord -> (Word8, Word8, Word8)
 wordToBytes mw =