Action.hs

   1 {-# LANGUAGE TemplateHaskell #-}
   2 module Action where
   3 import Database.Persist.TH (derivePersistField)
   4
   5 data Action
   6   = Running
   7   | InitialSetup
   8   | AddNode
   9   deriving (Eq, Show, Read)
  10 derivePersistField "Action"
  11