Skip to content

Commit 7d3f618

Browse files
committed
Corrected HasUpdate's superclass constraint, fixes #4.
1 parent 9ad8c34 commit 7d3f618

File tree

3 files changed

+5
-5
lines changed

3 files changed

+5
-5
lines changed

LICENSE

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
Copyright (c) 2014-2015, Edward Kmett
2-
Copyright (c) 2009-2014, Sven Panne
2+
Copyright (c) 2009-2016, Sven Panne
33
All rights reserved.
44

55
Redistribution and use in source and binary forms, with or without

StateVar.cabal

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
name: StateVar
2-
version: 1.1.0.3
2+
version: 1.1.0.4
33
synopsis: State variables
44
description:
55
This package contains state variables, which are references in the IO monad,
66
like IORefs or parts of the OpenGL state.
77
homepage: https://github.com/haskell-opengl/StateVar
88
bug-reports: https://github.com/haskell-opengl/StateVar/issues
9-
copyright: Copyright (C) 2014-2015 Edward A. Kmett, 2009-2015 Sven Panne
9+
copyright: Copyright (C) 2014-2015 Edward A. Kmett, 2009-2016 Sven Panne
1010
license: BSD3
1111
license-file: LICENSE
1212
author: Sven Panne and Edward Kmett

src/Data/StateVar.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@
1010
--------------------------------------------------------------------------------
1111
-- |
1212
-- Module : Data.StateVar
13-
-- Copyright : (c) Edward Kmett 2014-2015, Sven Panne 2009-2014
13+
-- Copyright : (c) Edward Kmett 2014-2015, Sven Panne 2009-2016
1414
-- License : BSD3
1515
--
1616
-- Maintainer : Sven Panne <[email protected]>
@@ -193,7 +193,7 @@ instance HasSetter (TVar a) a where
193193
infixr 2 $~, $~!
194194

195195
-- | This is the class of all updatable state variables.
196-
class HasSetter t a => HasUpdate t a b | t -> a b where
196+
class HasSetter t b => HasUpdate t a b | t -> a b where
197197
-- | Transform the contents of a state variable with a given funtion.
198198
($~) :: MonadIO m => t -> (a -> b) -> m ()
199199
#if USE_DEFAULT_SIGNATURES

0 commit comments

Comments
 (0)