diff options
| author | Matthias P. Braendli <matthias.braendli@mpb.li> | 2013-12-02 22:56:10 +0100 |
|---|---|---|
| committer | Matthias P. Braendli <matthias.braendli@mpb.li> | 2013-12-02 22:56:10 +0100 |
| commit | 2b722cf3bdd267c999f25c4f1c2ebb4cc4d27cb4 (patch) | |
| tree | 95a2fa4d0aac52f4a82e234276ce7ede15a8e8ff /ch03_BogusPattern.hs | |
| parent | 40860a46fa0a22cc376b015e36744c8573f92654 (diff) | |
| download | haskell-2b722cf3bdd267c999f25c4f1c2ebb4cc4d27cb4.tar.gz haskell-2b722cf3bdd267c999f25c4f1c2ebb4cc4d27cb4.tar.bz2 haskell-2b722cf3bdd267c999f25c4f1c2ebb4cc4d27cb4.zip | |
add other haskell files
Diffstat (limited to 'ch03_BogusPattern.hs')
| -rw-r--r-- | ch03_BogusPattern.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ch03_BogusPattern.hs b/ch03_BogusPattern.hs new file mode 100644 index 0000000..34288d3 --- /dev/null +++ b/ch03_BogusPattern.hs @@ -0,0 +1,9 @@ +data Fruit = Apple | Orange + deriving Show + +whichFruit f = case f of + "apple" -> Just Apple + "orange" -> Just Orange + _ -> Nothing + + |