diff --git a/breve.cabal b/breve.cabal
--- a/breve.cabal
+++ b/breve.cabal
@@ -1,5 +1,5 @@
name: breve
-version: 0.1.1.0
+version: 0.2.0.0
synopsis: a url shortener
description:
diff --git a/src/Application.hs b/src/Application.hs
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -44,12 +44,25 @@
respond $ redirectTo (BS.pack url)
Nothing -> respond notFound
- post "/short" $ do
- form <- fmap fst parseForm
+ post "/" $ do
+ form <- fst <$> parseForm
case lookup "url" form of
+ Nothing -> respond badRequest
Just url' -> do
let url = BS.unpack url'
name <- liftIO (insert table url)
logStr (printf "Registered %s -> %s " url name)
render done $ object ["link" .= (bindUrl ++ name)]
- Nothing -> respond badRequest
+
+ post "/api" $ do
+ form <- fst <$> parseForm
+ case lookup "url" form of
+ Nothing -> respond badRequest
+ Just url' -> do
+ let url = BS.unpack url'
+ name <- liftIO (insert table url)
+ logStr (printf "Registered %s -> %s " url name)
+ let json = object [ "link" .= (bindUrl ++ name)
+ , "name" .= name
+ , "original" .= url ]
+ respond $ okHtml (encode json)
diff --git a/static/main.html b/static/main.html
--- a/static/main.html
+++ b/static/main.html
@@ -8,8 +8,8 @@
-
-
+
+
diff --git a/views/index.html b/views/index.html
--- a/views/index.html
+++ b/views/index.html
@@ -1,4 +1,4 @@
-