lucienne-0.0.1: Lucienne/Model/FeedItemState.hs

module Lucienne.Model.FeedItemState
       (FeedItemState(..), fromInteger, toInteger)
where
  
import Prelude hiding (fromInteger,toInteger)
  
data FeedItemState = New | Read | Deleted deriving Eq

fromInteger :: Integer -> FeedItemState
fromInteger i = 
  case i of
    0 -> New
    1 -> Read 
    2 -> Deleted
    
toInteger :: FeedItemState -> Integer
toInteger state = 
  case state of
    New     -> 0
    Read    -> 1
    Deleted -> 2