mia_consensus.hc does not compile under Haskell 8.6.5

[aersoares81]

It spits out this error:

` [1 of 1] Compiling Main ( mia_consensus.hs, mia_consensus.o )

mia_consensus.hs:13:31: error: • Variable not in scope: toAmbicode :: String -> Char • Perhaps you meant ‘to_ambicode’ (line 10) | 13 | defaultOpts = return $ Opts 1 toAmbicode putStr | ^^^^^^^^^^

mia_consensus.hs:19:69: error: Variable not in scope: toNucleotide :: String -> Char | 19 | Option "n" ["only-n"] (NoArg (\c -> return $ c { to_ambicode = toNucleotide })) | ^^^^^^^^^^^^

mia_consensus.hs:21:79: error: • Variable not in scope: toAmbicode :: String -> Char • Perhaps you meant ‘to_ambicode’ (line 10) | 21 | Option "i" ["iupac"] (NoArg (\c -> return $ c { to_ambicode = toUpper . toAmbicode })) | ^^^^^^^^^^

mia_consensus.hs:23:69: error: • Variable not in scope: toAmbicode :: String -> Char • Perhaps you meant ‘to_ambicode’ (line 10) | 23 | Option "g" ["gaps"] (NoArg (\c -> return $ c { to_ambicode = toAmbicode })) | ^^^^^^^^^^

mia_consensus.hs:45:14: error: Variable not in scope: call_cons :: Double -> (String -> Char) -> [Char] -> Char | 45 | map (call_cons percent to_ambicode . map toUpper) . | ^^^^^^^^^ `