added the option WISC2013 to the Capture_Type janno type

Author: nevrome

CHANGELOG.md

@@ -9,8 +9,9 @@
         - New column `Chromosomal_Anomalies`.
         - Made column `Collection_ID` a list column.
         - Soft-retired the option `ReferenceGenome` in the column `Capture_Type`.
-        - Added rescaling feature for the columns `Endogenous` and `Damage` for packages below Poseidon v3.0.0.. (TODO: Rethink the order in which that is done)
+        - Added rescaling feature for the columns `Endogenous` and `Damage` for packages below Poseidon v3.0.0..
         - Made column `Damage` a list column.
+        - Added the option `WISC2013` to the column `Capture_Type`.
         - Changed the handling of `_Note` columns. Previously they were explicitly specified and part of the `JannoRow` record type. Now they are just treated as arbitrary additional columns that get algorithmically sorted in when writing .janno files (e.g. in `forge`). See `makeHeaderWithAdditionalColumns`.
     - Changes to .ssf columns according to Poseidon v3.0.0:
         - New column `submitted_md5`.

src/Poseidon/ColumnTypesJanno.hs

@@ -408,6 +408,7 @@ data JannoCaptureType =
     | ArborPrimePlus
     | ArborAncestralPlus
     | TwistAncientDNA
+    | WISC2013
     | OtherCapture
     | LegacyReferenceGenome -- was removed in Poseidon v3.0.0, kept here for compatibility
     deriving (Eq, Ord, Generic, Enum, Bounded)
@@ -420,11 +421,13 @@ instance Makeable JannoCaptureType where
         | x == "ArborPrimePlus"     = pure ArborPrimePlus
         | x == "ArborAncestralPlus" = pure ArborAncestralPlus
         | x == "TwistAncientDNA"    = pure TwistAncientDNA
+        | x == "WISC2013"           = pure WISC2013
         | x == "OtherCapture"       = pure OtherCapture
         | x == "ReferenceGenome"    = pure LegacyReferenceGenome
         | otherwise = fail $ "Capture_Type is set to " ++ show x ++ ". " ++
                              "That is not in the allowed set [Shotgun, 1240K, ArborComplete, \
-                             \ArborPrimePlus, ArborAncestralPlus, TwistAncientDNA, OtherCapture]."
+                             \ArborPrimePlus, ArborAncestralPlus, TwistAncientDNA, WISC2013, \
+                             \OtherCapture]."
 instance Suspicious JannoCaptureType where
     inspect LegacyReferenceGenome =  Just ["Capture_Type is set to ReferenceGenome, which is not a \
                                            \capture setup. This option was retired in Poseidon v3.0.0."]
@@ -436,6 +439,7 @@ instance Show JannoCaptureType where
     show ArborPrimePlus        = "ArborPrimePlus"
     show ArborAncestralPlus    = "ArborAncestralPlus"
     show TwistAncientDNA       = "TwistAncientDNA"
+    show WISC2013              = "WISC2013"
     show OtherCapture          = "OtherCapture"
     show LegacyReferenceGenome = "ReferenceGenome"
 instance Csv.ToField JannoCaptureType where   toField x = Csv.toField $ show x