voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2024-06-07 08:50:12 +03:00
parent fa429faa19
commit 02ff10bd09
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fixme-new/lib/Fixme/Types.hs
View File

@ -307,6 +307,29 @@ newtype FixmeM m a = FixmeM { fromFixmeM :: ReaderT FixmeEnv m a }
, MonadReader FixmeEnv , MonadReader FixmeEnv
) )
fixmeEnvBare :: FixmePerks m => m FixmeEnv
fixmeEnvBare =
FixmeEnv
<$> newMVar ()
<*> newTVarIO mempty
<*> newTVarIO ":memory:"
<*> newTVarIO Nothing
<*> newTVarIO Nothing
<*> newTVarIO mempty
<*> newTVarIO mempty
<*> newTVarIO mempty
<*> newTVarIO mempty
<*> newTVarIO mempty
<*> newTVarIO defCommentMap
<*> newTVarIO Nothing
<*> newTVarIO mempty
<*> newTVarIO mempty
<*> newTVarIO (CatAction $ \_ _ -> pure ())
<*> newTVarIO mempty
<*> newTVarIO mempty
<*> newTVarIO (1,3)
withFixmeEnv :: FixmePerks m => FixmeEnv -> FixmeM m a -> m a withFixmeEnv :: FixmePerks m => FixmeEnv -> FixmeM m a -> m a
withFixmeEnv env what = runReaderT ( fromFixmeM what) env withFixmeEnv env what = runReaderT ( fromFixmeM what) env