{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE Safe #-}

-- | List newtype wrapper that can be pattern matched against for parsing.
module Text.LambdaOptions.Parseable.List (
    List(..),
) where

import           Data.Data
                  ( Data, Typeable )
import           Text.LambdaOptions.Parseable
                  ( Parseable(parse) )

--------------------------------------------------------------------------------

internalError :: a
internalError = error "InternalError: Text.LambdaOptions.List"

--------------------------------------------------------------------------------

-- | A simple wrapper over @[a]@.
-- Used to avoid overlapping instances for @Parseable [a]@ and @Parseable String@.
newtype List a = List
  { unList :: [a]
  } deriving (Typeable, Data, Show, Read, Eq, Ord)

-- | Greedily parses arguments item-wise. Never fails.
--
-- Example:
-- @parse (words "5 67 NaN") == (Just (List [5,67]), 2)@
instance (Parseable a) => Parseable (List a) where
  parse args = case parse args of
    (Just mx, n) -> case mx of
      Just x -> let
        rest = drop n args
        in case parse rest of
          (Just (List xs), n') -> (Just $ List $ x : xs, n + n')
          (Nothing, _) -> internalError
      Nothing -> (Just $ List [], n)
    (Nothing, _) -> internalError