From 8ef4cf6f2b1f69fa384b806b289ff9ec7800e3c7 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Thu, 20 Dec 2007 23:26:10 +0000
Subject: [PATCH] Fixed indentation in generated haskell code for list
 categories.

---
 src/GF/Devel/GFCCtoHaskell.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/GF/Devel/GFCCtoHaskell.hs b/src/GF/Devel/GFCCtoHaskell.hs
index 8101537ca..aa3eebe58 100644
--- a/src/GF/Devel/GFCCtoHaskell.hs
+++ b/src/GF/Devel/GFCCtoHaskell.hs
@@ -126,9 +126,9 @@ hInstance m (cat,[]) = ""
 hInstance m (cat,rules) 
  | isListCat (cat,rules) =
   "instance Gf" +++ gId cat +++ "where" ++++
-     " gf (" ++ gId cat +++ "[" ++ concat (intersperse "," baseVars) ++ "])" 
+     "  gf (" ++ gId cat +++ "[" ++ concat (intersperse "," baseVars) ++ "])" 
            +++ "=" +++ mkRHS ("Base"++ec) baseVars ++++
-     " gf (" ++ gId cat +++ "(x:xs)) = " 
+     "  gf (" ++ gId cat +++ "(x:xs)) = " 
            ++ mkRHS ("Cons"++ec) ["x",prParenth (gId cat+++"xs")] 
 -- no show for GADTs
 --     ++++ " gf (" ++ gId cat +++ "xs) = error (\"Bad " ++ cat ++ " value: \" ++ show xs)"