pruvisto / heap Goto Github PK

Configuring component lib from heap-1.0.3...
Preprocessing library heap-1.0.3...
[1 of 3] Compiling Data.Heap.Internal ( Data/Heap/Internal.hs, /tmp/matrix-worker/1496496621/dist-newstyle/build/x86_64-linux/ghc-7.4.2/heap-1.0.3/build/Data/Heap/Internal.o )

Data/Heap/Internal.hs:36:54:
    Module `Prelude' does not export `foldMap'

{-# INLINE [1] merge' #-}
merge' = merge

{-# INLINE [1] split' #-}
split' = split

{-# 
RULES "split'/merge'" forall x. split' (merge' x) = x
RULES "splitF/split'" forall f x. splitF f (split' x) = f x
#-}

Building library for heap-1.0.3..
[1 of 3] Compiling Data.Heap.Internal ( Data/Heap/Internal.hs, dist/build/Data/Heap/Internal.o )

Data/Heap/Internal.hs:69:10: error:
    • Could not deduce (Semigroup (HeapT prio val))
        arising from the superclasses of an instance declaration
      from the context: Ord prio
        bound by the instance declaration at Data/Heap/Internal.hs:69:10-46
    • In the instance declaration for ‘Monoid (HeapT prio val)’
   |
69 | instance (Ord prio) => Monoid (HeapT prio val) where
   |          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

[8 of 8] Compiling Main             ( Test.hs, dist/build/heap-tests/heap-tests-tmp/Main.o )

Test.hs:15:10: error:
    • The constructor ‘Success’ should have 6 arguments, but has been given 3
    • In the pattern: Success _ _ _
      In a case alternative:
          (Success _ _ _)
            -> do putStrLn "Tests for Data.Heap.Internal:" >> Internal.runTests
                    >> putStrLn ""
                  putStrLn "Tests for Data.Heap.Item:" >> Item.runTests
                    >> putStrLn ""
                  putStrLn "Tests for Data.Heap:" >> Heap.runTests
      In a stmt of a 'do' block:
        case result of
          (Success _ _ _)
            -> do putStrLn "Tests for Data.Heap.Internal:" >> Internal.runTests
                    >> putStrLn ""
                  putStrLn "Tests for Data.Heap.Item:" >> Item.runTests
                    >> putStrLn ""
                  ....
          _ -> return ()
   |
15 |         (Success _ _ _) -> do
   |          ^^^^^^^^^^^^^

[8 of 8] Compiling Main             ( Test.hs, dist/build/heap-tests/heap-tests-tmp/Main.o )

Test.hs:12:37: error:
    • Couldn't match expected type ‘Args’
                  with actual type ‘Int -> Args’
    • Probable cause: ‘Args’ is applied to too few arguments
      In the first argument of ‘quickCheckWithResult’, namely
        ‘(Args Nothing 1 1 1 True)’
      In the expression: quickCheckWithResult (Args Nothing 1 1 1 True)
      In a stmt of a 'do' block:
        result <- quickCheckWithResult (Args Nothing 1 1 1 True)
                    $ expectFailure (assert False True)
   |
12 |     result <- quickCheckWithResult (Args Nothing 1 1 1 True) $ expectFailure (assert False True)
   |                                     ^^^^