module Persona
  ( Operation(..)
  , operations
  , fromString
  , toString
  ) where

type Operation =
  NoOp
  | SignIn
  | SignOut

operations : Signal.Mailbox Operation
operations = Signal.mailbox NoOp

fromString : String -> Operation
fromString str =
  case str of
    "SignIn" -> SignIn
    "SignOut" -> SignOut
    _ -> NoOp

toString : Operation -> String
toString operation =
  case operation of
    SignIn -> "SignIn"
    SignOut -> "SignOut"
    _ -> "NoOp"