Skip to content

Commit 5f7c2d2

Browse files
authored
Merge pull request #74 from input-output-hk/add-mkVar-haddock
Add a haddock to mkVar
2 parents 5f662ce + e178d4a commit 5f7c2d2

File tree

1 file changed

+4
-0
lines changed
  • quickcheck-dynamic/src/Test/QuickCheck/StateModel

1 file changed

+4
-0
lines changed

quickcheck-dynamic/src/Test/QuickCheck/StateModel/Variables.hs

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -37,6 +37,10 @@ import Test.QuickCheck as QC
3737
newtype Var a = Var Int
3838
deriving (Eq, Ord, Typeable, Data)
3939

40+
-- | Create a fresh symbolic variable with given identifier. While 'Var's are
41+
-- usually created by action generators, this function can be used for example
42+
-- to create a 'Var' in the 'initialState' of a 'StateModel'. A good default
43+
-- value for the identifier is '-1' as this will not be generated otherwise.
4044
mkVar :: Int -> Var a
4145
mkVar = Var
4246

0 commit comments

Comments
 (0)