59 lines
1.1 KiB
Haskell
59 lines
1.1 KiB
Haskell
module Cards
|
|
( Element
|
|
, Card
|
|
, Comment
|
|
, isCard
|
|
, sides
|
|
, resetLevel
|
|
, nextLevel
|
|
, showElement
|
|
, showElements
|
|
, parseElement
|
|
, parseElements
|
|
) where
|
|
|
|
data Element = ECard Card | EComment Comment
|
|
deriving (Show)
|
|
|
|
data Comment = Comment String
|
|
deriving (Show)
|
|
|
|
type LastChecked = Integer
|
|
type Delay = Integer
|
|
data Card = Card Tier LastChecked Delay [String]
|
|
deriving (Show)
|
|
|
|
data Tier = Zero | One | Two | Three | Four | Five | Six | Seven | Eight | Nine | Ten
|
|
deriving (Show, Eq, Ord, Enum, Bounded)
|
|
|
|
{-
|
|
- Basic utility functions
|
|
-}
|
|
|
|
isCard :: Element -> Bool
|
|
isCard (ECard _) = True
|
|
isCard _ = False
|
|
|
|
sides :: Card -> [String]
|
|
sides (Card _ _ _ s) = s
|
|
|
|
resetTier :: Card -> Card
|
|
resetTier (Card t l d s) = Card minBound l d s
|
|
|
|
nextTier :: Card -> Card
|
|
nextTier c@(Card t l d s)
|
|
| t == maxBound = c
|
|
| otherwise = Card (succ t) l d s
|
|
|
|
showElements :: [Element] -> String
|
|
showElements = intercalate "\n\n" . map showElement
|
|
|
|
showElement :: Element -> String
|
|
showElement = undefined
|
|
|
|
{-
|
|
- Parsing
|
|
-}
|
|
|
|
parseElements = undefined
|
|
parseElement = undefined
|