 
 import Config
 import Protein
+
+--import Mass
+--import Data.Array.Unboxed
 
 import C2HS
 import Foreign.CUDA (DevicePtr, withDevicePtr)

      withDevicePtr*    `DevicePtr CInt'   ,
                        `Int'              ,
                        `Int'              } -> `()' #}

#if 0
buildThrySpecXCorr :: ConfigParams -> Int -> Int -> Peptide -> IO XCorrSpecThry
buildThrySpecXCorr _cp len_spec charge peptide = do

-- prediction of fragment ion abundances are not possible. Magnitude components
-- are assigned based on empirical knowledge.
--
addIonsAB, addIonsY :: Num a => Float -> Float -> [(Float, a)]
addIonsAB charge mass = addIonsA : addIonsB
    where
        addIonsA = let m = ionMZ (mass - massCO) charge in (m, 10)
