{-# LANGUAGE DeriveGeneric   #-}
{-# LANGUAGE TemplateHaskell #-}

module Location
    ( -- * Classes
      Location (..)
      -- * Lenses
    , area
    , section
    ) where

import           Data.PrintableText

import           Control.Lens
import           Control.Lens.TH

import           GHC.Generics

-- | Location of map in FFX in the form 'Area - Section'
-- | Section can be omitted
data Location
    = Location
    { _area    :: PrintableText
    , _section :: Maybe PrintableText
    } deriving (Show, Generic)

$(makeLenses ''Location)