kaizhang / clustering Goto Github PK

Unpacking to clustering-0.2.0/
Resolving dependencies...
Configuring clustering-0.2.0...
Building clustering-0.2.0...
Preprocessing library clustering-0.2.0...
[1 of 6] Compiling AI.Clustering.KMeans.Internal ( src/AI/Clustering/KMeans/Internal.hs, dist/build/AI/Clustering/KMeans/Internal.o )

src/AI/Clustering/KMeans/Internal.hs:60:5:
    Non type-variable argument
      in the constraint: Data.Matrix.Generic.Matrix m U.Vector Double
    (Use FlexibleContexts to permit this)
    When checking that ‘loop’ has the inferred type
      loop :: forall (m :: (* -> *) -> * -> *).
              Data.Matrix.Generic.Matrix m U.Vector Double =>
              [Int] -> Int -> m0 (m U.Vector Double)
    In an equation for ‘kmeansPP’:
        kmeansPP g k dat fn
          | k > n = error "k is larger than sample size"
          | otherwise
          = do { c1 <- uniformR (0, n - 1) g;
                 loop [c1] 1 }
          where
              loop centers !k'
                | k' == k
                = return
                  $ MU.fromRows $ map (\ i -> fn $ dat `G.unsafeIndex` i) centers
                | otherwise
                = do { c' <- chooseWithProb g
                             $ U.map (shortestDist centers) rowIndices;
                       .... }
              n = G.length dat
              rowIndices = U.enumFromN 0 n
              shortestDist centers x
                = minimum
                  $ map
                      (\ i
                         -> sumSquares
                              (fn $ dat `G.unsafeIndex` x) (fn $ dat `G.unsafeIndex` i))

Preprocessing benchmark 'bench' for clustering-0.3.0...
[1 of 4] Compiling Bench.Utils      ( benchmarks/Bench/Utils.hs, dist/build/bench/bench-tmp/Bench/Utils.o )
[2 of 4] Compiling Bench.KMeans     ( benchmarks/Bench/KMeans.hs, dist/build/bench/bench-tmp/Bench/KMeans.o )

benchmarks/Bench/KMeans.hs:31:27: error:
    • Found hole: _clusters :: a0 -> U.Vector Int
      Where: ‘a0’ is an ambiguous type variable
      Or perhaps ‘_clusters’ is mis-spelled, or not in scope
    • In the first argument of ‘fmap’, namely ‘_clusters’
      In the first argument of ‘(.)’, namely ‘fmap _clusters’
      In the expression: fmap _clusters . kmeans g method k
    • Relevant bindings include
        k :: Int (bound at benchmarks/Bench/KMeans.hs:31:18)
        method :: Method (bound at benchmarks/Bench/KMeans.hs:31:11)
        g :: GenIO (bound at benchmarks/Bench/KMeans.hs:31:9)
        kmeans' :: GenIO
                   -> Method -> Int -> MU.Matrix Double -> IO (U.Vector Int)
          (bound at benchmarks/Bench/KMeans.hs:31:1)

benchmarks/Bench/KMeans.hs:31:39: error:
    • Couldn't match expected type ‘MU.Matrix Double -> IO a0’
                  with actual type ‘KMeans (U.Vector Double)’
    • Possible cause: ‘kmeans’ is applied to too many arguments
      In the second argument of ‘(.)’, namely ‘kmeans g method k’
      In the expression: fmap _clusters . kmeans g method k
      In an equation for ‘kmeans'’:
          kmeans' g method k = fmap _clusters . kmeans g method k

Preprocessing test suite 'test' for clustering-0.3.1...
[1 of 4] Compiling Test.Utils       ( tests/Test/Utils.hs, .stack-work/dist/x86_64-osx/Cabal-1.22.5.0/build/test/test-tmp/Test/Utils.o )
[2 of 4] Compiling Test.KMeans      ( tests/Test/KMeans.hs, .stack-work/dist/x86_64-osx/Cabal-1.22.5.0/build/test/test-tmp/Test/KMeans.o )

..../clustering/tests/Test/KMeans.hs:51:34: Not in scope: ‘decode’

..../clustering/tests/Test/KMeans.hs:52:18: Not in scope: ‘kmeansWith’

..../clustering/tests/Test/KMeans.hs:53:34: Not in scope: ‘decode’

..../clustering/tests/Test/KMeans.hs:53:48:
    ‘_clusters’ is not a (visible) constructor field name
Progress: 1/2
--  While building package clustering-0.3.1 using:
     ..../x86_64-osx/Cabal-simple_mPHDZzAJ_1.22.5.0_ghc-7.10.3 --builddir=.stack-work/dist/x86_64-osx/Cabal-1.22.5.0 build lib:clustering test:test bench:bench --ghc-options " -ddump-hi -ddump-to-file"
    Process exited with code: ExitFailure 1