diff --git a/docs/api/index.html b/docs/api/index.html index 625ac94..4731f9b 100644 --- a/docs/api/index.html +++ b/docs/api/index.html @@ -18,7 +18,7 @@ } li { line-height: 2em } -Hell's API

Hell's API

Back to homepage

Types

Terms

$

Async

Bool

ByteString

Concurrent

Directory

Double

Either

Environment

Eq

Error

Exit

Function

IO

Int

Json

Vector

hell:Hell

\ No newline at end of file diff --git a/docs/examples/index.html b/docs/examples/index.html index 34dd793..ac0ccec 100644 --- a/docs/examples/index.html +++ b/docs/examples/index.html @@ -423,12 +423,18 @@

24-exitcode.hell

25-sum-types.hell
data Value = Text Text | Number Int
 
-main = do
-  let printIt = \x ->
-        Text.putStrLn case x of
-          Number i -> Show.show i
-          Text t -> t
-  printIt $ Main.Number 123
-  printIt $ Main.Text "abc"
-  Monad.mapM_ printIt [Main.Number 123,Main.Text "abc"]

+data Rating = Good | Bad | Ugly
+
+main = do
+  let printIt = \x ->
+        Text.putStrLn case x of
+          Number i -> Show.show i
+          Text t -> t
+  printIt $ Main.Number 123
+  printIt $ Main.Text "abc"
+  Monad.mapM_ printIt [Main.Number 123,Main.Text "abc"]
+  Text.putStrLn $ case Main.Good of
+    Good -> "Good!"
+    Bad -> "Bad!"
+    Ugly -> "Ugly!"
\ No newline at end of file