todoToString :: T.Todo -> [H.Hashtag] -> String
todoToString todo hashtags
  = unwords [ show ((I.todoId . T._id) todo) ++ "."
            , T._title todo
            , "(due by: " ++ show (T._dueDate todo) ++ ")"
            , "(prio: " ++ maybe "-" show (I.prio (T._prio todo)) ++ ")"
            , intercalate ", " (map (I.hashtagStr . H._hashtag) hashtags)
            ]
todoToString :: T.Todo -> [H.Hashtag] -> String
todoToString todo hashtags
  = unwords [ show ((I.todoId . T._id) todo) ++ "."
            , T._title todo
            , "(due by: " ++ show (T._dueDate todo) ++ ")"
            , "(prio: " ++ maybe "-" show (I.prio (T._prio todo)) ++ ")"
            , intercalate ", " (map (I.hashtagStr . H._hashtag) hashtags)
            ]
todoToString todo hashtags
  = unwords [ show ((I.todoId . T._id) todo) ++ "."
            , T._title todo
            , "(due by: " ++ show (T._dueDate todo) ++ ")"
            , "(prio: " ++ maybe "-" show (I.prio (T._prio todo)) ++ ")"
            , intercalate ", " (map (I.hashtagStr . H._hashtag) hashtags)
            ]