vscode Apply hint bug

input_output.hs

module Derptastic where


someFunction :: IO ()
someFunction = readFile (".aFile") >>= putStrLn

otherFunction :: (Num t, Eq t) => t -> t -> t
otherFunction a b
              | a == 5 = b
              | otherwise = a

thirdFunction :: Num t1 => t -> t1
thirdFunction x = 5
{-output file -}
module Derptastic where



otherFunction :: (Num t, Eq t) => t -> t -> t
someFunction = readFile ".aFile" >>= putStrLn
thirdFunction :: Num t1 => t -> t1
thirdFunction x = 5