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