3.12.1 変数に対する正しくないパターンマッチ

- リテラル値でパターンマッチするよう修正
ukstudio · Sep 30, 2011 · 088f83e · 088f83e
1 parent b00089e
commit 088f83e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/ch03/BogusPattern.hs b/ch03/BogusPattern.hs
@@ -10,3 +10,7 @@ whichFruit f = case f of
 
 equational apple = Apple
 equational orange = Orange
+
+betterFruit f = case f of
+                    "apple" -> Apple
+                    "orange" -> Orange