aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2021-04-20 12:22:32 +0300
committerAleksey Veresov <aleksey@veresov.pro>2021-04-20 12:22:32 +0300
commitc1243463fbeced6b1f1765991b56d726f9e7d869 (patch)
tree8556a1d5889eb450385fcb453e0b6f74b0dae7b6
parentf621a0f1491bd05113aced3a3905318e54681d0b (diff)
downloadsuem-c1243463fbeced6b1f1765991b56d726f9e7d869.tar
suem-c1243463fbeced6b1f1765991b56d726f9e7d869.tar.xz
suem-c1243463fbeced6b1f1765991b56d726f9e7d869.zip
.
-rw-r--r--src/Device.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Device.hs b/src/Device.hs
index 1c4e313..d67daab 100644
--- a/src/Device.hs
+++ b/src/Device.hs
@@ -152,7 +152,7 @@ deviceGetByte a
else do
let (Just h) = handle
liftIO $ hPut h $ fromString $
- device_get_high_byte ++ " " ++ toHex a 5 ++"\n"
+ device_get_high_byte ++ " " ++ toHex a 5 ++ "\n"
readOkByte h
| otherwise = do
handle <- getSock a
@@ -161,7 +161,7 @@ deviceGetByte a
else do
let (Just h) = handle
liftIO $ hPut h $ fromString $
- device_get_low_byte ++ " " ++ toHex a 5 ++"\n"
+ device_get_low_byte ++ " " ++ toHex a 5 ++ "\n"
readOkByte h
deviceGetWord :: Long -> Emulator Word
@@ -172,7 +172,7 @@ deviceGetWord a = do
else do
let (Just h) = handle
liftIO $ hPut h $ fromString $
- device_get_word ++ " " ++ toHex a 5 ++"\n"
+ device_get_word ++ " " ++ toHex a 5 ++ "\n"
readOkWord h