Get suid as date

Main.hs

{-# LANGUAGE OverloadedStrings #-}

import Web.Scotty (scotty, get, ScottyM, ActionM, text)
import Data.Time
import Control.Monad.IO.Class
import Data.Text.Lazy

routes :: ScottyM ()
routes = do
  get "/suid" suid
  
suid :: ActionM()
suid = do
        ty <- liftIO timer
        text $ pack ty 

timer :: IO String
timer = do
          zt <- getZonedTime
          return $ formatTime defaultTimeLocale "%Y%m%d%H%M%S" zt

main :: IO ()
main = scotty 7200 routes