From 898e7ed11ab0958fcdaf65b99b33f7b04787630a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 24 Sep 2017 22:14:48 +0200
Subject: Bootstrap with GHCJS and reflex:

- setup login and logout,
- first draft of payment view.
---
 src/client/Validation.elm | 65 -----------------------------------------------
 1 file changed, 65 deletions(-)
 delete mode 100644 src/client/Validation.elm

(limited to 'src/client/Validation.elm')

diff --git a/src/client/Validation.elm b/src/client/Validation.elm
deleted file mode 100644
index de27963..0000000
--- a/src/client/Validation.elm
+++ /dev/null
@@ -1,65 +0,0 @@
-module Validation exposing
-  ( cost
-  , date
-  , category
-  , color
-  , new
-  )
-
-import Date exposing (Date)
-import Date.Extra.Core exposing (intToMonth)
-import Date.Extra.Create exposing (dateFromFields)
-import Dict
-import Regex
-import String exposing (toInt, split)
-
-import Form.Validate as Validate exposing (Validation)
-import Form.Error as Error exposing (ErrorValue(CustomError))
-
-import Model.Category exposing (Categories, CategoryId)
-
-cost : Validation String Int
-cost =
-  Validate.customValidation Validate.int (\n ->
-    if n == 0
-      then Err (Validate.customError "CostMustNotBeNull")
-      else Ok n
-  )
-
-date : Validation String Date
-date =
-  Validate.customValidation Validate.string (\str ->
-    case split "/" str of
-      [day, month, year] ->
-        case (toInt day, toInt month, toInt year) of
-          (Ok dayNum, Ok monthNum, Ok yearNum) ->
-            Ok (dateFromFields yearNum (intToMonth monthNum) dayNum 0 0 0 0)
-          _ -> Err (Validate.customError "InvalidDate")
-      _ -> Err (Validate.customError "InvalidDate")
-  )
-
-category : Categories -> Validation String CategoryId
-category categories =
-  Validate.customValidation Validate.string (\str ->
-    case toInt str of
-      Ok category ->
-        if List.member category (Dict.keys categories)
-          then Ok category
-          else Err (Validate.customError "InvalidCategory")
-      Err _ ->
-        Err (Validate.customError "InvalidCategory")
-  )
-
-color : Validation String String
-color =
-  Validate.customValidation Validate.string (\str ->
-    if Regex.contains (Regex.regex "^#[0-9a-fA-F]{6}$") str
-      then Ok str
-      else Err (Validate.customError "InvalidColor")
-  )
-
-new : List x -> x -> Validation String x
-new xs x field =
-  if List.member x xs
-    then Err (Error.value <| CustomError "AlreadyExists")
-    else Ok x
-- 
cgit v1.2.3