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

type Operation =
  NoOp
  | SignIn

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

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

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