@@ -133,9 +133,7 @@ class Lookupable a where
133133-- can be used directly in almost any case.
134134readLookupables :: (Lookupable a) => String -> [(a,String)]
135135readLookupables s = [ (a,rest) | (word,rest) <- lex s,
136− let result = lookup word lookupTable,
137− isJust result,
138− let Just a = result
136+ a <- maybeToList (lookup word lookupTable)
139137 ]
140138
141139-- | Very similar to a simple 'lookup' in the 'lookupTable', but with a lexer.