13
Ezra's answer covers all subsequences, but if you just want the continuous sub-sequences, you can use:
import Data.List
continuousSubSeqs = filter (not . null) . concatMap inits . tails
I.e you get
Prelude Data.List> continuousSubSeqs "asdf"
["a","as","asd","asdf","s","sd","sdf","d","df","f"]
The above can be written as a list comprehension as well:
import Data.List
continuousSubSeqs ls = [t | i <- inits ls, t <- tails i, not $ null t]