{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}
module Propellor.Types.ConfigurableValue where
import Data.Word
class ConfigurableValue t where
val :: t -> String
instance ConfigurableValue String where
val :: String -> String
val = forall a. a -> a
id
instance ConfigurableValue Int where
val :: Int -> String
val = forall a. Show a => a -> String
show
instance ConfigurableValue Integer where
val :: Integer -> String
val = forall a. Show a => a -> String
show
instance ConfigurableValue Float where
val :: Float -> String
val = forall a. Show a => a -> String
show
instance ConfigurableValue Double where
val :: Double -> String
val = forall a. Show a => a -> String
show
instance ConfigurableValue Word8 where
val :: Word8 -> String
val = forall a. Show a => a -> String
show
instance ConfigurableValue Word16 where
val :: Word16 -> String
val = forall a. Show a => a -> String
show
instance ConfigurableValue Word32 where
val :: Word32 -> String
val = forall a. Show a => a -> String
show