fixes

samples/fpsamples/sample2.hs

@@ -7,4 +7,4 @@ isEqualFood :: Food -> Food -> Bool
 isEqualFood Pasta Pasta = True
 isEqualFood Pizza Pizza = True
 isEqualFood Chips Chips = True
-isEqualFood _ _ = False
+isEqualFood _ _ = False

samples/fpsamples/sample3.hs

@@ -9,4 +9,4 @@ fact x | x <= 1 = 1
 fact' :: Int -> Int
 fact' 0 = 1
 fact' 1 = 1
-fact' x = x * (fact (x - 1))
+fact' x = x * (fact' (x - 1))

samples/fpsamples/sample4.fs

@@ -11,4 +11,5 @@ let rec listLength l =
 // `match` call.
 let rec listLength' = function
     | [] -> 0
-    | _ :: xs -> 1 + (listLength' xs)
+    | _ :: xs -> 1 + (listLength' xs)
+