GHC Compilation problems

madrid.hs:5:3:
    Couldn't match type `m0 b0' with `Int'
    Expected type: m0 a0 -> m0 b0 -> Int
      Actual type: m0 a0 -> m0 b0 -> m0 b0
    In a stmt of a 'do' block: (count > 0) && hPutStr stdout string
    In the expression:
      do { (count > 0) && hPutStr stdout string;
           (count > 0) && displayD string (count - 1) }
    In an equation for `displayD':
        displayD string count
          = do { (count > 0) && hPutStr stdout string;
                 (count > 0) && displayD string (count - 1) }

madrid.hs:5:18:
    Couldn't match expected type `Bool' with actual type `IO ()'
    In the return type of a call of `hPutStr'
    In the second argument of `(&&)', namely `hPutStr stdout string'
    In a stmt of a 'do' block: (count > 0) && hPutStr stdout string

madrid.hs:5:33:
    Couldn't match type `IO ()' with `[Char]'
    Expected type: String
      Actual type: IO ()
    In the second argument of `hPutStr', namely `string'
    In the second argument of `(&&)', namely `hPutStr stdout string'
    In a stmt of a 'do' block: (count > 0) && hPutStr stdout string

madrid.hs:6:3:
    Couldn't match expected type `m0 b0' with actual type `Bool'
    In a stmt of a 'do' block:
      (count > 0) && displayD string (count - 1)
    In the expression:
      do { (count > 0) && hPutStr stdout string;
           (count > 0) && displayD string (count - 1) }
    In an equation for `displayD':
        displayD string count
          = do { (count > 0) && hPutStr stdout string;
                 (count > 0) && displayD string (count - 1) }

madrid.hs:6:18:
    Couldn't match expected type `Bool' with actual type `Int'
    In the return type of a call of `displayD'
    In the second argument of `(&&)', namely
      `displayD string (count - 1)'
    In a stmt of a 'do' block:
      (count > 0) && displayD string (count - 1)

madrid.hs:11:3:
    Couldn't match expected type `IO a1' with actual type `Int'
    In the return type of a call of `displayD'
    In a stmt of a 'do' block: displayD "hello" 5
    In the expression:
      do { hSetBuffering stdout LineBuffering;
           displayD "hello" 5;
           hClose stdout }

madrid.hs:11:12:
    Couldn't match expected type `IO ()' with actual type `[Char]'
    In the first argument of `displayD', namely `"hello"'
    In a stmt of a 'do' block: displayD "hello" 5
    In the expression:
      do { hSetBuffering stdout LineBuffering;
           displayD "hello" 5;
           hClose stdout }
make: *** [madrid.o] Error 1