{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}

module Types where

import Data.Word
import Data.Int
import Data.DoubleWord.TH

$(mkUnpackedDoubleWord "U64" ''Word32 "I64" ''Int32 ''Word32)
$(mkUnpackedDoubleWord "U48" ''Word16 "I48" ''Int16 ''Word32)
$(mkUnpackedDoubleWord "UU64" ''Word16 "II64" ''Int16 ''U48)