Whoops

4 files changed, 6 insertions, 3 deletions

diff --git a/fig-web/src/Fig/Web/Module/Misc.hs b/fig-web/src/Fig/Web/Module/Misc.hs
index b193314..d16df6c 100644
--- a/fig-web/src/Fig/Web/Module/Misc.hs
+++ b/fig-web/src/Fig/Web/Module/Misc.hs
@@ -15,6 +15,7 @@ import qualified Fig.Web.DB as DB
 public :: Module
 public a = do
   onGet "/api/motd" do
+    log "getting motd"
     DB.get a.db "motd" >>= \case
       Nothing -> respondText ""
       Just val -> respondText $ decodeUtf8 val
diff --git a/fig-web/src/Fig/Web/Module/Redeem.hs b/fig-web/src/Fig/Web/Module/Redeem.hs
index de66d8b..2d72f66 100644
--- a/fig-web/src/Fig/Web/Module/Redeem.hs
+++ b/fig-web/src/Fig/Web/Module/Redeem.hs
@@ -12,6 +12,8 @@ import Fig.Web.Types
 
 secure :: Module
 secure a = do
+  onGet "/api/redeeminfo" do
+    respondText "hiiiiiii"
   onPost "/api/redeem" $ authed \creds -> do
     name <- formParam "name"
     input <- formParamMaybe "input"
diff --git a/fig-web/src/Fig/Web/Secure.hs b/fig-web/src/Fig/Web/Secure.hs
index 22135f5..b47c019 100644
--- a/fig-web/src/Fig/Web/Secure.hs
+++ b/fig-web/src/Fig/Web/Secure.hs
@@ -15,7 +15,7 @@ import Fig.Web.Types
 import Fig.Web.Utils
 import qualified Fig.Web.DB as DB
 import qualified Fig.Web.Module.Exchange as Exchange
-import qualified Fig.Web.Module.Exchange as Redeem
+import qualified Fig.Web.Module.Redeem as Redeem
 
 allBusEvents :: ModuleArgs -> BusEventHandlers
 allBusEvents args = busEvents . mconcat $ fmap ($ args)
diff --git a/fig-web/src/Fig/Web/Utils.hs b/fig-web/src/Fig/Web/Utils.hs
index 8875529..ee7fdf7 100644
--- a/fig-web/src/Fig/Web/Utils.hs
+++ b/fig-web/src/Fig/Web/Utils.hs
@@ -116,10 +116,10 @@ onPost :: Sc.RoutePattern -> Sc.ActionM () -> Sc.ScottyM ()
 onPost = Sc.post
 
 onPut :: Sc.RoutePattern -> Sc.ActionM () -> Sc.ScottyM ()
-onPut = Sc.post
+onPut = Sc.put
 
 onDelete :: Sc.RoutePattern -> Sc.ActionM () -> Sc.ScottyM ()
-onDelete = Sc.post
+onDelete = Sc.delete
 
 status :: Status -> Sc.ActionM ()
 status = Sc.status