-- Command line parser
params :: Parser Params
params = Params
     <$> strOption
         ( long "time"
        <> metavar "<Y | M | D | H>"
        <> help "Resampling resolution." )
     <*> argument str (metavar "FILE")
params :: Parser Params
params = Params
     <$> strOption
         ( long "time"
        <> metavar "<Y | M | D | H>"
        <> help "Resampling resolution." )
     <*> argument str (metavar "FILE")
params = Params
     <$> strOption
         ( long "time"
        <> metavar "<Y | M | D | H>"
        <> help "Resampling resolution." )
     <*> argument str (metavar "FILE")