From a71385b22e3d8e6cd839b2644972fe4bd6feddd4 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Tue, 17 Nov 2015 16:17:42 -0800
Subject: [PATCH] Indentation stuff.

---
 src/Diff.hs   | 10 +++++-----
 src/Syntax.hs | 10 +++++-----
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/Diff.hs b/src/Diff.hs
index 218152539..6f6656ad7 100644
--- a/src/Diff.hs
+++ b/src/Diff.hs
@@ -37,11 +37,11 @@ d = Free $ Keyed $ fromList [
 
 cost :: Diff a -> Integer
 cost f = iter c $ fmap g f where
-    c (Leaf _) = 0
-    c (Keyed xs) = sum $ snd <$> toList xs
-    c (Indexed xs) = sum xs
-    c (Fixed xs) = sum xs
-    g _ = 1
+  c (Leaf _) = 0
+  c (Keyed xs) = sum $ snd <$> toList xs
+  c (Indexed xs) = sum xs
+  c (Fixed xs) = sum xs
+  g _ = 1
 
 -- interpret :: Algorithm a b -> b
 -- interpret (Pure b) = b
diff --git a/src/Syntax.hs b/src/Syntax.hs
index 8027f33e9..e20aae33f 100644
--- a/src/Syntax.hs
+++ b/src/Syntax.hs
@@ -3,8 +3,8 @@ module Syntax where
 import Data.Map
 
 data Syntax a f =
-    Leaf a
-    | Indexed [f]
-    | Fixed [f]
-    | Keyed (Map String f)
-    deriving (Functor, Show, Eq)
+  Leaf a
+  | Indexed [f]
+  | Fixed [f]
+  | Keyed (Map String f)
+  deriving (Functor, Show, Eq)