Skip to content

Instantly share code, notes, and snippets.

@FrozenCow

FrozenCow/gist:136f13b0bf9376ffdc1b

Created June 9, 2014 12:22
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save FrozenCow/136f13b0bf9376ffdc1b to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save FrozenCow/136f13b0bf9376ffdc1b to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. FrozenCow revised this gist Jun 9, 2014. No changes.
  2. FrozenCow created this gist Jun 9, 2014.
    6 changes: 6 additions & 0 deletions gistfile1.hs
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,6 @@
    main = httpServe config site
    where
    config = setErrorHandler handleError defaultConfig
    handleError exception = liftIO $ do
    hPutStr stderr "Error: "
    hPrint stderr $ exception