geni-gui 0.24 → 0.24.1

raw patch · 2 files changed

+6/−6 lines, 2 filesdep −split

Dependencies removed: split

Files

• geni-gui.cabal +1/−2
• src/NLP/GenI/GraphvizShow.hs +5/−4

@@ -1,5 +1,5 @@ Name:           geni-gui-Version:        0.24+Version:        0.24.1 License:        GPL License-file:   LICENSE Author:         Carlos Areces and Eric Kow@@ -42,7 +42,6 @@                , json                , mtl                , process-               , split                , transformers                , wx       >= 0.12                , wxcore

@@ -216,7 +216,8 @@     idxB = getIdx gdown     idx  = tackOn "." idxT idxB     ---    lexeme  = TL.intercalate "!" [ TL.fromChunks [n] | n <- glexeme gn ]+    lexeme  = TL.intercalate "!" $ filter (/= cat)+        [ TL.fromChunks [n] | n <- getLexeme gn ]  getGnVal :: (GNode GeniVal -> Flist GeniVal)          -> T.Text@@ -225,10 +226,10 @@ getGnVal getFeat attr gn =     listToMaybe [ v | AvPair a v <- getFeat gn, a == attr ] --- | @x `tackOn p` y@` is @TL.concat [x, p, y]@ if @y@ is not null---   otherwise is just x+-- | @x `tackOn p` y@` is @TL.concat [x, p, y]@ if @y@ is neither null+--   nor identical to @x@.  Otherwise it is just @x@ tackOn :: TL.Text -> TL.Text -> TL.Text -> TL.Text-tackOn p x y = if TL.null y then x else TL.concat [ x, p, y ]+tackOn p x y = if TL.null y || x == y then x else TL.concat [ x, p, y ]  graphvizShow_ :: GraphvizShowString a => a -> TL.Text graphvizShow_ = graphvizShow