ilyakooo0/purescript-indexedDB
1
0
Fork 0
mirror of https://github.com/ilyakooo0/purescript-indexedDB.git synced 2024-10-26 08:02:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

add Show and Ord instances to IDBKeys

Browse Source
This commit is contained in:
KtorZ 2017-06-29 17:50:13 +02:00
parent d84ad46e12
commit 629979d88f
No known key found for this signature in database
GPG Key ID: 3F72E8BC2894C015
1 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/Database/IndexedDB/IDBKey/Internal.purs
View File

@ -18,7 +18,7 @@ import Data.Function.Uncurried (Fn2, Fn4, Fn7)
import Data.List.NonEmpty (NonEmptyList(..))
import Data.List.Types (List(..))
import Data.NonEmpty (NonEmpty(..))
import Data.Either (Either(..), isRight)
import Data.Either (Either(..), either, isRight)
import Data.Identity (Identity(..))
import Data.Nullable (Nullable, toNullable)
import Data.Time as Time
@ -48,6 +48,8 @@ class IDBKey a where
instance eqKey :: Eq Key where
eq a b = (runExceptT >>> runIdentity >>> isRight) $
eq <$> ((fromKey a) :: F Int) <*> fromKey b
<|>
eq <$> ((fromKey a) :: F Number) <*> fromKey b
<|>
eq <$> ((fromKey a) :: F String) <*> fromKey b
<|>
@ -57,6 +59,35 @@ instance eqKey :: Eq Key where
runIdentity (Identity x) = x
instance ordKey :: Ord Key where
compare a b = (runExceptT >>> runIdentity >>> either (const LT) id) $
compare <$> ((fromKey a) :: F Int) <*> fromKey b
<|>
compare <$> ((fromKey a) :: F Number) <*> fromKey b
<|>
compare <$> ((fromKey a) :: F String) <*> fromKey b
<|>
compare <$> ((fromKey a) :: F DateTime) <*> fromKey b
where
runIdentity :: forall a. Identity a -> a
runIdentity (Identity x) = x
instance showKey :: Show Key where
show a = (runExceptT >>> format) $
(show <$> (fromKey a :: F Int))
<|>
(show <$> (fromKey a :: F Number))
<|>
(show <$> (fromKey a :: F String))
<|>
(show <$> (fromKey a :: F DateTime))
where
format :: forall a. Identity (Either a String) -> String
format (Identity x) =
either (const "(Key)") (\s -> "(Key " <> s <> ")") x
instance idbKeyInt :: IDBKey Int where
toKey = Foreign.toForeign >>> Key
fromKey (Key f) = Foreign.readInt f