From 6de4eb5792d88a70eaf9cc19784371a9a0eaba43 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Tue, 12 Jul 2011 14:41:25 +0200
Subject: Simplify struts generation

---
 lib/Phi/Panel.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib/Phi/Panel.hs')

diff --git a/lib/Phi/Panel.hs b/lib/Phi/Panel.hs
index 23b022f..42f4f98 100644
--- a/lib/Phi/Panel.hs
+++ b/lib/Phi/Panel.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE ExistentialQuantification #-}
 
-module Phi.Panel ( Panel(..)
+module Phi.Panel ( Position(..)
+                 , Panel(..)
                  , PanelClass(..)
                  , (<~>)
                  , separator
@@ -8,6 +9,8 @@ module Phi.Panel ( Panel(..)
 
 import Data.Function
 
+data Position = Top | Bottom
+
 class PanelClass a where
   minSize :: a -> Int
   
-- 
cgit v1.2.3