getUuidSelected :: TaskName -> Tasks -> TaskUuid
getUuidSelected n ts = uuidFound
  where
    uuidFound = if not.null $ selected then view uuid $ head selected else ""
    selected = filter (predicate n) ts
    predicate nm t = n == startTaskName
      where
        taskName = view name t
        lengthInput = length nm
        startTaskName = take lengthInput taskName
getUuidSelected :: TaskName -> Tasks -> TaskUuid
getUuidSelected n ts = uuidFound
  where
    uuidFound = if not.null $ selected then view uuid $ head selected else ""
    selected = filter (predicate n) ts
    predicate nm t = n == startTaskName
      where
        taskName = view name t
        lengthInput = length nm
        startTaskName = take lengthInput taskName
getUuidSelected n ts = uuidFound
  where
    uuidFound = if not.null $ selected then view uuid $ head selected else ""
    selected = filter (predicate n) ts
    predicate nm t = n == startTaskName
      where
        taskName = view name t
        lengthInput = length nm
        startTaskName = take lengthInput taskName