diff options
| author | Joey Hess <joeyh@joeyh.name> | 2022-05-04 11:40:38 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2022-05-04 11:43:20 -0400 |
| commit | c244daa32328f478bbf38a79f2fcacb138a1049f (patch) | |
| tree | f1b2691357b88b267b9a77d5db23213bf0e2ac79 /Utility/Data.hs | |
| parent | 3c9630388ab0234df9e13473ac20c147e77074c5 (diff) | |
| download | git-repair-c244daa32328f478bbf38a79f2fcacb138a1049f.tar.gz | |
merge from git-annex
Diffstat (limited to 'Utility/Data.hs')
| -rw-r--r-- | Utility/Data.hs | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/Utility/Data.hs b/Utility/Data.hs index 5510845..faf9b34 100644 --- a/Utility/Data.hs +++ b/Utility/Data.hs @@ -1,6 +1,6 @@ {- utilities for simple data types - - - Copyright 2013 Joey Hess <id@joeyh.name> + - Copyright 2013-2021 Joey Hess <id@joeyh.name> - - License: BSD-2-clause -} @@ -10,8 +10,12 @@ module Utility.Data ( firstJust, eitherToMaybe, + s2w8, + w82s, ) where +import Data.Word + {- First item in the list that is not Nothing. -} firstJust :: Eq a => [Maybe a] -> Maybe a firstJust ms = case dropWhile (== Nothing) ms of @@ -20,3 +24,15 @@ firstJust ms = case dropWhile (== Nothing) ms of eitherToMaybe :: Either a b -> Maybe b eitherToMaybe = either (const Nothing) Just + +c2w8 :: Char -> Word8 +c2w8 = fromIntegral . fromEnum + +w82c :: Word8 -> Char +w82c = toEnum . fromIntegral + +s2w8 :: String -> [Word8] +s2w8 = map c2w8 + +w82s :: [Word8] -> String +w82s = map w82c |