Rewrite in a nicer way

src/Application.hs

@@ -42,9 +42,10 @@ app runner = do
         Nothing  -> respond notFound
 
     post "/short" $ do
-      (form, _) <- parseForm
-      case BS.unpack <$> lookup "url" form of
-        Just url -> do
+      form <- fmap fst parseForm
+      case lookup "url" form of
+        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)]