genSuffixes::[Char]->[[Char]]
getSuffixes (xs) = suffix 0 (xs)
suffix::Int->[Char]->[[Char]]
suffix n (xs) = if n==length(xs)
then(xs)
else drop n (xs) ++ suffix (n+1) (xs)
genSuffixes
コードをコンパイルしようとすると、「付随するバインディングが不足している型シグネチャ」が表示されます。