diff options
author | Albert Krewinkel <albert@zeitkraut.de> | 2017-06-02 23:54:15 +0200 |
---|---|---|
committer | Albert Krewinkel <albert@zeitkraut.de> | 2017-06-03 00:05:20 +0200 |
commit | d55f01c65f0a149b0951d4350293622385cceae9 (patch) | |
tree | e4d80aacb808a2d96cd39513d07379bf485158ec /src/Text/Pandoc/Readers/Org/Shared.hs | |
parent | b61a51ee1551c62558369d9bcdaff32de7f3e2eb (diff) | |
download | pandoc-d55f01c65f0a149b0951d4350293622385cceae9.tar.gz |
Org reader: apply hlint suggestions
Diffstat (limited to 'src/Text/Pandoc/Readers/Org/Shared.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Org/Shared.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Shared.hs b/src/Text/Pandoc/Readers/Org/Shared.hs index d9414319a..952082ec1 100644 --- a/src/Text/Pandoc/Readers/Org/Shared.hs +++ b/src/Text/Pandoc/Readers/Org/Shared.hs @@ -56,7 +56,7 @@ cleanLinkString s = '.':'/':_ -> Just s -- relative path '.':'.':'/':_ -> Just s -- relative path -- Relative path or URL (file schema) - 'f':'i':'l':'e':':':s' -> Just $ if ("//" `isPrefixOf` s') then s else s' + 'f':'i':'l':'e':':':s' -> Just $ if "//" `isPrefixOf` s' then s else s' _ | isUrl s -> Just s -- URL _ -> Nothing where |