github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-02 20:41:38 +03:00
Code Issues Projects Releases Wiki Activity

Eta-expand the definition of assign.

Browse Source
This commit is contained in:
Rob Rix 2017-12-21 11:16:23 -05:00
parent 0b59677368
commit fdb2b2abde
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Control/Monad/Effect/Store.hs
View File

@ -14,7 +14,7 @@ import Data.Pointed
import Data.Semigroup
assign :: (Ord (LocationFor a), Semigroup (Cell (LocationFor a) a), Pointed (Cell (LocationFor a)), MonadStore a m) => Address (LocationFor a) a -> a -> m ()
assign = (modifyStore .) . storeInsert
assign address = modifyStore . storeInsert address
-- | 'Monad's offering a readable & writable 'Store' of values for specific 'Address'es.