1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
-- | Text utility functions.
module NLP.Minimorph.Util
( (<+>), tshow )
where
#if !(MIN_VERSION_base(4,11,0))
-- this is redundant starting with base-4.11 / GHC 8.4
import Data.Semigroup
#endif
import qualified Data.Char as Char
import Data.Text (Text)
import qualified Data.Text as T
infixr 6 <+> -- matches Monoid.<>
-- | Separated by space unless one of them is empty (in which case just
-- the non-empty one) or the first ends or the last begins with whitespace.
(<+>) :: Text -> Text -> Text
t1 <+> t2 | T.null t1 = t2
| T.null t2 = t1
| Char.isSpace (T.last t1) || Char.isSpace (T.head t2) = t1 <> t2
| otherwise = t1 <> " " <> t2
-- | Show a value in `Text` format.
tshow :: Show a => a -> Text
tshow = T.pack . show
|
