{-# OPTIONS_GHC -fno-warn-orphans         #-}
{-# OPTIONS_GHC -fno-warn-missing-methods #-}

module Network.IPFS.Internal.Orphanage.Natural () where

import System.Envy

import Network.IPFS.Prelude

instance Display Natural where
  display :: Natural -> Utf8Builder
display Natural
nat = Integer -> Utf8Builder
forall a. Display a => a -> Utf8Builder
display (Natural -> Integer
forall a b. (Integral a, Num b) => a -> b
fromIntegral Natural
nat :: Integer)

instance Var Natural where
  fromVar :: String -> Maybe Natural
fromVar = String -> Maybe Natural
forall a. Read a => String -> Maybe a
readMaybe