blob: d4b4d0650d7b216b5bd41d76908a260223fdd403 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module GopherProxy.Types where
import Data.ByteString.Lazy (ByteString ())
import Network.Socket (HostName (), PortNumber ())
data GopherResponse
= MenuResponse [MenuItem]
| FileResponse ByteString
deriving Show
data GopherResponseType
= Menu
| File
data MenuItem
= MenuItem Char ByteString ByteString HostName PortNumber
deriving Show
|