fixed haskell main warning