diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-21 02:57:06 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-21 02:57:06 +0300 |
| commit | fedf1f213fec089736fce041bb344f86a403c5cb (patch) | |
| tree | bf4880c6897a59ed0990a867f427d5ba8ede7c34 | |
| parent | 37c6f6adfe5f292bccd42046842e5cb2cc7484d0 (diff) | |
| download | pandoc-fedf1f213fec089736fce041bb344f86a403c5cb.tar.gz | |
Muse reader: simplify lchop
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index a0069827a..a749b87b8 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -145,9 +145,8 @@ commonPrefix (x:xs) (y:ys) -- | Trim up to one newline from the beginning of the string. lchop :: String -> String -lchop s = case s of - '\n':ss -> ss - _ -> s +lchop ('\n':xs) = xs +lchop s = s -- | Trim up to one newline from the end of the string. rchop :: String -> String |