concraft-hr 0.1.0.1 → 0.1.0.2

raw patch · 4 files changed

+11/−5 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• concraft-hr.cabal +1/−1
• src/NLP/Concraft/Croatian/Morphosyntax.hs +1/−1
• src/NLP/Concraft/Croatian/Server.hs +1/−1
• tools/concraft-hr.hs +8/−2

@@ -1,5 +1,5 @@ name:               concraft-hr-version:            0.1.0.1+version:            0.1.0.2 synopsis:           Part-of-speech tagger for Croatian description:     A part-of-speech tagger for Croatian based on the concraft library.

@@ -98,7 +98,7 @@ -- the tags. addAnalysis :: X.Sent Word P.Tag -> [S.Set P.Tag] -> X.Sent Word P.Tag addAnalysis = zipWith f-    where f seg tgs = seg { word = (word seg) { oov = M.null unionWP } -- out-of-dictionary if no analysis+    where f seg tgs = seg { word = (word seg) { oov = M.null wtagsMap } -- out-of-dictionary if no analysis                           , tags = X.mkWMap . M.toList $ unionWP}      -- TODO inefficient             where wtagsMap = M.fromList $ zip (S.toList tgs) [0,0..]   -- weighted analysis tags                   ptagsMap = X.unWMap . tags $ seg                     -- previous tags

@@ -12,7 +12,7 @@   import           Control.Applicative ((<$>))-import           Control.Monad (forever, void, mapM_)+import           Control.Monad (forever, void) import           Control.Concurrent (forkIO) import           System.IO (Handle, hFlush) import qualified Network as N

@@ -259,7 +259,10 @@         , onDisk    = disk         , guessNum  = guessNum         , r0        = r0 }-    errMsg = "Please define the path to analyzer or set -noana to true!\n"+    errMsg = "Please define the path to analyzer or set --noana!\n\+             \Without the analyzer it isn't known whether the words \+             \are out-of-dictionary or not, so automatically all are\+             \ marked as out-of-dictionary. This can impact the performance."  exec Tag{..} = do     cft    <- C.loadModel inModel@@ -281,7 +284,10 @@     addTags x = zip x . map (map snd)     -- | Builds a request and adds the body which will be sent to the server.     rq x = R.Request { R.rqBody = x }-    errMsg = "Please define the path to analyzer or set -noana to true!\n"+    errMsg = "Please define the path to analyzer or set --noana!\n\+             \Without the analyzer it isn't known whether the words \+             \are out-of-dictionary or not, so automatically all are\+             \ marked as out-of-dictionary. This can impact the performance."     -- | Depending on the no-analysis and marginals boolean values a proper     -- constructor is chosen. Constructors having an A suffix obviously are     -- used to indicate that additional analysis is needed.