twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-05 14:41:56 -07:00
Code Issues Packages Projects Releases Wiki Activity

comment out type error'd property

Browse Source
This commit is contained in:
Don Stewart
2007-10-06 10:22:25 +00:00
parent d83ce46a1e
commit bab04b71d3
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tests/Properties.hs
View File

@@ -543,10 +543,12 @@ prop_float_reversible n (x :: T) =
geom = RationalRect 100 100 100 100 geom = RationalRect 100 100 100 100
-- check rectanges were set -- check rectanges were set
{-
prop_float_sets_geometry n (x :: T) = prop_float_sets_geometry n (x :: T) =
n `member` x ==> let y = float n geom x in M.lookup y (floating x) == Just geom n `member` x ==> let y = float n geom x in M.lookup y (floating x) == Just geom
where where
geom = RationalRect 100 100 100 100 geom = RationalRect 100 100 100 100
-}
------------------------------------------------------------------------ ------------------------------------------------------------------------