Pattern not exhaustive in findTransition

[keuhdall]

A non exhaustive pattern causes the program to crash with unary_add.json and 111+11= as input.
The function causing the bug is findTransition (line 116).
(See code below ) :

findTransition :: String -> [Cond] -> Cond
findTransition w ts = case ts of
  (t:nts) -> if (read t) == w then t else (findTransition w nts)

Appart from the non exhaustive pattern problem, another part of the issue seems to come from the input itself, as the JSON does not implement the = sign and no transition leads to the HALT state.

[keuhdall]

Fixed in commit 1e7116f