-- file: ch03/ShapeUnion.hs
-- From chapter 3, http://book.realworldhaskell.org/read/defining-types-streamlining-functions.html

type Vector = (Double, Double)

data Shape = Circle Vector Double
    | Poly [Vector]
