Jack/rcv-site
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

update README and comments

Browse source
This commit is contained in:
Jack Wines 2023-06-16 19:35:53 -07:00
parent bcf48bf622
commit c4c0bf48f1
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
README.md
View file

@ -4,9 +4,9 @@ To run:
* install [Haskell](https://www.haskell.org/ghcup/) * install [Haskell](https://www.haskell.org/ghcup/)
``` sh ``` sh
# assuming you manage ghc with ghcup # assuming you manage ghc with ghcup
# if not, set ghc 9.4.5 by other means # if not, set ghc 9.6.1 by other means
ghcup install ghc 9.4.5 ghcup install ghc 9.6.1
ghcup set ghc 9.4.5 ghcup set ghc 9.6.1
cabal run rcv-site cabal run rcv-site
``` ```

5
src/Main.hs
View file

@ -215,7 +215,10 @@ convertMarkdown path = do
Left err -> liftIO . fail . show $ err Left err -> liftIO . fail . show $ err
Right (rst :: C.Html ()) -> pure . TL.toStrict . C.renderHtml $ rst Right (rst :: C.Html ()) -> pure . TL.toStrict . C.renderHtml $ rst
emptyApp _ respond = respond $ NW.responseLBS TS.status200 [] "redirecting to https"
-- we need a WAI application for the redirect middleware to act on
emptyApp :: p -> (NW.Response -> b) -> b
emptyApp _ respondf = respondf $ NW.responseLBS TS.status200 [] "redirecting to https"
main :: IO () main :: IO ()
main = do main = do