diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2016-07-20 14:12:57 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2016-07-20 21:16:45 +0200 |
| commit | a396003a31afd2c3baa9657669cbbb77460e5cf2 (patch) | |
| tree | 0c06ecd836fe4ea8fec2ca78094cc9bb5da0feb8 /src/Text/Pandoc | |
| parent | e2d59461bbaa5ff41d41b2f0e430e03c12d8d0fd (diff) | |
| download | pandoc-a396003a31afd2c3baa9657669cbbb77460e5cf2.tar.gz | |
Rename README to MANUAL.txt
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Data.hsb | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Data.hsb b/src/Text/Pandoc/Data.hsb index d408bf510..8786647c5 100644 --- a/src/Text/Pandoc/Data.hsb +++ b/src/Text/Pandoc/Data.hsb @@ -12,4 +12,4 @@ dataFiles = map (\(fp, contents) -> (Posix.joinPath (splitDirectories fp), contents)) dataFiles' dataFiles' :: [(FilePath, B.ByteString)] -dataFiles' = ("README", %blob "README") : %blobs "data" +dataFiles' = ("MANUAL.txt", %blob "MANUAL.txt") : %blobs "data" diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index cc834a69a..bd299a802 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -873,7 +873,7 @@ readDefaultDataFile fname = go as x = x : as #else getDataFileName fname' >>= checkExistence >>= BS.readFile - where fname' = if fname == "README" then fname else "data" </> fname + where fname' = if fname == "MANUAL.txt" then fname else "data" </> fname checkExistence :: FilePath -> IO FilePath checkExistence fn = do @@ -1071,7 +1071,7 @@ blocksToInlinesWithSep sep blks = intercalate sep $ map blockToInlines blks blocksToInlines :: [Block] -> [Inline] blocksToInlines = blocksToInlinesWithSep [Space, Str "ΒΆ", Space] - + -- -- Safe read |