-- conversion of Orientation to and from JSON

toOrientation :: Text -> Orientation
toOrientation "top" = TopTabs
toOrientation :: Text -> Orientation
toOrientation "top" = TopTabs
toOrientation "top" = TopTabs