Skip to content
Browse files

Bugfix.

  • Loading branch information...
1 parent 8f7ca30 commit 9c5cbedff1c54d12ac26a1fe24f0577deafd0a3b @mitar committed
Showing with 3 additions and 3 deletions.
  1. +3 −3 lib/NXT.hs
View
6 lib/NXT.hs
@@ -720,7 +720,7 @@ delete' confirm existence filename = do
case receive of
0x02:0x85:0x00:f
| dataToString0 f == filename -> return ()
- 0x02:0x85:0x87:_ -> when existence $ liftIO $ failNXT "delete" 135
+ 0x02:0x85:0x87:_ -> when existence $ liftIO $ failNXT "delete" 0x87
_:_:e:_ -> liftIO $ failNXT "delete" e
_ -> liftIO $ failNXT' "delete"
@@ -864,5 +864,5 @@ request confirm | confirm = 0x00
| otherwise = 0x80
request' :: Bool -> Word8
-request' confirm | confirm = 0x00
- | otherwise = 0x80
+request' confirm | confirm = 0x01
+ | otherwise = 0x81

0 comments on commit 9c5cbed

Please sign in to comment.
Something went wrong with that request. Please try again.