Merge pull request #6 from iosphere/feature/support-trailing-columns

Feature/support trailing columns

Author: klaftertief

src/CSV/Import.elm

@@ -87,7 +87,7 @@ allModuleNames lines =
 moduleNameForLine : List String -> Maybe String
 moduleNameForLine columns =
     case columns of
-        [ modulename, _, _, _, _ ] ->
+        modulename :: _ :: _ :: _ :: _ :: xs ->
             Just modulename
 
         _ ->
@@ -102,7 +102,7 @@ linesForModule moduleName lines =
 fromLine : List String -> Maybe Localized.Element
 fromLine columns =
     case columns of
-        [ modulename, key, comment, placeholders, value ] ->
+        modulename :: key :: comment :: placeholders :: value :: xs ->
             Just (code modulename key comment placeholders value)
 
         _ ->

tests/Tests/CSV/Import.elm

@@ -42,9 +42,9 @@ inputCSV : String
 inputCSV =
     CSV.Template.headers
         ++ """
-"Translation.Test","myString","My comment","","Value"
+"Translation.Test","myString","My comment","","Value","IGNORE"
 "Translation.Test","myFormat","","label","Prefix: {{label}}"
-"Translation.Test","myFormatAtBeginning","","label","{{label}} suffix"
+"Translation.Test","myFormatAtBeginning","","label","{{label}} suffix","IGNORE","IGNORE"
 "Translation.Test","myFormatQuoted","","label","Prefix '{{label}}' suffix"
 """