Commit 01f3d976 authored by Oscar Leijendekker's avatar Oscar Leijendekker

Added deriving declaration to datatypes

parent 2140869e
Pipeline #95069024 passed with stage
in 4 minutes and 25 seconds
......@@ -17,8 +17,10 @@ import qualified Data.Text
import qualified Data.ByteString.UTF8 as StrictUTF8 (fromString, toString)
data TaskStatus = Done | NotDone
deriving (Eq, Ord, Show, Read, Enum, Bounded)
data Task = Task String TaskStatus
deriving (Eq, Ord, Show)
instance HTML Task where
toHTML task =
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment