Skip to content

Instantly share code, notes, and snippets.

@halogenandtoast

halogenandtoast/Hmm.hs Secret

Created September 30, 2020 02:08
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save halogenandtoast/bf48c58903b22b1720c297f0ca246484 to your computer and use it in GitHub Desktop.
Save halogenandtoast/bf48c58903b22b1720c297f0ca246484 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Hmm.hs
mBaseValue = foldr
(\modifier current -> case modifier of
BaseSkillOf n -> Just n
_ -> current
)
Nothing
modifiers
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment