concraft-hr 0.1.0.0 → 0.1.0.1

raw patch · 2 files changed

+5/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• concraft-hr.cabal +1/−1
• tools/concraft-hr.hs +4/−2

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

@@ -227,7 +227,8 @@             Nothing -> return []             Just x  -> parseTrain tset x     let alyzer = fmap A.load inAnalyzer-    analyzer <- fromMaybe (if noAna then undefined else error errMsg) alyzer+    let ean    = A.create tset A.emptyConf []  -- dirty `undefined` bugfix+    analyzer <- fromMaybe (if noAna then return ean else error errMsg) alyzer     let af = analyze $ A.getTags analyzer -- analysis function     let train1 = if noAna then train0 else map af <$> train0     let eval1  = if noAna then eval0  else map af <$> eval0@@ -263,7 +264,8 @@ exec Tag{..} = do     cft    <- C.loadModel inModel     let alyzer = fmap A.load inAnalyzer-    analyzer <- fromMaybe (if noAna then undefined else error errMsg) alyzer+    let ean    = A.create (tagset cft) A.emptyConf [] -- dirty `undefined` bugfix+    analyzer <- fromMaybe (if noAna then return ean else error errMsg) alyzer     let tset = tagset cft     inp <- parseContent tset <$> L.getContents     out <- R.short analyzer cft $ rq $ buildReq inp