From a7db22556b91bc7c499e010b4c051f4442ad8ce2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 29 Dec 2015 22:38:42 +0100
Subject: Using persona to validate emails

---
 src/client/Model/Payment.elm | 44 --------------------------------------------
 1 file changed, 44 deletions(-)
 delete mode 100644 src/client/Model/Payment.elm

(limited to 'src/client/Model/Payment.elm')

diff --git a/src/client/Model/Payment.elm b/src/client/Model/Payment.elm
deleted file mode 100644
index c4a8963..0000000
--- a/src/client/Model/Payment.elm
+++ /dev/null
@@ -1,44 +0,0 @@
-module Model.Payment
-  ( perPage
-  , Payments
-  , Payment
-  , PaymentId
-  , paymentsDecoder
-  , paymentIdDecoder
-  ) where
-
-import Date exposing (..)
-import Json.Decode as Json exposing ((:=))
-
-import Model.User exposing (UserId, userIdDecoder)
-import Model.Date exposing (dateDecoder)
-
-perPage : Int
-perPage = 8
-
-type alias Payments = List Payment
-
-type alias Payment =
-  { id : PaymentId
-  , creation : Date
-  , name : String
-  , cost : Int
-  , userId : UserId
-  }
-
-type alias PaymentId = Int
-
-paymentsDecoder : Json.Decoder Payments
-paymentsDecoder = Json.list paymentDecoder
-
-paymentDecoder : Json.Decoder Payment
-paymentDecoder =
-  Json.object5 Payment
-    ("id" := paymentIdDecoder)
-    ("creation" := dateDecoder)
-    ("name" := Json.string)
-    ("cost" := Json.int)
-    ("userId" := userIdDecoder)
-
-paymentIdDecoder : Json.Decoder PaymentId
-paymentIdDecoder = Json.int
-- 
cgit v1.2.3