{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE FlexibleInstances #-}

module Data.Aviation.Units.USGallons(
  USGallons(usgallons)
) where

import Control.Category(id)
import Control.Lens(Iso')
import Prelude(Rational)

class USGallons a where
  usgallons ::
    Iso' Rational a

instance USGallons Rational where
  usgallons :: p Rational (f Rational) -> p Rational (f Rational)
usgallons =
    p Rational (f Rational) -> p Rational (f Rational)
forall k (cat :: k -> k -> *) (a :: k). Category cat => cat a a
id