Use strict readFile
This commit is contained in:
parent
486ab5fadc
commit
78bb56f345
1 changed files with 1 additions and 1 deletions
|
@ -20,7 +20,7 @@ getMarkdown :: FilePath -> IO Html
|
||||||
getMarkdown name =
|
getMarkdown name =
|
||||||
do exists <- doesFileExist fp
|
do exists <- doesFileExist fp
|
||||||
if exists
|
if exists
|
||||||
then do text <- fmap L.toLazy (ST.readFile fp)
|
then do text <- fmap L.fromStrict (ST.readFile fp)
|
||||||
let !html = markdown def text
|
let !html = markdown def text
|
||||||
return html
|
return html
|
||||||
else throw (MarkdownFileUnavailable name)
|
else throw (MarkdownFileUnavailable name)
|
||||||
|
|
Loading…
Reference in a new issue