-- Exercise 4
-- write the correct type and the definition for
isFenRow :: [Char] -> Bool
isFenRow row = if (length row) > 8
                 then False
               else
                   null (filter (not.isFENChar) row)
isFenRow :: [Char] -> Bool
isFenRow row = if (length row) > 8
                 then False
               else
                   null (filter (not.isFENChar) row)
isFenRow row = if (length row) > 8
                 then False
               else
                   null (filter (not.isFENChar) row)