module Taskell.UI.Types where

import ClassyPrelude (Eq, Int, Ord, Show)

import Taskell.Types (ListIndex, TaskIndex)

data ResourceName
    = RNCursor
    | RNTask (ListIndex, TaskIndex)
    | RNList Int
    | RNLists
    | RNModal
    | RNDue Int
    deriving (Int -> ResourceName -> ShowS
[ResourceName] -> ShowS
ResourceName -> String
(Int -> ResourceName -> ShowS)
-> (ResourceName -> String)
-> ([ResourceName] -> ShowS)
-> Show ResourceName
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ResourceName] -> ShowS
$cshowList :: [ResourceName] -> ShowS
show :: ResourceName -> String
$cshow :: ResourceName -> String
showsPrec :: Int -> ResourceName -> ShowS
$cshowsPrec :: Int -> ResourceName -> ShowS
Show, ResourceName -> ResourceName -> Bool
(ResourceName -> ResourceName -> Bool)
-> (ResourceName -> ResourceName -> Bool) -> Eq ResourceName
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ResourceName -> ResourceName -> Bool
$c/= :: ResourceName -> ResourceName -> Bool
== :: ResourceName -> ResourceName -> Bool
$c== :: ResourceName -> ResourceName -> Bool
Eq, Eq ResourceName
Eq ResourceName
-> (ResourceName -> ResourceName -> Ordering)
-> (ResourceName -> ResourceName -> Bool)
-> (ResourceName -> ResourceName -> Bool)
-> (ResourceName -> ResourceName -> Bool)
-> (ResourceName -> ResourceName -> Bool)
-> (ResourceName -> ResourceName -> ResourceName)
-> (ResourceName -> ResourceName -> ResourceName)
-> Ord ResourceName
ResourceName -> ResourceName -> Bool
ResourceName -> ResourceName -> Ordering
ResourceName -> ResourceName -> ResourceName
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: ResourceName -> ResourceName -> ResourceName
$cmin :: ResourceName -> ResourceName -> ResourceName
max :: ResourceName -> ResourceName -> ResourceName
$cmax :: ResourceName -> ResourceName -> ResourceName
>= :: ResourceName -> ResourceName -> Bool
$c>= :: ResourceName -> ResourceName -> Bool
> :: ResourceName -> ResourceName -> Bool
$c> :: ResourceName -> ResourceName -> Bool
<= :: ResourceName -> ResourceName -> Bool
$c<= :: ResourceName -> ResourceName -> Bool
< :: ResourceName -> ResourceName -> Bool
$c< :: ResourceName -> ResourceName -> Bool
compare :: ResourceName -> ResourceName -> Ordering
$ccompare :: ResourceName -> ResourceName -> Ordering
$cp1Ord :: Eq ResourceName
Ord)