serialise-0.1.0.0: bench/micro/Micro/DeepSeq.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}
module Micro.DeepSeq where

import Micro.Types

import Control.DeepSeq

instance NFData Tree where
  rnf Leaf = ()
  rnf (Fork a b) = rnf a `seq` rnf b `seq` ()