diff options
| author |  Kazu Yamamoto <kazu@iij.ad.jp> | 2011-08-30 21:36:57 +0900 |
|---|---|---|
| committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-08-30 21:36:57 +0900 |
| commit | 706c6910c96cf37d254af5bda84afdded3254504 (patch) | |
| tree | bf96fee94a803b26bebd866ff6b6fc9c33d7d9ef | |
| parent | 3239bc076504c13db594957f564af09ebbc354fa (diff) | |
L -> BL.
| -rw-r--r-- | Network/DNS/StateBinary.hs | 4 |
1 files 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 |