Haskell-book/05/src/Sing.purs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Sing where

import Prelude

fstString :: String -> String
fstString x = x <> " in the rain"

sndString :: String -> String
sndString x = x <> " over the rainbow"

sing :: String
sing = if (x > y) then fstString x else sndString y
    where x = "Singin"
          y = "Somewhere"