{-# LANGUAGE TemplateHaskell, TypeFamilies #-}

module File.Binary.Data.BigEndian where

import Classes

-- retTypeInt BigEndian

instance RetType Int where
	type Argument Int = Int
	fromType n = rev . fi n . fromIntegral
	toType n s = (fromIntegral $ ti $ rev $ tk n s, dp n s)