diff --git a/optparse-generic.cabal b/optparse-generic.cabal
--- a/optparse-generic.cabal
+++ b/optparse-generic.cabal
@@ -1,5 +1,5 @@
 Name: optparse-generic
-Version: 1.1.3
+Version: 1.1.4
 Cabal-Version: >=1.8.0.2
 Build-Type: Simple
 License: BSD3
@@ -30,7 +30,9 @@
         optparse-applicative >= 0.11.0  && < 0.14,
         time                 >= 1.5     && < 1.7 ,
         void                               < 0.8 ,
-        bytestring                         < 0.11
+        bytestring                         < 0.11,
+        semigroups           >= 0.5.0   && < 0.19
+
     if impl(ghc < 7.8)
         Build-Depends:
             singletons       >= 0.10.0  && < 1.0 ,
diff --git a/src/Options/Generic.hs b/src/Options/Generic.hs
--- a/src/Options/Generic.hs
+++ b/src/Options/Generic.hs
@@ -235,6 +235,7 @@
 import Control.Monad.IO.Class (MonadIO(..))
 import Data.Char (toLower, toUpper)
 import Data.Monoid
+import Data.List.NonEmpty (NonEmpty((:|)))
 import Data.Proxy
 import Data.Text (Text)
 import Data.Typeable (Typeable)
@@ -476,6 +477,9 @@
 instance ParseField a => ParseFields [a] where
     parseFields = parseListOfField
 
+instance ParseField a => ParseFields (NonEmpty a) where
+    parseFields h m = (:|) <$> parseField h m <*> parseListOfField h m
+
 {-| Use this to annotate a field with a type-level string (i.e. a `Symbol`)
     representing the help description for that field:
 
@@ -589,6 +593,9 @@
 instance ParseField a => ParseRecord [a] where
     parseRecord = fmap getOnly parseRecord
 
+instance ParseField a => ParseRecord (NonEmpty a) where
+    parseRecord = fmap getOnly parseRecord
+
 instance (ParseFields a, ParseFields b) => ParseRecord (a, b)
 instance (ParseFields a, ParseFields b, ParseFields c) => ParseRecord (a, b, c)
 instance (ParseFields a, ParseFields b, ParseFields c, ParseFields d) => ParseRecord (a, b, c, d)
@@ -776,8 +783,12 @@
     => Text
     -- ^ Program description
     -> io a
-getRecord desc = liftIO (Options.execParser info)
+getRecord desc = liftIO (Options.customExecParser prefs info)
   where
+    prefs = Options.defaultPrefs
+        { Options.prefMultiSuffix = "..."
+        }
+
     header = Options.header (Data.Text.unpack desc)
 
     info = Options.info parseRecord header
@@ -799,7 +810,7 @@
     -> Maybe a
 getRecordPure args = do
     let prefs = Options.ParserPrefs
-            { prefMultiSuffix     = ""
+            { prefMultiSuffix     = "..."
             , prefDisambiguate    = False
             , prefShowHelpOnError = False
             , prefBacktrack       = True