SSH server library, fork of Hackage one but hoping to get patches upstream

[[ 🗃 ^6r4Ao ssh ]] :: [📥 Inbox] [📤 Outbox] [🐤 Followers] [🤝 Collaborators] [🛠 Changes]

Clone

HTTPS: darcs clone https://vervis.peers.community/repos/6r4Ao

SSH: darcs clone USERNAME@vervis.peers.community:6r4Ao

Tags

TODO

src / Network / SSH / Internal /

NetGet.hs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

module Network.SSH.Internal.NetGet
    ( readByte
    , readLong
    , readULong
    , readInteger
    , readBytes
    , readLBS
    , readString
    , readBool
    )
where

import Data.Binary (get)
import Data.Binary.Get
import Data.Int (Int32, Int64)
import Data.Word (Word8, Word32)
import qualified Data.ByteString.Lazy as LBS (ByteString)
import qualified Data.ByteString.Lazy.Char8 as LBSC (unpack)

import Network.SSH.Internal.NetPut (unmpint)

readByte :: Get Word8
readByte = get

readLong :: Get Int32
readLong = get

readULong :: Get Word32
readULong = get

readInteger :: Get Integer
readInteger = do
    len <- readULong
    b <- readBytes $ fromIntegral len
    return $ unmpint b

readBytes :: Int64 -> Get LBS.ByteString
readBytes = getLazyByteString

readLBS :: Get LBS.ByteString
readLBS = readULong >>= readBytes . fromIntegral

readString :: Get String
readString = fmap LBSC.unpack readLBS

readBool :: Get Bool
readBool = fmap (== 1) readByte
[See repo JSON]