From cbaa117b8a3ff67d70fdc8094ed9d6ab5a24a98f Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Wed, 13 Apr 2016 16:39:47 -0400
Subject: [PATCH] brenden's list function

---
 src/List.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/List.hs b/src/List.hs
index efde12ce5..c820ae873 100644
--- a/src/List.hs
+++ b/src/List.hs
@@ -5,6 +5,7 @@ module List (
   head,
   ordNub,
   sortOn,
+  list,
 ) where
 
 import Data.List (sortBy)
@@ -30,3 +31,8 @@ ordNub l = go Set.empty l
       if x `Set.member` s
       then go s xs
       else x : go (Set.insert x s) xs
+
+list :: [b] -> (a -> b) -> [a] -> [b]
+list def f xs = case xs of
+  [] -> def
+  _  -> fmap f xs