diff --git a/docs/api/index.html b/docs/api/index.html
index e67dbba..191b576 100644
--- a/docs/api/index.html
+++ b/docs/api/index.html
@@ -1,4 +1,4 @@
-Hell's API
Back to homepage
Types
data Bool :: *data ByteString :: *data Char :: *data ConsL :: Symbol -> * -> List -> Listdata Double :: *data Either :: * -> * -> *data ExitCode :: *data IO :: * -> *data Int :: *data Map :: * -> * -> *data Maybe :: * -> *data NilL :: Listdata ProcessConfig :: * -> * -> * -> *data Record :: List -> *data Set :: * -> *data Tagged :: Symbol -> * -> *data Text :: *data Value :: *data Vector :: * -> *
Terms
$ :: forall a_0 b_1 . (a_0 -> b_1) -> a_0 -> b_1
. :: forall a_0 b_1 c_2 . (b_1 -> c_2) -> (a_0 -> b_1) -> a_0 -> c_2
Async.concurrently :: forall a_0 b_1 .
+Hell's APIHell's API
Back to homepage
Types
data Bool :: *data ByteString :: *data Char :: *data ConsL :: Symbol -> * -> List -> Listdata Double :: *data Either :: * -> * -> *data ExitCode :: *data IO :: * -> *data Int :: *data Map :: * -> * -> *data Maybe :: * -> *data NilL :: Listdata ProcessConfig :: * -> * -> * -> *data Record :: List -> *data Set :: * -> *data Tagged :: Symbol -> * -> *data Text :: *data Value :: *data Vector :: * -> *
Terms
$ :: forall a_0 b_1 . (a_0 -> b_1) -> a_0 -> b_1
. :: forall a_0 b_1 c_2 . (b_1 -> c_2) -> (a_0 -> b_1) -> a_0 -> c_2
Async.concurrently :: forall a_0 b_1 .
GHC.Types.IO a_0 -> GHC.Types.IO b_1 -> GHC.Types.IO (a_0, b_1)Async.pooledForConcurrently :: forall a_0 b_1 .
[a_0] -> (a_0 -> GHC.Types.IO b_1) -> GHC.Types.IO ([b_1])Async.pooledForConcurrently_ :: forall a_0 . [a_0] -> (a_0 -> GHC.Types.IO ()) -> GHC.Types.IO ()Async.pooledMapConcurrently :: forall a_0 b_1 .
(a_0 -> GHC.Types.IO b_1) -> [a_0] -> GHC.Types.IO ([b_1])Async.pooledMapConcurrently_ :: forall a_0 . (a_0 -> GHC.Types.IO ()) -> [a_0] -> GHC.Types.IO ()Async.race :: forall a_0 b_1 .
diff --git a/src/Hell.hs b/src/Hell.hs
index eff1d71..d8540d9 100644
--- a/src/Hell.hs
+++ b/src/Hell.hs
@@ -1691,6 +1691,8 @@ _generateApiDocs = do
Lucid.renderToFile "docs/api/index.html" do
doctypehtml_ do
style_ "body {max-width: 40em; margin: .5in auto;} h1,h2,h3,h4,h5,h6 {font-family: Helvetica;} a {color: #1a6e8e}"
+ head_ do
+ title_ "Hell's API"
body_ do
h1_ "Hell's API"
p_ $ a_ [href_ "../"] $ "Back to homepage"