miniutter 0.4.4.1 → 0.4.4.2

raw patch · 3 files changed

+10/−8 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• LICENSE +1/−1
• NLP/Miniutter/English.hs +8/−6
• miniutter.cabal +1/−1

@@ -1,4 +1,4 @@-Copyright (c) 2013, Mikolaj Konarski+Copyright (c) 2015, Mikolaj Konarski  All rights reserved. 

@@ -1,4 +1,4 @@-{-# LANGUAGE DeriveGeneric, OverloadedStrings #-}+{-# LANGUAGE CPP, DeriveGeneric, OverloadedStrings #-} {-# OPTIONS_GHC -fno-warn-orphans #-} -- | Simple English clause creation parameterized by individual words. module NLP.Miniutter.English@@ -75,9 +75,11 @@  instance Binary Polarity +#if !MIN_VERSION_text(1,2,1) instance Binary Text where    put = put . encodeUtf8    get = decodeUtf8 `fmap` get+#endif  -- | Nouns with irregular plural form and nouns with irregular indefinite -- article.@@ -106,7 +108,7 @@   Text t -> t   Cardinal n -> cardinal n   Ws p -> onLastWord (makePlural irr) (mkPart p)-  CarWs 1 p -> mkPart (AW p)+  CarWs 1 p -> mkPart (AW p)  -- TOOD: a variant without 'a'   CarWs n p -> T.pack (show n) <+> onLastWord (makePlural irr) (mkPart p)   CardinalWs 1 p -> mkPart (AW p)   CardinalWs n p -> cardinal n <+> onLastWord (makePlural irr) (mkPart p)@@ -127,19 +129,19 @@   Capitalize p -> capitalize $ mkPart p   SubjectVerb defaultPerson Yes s v ->     subjectVerb defaultPerson (mkPart s) (mkPart v)-  SubjectVerb defaultPerson No s v  ->+  SubjectVerb defaultPerson No s v ->     notSubjectVerb defaultPerson (mkPart s) (mkPart v)   SubjectVerb defaultPerson Why s v ->     qSubjectVerb defaultPerson (mkPart s) (mkPart v)-  SubjectVerbSg s v          ->+  SubjectVerbSg s v ->     subjectVerb Sg3rd (mkPart s) (mkPart v)   SubjectVVxV x defaultPerson Yes s vs ->     subjectVVxV (mkPart x) defaultPerson (mkPart s) (makeParts irr vs)-  SubjectVVxV x defaultPerson No s vs  ->+  SubjectVVxV x defaultPerson No s vs ->     notSubjectVVxV (mkPart x) defaultPerson (mkPart s) (makeParts irr vs)   SubjectVVxV x defaultPerson Why s vs ->     qSubjectVVxV (mkPart x) defaultPerson (mkPart s) (makeParts irr vs)-  SubjectVVandVSg s vs          ->+  SubjectVVandVSg s vs ->     subjectVVxV "and" Sg3rd (mkPart s) (makeParts irr vs)  where   mkPart = makePart irr

@@ -5,7 +5,7 @@ -- PVP summary: +-+------- breaking API changes --              | | +----- non-breaking API additions --              | | | +--- code changes with no API change-version:        0.4.4.1+version:        0.4.4.2 synopsis:      Simple English clause creation from arbitrary words description:   This library helps in generating simple present tense                English sentences from short, parametrized descriptions.