diff options
Diffstat (limited to 'fig-web/src')
| -rw-r--r-- | fig-web/src/Fig/Web/Module/Debt.hs | 2 | ||||
| -rw-r--r-- | fig-web/src/Fig/Web/Public.hs | 1 |
2 files changed, 1 insertions, 2 deletions
diff --git a/fig-web/src/Fig/Web/Module/Debt.hs b/fig-web/src/Fig/Web/Module/Debt.hs index b438832..31731b9 100644 --- a/fig-web/src/Fig/Web/Module/Debt.hs +++ b/fig-web/src/Fig/Web/Module/Debt.hs @@ -14,8 +14,6 @@ import qualified Fig.Web.DB as DB public :: PublicModule public a = do - onGet "/debt" $ respondBytes =<< liftIO (BS.readFile "/home/llll/src/debtclock/index.html") - onGet "/debtclonk.png" $ respondBytes =<< liftIO (BS.readFile "/home/llll/src/debtclock/debtclonk.png") onGet "/api/debt" do debts <- DB.hgetall a.db "debt" respondJSON diff --git a/fig-web/src/Fig/Web/Public.hs b/fig-web/src/Fig/Web/Public.hs index 297dac1..89602bb 100644 --- a/fig-web/src/Fig/Web/Public.hs +++ b/fig-web/src/Fig/Web/Public.hs @@ -64,6 +64,7 @@ app args = do [ ("register", "register.html") , ("gizmo", "gizmo.html") , ("advent", "advent.html") + , ("debt", "debtclock.html") , ("main.css", "main.css") , ("main.js", "main.js") ] Wai.Static.<|> Wai.Static.hasPrefix "assets" |