biophd 0.0.4 → 0.0.5
raw patch · 3 files changed
+9/−8 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Bio.Sequence.PhdData: Comment :: FilePath -> String -> String -> String -> Int -> String -> Int -> Int -> String -> String -> String -> Comment
+ Bio.Sequence.PhdData: Comment :: FilePath -> String -> String -> String -> Int -> String -> Int -> Int -> Maybe String -> String -> String -> Comment
- Bio.Sequence.PhdData: trim :: Comment -> String
+ Bio.Sequence.PhdData: trim :: Comment -> Maybe String
Files
- biophd.cabal +1/−1
- src/Bio/Sequence/Phd.hs +3/−3
- src/Bio/Sequence/PhdData.hs +5/−4
biophd.cabal view
@@ -1,5 +1,5 @@ Name: biophd-Version: 0.0.4+Version: 0.0.5 Synopsis: Library for reading phd sequence files Description: Library for reading phd sequence files Homepage: https://patch-tag.com/r/dfornika/biophd/home
src/Bio/Sequence/Phd.hs view
@@ -63,9 +63,9 @@ , time = com!!5 , traceArrayMinIndex = read (com!!6) :: Int , traceArrayMaxIndex = read (com!!7) :: Int- , trim = com!!8- , chem = com!!9- , dye = com!!10 }+ , trim = if (length com > 10) then Just (com!!8) else Nothing+ , chem = if (length com > 10) then (com!!9) else (com!!8)+ , dye = if (length com > 10) then (com!!10) else (com !!9) } mkDNABlock :: String -> String -> [Int] -> [Int] -> DNABlock mkDNABlock l d q t = DNABlock { label = l
src/Bio/Sequence/PhdData.hs view
@@ -1,5 +1,6 @@ module Bio.Sequence.PhdData where +import Data.Maybe(fromJust) import Bio.Core.Sequence import qualified Bio.Sequence.PhdTag as PT import qualified Data.ByteString.Lazy as LB@@ -9,7 +10,7 @@ values, followed by one or more (optional) tag blocks. --} data Phd = Phd { comment :: Comment , dnaBlock :: DNABlock - , phdTags :: Maybe [PT.PhdTag] + , phdTags :: Maybe [PT.PhdTag] } deriving (Show) {-- These types are subject to change if it improves functionality,@@ -23,7 +24,7 @@ , time :: String , traceArrayMinIndex :: Int , traceArrayMaxIndex :: Int- , trim :: String+ , trim :: Maybe String , chem :: String , dye :: String } deriving (Eq)@@ -39,7 +40,7 @@ , "TIME: " ++ show ti , "TRACE_ARRAY_MIN_INDEX: " ++ show mintai , "TRACE_ARRAY_MAX_INDEX: " ++ show maxtai- , "TRIM: " ++ tr+ , "TRIM: " ++ if (tr == Nothing) then "" else fromJust tr , "CHEM: " ++ ch , "DYE: " ++ dy ]@@ -72,7 +73,7 @@ , time = "" , traceArrayMinIndex = 0 , traceArrayMaxIndex = 1- , trim = ""+ , trim = Nothing , chem = "unknown" , dye = "unknown" }