ryantm/nixpkgs-update
1
1
Fork 0
mirror of https://github.com/ryantm/nixpkgs-update.git synced 2024-12-14 13:23:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

Time: fix polysemy names

Browse Source
This commit is contained in:
Ryan Mulligan 2019-09-26 06:33:16 -07:00
parent 226f72c522
commit 6fc456e106
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Time.hs
View File

@ -13,10 +13,10 @@ data Time m a where
makeSem ''Time
runIO :: Member (Lift IO) r => Sem (Time ': r) a -> Sem r a
runIO :: Member (Embed IO) r => Sem (Time ': r) a -> Sem r a
runIO =
interpret $ \case
Now -> sendM getCurrentTime
Now -> embed getCurrentTime
runPure :: UTCTime -> Sem (Time ': r) a -> Sem r a
runPure t =