printFileDirContent (file:dirContent) = do putStr file                   
                       if length dirContent == 1
                       then putStr "\n"
                       else putStr "end\n"
                       printFileDirContent dirContent

пишет что parse error (possibly incorrect indentation) в строке then putStr "\n".