mirror of
				https://github.com/TheAnachronism/docspell.git
				synced 2025-11-03 18:00:11 +00:00 
			
		
		
		
	Add french language and upgrade stanford-nlp to 4.0.0
This commit is contained in:
		@@ -10,6 +10,7 @@ module Data.Language exposing
 | 
			
		||||
type Language
 | 
			
		||||
    = German
 | 
			
		||||
    | English
 | 
			
		||||
    | French
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
fromString : String -> Maybe Language
 | 
			
		||||
@@ -20,6 +21,9 @@ fromString str =
 | 
			
		||||
    else if str == "eng" || str == "en" || str == "english" then
 | 
			
		||||
        Just English
 | 
			
		||||
 | 
			
		||||
    else if str == "fra" || str == "fr" || str == "french" then
 | 
			
		||||
        Just French
 | 
			
		||||
 | 
			
		||||
    else
 | 
			
		||||
        Nothing
 | 
			
		||||
 | 
			
		||||
@@ -33,6 +37,9 @@ toIso3 lang =
 | 
			
		||||
        English ->
 | 
			
		||||
            "eng"
 | 
			
		||||
 | 
			
		||||
        French ->
 | 
			
		||||
            "fra"
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
toName : Language -> String
 | 
			
		||||
toName lang =
 | 
			
		||||
@@ -43,7 +50,10 @@ toName lang =
 | 
			
		||||
        English ->
 | 
			
		||||
            "English"
 | 
			
		||||
 | 
			
		||||
        French ->
 | 
			
		||||
            "French"
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
all : List Language
 | 
			
		||||
all =
 | 
			
		||||
    [ German, English ]
 | 
			
		||||
    [ German, English, French ]
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user