Text between: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,076: / Line 1,076: @@
 samples :: [Text]
 samples =
-  pack
+  fmap
+    pack
-    <$> [ "Hello Rosetta Code world",
+    [ "Hello Rosetta Code world",
-          "</div><div style=\"chinese\">你好吗</div>",
-          "<text>Hello <span>Rosetta Code</span> world"
+      "</div><div style=\"chinese\">你好吗</div>",
-            <> "</text><table style=\"myTable\">",
+      "<text>Hello <span>Rosetta Code</span> world"
-          "<table style=\"myTable\"><tr><td>"
+        <> "</text><table style=\"myTable\">",
-            <> "hello world</td></tr></table>"
+      "<table style=\"myTable\"><tr><td>"
+        <> "hello world</td></tr></table>"
-        ]
+    ]
 delims :: [(Either String Text, Either String Text)]
 delims =
+  fmap
-  join bimap wrap
-    <$> [ ("Hello ", " world"),
+    (join bimap wrap)
-          ("start", " world"),
+    [ ("Hello ", " world"),
-          ("Hello", "end"),
+      ("start", " world"),
-          ("<div style=\"chinese\">", "</div>"),
+      ("Hello", "end"),
-          ("<text>", "<table>"),
+      ("<div style=\"chinese\">", "</div>"),
-          ("<text>", "</table>")
+      ("<text>", "<table>"),
-        ]
+      ("<text>", "</table>")
+    ]
 wrap :: String -> Either String Text