aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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