{-# OPTIONS_HADDOCK hide #-}
module Database.Tds.Primitives.Money ( Money (..)
, moneyToBytes4
, moneyToBytes8
, bytesToMoney4
, bytesToMoney8
) where
import Data.Int (Int32(..))
import Data.Fixed (Fixed(..))
import Data.Bits ((.&.),shift)
import Database.Tds.Primitives.Fixed
type Money = Fixed4
bytesToMoney4 :: Int32 -> Money
bytesToMoney4 i = MkFixed $ fromIntegral i
bytesToMoney8 :: Int32 -> Int32 -> Money
bytesToMoney8 m l =
let
m' = fromIntegral m
l' = fromIntegral l
in MkFixed $ (shift m' 32) + l'
moneyToBytes4 :: Money -> Int32
moneyToBytes4 (MkFixed i) = fromIntegral i
moneyToBytes8 :: Money -> (Int32,Int32)
moneyToBytes8 (MkFixed i) =
let
m = shift i (-32)
l = i .&. 0xffffffff
in (fromIntegral m, fromIntegral l)