From 346cc3269ee31062fa7eb560f90c4059c6279962 Mon Sep 17 00:00:00 2001 From: "joachim.fasting" Date: Wed, 20 Jun 2007 00:03:23 +0200 Subject: Fix type signatures. Think this fixes the rest of the errors caused by the Layout change. darcs-hash:20070619220323-ea16c-3274cd24d01bc932089ab88191ccda316ea93b01.gz --- TwoPane.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'TwoPane.hs') diff --git a/TwoPane.hs b/TwoPane.hs index f5c9c92..b4d5f41 100644 --- a/TwoPane.hs +++ b/TwoPane.hs @@ -34,7 +34,7 @@ import StackSet ( focus, up, down) -- -- > twoPane defaultDelta (1%2) -twoPane :: Rational -> Rational -> Layout +twoPane :: Rational -> Rational -> Layout a twoPane delta split = Layout { doLayout = \r s -> return $ arrange r s, modifyLayout = message } where arrange rect st = case reverse (up st) of -- cgit v1.2.3