11 lines
312 B
Haskell
11 lines
312 B
Haskell
module SpaceTraders.Database.Utils
|
|
( decodeText
|
|
) where
|
|
|
|
import Data.Aeson
|
|
import Data.ByteString.Builder(toLazyByteString)
|
|
import qualified Data.Text as T
|
|
import Data.Text.Encoding (encodeUtf8Builder)
|
|
|
|
decodeText :: FromJSON a => T.Text -> Maybe a
|
|
decodeText = decode . toLazyByteString . encodeUtf8Builder
|