From ee89914cd2fe1d99102893428271168d926abc43 Mon Sep 17 00:00:00 2001 From: "Michael G. Sloan" Date: Sun, 29 Jul 2007 05:24:07 +0200 Subject: Fix warnings in FlexibleManipulate (Sorry!) darcs-hash:20070729032407-0d649-88391148f42be727b79f7a12274192d512e1c4f0.gz --- FlexibleManipulate.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'FlexibleManipulate.hs') diff --git a/FlexibleManipulate.hs b/FlexibleManipulate.hs index 13682c0..48f9cc7 100644 --- a/FlexibleManipulate.hs +++ b/FlexibleManipulate.hs @@ -24,7 +24,6 @@ import XMonad import Operations import Graphics.X11.Xlib import Graphics.X11.Xlib.Extras -import Foreign.C.Types -- $usage -- Add this import to your Config.hs file: @@ -47,6 +46,8 @@ import Foreign.C.Types -- a value between 0 and 1 indicating position, and return a value indicating -- the corresponding position if plain Flex.linear was used. +discrete, linear, resize, position :: Double -> Double + discrete x | x < 0.33 = 0 | x > 0.66 = 1 | otherwise = 0.5 -- cgit v1.2.3