-- -*- mode: haskell -*-
{-# LANGUAGE TemplateHaskell #-}

module Baum.Order where

import Autolib.ToDoc
import Autolib.Reader

import Data.Typeable

data Order = Pre | In | Post | Level
     deriving ( Eq, Ord, Typeable )

$(derives [makeReader, makeToDoc] [''Order])

instance Show Order where show = render . toDoc