blob: 1fb02a6f1d8f30a21c9cde710f48479182987670 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
module Config
( Config(..)
, readFile
)
where
import Prelude hiding (readFile)
import qualified Prelude (readFile)
import Network.Socket
data Config = Config
{ bufSize :: Int
, port :: ServiceName
}
deriving (Read,Show)
readFile :: FilePath -> IO Config
readFile path =
read <$> Prelude.readFile path
|
