getSumAction :: Connection -> ActionM ()
getSumAction connection = do
    beam <- param "word"
    liftIO $ putStrLn "hello"
    number <- liftIO $ fmap (LazyText.pack . show) $ getSumFromDb connection
    html $ mconcat ["<h1>Scotty, ", beam, " And a number ", number, " me up!</h1>"]
getSumAction :: Connection -> ActionM ()
getSumAction connection = do
    beam <- param "word"
    liftIO $ putStrLn "hello"
    number <- liftIO $ fmap (LazyText.pack . show) $ getSumFromDb connection
    html $ mconcat ["<h1>Scotty, ", beam, " And a number ", number, " me up!</h1>"]
getSumAction connection = do
    beam <- param "word"
    liftIO $ putStrLn "hello"
    number <- liftIO $ fmap (LazyText.pack . show) $ getSumFromDb connection
    html $ mconcat ["<h1>Scotty, ", beam, " And a number ", number, " me up!</h1>"]