main :: IO ()
main = execParser opts >>= encodeTransmission
  where
    opts =
      info
        (helper <*> options)
        (fullDesc <> progDesc desc <>
         header "pagerenc - a program for encoding FLEX and POCSAG messages")
    desc =
      "Reads lines from stdin, outputting POCSAG or FLEX data to stdout\
        \ which is decodable by multimon-ng. Additionally, insert delays\
        \ between messages to simulate staggered broadcasts."
main :: IO ()
main = execParser opts >>= encodeTransmission
  where
    opts =
      info
        (helper <*> options)
        (fullDesc <> progDesc desc <>
         header "pagerenc - a program for encoding FLEX and POCSAG messages")
    desc =
      "Reads lines from stdin, outputting POCSAG or FLEX data to stdout\
        \ which is decodable by multimon-ng. Additionally, insert delays\
        \ between messages to simulate staggered broadcasts."
main = execParser opts >>= encodeTransmission
  where
    opts =
      info
        (helper <*> options)
        (fullDesc <> progDesc desc <>
         header "pagerenc - a program for encoding FLEX and POCSAG messages")
    desc =
      "Reads lines from stdin, outputting POCSAG or FLEX data to stdout\
        \ which is decodable by multimon-ng. Additionally, insert delays\
        \ between messages to simulate staggered broadcasts."