Skip to content

Instantly share code, notes, and snippets.

View mroman42's full-sized avatar

Mario Román mroman42

215 followers · 166 following
View GitHub Profile
@mroman42
mroman42 / monadicClinicalTrials.hs
Last active April 13, 2025 17:51
Taking clinical trial description seriously.
{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
{-# HLINT ignore "Use newtype instead of data" #-}
{-# HLINT ignore "Use if" #-}
module ProtocolsRunOnTrials where
import Control.Monad.Free
import Control.Monad
import Control.Monad.Loops
import Data.List (isInfixOf)
import Data.Maybe (maybeToList)