MB
Size: a a a
MB
AP
А
P
suid :: ActionM ()
suid = do
zt <- getZonedTime
text (formatTime defaultTimeLocale "%Y%m%d%H%M%S" zt)
GP
(+) <$> (+3) <*> (*100) $ 5
к
suid :: ActionM ()
suid = do
zt <- getZonedTime
text (formatTime defaultTimeLocale "%Y%m%d%H%M%S" zt)
ActionM a = ActionT (IO a)
newtype ActionT a = ActionT a
lift :: IO a -> ActionM a
lift m = ActionT m
suid :: ActionM ()
suid = do
zt <- lift getZonedTime
pure ()
ZK
к
к
P
ActionM a = ActionT (IO a)
newtype ActionT a = ActionT a
lift :: IO a -> ActionM a
lift m = ActionT m
suid :: ActionM ()
suid = do
zt <- lift getZonedTime
pure ()
ZK
ЕО
Вл
Вл
ln
Вл
ЕО
ZK
λO
ЕО