failGet :: String -> Get a
failGet msg = Get $ \end s -> badEncoding end s msg
failGet :: String -> Get a
failGet msg = Get $ \end s -> badEncoding end s msg
failGet msg = Get $ \end s -> badEncoding end s msg