quick-process-0.0.3: verify-call-specs/CallSpecs/Find/Type.hs

module CallSpecs.Find.Type where

import System.Process.Quick
import System.Process.Quick.Prelude

data NodeType = FileNode | DirNode deriving (Show, Eq, Generic, Data)

instance Arbitrary NodeType where
  arbitrary = genericArbitraryU

instance CallArgument NodeType where
  toExecString = pure . \case
    FileNode -> "f"
    DirNode -> "d"