never executed always true always false

    1 module WebApi (run) where
    2 
    3 import System.IO (Handle, hPutStrLn)
    4 
    5 run :: Handle -> IO ()
    6 run handle = hPutStrLn handle "Web API Module"