gistfile1.txt

~                              |355 instance Read Color where
~                              |356 readsPrec _ value =
~                              |357     tryParse [("Red", Red), ("Green", Green), ("Blue", Blue)]
~                              |358     where tryParse [] = []
~                              |359           tryParse ((attempt, result):xs) =
~                              |360             if (take (length attempt) value ) == attempt
~                              |361                 then [(result, drop (length attempt))]
~                              |362                 else tryParse xs