mischief-assets-0.1.0.0: src/Mischief/Assets/Orphans.hs

{-# OPTIONS_GHC -Wno-orphans #-}

module Mischief.Assets.Orphans where

import KDL qualified
import Linear

instance (KDL.DecodeValue a) => KDL.DecodeNode (V2 a) where
  nodeDecoder = V2 <$> KDL.arg <*> KDL.arg

instance (KDL.DecodeValue a) => KDL.DecodeNode (V3 a) where
  nodeDecoder = V3 <$> KDL.arg <*> KDL.arg <*> KDL.arg

instance (KDL.DecodeValue a) => KDL.DecodeNode (V4 a) where
  nodeDecoder :: (KDL.DecodeValue a) => KDL.NodeDecoder (V4 a)
  nodeDecoder = V4 <$> KDL.arg <*> KDL.arg <*> KDL.arg <*> KDL.arg

instance KDL.DecodeNode Int where
  nodeDecoder = KDL.arg

instance KDL.DecodeNode Integer where
  nodeDecoder = KDL.arg

instance KDL.DecodeNode Float where
  nodeDecoder = KDL.arg

instance KDL.DecodeNode Double where
  nodeDecoder = KDL.arg