gistfile1.hsc

data TodoEntry = TodoEntry { milestone :: (Maybe String)
                           , action    :: String
                           , users     :: (Maybe [String])
                           , priority  :: (Maybe Char)
                           , timeSpent :: (Maybe Double)
                           } deriving (Eq, Ord)


instance Show TodoEntry where
    show entry = todoTagStr ++ (uStr $ users entry) ++ ": " 
                            ++ (mStr $ milestone entry) 
                            ++ (action entry)
                            ++ (attStr (priority entry, timeSpent entry))
         where mStr Nothing  = ""
               mStr (Just s) = s ++ " :: "
               uStr Nothing   = ""
               uStr (Just ul) = "(" ++ (intercalate ", " ul) ++ ")"
               attStr (Nothing, Nothing) = ""
               attStr (Just p, Just t)   = " :: " ++ [p] ++ ", " ++ (show t)
               attStr (Just p, Nothing)  = " :: " ++ [p]
               attStr (Nothing, Just t)  = " :: " ++ (show t)