    {-# OPTIONS_GHC -Wno-orphans #-}

    module IsomorphismClass.Relations.NominalDiffTimeAndPico where

    import Data.Time
    import IsomorphismClass.Classes
    import IsomorphismClass.Prelude

    instance IsomorphicTo NominalDiffTime Pico where
      to :: Pico -> NominalDiffTime
    to = Pico -> NominalDiffTime
    secondsToNominalDiffTime

    instance IsomorphicTo Pico NominalDiffTime where
      to :: NominalDiffTime -> Pico
    to = NominalDiffTime -> Pico
    nominalDiffTimeToSeconds