From 255a98e39040a0d81e25200c7cc0a3cfbc9f5ea6 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@galois.com>
Date: Sun, 14 Oct 2007 01:21:50 +0200
Subject: document, and use better names, for serialising/existential-dispatch
 framework

darcs-hash:20071013232150-cba2c-dc3ee2254f4ebdb5d0099ec0a38c5665f1ad4d3f.gz
---
 Operations.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 0edfbb9..5b3bb2d 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -369,10 +369,10 @@ data ChangeLayout = NextLayout | PrevLayout | JumpToLayout String
 instance Message ChangeLayout
 
 instance ReadableLayout Window where
-    defaults = Layout (Select []) :
-               Layout Full : Layout (Tall 1 0.1 0.5) :
-               Layout (Mirror $ Tall 1 0.1 0.5) :
-               serialisedLayouts
+    readTypes = Layout (Select []) :
+                Layout Full : Layout (Tall 1 0.1 0.5) :
+                Layout (Mirror $ Tall 1 0.1 0.5) :
+                serialisedLayouts
 
 data Select a = Select [Layout a] deriving (Show, Read)
 
-- 
cgit v1.2.3