{-# 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