--- Codepage.hs
+++ Codepage.hs
@@ -48,0 +49,5 @@
+-- Get the position of a character in the code page
+findByte :: Char -> Int
+findByte byte | Just ix <- elemIndex byte codepage = ix
+ | otherwise = error "Bad byte"
+
@@ -52,2 +56,0 @@
- where findByte byte | Just ix <- elemIndex byte codepage = ix
- | otherwise = error "Bad byte"
--- Parser.hs
+++ Parser.hs
@@ -8,0 +9 @@
+import Codepage
@@ -226 +227,3 @@
- c <- anyChar
+ coded <- anyChar
+ let c :: Char