Я предполагаю, что вы хотите удалить один или несколько пробельных символов в начале каждой строки, а не только первый пробельный символ.Кроме того, я думаю, что вы хотите удалить любые символы пробела, такие как символы табуляции, а не только символы буквального пробела.
import Data.Char
stripLeadingWhitespace :: String -> String
stripLeadingWhitespace = unlines . map (dropWhile isSpace) . lines