diff options
| author | Case Duckworth | 2015-04-01 16:30:23 -0700 |
|---|---|---|
| committer | Case Duckworth | 2015-04-01 16:30:23 -0700 |
| commit | 9997ca307cd3a89f332988c8d5f351c06054e98e (patch) | |
| tree | f2f9ff83c382df72672e6fcd955585714f851b76 | |
| parent | Revise a few poems in Elegies (diff) | |
| parent | Fix spacing issue in versify.hs l.15 (diff) | |
| download | autocento-9997ca307cd3a89f332988c8d5f351c06054e98e.tar.gz autocento-9997ca307cd3a89f332988c8d5f351c06054e98e.zip | |
Merge branch 'gh-pages' of https://github.com/duckwork/autocento into gh-pages
| -rw-r--r-- | trunk/versify.hs | 2 |
1 files changed, 1 insertions, 1 deletions
| diff --git a/trunk/versify.hs b/trunk/versify.hs index def041c..48e9c00 100644 --- a/trunk/versify.hs +++ b/trunk/versify.hs | |||
| @@ -12,4 +12,4 @@ transformVerseParas x = x | |||
| 12 | 12 | ||
| 13 | addLineSpans :: [Inline] -> [Inline] | 13 | addLineSpans :: [Inline] -> [Inline] |
| 14 | addLineSpans = map encloseInSpan . splitWhen (== LineBreak) | 14 | addLineSpans = map encloseInSpan . splitWhen (== LineBreak) |
| 15 | where encloseInSpan = Span("", ["line"], []) | 15 | where encloseInSpan = Span ("", ["line"], []) |