diff --git a/CODE_OF_CONDUCT.md b/CODE_OF_CONDUCT.md index 3c71ff07..55203be7 100644 --- a/CODE_OF_CONDUCT.md +++ b/CODE_OF_CONDUCT.md @@ -1,3 +1,3 @@ # Code of Conduct -Facebook has adopted a Code of Conduct that we expect project participants to adhere to. Please [read the full text](https://code.facebook.com/pages/876921332402685/open-source-code-of-conduct) so that you can understand what actions will and will not be tolerated. \ No newline at end of file +Facebook has adopted a Code of Conduct that we expect project participants to adhere to. Please [read the full text](https://code.facebook.com/pages/876921332402685/open-source-code-of-conduct) so that you can understand what actions will and will not be tolerated. diff --git a/Duckling/Ordinal/MN/Corpus.hs b/Duckling/Ordinal/MN/Corpus.hs index 2b59c3e0..6bab9451 100644 --- a/Duckling/Ordinal/MN/Corpus.hs +++ b/Duckling/Ordinal/MN/Corpus.hs @@ -50,7 +50,7 @@ allExamples = concat [ "31-р" ] , examples (OrdinalData 48) - [ + [ "48-р" ] , examples (OrdinalData 99) diff --git a/Duckling/PhoneNumber/AR/Rules.hs b/Duckling/PhoneNumber/AR/Rules.hs index b5bd3212..a9ee679c 100644 --- a/Duckling/PhoneNumber/AR/Rules.hs +++ b/Duckling/PhoneNumber/AR/Rules.hs @@ -27,7 +27,7 @@ rulePhoneNumber :: Rule rulePhoneNumber = Rule { name = "phone number" , pattern = - -- Arabic is a right to left langauge except for numbers, which are read + -- Arabic is a right to left language except for numbers, which are read -- left to right. This regex uses the unicode range for Arabic numbers -- [\1632-\1641] to make the code easier to read and maintain. The unicode -- sequence \1601\1585\1593\1610, corresponding to فرعي, is a popular diff --git a/Duckling/Temperature/MN/Corpus.hs b/Duckling/Temperature/MN/Corpus.hs index 4531e25a..77270017 100644 --- a/Duckling/Temperature/MN/Corpus.hs +++ b/Duckling/Temperature/MN/Corpus.hs @@ -8,7 +8,7 @@ {-# LANGUAGE OverloadedStrings #-} module Duckling.Temperature.MN.Corpus - ( corpus + ( corpus ) where import Prelude diff --git a/Duckling/Time/CA/Rules.hs b/Duckling/Time/CA/Rules.hs index 95c8146d..a4357e46 100644 --- a/Duckling/Time/CA/Rules.hs +++ b/Duckling/Time/CA/Rules.hs @@ -1460,7 +1460,7 @@ rulePeriodicHolidays = mkRuleHolidays , ( "Dia Internacional de l'Record del Tràfic d'Esclaus i la seva Abolició", "dia internacional de l'record del tr(à|a)fic d'esclaus i de la seva abolici(ó|o)", monthDay 8 23 ) , ( "Dia Internacional del Derecho a la Verdad en relación con Violaciones Graves de los Derechos Humanos y de la Dignidad de las Víctimas de las Naciones Unidas", "dia internacional del derecho a la verdad en relaci(ó|o)n con violaciones graves de los derechos humanos y de la dignidad de las v(í|i)ctimas de las naciones unidas", monthDay 3 24 ) , ( "Dia Internacional per a l'Eliminació Total de les Armes Nuclears", "dia internacional per a l'eliminaci(ó|o) total de les armes nuclears", monthDay 9 26 ) - , ( "Dia Internacional de les Nacions Unides a Suport de les Víctimes de la Tortura", "dia internacional de les Nacions Unides en suport de les v(í|i)ctimes de la tortura", monthDay 6 26 ) + , ( "Dia Internacional de les Nacions Unides a Support de les Víctimes de la Tortura", "dia internacional de les Nacions Unides en support de les v(í|i)ctimes de la tortura", monthDay 6 26 ) , ( "Dia Internacional de la Beneficència", "dia internacional de la benefic(è|e)ncia", monthDay 9 5 ) , ( "Dia Internacional de Commemoració anual en memòria de les Víctimes de l'Holocaust", "dia internacional de commemoraci(ó|o) anual en mem(ò|o)ria de les v(í|i)ctimes de l'holocaust", monthDay 1 27 ) , ( "Dia Internacional de la Democràcia", "dia (internacional)?de la democr(à|a)cia", monthDay 9 15 ) diff --git a/Duckling/Types/Document.hs b/Duckling/Types/Document.hs index 5d223549..ed0cd758 100644 --- a/Duckling/Types/Document.hs +++ b/Duckling/Types/Document.hs @@ -142,7 +142,7 @@ isRangeValid = \case (start == end - 2 && isArabicProclitic2 (doc ! start) (doc ! (start + 1)) && (start == 0 || isDifferent (doc ! (start - 1)) (doc ! start))) || - -- Is preceeded by proclitic + -- Is preceded by proclitic (start /= 0 && isArabicProclitic (doc ! (start - 1)) && (end == length doc || isDifferent (doc ! (end - 1)) (doc ! (end)))) || diff --git a/Duckling/Volume/MN/Rules.hs b/Duckling/Volume/MN/Rules.hs index 5b53282d..0f9acb68 100644 --- a/Duckling/Volume/MN/Rules.hs +++ b/Duckling/Volume/MN/Rules.hs @@ -45,7 +45,6 @@ rulesVolumes = map go volumes } rules :: [Rule] -rules = [ +rules = [ ] ++ rulesVolumes - diff --git a/exe/CustomDimensionExample.hs b/exe/CustomDimensionExample.hs index e38faf49..49404d08 100644 --- a/exe/CustomDimensionExample.hs +++ b/exe/CustomDimensionExample.hs @@ -14,7 +14,7 @@ {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeFamilies #-} -module Main (main) where +module CustomDimensionExample (main) where import Control.DeepSeq import Control.Monad diff --git a/exe/DucklingExpensive.hs b/exe/DucklingExpensive.hs index 7d34f636..840b3385 100644 --- a/exe/DucklingExpensive.hs +++ b/exe/DucklingExpensive.hs @@ -8,7 +8,7 @@ {-# LANGUAGE ScopedTypeVariables #-} {-# OPTIONS -fno-full-laziness #-} -module Main (main) where +module DucklingExpensive (main) where import Control.Monad import System.Environment diff --git a/exe/DucklingRequestSample.hs b/exe/DucklingRequestSample.hs index 0baf7eb6..b54dfc71 100644 --- a/exe/DucklingRequestSample.hs +++ b/exe/DucklingRequestSample.hs @@ -8,7 +8,7 @@ {-# LANGUAGE ScopedTypeVariables #-} {-# OPTIONS -fno-full-laziness #-} -module Main (main) where +module DucklingRequestSample (main) where import Control.Monad import System.Environment diff --git a/exe/ExampleMain.hs b/exe/ExampleMain.hs index 1630b526..8cd88237 100644 --- a/exe/ExampleMain.hs +++ b/exe/ExampleMain.hs @@ -9,6 +9,8 @@ {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TypeApplications #-} +module ExampleMain where + import Control.Applicative hiding (empty) import Control.Arrow ((***)) import Control.Exception (SomeException, catch) diff --git a/exe/RegenMain.hs b/exe/RegenMain.hs index 96c8ea94..4ad64d28 100644 --- a/exe/RegenMain.hs +++ b/exe/RegenMain.hs @@ -5,6 +5,8 @@ -- LICENSE file in the root directory of this source tree. +module RegenMain where + import Prelude import Duckling.Ranking.Generate diff --git a/tests/Duckling/Volume/ZH/Tests.hs b/tests/Duckling/Volume/ZH/Tests.hs index 3c6ddea2..6c528d88 100644 --- a/tests/Duckling/Volume/ZH/Tests.hs +++ b/tests/Duckling/Volume/ZH/Tests.hs @@ -1,4 +1,3 @@ - -- Copyright (c) 2016-present, Facebook, Inc. -- All rights reserved. --