1 files changed, 0 insertions, 15 deletions
diff --git a/trunk/versify.hs b/trunk/versify.hs
deleted file mode 100644
index 48e9c00..0000000
--- a/trunk/versify.hs
+++ /dev/null

@@ -1,15 +0,0 @@
-import Text.Pandoc.JSON
-import Data.List.Split
-main :: IO ()
-main = toJSONFilter transformVerseParas
-transformVerseParas :: Block -> Block
-transformVerseParas (Para xs)
-    | LineBreak `elem` xs = Para (addLineSpans xs)
-    | otherwise = Para xs
-transformVerseParas x = x
-addLineSpans :: [Inline] -> [Inline]
-addLineSpans = map encloseInSpan . splitWhen (== LineBreak)
-    where encloseInSpan = Span ("", ["line"], [])

diff --git a/trunk/versify.hs b/trunk/versify.hs deleted file mode 100644 index 48e9c00..0000000 --- a/trunk/versify.hs +++ /dev/null
@@ -1,15 +0,0 @@
1	import Text.Pandoc.JSON
2	import Data.List.Split
3
4	main :: IO ()
5	main = toJSONFilter transformVerseParas
6
7	transformVerseParas :: Block -> Block
8	transformVerseParas (Para xs)
9	\| LineBreak `elem` xs = Para (addLineSpans xs)
10	\| otherwise = Para xs
11	transformVerseParas x = x
12
13	addLineSpans :: [Inline] -> [Inline]
14	addLineSpans = map encloseInSpan . splitWhen (== LineBreak)
15	where encloseInSpan = Span ("", ["line"], [])