LittleEndian.hs

{-# LANGUAGE TemplateHaskell, TypeFamilies #-}

module File.Binary.Data.LittleEndian where

import Classes

-- retTypeInt LittleEndian

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