diff options
| author | Ben Sima <ben@bsima.me> | 2019-09-05 21:42:46 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2019-09-05 21:42:46 -0700 |
| commit | 752dcc5e1b04c507c67485c137b7ece2208e6f42 (patch) | |
| tree | 543525e838ea2c90eac27aa27f71e62b059a9d6b /lore/Biz/Ibb/Core.hs | |
| parent | 291a40f56ccc937a1f0c6735efb795e28c5c360b (diff) | |
[ibb] implement first api route
Diffstat (limited to 'lore/Biz/Ibb/Core.hs')
| -rw-r--r-- | lore/Biz/Ibb/Core.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lore/Biz/Ibb/Core.hs b/lore/Biz/Ibb/Core.hs index 9ffa966..5d8f805 100644 --- a/lore/Biz/Ibb/Core.hs +++ b/lore/Biz/Ibb/Core.hs @@ -49,7 +49,7 @@ instance ToJSON Book -- * app data types -type Routes = Home +type AppRoutes = Home type Home = View Action @@ -82,7 +82,7 @@ notfound = div_ [] [ text "404" ] goHome :: URI goHome = linkURI $ safeLink - (Proxy :: Proxy Routes) + (Proxy :: Proxy AppRoutes) (Proxy :: Proxy Home) see :: Model -> View Action |