mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-23 02:48:26 +00:00
24 lines
366 B
Elm
24 lines
366 B
Elm
{-
|
|
Copyright 2020 Eike K. & Contributors
|
|
|
|
SPDX-License-Identifier: AGPL-3.0-or-later
|
|
-}
|
|
|
|
|
|
module Data.EquipmentOrder exposing (EquipmentOrder(..), asString)
|
|
|
|
|
|
type EquipmentOrder
|
|
= NameAsc
|
|
| NameDesc
|
|
|
|
|
|
asString : EquipmentOrder -> String
|
|
asString order =
|
|
case order of
|
|
NameAsc ->
|
|
"name"
|
|
|
|
NameDesc ->
|
|
"-name"
|