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) .
| ^^^^^^^^^
`