Binary.hs

{-|

Copyright   : © 2020 Alex Washburn
License     : BSD-3-Clause
Maintainer  : github@recursion.ninja
Stability   : Stable

Exposes the 'Binary' instance for 'BitVector'.

-}

{-# Language CPP #-}
{-# Language Safe #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}

module Data.BitVector.LittleEndian.Binary
    (
    ) where

import Control.Applicative (Applicative(liftA2))
import Data.Binary
import Data.BitVector.LittleEndian (BitVector)
import Data.BitVector.LittleEndian.Internal hiding (BitVector)
#if MIN_VERSION_base(4,18,0)
import Prelude hiding (liftA2)
#endif

{- | @since 1.2.0 -}
instance Binary BitVector where

    put (BV w n) = put w <> put n

    get = liftA2 BV get get