Initial version.

Features:

- Upload PDF files let them analyze

- Manage meta data and items

- See processing in webapp
This commit is contained in:
Eike Kettner
2019-07-23 00:53:30 +02:00
parent 6154e6a387
commit 831cd8b655
341 changed files with 23634 additions and 484 deletions

View File

@ -0,0 +1,25 @@
module Data.Priority exposing (..)
type Priority
= High
| Low
fromString: String -> Maybe Priority
fromString str =
let
s = String.toLower str
in
case s of
"low" -> Just Low
"high" -> Just High
_ -> Nothing
toName: Priority -> String
toName lang =
case lang of
Low -> "Low"
High-> "High"
all: List Priority
all =
[ Low, High ]