Indentation stuff.

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 (Leaf _) = 0
-    c (Keyed xs) = sum $ snd <$> toList xs
+  c (Keyed xs) = sum $ snd <$> toList xs
-    c (Indexed xs) = sum xs
+  c (Indexed xs) = sum xs
-    c (Fixed xs) = sum xs
+  c (Fixed xs) = sum xs
-    g _ = 1
+  g _ = 1
 
 -- interpret :: Algorithm a b -> b
 -- interpret (Pure b) = b

src/Syntax.hs

@@ -3,8 +3,8 @@ module Syntax where
 import Data.Map
 
 data Syntax a f =
-    Leaf a
+  Leaf a
-    | Indexed [f]
+  | Indexed [f]
-    | Fixed [f]
+  | Fixed [f]
-    | Keyed (Map String f)
+  | Keyed (Map String f)
-    deriving (Functor, Show, Eq)
+  deriving (Functor, Show, Eq)