Warning: The install command is a part of the legacy v1 style of cabal usage.

Please switch to using either the new project style and the new-install
command or the legacy v1-install alias as new-style projects will become the
default in the next version of cabal-install. Please file a bug if you cannot
replicate a working v1- use case with the new-style commands.

For more information, see: https://wiki.haskell.org/Cabal/NewBuild

Resolving dependencies...
Starting     mmsyn5-0.4.3.0
Starting     mmsyn3-0.1.4.0
Starting     primitive-0.7.0.1
Building     mmsyn5-0.4.3.0
Building     mmsyn3-0.1.4.0
Building     primitive-0.7.0.1
Completed    mmsyn5-0.4.3.0
Completed    mmsyn3-0.1.4.0
Completed    primitive-0.7.0.1
Starting     vector-0.12.1.2
Building     vector-0.12.1.2
Completed    vector-0.12.1.2
Starting     mmsyn2-0.1.7.0
Building     mmsyn2-0.1.7.0
Completed    mmsyn2-0.1.7.0
Starting     mmsyn6ukr-0.6.3.1
Building     mmsyn6ukr-0.6.3.1
Completed    mmsyn6ukr-0.6.3.1
Starting     mmsyn7ukr-0.15.3.0
Starting     mmsyn7s-0.6.6.0
Building     mmsyn7s-0.6.6.0
Building     mmsyn7ukr-0.15.3.0
Completed    mmsyn7s-0.6.6.0
Completed    mmsyn7ukr-0.15.3.0
Starting     dobutokO2-0.24.2.0
Building     dobutokO2-0.24.2.0
Failed to install dobutokO2-0.24.2.0
Build log ( /home/builder/.cabal/logs/ghc-8.6.3/dobutokO2-0.24.2.0-A3h3LV9gkjT3jgXDVIpFFd.log ):
cabal: Entering directory '/tmp/cabal-tmp-22878/dobutokO2-0.24.2.0'
Configuring dobutokO2-0.24.2.0...
Preprocessing executable 'dobutokO2' for dobutokO2-0.24.2.0..
Building executable 'dobutokO2' for dobutokO2-0.24.2.0..

<no location info>: warning: [-Wmissing-home-modules]
    These modules are needed for compilation but not listed in your .cabal file's other-modules: 
        DobutokO.Sound
        DobutokO.Sound.Executable
        DobutokO.Sound.Functional
        DobutokO.Sound.IntermediateF
        DobutokO.Sound.ParseList
[1 of 6] Compiling DobutokO.Sound.Functional ( DobutokO/Sound/Functional.hs, dist/build/dobutokO2/dobutokO2-tmp/DobutokO/Sound/Functional.o )

DobutokO/Sound/Functional.hs:192:5: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘Int -> Int -> IO ()’
    • Probable cause: ‘mixTest’ is applied to too few arguments
      In a stmt of a 'do' block: mixTest
      In the expression:
        do let note0
                 = closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)
               l0 = length zs
               ....
           _ <- readProcessWithExitCode
                  (fromJust (showE "sox")) ["-r22050", "-n", ....] ""
           if isNothing note1 then
               overSoXSynthHelp v0
           else
               do _ <- readProcessWithExitCode (fromJust (showE "sox")) ... ""
                  ....
           mixTest
      In an equation for ‘overSoXSynth2FDN1G’:
          overSoXSynth2FDN1G f (x, y) j zs vdB
            | V.null . convertToProperUkrainian $ zs = overSoXSynth x
            | otherwise
            = do let note0 = ...
                     ....
                 _ <- readProcessWithExitCode
                        (fromJust (showE "sox")) ["-r22050", ....] ""
                 if isNothing note1 then overSoXSynthHelp v0 else do ...
                 ....
    |
192 |     mixTest
    |     ^^^^^^^

DobutokO/Sound/Functional.hs:227:5: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘Int -> String -> IO ()’
    • Probable cause: ‘mixTest2G’ is applied to too few arguments
      In a stmt of a 'do' block: mixTest2G ys
      In the expression:
        do let note0
                 = closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)
               l0 = length zs
               ....
           _ <- readProcessWithExitCode
                  (fromJust (showE "sox"))
                  (soxBasicParams ys ["-r22050", "-n", ....])
                  ""
           if isNothing note1 then
               overSoXSynthHelp v0
           else
               do _ <- readProcessWithExitCode
                         (fromJust (showE "sox")) (soxBasicParams ys ...) ""
                  ....
           mixTest2G ys
      In an equation for ‘overSoXSynth2FDN2G’:
          overSoXSynth2FDN2G f (x, y) j zs vdB ys
            | V.null . convertToProperUkrainian $ zs = overSoXSynth x
            | otherwise
            = do let note0 = ...
                     ....
                 _ <- readProcessWithExitCode
                        (fromJust (showE "sox")) (soxBasicParams ys ["-r22050", ....]) ""
                 if isNothing note1 then overSoXSynthHelp v0 else do ...
                 ....
    |
227 |     mixTest2G ys   
    |     ^^^^^^^^^^^^

DobutokO/Sound/Functional.hs:227:15: error:
    • Couldn't match type ‘[Char]’ with ‘Int’
      Expected type: Int
        Actual type: String
    • In the first argument of ‘mixTest2G’, namely ‘ys’
      In a stmt of a 'do' block: mixTest2G ys
      In the expression:
        do let note0
                 = closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)
               l0 = length zs
               ....
           _ <- readProcessWithExitCode
                  (fromJust (showE "sox"))
                  (soxBasicParams ys ["-r22050", "-n", ....])
                  ""
           if isNothing note1 then
               overSoXSynthHelp v0
           else
               do _ <- readProcessWithExitCode
                         (fromJust (showE "sox")) (soxBasicParams ys ...) ""
                  ....
           mixTest2G ys
    |
227 |     mixTest2G ys   
    |               ^^

DobutokO/Sound/Functional.hs:418:5: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘Int -> Int -> IO ()’
    • Probable cause: ‘mixTest’ is applied to too few arguments
      In a stmt of a 'do' block: mixTest
      In the expression:
        do let limA0
                 = abs ((limB / 10) - (fromIntegral . truncate $ (limB / 10))) * 10
               limA = ...
               ....
           _ <- readProcessWithExitCode
                  (fromJust (showE "sox")) ["-r22050", "-n", ....] ""
           if isNothing note1 then
               overSoXSynthHelp v0
           else
               do _ <- readProcessWithExitCode (fromJust (showE "sox")) ... ""
                  ....
           mixTest
      In an equation for ‘overSoXSynth2FDN_B1G’:
          overSoXSynth2FDN_B1G f (x, y, limB) j zs vdB
            | V.null . convertToProperUkrainian $ zs = overSoXSynth x
            | otherwise
            = do let limA0 = ...
                     ....
                 _ <- readProcessWithExitCode
                        (fromJust (showE "sox")) ["-r22050", ....] ""
                 if isNothing note1 then overSoXSynthHelp v0 else do ...
                 ....
    |
418 |     mixTest    
    |     ^^^^^^^

DobutokO/Sound/Functional.hs:456:5: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘Int -> String -> IO ()’
    • Probable cause: ‘mixTest2G’ is applied to too few arguments
      In a stmt of a 'do' block: mixTest2G ys
      In the expression:
        do let limA0
                 = abs ((limB / 10) - (fromIntegral . truncate $ (limB / 10))) * 10
               limA = ...
               ....
           _ <- readProcessWithExitCode
                  (fromJust (showE "sox"))
                  (soxBasicParams ys ["-r22050", "-n", ....])
                  ""
           if isNothing note1 then
               overSoXSynthHelp v0
           else
               do _ <- readProcessWithExitCode
                         (fromJust (showE "sox")) (soxBasicParams ys ...) ""
                  ....
           mixTest2G ys
      In an equation for ‘overSoXSynth2FDN_B2G’:
          overSoXSynth2FDN_B2G f (x, y, limB) j zs vdB ys
            | V.null . convertToProperUkrainian $ zs = overSoXSynth x
            | otherwise
            = do let limA0 = ...
                     ....
                 _ <- readProcessWithExitCode
                        (fromJust (showE "sox")) (soxBasicParams ys ["-r22050", ....]) ""
                 if isNothing note1 then overSoXSynthHelp v0 else do ...
                 ....
    |
456 |     mixTest2G ys    
    |     ^^^^^^^^^^^^

DobutokO/Sound/Functional.hs:456:15: error:
    • Couldn't match type ‘[Char]’ with ‘Int’
      Expected type: Int
        Actual type: String
    • In the first argument of ‘mixTest2G’, namely ‘ys’
      In a stmt of a 'do' block: mixTest2G ys
      In the expression:
        do let limA0
                 = abs ((limB / 10) - (fromIntegral . truncate $ (limB / 10))) * 10
               limA = ...
               ....
           _ <- readProcessWithExitCode
                  (fromJust (showE "sox"))
                  (soxBasicParams ys ["-r22050", "-n", ....])
                  ""
           if isNothing note1 then
               overSoXSynthHelp v0
           else
               do _ <- readProcessWithExitCode
                         (fromJust (showE "sox")) (soxBasicParams ys ...) ""
                  ....
           mixTest2G ys
    |
456 |     mixTest2G ys    
    |               ^^

DobutokO/Sound/Functional.hs:493:5: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘Int -> Int -> IO ()’
    • Probable cause: ‘mixTest’ is applied to too few arguments
      In a stmt of a 'do' block: mixTest
      In the expression:
        do let note0
                 = closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)
               l0 = length zs
               ....
           _ <- readProcessWithExitCode
                  (fromJust (showE "sox")) ["-r22050", "-n", ....] ""
           if isNothing note1 then
               partialTest_k v0 0 ts
           else
               do _ <- readProcessWithExitCode (fromJust (showE "sox")) ... ""
                  ....
           mixTest
      In an equation for ‘overSoXSynth2FDN_S’:
          overSoXSynth2FDN_S f (x, y) j zs
            | V.null . convertToProperUkrainian $ zs = overSoXSynth x
            | otherwise
            = do let note0 = ...
                     ....
                 _ <- readProcessWithExitCode
                        (fromJust (showE "sox")) ["-r22050", ....] ""
                 if isNothing note1 then partialTest_k v0 0 ts else do ...
                 ....
    |
493 |     mixTest
    |     ^^^^^^^

DobutokO/Sound/Functional.hs:514:5: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘Int -> Int -> IO ()’
    • Probable cause: ‘mixTest’ is applied to too few arguments
      In a stmt of a 'do' block: mixTest
      In the expression:
        do let note0
                 = closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)
               l0 = length zs
               ....
           _ <- readProcessWithExitCode
                  (fromJust (showE "sox")) ["-r22050", "-n", ....] ""
           if isNothing note1 then
               partialTest_k1G v0 0 ts vdB
           else
               do _ <- readProcessWithExitCode (fromJust (showE "sox")) ... ""
                  ....
           mixTest
      In an equation for ‘overSoXSynth2FDN_S1G’:
          overSoXSynth2FDN_S1G f (x, y) j zs vdB
            | V.null . convertToProperUkrainian $ zs = overSoXSynth x
            | otherwise
            = do let note0 = ...
                     ....
                 _ <- readProcessWithExitCode
                        (fromJust (showE "sox")) ["-r22050", ....] ""
                 if isNothing note1 then partialTest_k1G v0 0 ts vdB else do ...
                 ....
    |
514 |     mixTest
    |     ^^^^^^^

DobutokO/Sound/Functional.hs:536:5: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘Int -> String -> IO ()’
    • Probable cause: ‘mixTest2G’ is applied to too few arguments
      In a stmt of a 'do' block: mixTest2G ys
      In the expression:
        do let note0
                 = closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)
               l0 = length zs
               ....
           _ <- readProcessWithExitCode
                  (fromJust (showE "sox"))
                  (soxBasicParams ys ["-r22050", "-n", ....])
                  ""
           if isNothing note1 then
               partialTest_k2G v0 0 ts vdB ys
           else
               do _ <- readProcessWithExitCode
                         (fromJust (showE "sox")) (soxBasicParams ys ...) ""
                  ....
           mixTest2G ys
      In an equation for ‘overSoXSynth2FDN_S2G’:
          overSoXSynth2FDN_S2G f (x, y) j zs vdB ys
            | V.null . convertToProperUkrainian $ zs = overSoXSynth x
            | otherwise
            = do let note0 = ...
                     ....
                 _ <- readProcessWithExitCode
                        (fromJust (showE "sox")) (soxBasicParams ys ["-r22050", ....]) ""
                 if isNothing note1 then partialTest_k2G v0 0 ts vdB ys else do ...
                 ....
    |
536 |     mixTest2G ys        
    |     ^^^^^^^^^^^^

DobutokO/Sound/Functional.hs:536:15: error:
    • Couldn't match type ‘[Char]’ with ‘Int’
      Expected type: Int
        Actual type: String
    • In the first argument of ‘mixTest2G’, namely ‘ys’
      In a stmt of a 'do' block: mixTest2G ys
      In the expression:
        do let note0
                 = closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)
               l0 = length zs
               ....
           _ <- readProcessWithExitCode
                  (fromJust (showE "sox"))
                  (soxBasicParams ys ["-r22050", "-n", ....])
                  ""
           if isNothing note1 then
               partialTest_k2G v0 0 ts vdB ys
           else
               do _ <- readProcessWithExitCode
                         (fromJust (showE "sox")) (soxBasicParams ys ...) ""
                  ....
           mixTest2G ys
    |
536 |     mixTest2G ys        
    |               ^^

DobutokO/Sound/Functional.hs:628:5: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘Int -> Int -> IO ()’
    • Probable cause: ‘mixTest’ is applied to too few arguments
      In a stmt of a 'do' block: mixTest
      In the expression:
        do let l0 = length zs
           soundGenF3
             (V.fromList
                [\ x
                   -> closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0),
                 \ x
                   -> fromMaybe
                        (V.unsafeIndex notes 0)
                        (dNote
                           (V.unsafeIndex (intervalsFromString zs) (abs (j `rem` l0)))
                           (closestNote
                              (if x /= 0.0 then abs x else V.unsafeIndex notes 0)))])
             (V.replicate 2 x)
             (V.fromList
                [1, V.unsafeIndex (intervalsFromString zs) (abs (j `rem` l0))])
             f
             (x, y, t0)
             j
             zs
           mixTest
      In an equation for ‘overSoXSynth2FDN_Sf3’:
          overSoXSynth2FDN_Sf3 f (x, y, t0) j zs
            | V.null . convertToProperUkrainian $ zs = overSoXSynth x
            | otherwise
            = do let l0 = ...
                 soundGenF3
                   (V.fromList [\ x -> ..., ....])
                   (V.replicate 2 x)
                   (V.fromList [1, ....])
                   f
                   (x, y, t0)
                   j
                   zs
                 mixTest
    |
628 |     mixTest
    |     ^^^^^^^

DobutokO/Sound/Functional.hs:640:5: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘Int -> Int -> IO ()’
    • Probable cause: ‘mixTest’ is applied to too few arguments
      In a stmt of a 'do' block: mixTest
      In the expression:
        do let l0 = length zs
           soundGenF31G
             (V.fromList
                [\ x
                   -> closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0),
                 \ x
                   -> fromMaybe
                        (V.unsafeIndex notes 0)
                        (dNote
                           (V.unsafeIndex (intervalsFromString zs) (abs (j `rem` l0)))
                           (closestNote
                              (if x /= 0.0 then abs x else V.unsafeIndex notes 0)))])
             (V.replicate 2 x)
             (V.fromList
                [1, V.unsafeIndex (intervalsFromString zs) (abs (j `rem` l0))])
             f
             (x, y, t0)
             j
             zs
             vdB
           mixTest
      In an equation for ‘overSoXSynth2FDN_Sf31G’:
          overSoXSynth2FDN_Sf31G f (x, y, t0) j zs vdB
            | V.null . convertToProperUkrainian $ zs = overSoXSynth x
            | otherwise
            = do let l0 = ...
                 soundGenF31G
                   (V.fromList [\ x -> ..., ....])
                   (V.replicate 2 x)
                   (V.fromList [1, ....])
                   f
                   (x, y, t0)
                   j
                   zs
                   vdB
                 mixTest
    |
640 |     mixTest    
    |     ^^^^^^^

DobutokO/Sound/Functional.hs:652:5: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘Int -> String -> IO ()’
    • Probable cause: ‘mixTest2G’ is applied to too few arguments
      In a stmt of a 'do' block: mixTest2G ys
      In the expression:
        do let l0 = length zs
           soundGenF32G
             (V.fromList
                [\ x
                   -> closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0),
                 \ x
                   -> fromMaybe
                        (V.unsafeIndex notes 0)
                        (dNote
                           (V.unsafeIndex (intervalsFromString zs) (abs (j `rem` l0)))
                           (closestNote
                              (if x /= 0.0 then abs x else V.unsafeIndex notes 0)))])
             (V.replicate 2 x)
             (V.fromList
                [1, V.unsafeIndex (intervalsFromString zs) (abs (j `rem` l0))])
             f
             (x, y, t0)
             j
             zs
             vdB
             ys
           mixTest2G ys
      In an equation for ‘overSoXSynth2FDN_Sf32G’:
          overSoXSynth2FDN_Sf32G f (x, y, t0) j zs vdB ys
            | V.null . convertToProperUkrainian $ zs = overSoXSynth x
            | otherwise
            = do let l0 = ...
                 soundGenF32G
                   (V.fromList [\ x -> ..., ....])
                   (V.replicate 2 x)
                   (V.fromList [1, ....])
                   f
                   (x, y, t0)
                   j
                   zs
                   vdB
                   ys
                 mixTest2G ys
    |
652 |     mixTest2G ys
    |     ^^^^^^^^^^^^

DobutokO/Sound/Functional.hs:652:15: error:
    • Couldn't match type ‘[Char]’ with ‘Int’
      Expected type: Int
        Actual type: String
    • In the first argument of ‘mixTest2G’, namely ‘ys’
      In a stmt of a 'do' block: mixTest2G ys
      In the expression:
        do let l0 = length zs
           soundGenF32G
             (V.fromList
                [\ x
                   -> closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0),
                 \ x
                   -> fromMaybe
                        (V.unsafeIndex notes 0)
                        (dNote
                           (V.unsafeIndex (intervalsFromString zs) (abs (j `rem` l0)))
                           (closestNote
                              (if x /= 0.0 then abs x else V.unsafeIndex notes 0)))])
             (V.replicate 2 x)
             (V.fromList
                [1, V.unsafeIndex (intervalsFromString zs) (abs (j `rem` l0))])
             f
             (x, y, t0)
             j
             zs
             vdB
             ys
           mixTest2G ys
    |
652 |     mixTest2G ys
    |               ^^

DobutokO/Sound/Functional.hs:913:3: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘Int -> Int -> IO ()’
    • Probable cause: ‘mixTest’ is applied to too few arguments
      In a stmt of a 'do' block: mixTest
      In the expression:
        do let note0 = ...
               note1 = pureQuintNote note0
               ....
           _ <- readProcessWithExitCode
                  (fromJust (showE "sox")) ["-r22050", "-n", ....] ""
           overSoXSynthHelp v0
           overSoXSynthHelp2 v1
           ....
      In an equation for ‘overSoXSynth’:
          overSoXSynth x
            = do let note0 = ...
                     ....
                 _ <- readProcessWithExitCode
                        (fromJust (showE "sox")) ["-r22050", ....] ""
                 overSoXSynthHelp v0
                 ....
    |
913 |   mixTest 
    |   ^^^^^^^
cabal: Leaving directory '/tmp/cabal-tmp-22878/dobutokO2-0.24.2.0'
cabal: Error: some packages failed to install:
dobutokO2-0.24.2.0-A3h3LV9gkjT3jgXDVIpFFd failed during the building phase.
The exception was:
ExitFailure 1