Fix patterns snippet.

faylang · Aug 8, 2012 · 746653f · 746653f
1 parent 627f39c
commit 746653f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/docs/snippets/patterns.hs b/docs/snippets/patterns.hs
@@ -1,3 +1,9 @@
+data Math = Math
+  { root :: Double -> Double
+  , square :: Double -> Double
+  , cube :: Double -> Double
+  }
+
 race (winner,runners) = print (winner,runners)
 
 first (x:xs) = x