Skip to content

Instantly share code, notes, and snippets.

@denisshevchenko

denisshevchenko/door.hs

Created November 4, 2017 14:33
Show Gist options
  • Save denisshevchenko/d6e351371573e6e4a9e3fa7c941691c7 to your computer and use it in GitHub Desktop.
Save denisshevchenko/d6e351371573e6e4a9e3fa7c941691c7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
door.hs
getHeightOfTheSecondDoor :: House -> Height
getHeightOfTheSecondDoor (House _ doors _) = height
where
(Door _ height _) = secondDoor
secondDoor = doors !! 1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment