Jeff Shaw wrote:
fromFixed :: (HasResolution a) => Fixed a -> (Integer,Integer)
toFixed :: (HasResolution a) => (Integer,Integer) -> Fixed a

+1

I've needed those.