From: Francis Russell <francis@unchartedbackwaters.co.uk>
Date: Tue, 18 Sep 2012 20:45:12 +0000 (+0100)
Subject: Reformat a data declaration.
X-Git-Url: https://git.unchartedbackwaters.co.uk/w/?a=commitdiff_plain;h=cda3875d8bb45ee79dd957413d75f4fb5f721ab8;p=francis%2Fofc.git

Reformat a data declaration.
---

diff --git a/src/TopLevel.hs b/src/TopLevel.hs
index d941519..e58c196 100644
--- a/src/TopLevel.hs
+++ b/src/TopLevel.hs
@@ -48,9 +48,14 @@ instance OFLKeyword IndexType where
   toOFLString indexType = show indexType
 
 -- The symbol table
-data SymbolType = ValueTag BaseType [IndexType] | IndexTag IndexType deriving Show
+data SymbolType = 
+  ValueTag BaseType [IndexType] | 
+  IndexTag IndexType 
+  deriving Show
+
 type SymbolTable = Map String SymbolType
 type MappingTable = Map String TargetType
+
 data OFL = OFL {
   symbols :: SymbolTable,
   assignments :: [Assignment],