diff options
| -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 |