1{-# LANGUAGE MultiParamTypeClasses #-}
2{-# LANGUAGE OverloadedStrings #-}
3--
4-- Licensed to the Apache Software Foundation (ASF) under one
5-- or more contributor license agreements. See the NOTICE file
6-- distributed with this work for additional information
7-- regarding copyright ownership. The ASF licenses this file
8-- to you under the Apache License, Version 2.0 (the
9-- "License"); you may not use this file except in compliance
10-- with the License. You may obtain a copy of the License at
11--
12--   http://www.apache.org/licenses/LICENSE-2.0
13--
14-- Unless required by applicable law or agreed to in writing,
15-- software distributed under the License is distributed on an
16-- "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
17-- KIND, either express or implied. See the License for the
18-- specific language governing permissions and limitations
19-- under the License.
20--
21
22module Thrift.Transport.Empty
23       ( EmptyTransport(..)
24       ) where
25
26import Thrift.Transport
27
28data EmptyTransport = EmptyTransport
29
30instance Transport EmptyTransport where
31    tIsOpen = const $ return False
32    tClose  = const $ return ()
33    tRead _ _ = return ""
34    tPeek = const $ return Nothing
35    tWrite _ _ = return ()
36    tFlush = const$ return ()
37