From 706c6910c96cf37d254af5bda84afdded3254504 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Tue, 30 Aug 2011 21:36:57 +0900 Subject: L -> BL. --- Network/DNS/StateBinary.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Network/DNS/StateBinary.hs b/Network/DNS/StateBinary.hs index e214dbf..05f8468 100644 --- a/Network/DNS/StateBinary.hs +++ b/Network/DNS/StateBinary.hs @@ -7,7 +7,7 @@ import Data.Attoparsec import Data.Attoparsec.Enumerator import Data.ByteString (ByteString) import qualified Data.ByteString as BS (unpack) -import qualified Data.ByteString.Lazy as L (ByteString) +import qualified Data.ByteString.Lazy as BL (ByteString) import Data.Enumerator (Iteratee) import Data.Int import Data.IntMap (IntMap) @@ -117,5 +117,5 @@ initialState = PState IM.empty 0 runSGet :: SGet a -> Iteratee ByteString IO (a, PState) runSGet parser = iterParser (runStateT parser initialState) -runSPut :: SPut -> L.ByteString +runSPut :: SPut -> BL.ByteString runSPut = toLazyByteString . fromWrite -- cgit v1.2.3