doors.hs

getDoorMaterial :: House -> NumberOfDoor -> Either ErrorMessage Material
getDoorMaterial (House _ [] _) _ = Left "Этот дом без дверей, не будет вам никакого материала!"
getDoorMaterial (House _ doors _) numberOfDoor = 
    if numberOfDoor > quantityOfDoors
      then Left "Эй, брат, погоди, тут нету столько дверей! Значение numberOfDoor слишком большое."
      else
        let indexOfOurDoor = numberOfDoor - 1
            ourDoor = doors !! indexOfOurDoor
            (Door _ _ materialOfOurDoor) = ourDoor
        in Right materialOfOurDoor
  where
    quantityOfDoors = length doors