diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-12-30 15:38:48 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-12-30 15:38:48 -0800 |
| commit | 419190213a7e6b07e2ac66f47d53e9f023af757d (patch) | |
| tree | 95c5f30755382dd86b609f3a202e544fbccd6e62 /src/Text/Pandoc/Readers | |
| parent | ee7cef7624c5060fcbabba340d36671065f758e5 (diff) | |
| download | pandoc-419190213a7e6b07e2ac66f47d53e9f023af757d.tar.gz | |
Hlint fixes
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Txt2Tags.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Txt2Tags.hs b/src/Text/Pandoc/Readers/Txt2Tags.hs index 474e4fac0..08083b177 100644 --- a/src/Text/Pandoc/Readers/Txt2Tags.hs +++ b/src/Text/Pandoc/Readers/Txt2Tags.hs @@ -564,7 +564,7 @@ getTarget = do _ -> "html" atStart :: T2T () -atStart = (sourceColumn <$> getPosition) >>= guard . (== 1) +atStart = getPosition >>= guard . (== 1) . sourceColumn ignoreSpacesCap :: T2T Text -> T2T Text ignoreSpacesCap p = T.toLower <$> (spaces *> p <* spaces) |