scl/DifferentBranchTypes.scl

   1 import "Prelude"
   2
   3 foo n = n
   4   where
   5     if n > 0
   6     then 1
   7     else "asd"
   8
   9 bar n = n
  10   where
  11     do
  12        c = n+1
  13        if c > 0
  14        then 1
  15        else "asd"
  16
  17 main = foo 3 + bar 3
  18 --
  19 6