safeHead :: [a] -> Bluesnap a
safeHead []    = throwError $ BluesnapError "safeHead failed"
safeHead :: [a] -> Bluesnap a
safeHead []    = throwError $ BluesnapError "safeHead failed"
safeHead []    = throwError $ BluesnapError "safeHead failed"