mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-23 10:58:26 +00:00
Initial version.
Features: - Upload PDF files let them analyze - Manage meta data and items - See processing in webapp
This commit is contained in:
25
modules/webapp/src/main/elm/Data/Priority.elm
Normal file
25
modules/webapp/src/main/elm/Data/Priority.elm
Normal 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 ]
|
Reference in New Issue
Block a user