module Quox.PrettyValExtra

import Derive.Prelude
import public Text.Show.Value
import public Text.Show.PrettyVal
import public Text.Show.PrettyVal.Derive

%language ElabReflection

%runElab derive "SnocList" [PrettyVal]