bayes-stack-0.2.0.1: Data/Serialize/LogFloat.hs

module Data.Serialize.LogFloat where

import Data.Serialize
import Data.Number.LogFloat

instance Serialize LogFloat where
  put = put . (logFromLogFloat :: LogFloat -> Double)
  get = (logToLogFloat :: Double -> LogFloat) `fmap` get