Make handleEx total

scotty-web · Mar 9, 2018 · cbb69bf · cbb69bf
1 parent ed34563
commit cbb69bf
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/examples/exceptions.hs b/examples/exceptions.hs
@@ -33,6 +33,9 @@ handleEx Forbidden    = do
 handleEx (NotFound i) = do
     status status404
     html $ fromString $ "<h1>Can't find " ++ show i ++ ".</h1>"
+handleEx (StringEx s) = do
+    status status500
+    html $ fromString $ "<h1>" ++ s ++ "</h1>"
 
 main :: IO ()
 main = scottyT 3000 id $ do -- note, we aren't using any additional transformer layers