website/frontend/src/Cuckery/CuckList/KenBerry/KenBerry.elm

55 lines
2 KiB
Elm
Raw Normal View History

2024-11-16 16:35:08 -06:00
module Cuckery.CuckList.KenBerry.KenBerry exposing (..)
2024-11-14 04:11:12 -06:00
import Cuckery.Types exposing (..)
cuckKenBerry : Cuck
cuckKenBerry =
let
name : String
name =
"Ken Berry"
2024-11-14 19:36:47 -06:00
propAnimalFat : String
propAnimalFat =
"Replacing animal fats with vegetable oils is dangerous."
2024-11-14 04:11:12 -06:00
in
{ cuckImage = formatCuckName name
, cuckName = name
, cuckSocial = "https://x.com/KenDBerryMD"
2024-11-14 04:11:12 -06:00
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1366524889067368449?s=20"
2024-11-14 04:11:12 -06:00
, dodgeDescription = NoReply
2024-11-14 19:36:47 -06:00
, dodgeProposition = "Type 2 Diabetes is chronic carbohydrate overdose."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
2024-11-14 04:11:12 -06:00
, dodgeNicksDoxasticState = Just Agnostic
2024-11-14 19:36:47 -06:00
, dodgeNicksDoxasticReason = VagueProp
2024-11-14 04:11:12 -06:00
}
, { dodgeLink = "https://x.com/TheNutrivore/status/1539720236701589504?s=20"
2024-11-14 04:11:12 -06:00
, dodgeDescription = NoReply
2024-11-14 19:36:47 -06:00
, dodgeProposition = propAnimalFat
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
2024-11-14 19:36:47 -06:00
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
2024-11-14 04:11:12 -06:00
}
, { dodgeLink = "https://x.com/TheNutrivore/status/1539721408372039680?s=20"
2024-11-14 04:11:12 -06:00
, dodgeDescription = NoReply
2024-11-14 19:36:47 -06:00
, dodgeProposition = propAnimalFat
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
2024-11-14 19:36:47 -06:00
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
2024-11-14 04:11:12 -06:00
}
, { dodgeLink = "https://x.com/TheNutrivore/status/1813969807521300615"
, dodgeDescription = InTooDeep
, dodgeProposition = noProposition
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
2024-11-14 04:11:12 -06:00
, dodgeNicksDoxasticState = Nothing
2024-11-14 19:36:47 -06:00
, dodgeNicksDoxasticReason = VagueProp
2024-11-14 04:11:12 -06:00
}
]
}