diff options
Diffstat (limited to 'src/Device.hs')
-rw-r--r-- | src/Device.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Device.hs b/src/Device.hs index 1d42bb8..50fb3fc 100644 --- a/src/Device.hs +++ b/src/Device.hs @@ -1,14 +1,16 @@ -module Machine where +module Device where +import Prelude hiding (Word) import Data.Word (Word32, Word16, Word8) +import Machine data DeviceRequest = DeviceGetByte Long | DeviceGetWord Long | DeviceGetLong Long - | DeviceSetByte Long Word8 - | DeviceSetWord Long Word16 - | DeviceSetLong Long Word32 + | DeviceSetByte Long Byte + | DeviceSetWord Long Word + | DeviceSetLong Long Long checkInteruptsFromDevices :: Emulator () -checkInteruptsFromDevices = putStrLn "blah-blah" +checkInteruptsFromDevices = return () |