notFound :: String -> [Token] -> b
notFound expected (token:_) =
    error $ "Expected " ++ expected ++ " but instead found (" ++ (show token)
            ++ ")"
notFound :: String -> [Token] -> b
notFound expected (token:_) =
    error $ "Expected " ++ expected ++ " but instead found (" ++ (show token)
            ++ ")"
notFound expected (token:_) =
    error $ "Expected " ++ expected ++ " but instead found (" ++ (show token)
            ++ ")"