Skip to content

Instantly share code, notes, and snippets.

@cmoore

cmoore/gist:148557

Created July 16, 2009 17:52
Show Gist options
  • Save cmoore/148557 to your computer and use it in GitHub Desktop.
Save cmoore/148557 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
key_from_row :: String -> [(String,String)] -> String
key_from_row key (row:x) = do
let (k,v) = row
if k == key then v else key_from_row key x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment