From c1243463fbeced6b1f1765991b56d726f9e7d869 Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Tue, 20 Apr 2021 12:22:32 +0300 Subject: . --- src/Device.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src') 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 -- cgit v1.2.3